[perl-win32-gui-users] AcceleratorTable

[Erick J. B. <er...@e-...>]

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 =3D new Win32::GUI::AcceleratorTable(
    "Ctrl-O" =3D> "OpenHK",
);
$Menu =3D Win32::GUI::MakeMenu(
    "&File"                    =3D> "File",
    "> &Open           Ctrl+O" =3D> "Open",
);
$MainWin =3D new Win32::GUI::Window(
    -name =3D> "MainWin",
    -text =3D> "Accelerator Table",
    -accel =3D> $HotKey,
    -size =3D> [200, 200],
    -pos =3D> [70, 70],
    -menu =3D> $Menu,
);

$MainWin->Show();
Win32::GUI::Dialog();

sub MainWin_Terminate {
    $MainWin->Hide();
    return -1;
}
sub Open_Click {
    my $file=3DGUI::GetOpenFileName(-title=3D>"File To Open", =
-filter=3D>["*.*"],);
}
sub OpenHK_Click {
    Open_Click();
}
#------------EOF---------------#

erick
never stop questioning
www.jeb.ca