Select Code to Download

#!/usr/bin/perl -w

use Tk;
...
  $frame1->UnmapWindow();  # Same here, works but
  $frame2->MapWindow();    # doesn't "repack"
}