diff -r1.1 Tk-mines_0.07.pl
464c464
<     $MainFrame->destroy(); undef $MainFrame;
---
>     $_->destroy for $MainFrame->children();
471,475c471
<     # create a new mainframe
<     $MainFrame = $mw->Frame(-relief => 'sunken', -border => 1)
<       ->pack(-side => 'top', -fill => 'both', -expand => 1);
<
<     # and draw the rest
---
>     # create the new contents of the MainFrame