[perl-win32-gui-hackers] AcceleratorTable documentation error

[Blair Sutton]

The docs suggest "Shift-3" should work but in fact you need a reference! 

snip---> 

use Win32::GUI; 

$A = new Win32::GUI::AcceleratorTable(
        "Shift-1" => \&S1,
        "Shift-2" => sub { $W->Caption("Shift-2"); },
        "Shift-3" => "S3",
); 

$W = new Win32::GUI::Window(-accel => $A, -width => 200);
$W->Show(1);
Win32::GUI::Dialog; 

sub S1 {        $W->Caption("Shift-1"); }
sub S3 {        $W->Caption("Shift-3"); }