samir_gambler has asked for the wisdom of the Perl Monks concerning the following question:
Can any one please suggest how to achieve it. Thanks in advanceuse warnings; use Win32::GUI(); my $MainWindow = Win32::GUI::Window->new( -text => 'Main', -name => 'MainWindow', -pos => [ 10, 10 ], -size => [ 900, 900 ], ); my $loginIDLabel = $MainWindow->AddLabel( -text => "User ID:", -pos => [ 10, 10 ], ); my $loginPassLabel = $MainWindow->AddLabel( -text => "Password:", -pos => [ 10, 40 ], ); my $loginIDTextFields = $MainWindow->AddTextfield( -name => "LoginID", -width => 150, -height => 20, -pos => [60,8], ); my $loginPassTextField = $MainWindow->AddTextfield( -name => "LoginPass", -width => 150, -height => 20, -pos => [60,38], -password => 1, ); my $loginSave = $MainWindow->AddButton( -name => "Save", -text => "Save", -pos => [ 50, 80 ], ); my $loginReset = $MainWindow->AddButton( -name => "Reset", -text => "Reset", -pos => [ 100, 80 ], ); $MainWindow->Show(); Win32::GUI::Dialog(); sub Reset_Click { #wish to reset the textfield content return 0; }; sub Save_Click { #wish to call a subroutine return -1; };
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Adding tab sequence in the GUI created through win32
by roboticus (Chancellor) on May 18, 2013 at 14:20 UTC | |
by samir_gambler (Novice) on May 19, 2013 at 01:52 UTC |