[perl-win32-gui-users] AcceleratorTable

[Erick J. Bourgeois]

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