#!/usr/bin/perl -wd use Tk; $main = MainWindow->new(); # Container frame for dynamic subframes $fmain = $main->Frame(-borderwidth=>0)->pack(-side=>'top',-fill=>'both +'); # Dymanic subframes for ($a=0;$a<=1;$a++) { $frame[$a] = $fmain->Frame(-borderwidth => 0)->pack(-side=>'left'); $frame[$a] -> Label(-text => "Frame " . \$whichframe[$a] ) -> pack; $frame[$a] -> Button(-text => "Delete frame", -command => \&rmv ) -> p +ack; } MainLoop; sub rmv { #Need to delete the frame here. }
In reply to Multiple frames by delmejo
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |