Select Code to Download

use Tk;
$x = 1.2;
...
$Window = MainWindow->new();

print "After Tk call $x, $sq\n";

Before Tk call 1.2, 1.44
After Tk call 1,2, 1,44