Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Tk Tutorial, Featuring Your Very Own "Perl Sig/OBFU Decoder Ring"

by DaWolf (Curate)
on Dec 14, 2003 at 02:42 UTC ( #314601=note: print w/ replies, xml ) Need Help??


in reply to Tk Tutorial, Featuring Your Very Own "Perl Sig/OBFU Decoder Ring"

Hi there.

I hope you can help me. There's an extremely simple thing I just can't understand: How can I get the value typed by a user in an Entry widget???

I've tried a very simple program that should take the user entry and put it into a file, so the code snippets would look like this:

#This creates the widget and place it: my $Entry2 = $mw->Entry( -relief => "sunken" ); $Entry2->place( -x => 88, -y => 33, -height => 16, -width => 120); # And I have a button that calls the sub that does the trick: my $Button3 = $mw->Button( -text => "Cadastrar", -relief => "raised", -command => \&add ); $Button3->place( -x => 218, -y => 33, -height => 16, -width => 56); # The above parts works as expected, my problem lies below (notice tha +t the snippet below is, obviously, after the MainLoop): sub add { my $name = $Entry2->get(0.1, 'end'); my $file = "data.dat"; open(CLIST, "+>>$file"); flock(CLIST,2); print CLIST $name."\n"; flock(CLIST,8); close($file); }


I just can't capture the Entry value. Please help me.

Thanks in advance,

my ($author_nickname, $author_email) = ("DaWolf","erabbott\@terra.com.br") if ($author_name eq "Er Galvão Abbott");


Comment on Re: Tk Tutorial, Featuring Your Very Own "Perl Sig/OBFU Decoder Ring"
Download Code
Re: Re: Tk Tutorial, Featuring Your Very Own "Perl Sig/OBFU Decoder Ring"
by smackdab (Pilgrim) on Dec 14, 2003 at 23:03 UTC
    This should be a separate node, but here is the modifed code:
    use Tk; use strict; use warnings; my $mw = MainWindow->new(); #This creates the widget and place it: my $Entry2 = $mw->Entry( -relief => "sunken" ); #$Entry2->place( -x => 88, -y => 33, -height => 16, -width => 120); $Entry2->pack(-side=>'left'); $Entry2->focus(); # And I have a button that calls the sub that does the trick: my $Button3 = $mw->Button( -text => "Cadastrar", -relief => "raised", -command => \&add ); #$Button3->place( -x => 218, -y => 33, -height => 16, -width => 56); $Button3->pack(-side=>'right'); # The above parts works as expected, my problem lies below #(notice that the snippet below is, obviously, after the MainLoop): MainLoop(); sub add { my $name = $Entry2->get(); print "name=$name\n"; #my $file = "data.dat"; # #open(CLIST, "+>>$file"); #flock(CLIST,2); #print CLIST $name."\n"; #flock(CLIST,8); #close($file); }

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (8)
As of 2014-09-02 21:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (31 votes), past polls