regymm

@@resource KeyEventTranslations
(* Modifiers can be "Shift", "Control", "Command", "Option"
	For Macintosh: "Command" = Command Key, "Option" = Option Key
	For X11: "Command" = Mod1, "Option" = Mod2
	For Windows: "Command" = Alt, "Option" = Alt
*)

EventTranslations[{

(* Evaluation *)

regymm

Menu["Menu for the X Front End",
{
	Menu["File",
	{
		Menu["&New",
		{
			MenuItem["&Notebook (.nb)", "New"(* , MenuKey["n", Modifiers->{"Control"}] *)],
			MenuItem["St&yled Notebook...", FrontEndExecute[{FrontEnd`NotebookOpen[FrontEnd`FindFileOnPath["StylesheetChooser.nb", "PalettePath"]]}]],
			MenuItem["Pre&senter Notebook...", FrontEndExecute[{FrontEnd`NotebookOpen[FrontEnd`FindFileOnPath["PresenterNotebookChooser.nb", "PalettePath"]]}]],
			Delimiter,