how to get textfield data in win32-gui perl
- by amit
hi i want to store textfield data in a variable but my code is not working
here is my code
use Win32::GUI();
my $W1 = Win32::GUI::Window-new(
-name = "W1",
-title = "First Window",
-pos = [ 100, 100 ],
-size = [ 300, 200 ],
);
$W1-AddButton(
-name = "ButtonW1",
-text = "Enter Chipname",
-pos = [ 87, 100 ],
#-ok = 1,
);
$W1-AddTextfield(
-name = "chipfield",
-left = 20,
-top = 40,
-width = 250,
-height = 20,
# -prompt = ["Mix ",30],
);
$W1-Show();
Win32::GUI::Dialog();
exit(0);
sub W1_Terminate {
return -1;
}
sub ButtonW1_Click {
$chipname = $W1-chipfield-Text(),
print $chipname;
#return 0;
}
please help me where is problem
