Subject: | perl/Tk Problem with referenced variable in Entry |
Date: | Wed, 6 Nov 2013 09:15:18 +0100 |
To: | <bug-Tk [...] rt.cpan.org> |
From: | "Antoine Gautier" <antoine.gautier [...] solamen.fr> |
Hi
The following code leads to a strange behavior.
First pressing "Calculate" button prints the expected result: Uw=2.6.
Then if I press "Characteristics" button and close the Characteristics
window, pressing again "Calculate" button leads to Uw=0 for the same values
of independent variables.
Further observations were made here:
<http://www.perlmonks.org/?node_id=1061335>
http://www.perlmonks.org/?node_id=1061335.
Best regards.
#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Devel::Peek;
my $val = 0.20;
my $mw = 'MainWindow'->new;
$mw->Button(
-text => "\n Characteristics \n",
-command => \&room,
)->pack(-fill => "x");
$mw->Button(
-text => "\n Calculate \n",
-background => "red",
-command => \&design,
)->pack(-fill => "x");
MainLoop();
sub room {
my $roomTl = $mw->Toplevel;
$roomTl->Entry(
-textvariable => \$val,
)->pack(-fill => 'x');
}
sub design {
my $Uf = 13;
my $Uw = $val * $Uf; # HERE
print Dump($val), "\t Uf = $Uf \t val = ${\$val} \t Uw = $Uw \n";
}
--
Antoine Gautier
Solamen SAS
+33 6 58 24 02 60
<mailto:antoine.gautier@solamen.fr> antoine.gautier@solamen.fr