[perl-win32-gui-users] AcceleratorTable doesnt work =(

[Renat A. <tr...@ya...>]

subj! =(
here is a sample on i try this. what's wrong?

PS: OS-w2k pro SP1 Win32::GUI::Version==0.0.558 (ppm) ActivePerl 5.6.1.626

#!wperl

use Win32::GUI;
    $Ac = new Win32::GUI::AcceleratorTable(
        "Ctrl-X"       => "Close",
        "Shift-N"      => "New",
        "Ctrl-Alt-Del" => "Reboot",
    );

    $main_window=new Win32::GUI::Window(
        -accel=>$Ac,
        -name=>"main_window",
        -title=>"main window",
        -top=>50,
        -left=>100,
        -width=>500,
        -height=>500,
        );


    $main_window->Show();

    Win32::GUI::Dialog();
        

sub New_Click
{
    exit;
    print "new is a";
    return 1;
}

sub main_window_Click
{
    exit;
    print "triggerred";
    return 1;    
}

sub Close_Click
{
    exit;
    print "triggerred";
    return 1;    
}

sub main_window_Terminate
{
    return -1;
}