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:
Fr
My Win32::GUI program terminates when the ESC key is pressed.
I only want my users to be able to mouse click File->Exit, or
The X in the upper right corner of the window/dialogbox to end
The program. How can the ESC key be trapped? Thanks, -Eric
Exit_Click {
return -1;
}
Window_Terminate {
$A = new Win32::GUI::AcceleratorTable(
"Esc" => "Esc");
$M = new Win32::GUI::Menu(
"&File" => "File",
" > E&xit" => "Exit");
$W = new Win32::GUI::Window (
-title=> "Some Title",
-menu => $M,
-accel=> $A,
-name => "Window",
-left => 12
This does not work. But I did discover that a DialogBox closes on ESC,
So if you want to prevent this, make it a Window and you don't need
An accelerator object.
-Original Message-
From: Eric Hansen [mailto:[EMAIL PROTECTED]
Sent: Wednesday, August 11, 2004 4:46 PM
To: 'perl-win32-gui-use
4 matches
Mail list logo