Glenn,
For some reason, that code doesn't work on my machine.
When I try to tab, it just beeps at me. I tried
updating both perl and Win32::GUI, but that didn't
help either. Oh well, at least I have something that
works. (And by the way, thanks for your response.)
Dan
Original Message:
From: "Glenn W Munroe" <[EMAIL PROTECTED]>
To: "'Daniel Jordan'" <[EMAIL PROTECTED]>,
<[email protected]>
Subject: RE: [perl-win32-gui-users] Tab between
controls in a Window
using an Accelerator table
Date: Tue, 10 Aug 2004 10:27:04 +0200
Daniel,
When I read this, I thought that the problem would be
a missing
-dialogui
option, but then I saw you had that. After that, I
removed the "hack"
code
and it still worked--am I missing the point? On my
system, you can tab
between textfields using the following code:
use Win32::GUI;
my $window = Win32::GUI::Window
-> new (
-name => 'window',
-text => "Window",
-width => 300,
-height => 200,
-dialogui => 1,
);
$t1 = $window
-> AddTextfield (-name => 't1',
-left => 30,
-top => 50,
-width => 100,
-height => 22,
-tabstop => 1,
-prompt => ["Text 1",50],
);
$t2 = $window
-> AddTextfield (-name => 't2',
-left => 30,
-top => 100,
-width => 100,
-height => 22,
-tabstop => 1,
-prompt => ["Text 2",50],
);
$t1 -> SetFocus();
$window -> Show();
sub window_Terminate { -1 }
Win32::GUI::Dialog();
>>>>>>>>>>>>>>>>>>>>>>>>
Glenn
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
