Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Can't seem to get combo box and list box or tick box to work

by Anonymous Monk
on Apr 21, 2016 at 12:55 UTC ( [id://1161085]=perlquestion: print w/replies, xml ) Need Help??

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

Hi Monks, I have the following code that I can't seem get to of work. I can get the items to display in the GUI and I can't get my selected variables back. Here's a snippet of code:</p?

my $CB = $mw->ComboBox( -textvariable=>\my $combobox, -values => "SF S +D LA All")->pack(-side=>'left', -anchor=>'n'); $CB->bind("<<ComboboxSelected>>", {scriptCombo() }); $CB->grid( -row => 8, -column => 1, -columnspan => 1 ); #$CB->cget( -values); $CB->cget(-command); $CB->configure; my $lbox = $mw->ListBox( -height => 5); $lbox->bind("<<ListboxSelect>>", sub {scriptCombo()}); $lbox->bind("<Double-1>", sub {scriptCombo()}); $mw->bind("<Return>", sub {scriptCombo()}); $lbox->grid( -row => 8, -column => 2, -columnspan => 1 );

Any help is greatly appreciated

Replies are listed 'Best First'.
Re: Can't seem to get combo box and list box or tick box to work
by choroba (Cardinal) on Apr 21, 2016 at 13:45 UTC
    What GUI library do you use? It seems Tk::ComboBox doesn't exist...

    ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

      I'm using Tcl::Tk

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://1161085]
Approved by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (8)
As of 2024-03-29 13:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found