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
[email protected]
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.
