Wx::AcceleratorTable

From WxPerl wiki

Wx::AcceleratorTable

Example

my $AccTable = new Wx::AcceleratorTable(
	 [	wxACCEL_CTRL,
		  'C',  ### NEEDS TO BE CAPITAL 
		  123,
	 ],
	 [	wxACCEL_ALT, 'D', 321, ],
	 new Wx::AcceleratorEntry( wxACCEL_ALT, 'D', 321 ),
	 )
);

$someFrame->SetAcceleratorTable( $AccTable );