Wx::AcceleratorEntry

From WxPerl wiki

wxAcceleratorEntry(int flags, int keyCode, int cmd)

Wx::AcceleratorEntry(
	 wxACCEL_ALT || wxACCEL_SHIFT || wxACCEL_CTRL || wxACCEL_NORMAL,
	 'D' || WXK_NUMPAD1, # ASCII must be UPPERCASE.  see %Keycodes% 
	 66666,		# EVT_MENU( $frame, 66666, \&DoSomething );
);