Help for this page

Select Code to Download

Select or download this

# Closure - BROKEN!
$frame[$a] -> Button(-text => "Delete frame", -command => sub { rmv( $
+frame[$a]) })->pack;
...
sub rmv {
    shift->destroy;
}

Select or download this

for (0 .. 5) {
    my $frame = $fmain->Frame(-borderwidth => 0)->pack(-side => 'left'
+);
...
                   -command => sub { rmv($frame) },
                  )->pack;
}