Select Code to Download

my $rememberer = MakeHideDaddyChildButton(
    -buttonDaddy => $top_frame,
...
    -hiders      => [ $top_frame, $middle_frame ],    #daddys kiddys
);
$rememberer->pack;

#!/usr/bin/perl --
use strict; use warnings;
...
    $b->configure(-state => "normal");
    $mw->update;
}