From: Chris W. <ch...@vi...> - 2004-01-14 14:36:52
|
Hi All, When using AddGroupbox with RadioButtons, we have to use -group with -tapstop. However I am trying to use a Groupbox to contain a number of Textfields and other controls, and have not been able to tab at all. Using the Groupbox works perfectly as a container and by using -parent, resize event offsets are easier to calculate. The only thing I can't get working is the ability to tab between the controls. Does anybody know the correct way of doing this, or is it not possible? Chris Wearn #!perl -w use Win32::GUI; $MainWindow = new Win32::GUI::Window( -title => 'tabbing', -left => 100, -top => 100, -width => 500, -height => 400, -name => 'MainWindow', ); $gpbSessSettings = $MainWindow ->AddGroupbox( -name => "gpbThisSettings", -left => 10, -top => 10, -width => 250, -height => 200, -text => " SESSION SETTINGS", ); # TEXTFIELD - Save Path $txtSavePath = $MainWindow ->AddTextfield( -parent => $gpbSessSettings, -name => "txtSavePath", -left => 10, -top => 20, -text => "", -width => 80, -height => 22, -group => 1, -tabstop => 0, ); # TEXTFIELD - Save Name $txtSaveName = $MainWindow ->AddTextfield( -parent => $gpbSessSettings, -name => "txtSaveName", -left => 10, -top => 45, -text => "", -width => 80, -height => 22, -tabstop => 0, ); $MainWindow ->Show(); $rc = Win32::GUI::Dialog(0); sub MainWindow_Terminate { $MainWindow ->PostQuitMessage(1); # return -1; } |
From: Glenn L. <pe...@ne...> - 2004-01-14 15:43:50
|
On approximately 1/14/2004 6:41 AM, came the following characters from the keyboard of Chris Wearn: > Hi All, > > When using AddGroupbox with RadioButtons, we have to use -group > with -tapstop. However I am trying to use a Groupbox to contain a number of > Textfields and other controls, and have not been able to tab at all. > > Using the Groupbox works perfectly as a container and by using -parent, > resize event offsets are easier to calculate. The only thing I can't get > working is the ability to tab between the controls. Does anybody know the > correct way of doing this, or is it not possible? > > Chris Wearn > > > #!perl -w > use Win32::GUI; > $MainWindow = new Win32::GUI::Window( > -title => 'tabbing', > -left => 100, > -top => 100, > -width => 500, > -height => 400, -dialogui => 1, # you might try adding this > -name => 'MainWindow', > ); $MainWindow->{'-dialogui'} = 1; # or this, afterwards. # I've used this form, but not the other, to do what I think # you want to do. > > $gpbSessSettings = $MainWindow ->AddGroupbox( > -name => "gpbThisSettings", > -left => 10, > -top => 10, > -width => 250, > -height => 200, > -text => " SESSION SETTINGS", > ); > > # TEXTFIELD - Save Path > $txtSavePath = $MainWindow ->AddTextfield( > -parent => $gpbSessSettings, > -name => "txtSavePath", > -left => 10, > -top => 20, > -text => "", > -width => 80, > -height => 22, > -group => 1, > -tabstop => 0, > ); > > # TEXTFIELD - Save Name > $txtSaveName = $MainWindow ->AddTextfield( > -parent => $gpbSessSettings, > -name => "txtSaveName", > -left => 10, > -top => 45, > -text => "", > -width => 80, > -height => 22, > -tabstop => 0, > ); > > $MainWindow ->Show(); > $rc = Win32::GUI::Dialog(0); > > sub MainWindow_Terminate { > $MainWindow ->PostQuitMessage(1); > # return -1; > } > > > > ------------------------------------------------------- > This SF.net email is sponsored by: Perforce Software. > Perforce is the Fast Software Configuration Management System offering > advanced branching capabilities and atomic changes on 50+ platforms. > Free Eval! http://www.perforce.com/perforce/loadprog.html > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > -- Glenn -- http://nevcal.com/ =========================== The best part about procrastination is that you are never bored, because you have all kinds of things that you should be doing. |