gocpon has asked for the wisdom of the Perl Monks concerning the following question:


I create a checkbutton in loop, If I check any of the checkbutton i am not getting -text of the corresponding checkbutton .Kindly help me

#! c:\perl\Bin use Tk; use Tk::Pane; use Tk::CheckButton; use Tk::LabFrame; @a=qw/one two three four five six seven eight nine ten/; $mw = MainWindow->new; $mw->geometry('200x200'); $f = $mw->Scrolled("Frame",-borderwidth => 3, -relief => 'groove',-hei +ght=>20)->pack; #$scrollbar = $f->Scrollbar(-orient => 'vertical'); $j=0; foreach $i(1...20) { $c=$f->Checkbutton(-text=>$a[$j],-command=>\&fun)->pack(); $i++; $j++; } MainLoop; sub fun { print ("$a[$j]"); }