in reply to
Tk Tutorial, Featuring Your Very Own "Perl Sig/OBFU Decoder Ring"
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):
my $name = $Entry2->get(0.1, 'end');
my $file = "data.dat";
print CLIST $name."\n";
I just can't capture the Entry value. Please help me.
Thanks in advance,
($author_nickname, $author_email) = ("DaWolf","erabbott\@terra.com.br")
if ($author_name eq "Er