RE: [perl-win32-gui-users] AcceleratorTable

[Peter E. <Pet...@at...>]

I may be wrong, but I've found that you cannot call a _Click() directly (you
actually have to Click on something). I'd try this with your subs:
 
sub Open_Click {
    Open();
}
 
sub Open {
    my $file=GUI::GetOpenFileName(-title=>"File To Open",
-filter=>["*.*"],);
}
sub OpenHK_Click {
    Open;
}

-----Original Message-----
From: Erick J. Bourgeois [mailto:er...@e-...]
Sent: Thursday, February 01, 2001 12:18 PM
To: per...@li...
Subject: [perl-win32-gui-users] AcceleratorTable


I'm working on an accelerator table and I have written this thus far, but it
isn't responding to the keys:
 
use Win32::GUI;
 
$HotKey = new Win32::GUI::AcceleratorTable(
    "Ctrl-O" => "OpenHK",
);
$Menu = Win32::GUI::MakeMenu(
    "&File"                    => "File",
    "> &Open           Ctrl+O" => "Open",
);
$MainWin = new Win32::GUI::Window(
    -name => "MainWin",
    -text => "Accelerator Table",
    -accel => $HotKey,
    -size => [200, 200],
    -pos => [70, 70],
    -menu => $Menu,
);
 
$MainWin->Show();
Win32::GUI::Dialog();
 
sub MainWin_Terminate {
    $MainWin->Hide();
    return -1;
}
sub Open_Click {
    my $file=GUI::GetOpenFileName(-title=>"File To Open",
-filter=>["*.*"],);
}
sub OpenHK_Click {
    Open_Click();
}
#------------EOF---------------#
 
erick
never stop questioning
www.jeb.ca <http://www.jeb.ca>