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

[Blair S. <bs...@nu...>]

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"); }