Hello Perl Monks - who always prove to be smarter than me!! I have a perl script with a Tcl::Tk GUI and I can't get the listbox to work properly. It displays in the GUI but upon selection it throws the following error ,"Tcl error 'wrong # args: should be ".lb28 get firstIndex ?lastIndex?" at...". I've been googling for days and the reading everything I can online but I don't know what dumb mistake I'm making. Any help is greatly appreciated. Here's my code
#################################### #testing new my @cursors = qw/ 12 24 48 96/; my $lb = $mw->Listbox(-selectmode => 'single', ); $lb->pack(-side => 'left', -fill => 'both'); $lb->insert('end', sort @cursors); $lb->bind('<Button-1>', sub { $mw->configure(-background => $lb->get($lb->curselection)); + }); $lb->grid( -row => 10, -column => 2, -columnspan => 1);
Thanks again for the help.
In reply to Tcl::Tk listbox error by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |