Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: tk how to create entry box from menu selection

by gibsonca (Beadle)
on Feb 02, 2010 at 17:55 UTC ( #820988=note: print w/ replies, xml ) Need Help??


in reply to tk how to create entry box from menu selection

I found a snippet of code for username pw, so then my solution was trivial:

# ----------- sub options { # ----------- my $tBuild; require Tk::LabEntry; require Tk::DialogBox; $options = $mw->DialogBox(-title => 'Build Version', -buttons => ['Ok', 'Cancel'], -default_button => 'Ok'); $options->add('LabEntry', -textvariable => \$tBuild, -width => 5, -label => 'Enter build version:', -labelPack => [-side => 'left'])->pack; my $sts = $options->Show(); if ($sts eq "Ok") { $gBuild = $tBuild; } $txt->insert('end',"\n Build version set to : '$gBuild'"); } # end of options()

I still need to figure out color, position and why I need the require's..


Comment on Re: tk how to create entry box from menu selection
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (8)
As of 2014-08-23 08:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (173 votes), past polls