Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: perltk: error getting values from dynamically generated combo boxes

by thundergnat (Deacon)
on May 08, 2012 at 14:36 UTC ( #969479=note: print w/ replies, xml ) Need Help??


in reply to perltk: error getting values from dynamically generated combo boxes

That is happening because of the way the BrowseEntry widget handles mouse clicks.

Mouse button 1 clicks outside of a BrowseEntry selection choice list clears the current selection. So only the last BrowseEntry you adjust will (possibly) still have a curselection list.

I'm not sure exactly what you are trying to accomplish, but it seems like you are doing an awful lot of unnecessary work. Would something like this do what you want?

use strict; use warnings; use Tk; my $textboxrow = 1; my $fieldbuttonrow = 2; my @be; my $mw = tkinit; $mw -> geometry("400x200"); my $button = $mw->Button(-text => 'Add Field', -command => \&addtext +box); my $button2 = $mw->Button(-text => 'Print texts',-command => \&printte +xts); addtextbox(); MainLoop(); sub addtextbox{ my $be = $mw->BrowseEntry(-label=>"Field"); $be->insert('end', $_) for qw/dog cat mouse/; push @be, $be; $be ->grid(-row=>$textboxrow++, -column=>2); $button ->grid(-row=>$fieldbuttonrow++,-column=>2,-columnspan=>2); $button2->grid(-row=>$fieldbuttonrow ,-column=>2,-columnspan=>1); } sub printtexts{ print join ':', map { $_->Subwidget('entry')->get } @be; }


Comment on Re: perltk: error getting values from dynamically generated combo boxes
Download Code
Re^2: perltk: error getting values from dynamically generated combo boxes
by ruhroh (Initiate) on May 08, 2012 at 17:59 UTC

    This seems to be what I needed. I wanted something that allows the user to input as many fields as he/she likes and a way to collect all of the fields the user inputted.

    Sorry I just started learning Perltk (a lot from your message boards tbh :D ) and this code is what I came up with. I really appreciate your help! Thanks!

      No apology necessary. We were all beginners once. Besides, you posted almost a perfect textbook example of the right way to ask a question. Made it easy to help you.

      Cheers

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://969479]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (5)
As of 2014-07-26 11:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (175 votes), past polls