MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Ctrl+Number Shortcuts doesn't work

  • To: mathgroup at smc.vnet.net
  • Subject: [mg120695] Re: Ctrl+Number Shortcuts doesn't work
  • From: "Sjoerd C. de Vries" <sjoerd.c.devries at gmail.com>
  • Date: Wed, 3 Aug 2011 19:21:46 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <j10ku4$ors$1@smc.vnet.net>

I guess you have been throwing away too many files. You might be
missing (or perhaps it's corrupted) the file KeyEventTranslations.tr.
You can find it in the directory indicated by executing
$InstallationDirectory in Mathematica, subdirectory SystemFiles/
FrontEnd/TextResources/MacOS

If you have found it, there should be the following text in it:

@@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 *)
	Item[KeyEvent["Enter"], "EvaluateCells"],
	Item[KeyEvent["KeypadEnter"], "EvaluateCells"],
	Item[KeyEvent["Return", Modifiers -> {Shift}], "HandleShiftReturn"],
	Item[KeyEvent["KeypadEnter", Modifiers -> {Shift}],
"EvaluateNextCell"],
	Item[KeyEvent["Enter", Modifiers -> {Shift}], "EvaluateNextCell"],
	Item[KeyEvent["Return", Modifiers -> {Shift, Control}],
Evaluate[All]],
	Item[KeyEvent["Return", Modifiers -> {Option}], "SimilarCellBelow"],
	Item[KeyEvent["Escape"], "ShortNameDelimiter"],

(* Cursor control *)
	Item[KeyEvent["Up"], "MovePreviousLine"],
	Item[KeyEvent["Down"], "MoveNextLine"],
	Item[KeyEvent["Left"], "MovePrevious"],
	Item[KeyEvent["Right"], "MoveNext"],
	Item[KeyEvent["Right", Modifiers -> {Control}], "MoveNextWord"],
	Item[KeyEvent["Left", Modifiers -> {Control}], "MovePreviousWord"],
	Item[KeyEvent["End"], "MoveLineEnd"],
	Item[KeyEvent["Home"], "MoveLineBeginning"],

(* Selection *)
	Item[KeyEvent["Right", Modifiers -> {Shift}], "SelectNext"],
	Item[KeyEvent["Left", Modifiers -> {Shift}], "SelectPrevious"],
	Item[KeyEvent["Right", Modifiers -> {Control, Shift}],
"SelectNextWord"],
	Item[KeyEvent["Left", Modifiers -> {Control, Shift}],
"SelectPreviousWord"],
	Item[KeyEvent["Down", Modifiers -> {Shift}], "SelectNextLine"],
	Item[KeyEvent["Up", Modifiers -> {Shift}], "SelectPreviousLine"],
	Item[KeyEvent["Home", Modifiers -> {Shift}], "SelectLineBeginning"],
	Item[KeyEvent["End", Modifiers -> {Shift}], "SelectLineEnd"],
	Item[KeyEvent[".", Modifiers -> {Control}], "ExpandSelection"],
	Item[KeyEvent["KeypadDecimal", Modifiers -> {Control}],
"ExpandSelection"],

(* Notebook window control *)
	Item[KeyEvent["Up", Modifiers -> {Control}], "ScrollLineUp"],
	Item[KeyEvent["Down", Modifiers -> {Control}], "ScrollLineDown"],
	Item[KeyEvent["PageUp"], "ScrollPageUp"],
	Item[KeyEvent["PageDown"], "ScrollPageDown"],
	Item[KeyEvent["Prior"], "ScrollPageUp"],
	Item[KeyEvent["Next"], "ScrollPageDown"],
	Item[KeyEvent["Home", Modifiers -> {Control}],
		FrontEndExecute[{
			FrontEnd`SelectionMove[FrontEnd`InputNotebook[], Before, Notebook],
			FrontEnd`FrontEndToken["ScrollNotebookStart"]
		}]],
	Item[KeyEvent["End", Modifiers -> {Control}],
		FrontEndExecute[{
			FrontEnd`SelectionMove[FrontEnd`InputNotebook[], After, Notebook],
			FrontEnd`FrontEndToken["ScrollNotebookEnd"]
		}]],
	Item[KeyEvent["w", Modifiers -> {Control}], "Close"],
	Item[KeyEvent["Left", Modifiers->{Command}], "HyperlinkGoBack"],
	Item[KeyEvent["Right", Modifiers->{Command}], "HyperlinkGoForward"],

(* Input *)
	Item[KeyEvent["Return"], "Linebreak"],
	Item[KeyEvent["Tab"], "Tab"],
	Item[KeyEvent["Backspace"], "DeletePrevious"],
	Item[KeyEvent["Delete"], "DeleteNext"],
	Item[KeyEvent["Backspace", Modifiers->{Control}],
"DeletePreviousWord"],
	Item[KeyEvent["Delete", Modifiers->{Control}], "DeleteNextWord"],

(* Typesetting input *)
	Item[KeyEvent["6", Modifiers -> {Control}], "Superscript"],
	Item[KeyEvent["Keypad6", Modifiers -> {Control}], "Superscript"],
	Item[KeyEvent["^", Modifiers -> {Control}], "Superscript"],
	Item[KeyEvent["-", Modifiers -> {Control}], "Subscript"],
	Item[KeyEvent["KeypadSubtract", Modifiers -> {Control}],
"Subscript"],
	Item[KeyEvent["_", Modifiers ->{Control}],  "Subscript"],
	Item[KeyEvent["/", Modifiers -> {Control}], "Fraction"],
	Item[KeyEvent["KeypadDivide", Modifiers -> {Control}], "Fraction"],
	Item[KeyEvent["2", Modifiers -> {Control}], "Radical"],
	Item[KeyEvent["Keypad2", Modifiers -> {Control}], "Radical"],
	Item[KeyEvent["@", Modifiers -> {Control}], "Radical"],
	Item[KeyEvent["7", Modifiers -> {Control}], "Above"],
	Item[KeyEvent["&", Modifiers -> {Control}], "Above"],
	Item[KeyEvent["Keypad7", Modifiers -> {Control}], "Above"],
	Item[KeyEvent["=", Modifiers -> {Control}], "Below"],
	Item[KeyEvent["+", Modifiers -> {Control}], "Below"],
	Item[KeyEvent["KeypadAdd", Modifiers -> {Control}], "Below"],
	Item[KeyEvent[",", Modifiers -> {Control}], "NewColumn"],
	Item[KeyEvent["Return", Modifiers -> {Control}], "NewRow"],
	Item[KeyEvent["9", Modifiers -> {Control}], "CreateInlineCell"],
	Item[KeyEvent["(", Modifiers -> {Control}], "CreateInlineCell"],
	Item[KeyEvent["Keypad9", Modifiers -> {Control}],
"CreateInlineCell"],
	Item[KeyEvent[")", Modifiers -> {Control}], "MoveNextCell"],
	Item[KeyEvent["0", Modifiers -> {Control}], "MoveNextCell"],
	Item[KeyEvent["Keypad0", Modifiers -> {Control}], "MoveNextCell"],
	Item[KeyEvent["5", Modifiers -> {Control}, CellClass -> BoxFormData],
"Otherscript"],
	Item[KeyEvent["Keypad5", Modifiers -> {Control}, CellClass ->
BoxFormData], "Otherscript"],
	Item[KeyEvent["%", Modifiers -> {Control}, CellClass -> BoxFormData],
"Otherscript"],
	Item[KeyEvent["Left", Modifiers->{Command}, CellClass ->
BoxFormData], "NudgeLeft"],
	Item[KeyEvent["Right", Modifiers->{Command}, CellClass ->
BoxFormData], "NudgeRight"],
	Item[KeyEvent["PageUp", Modifiers-> {Control}, CellClass ->
BoxFormData], "PreviousFunctionTemplate"],
	Item[KeyEvent["PageDown", Modifiers-> {Control}, CellClass ->
BoxFormData], "NextFunctionTemplate"],

(* Typesetting motion commands *)
	Item[KeyEvent[" ", Modifiers -> {Control}], "MoveExpressionEnd"],
	Item[KeyEvent["Tab", Modifiers -> {Shift}, CellClass -> BoxFormData],
"MovePreviousPlaceHolder"],
	Item[KeyEvent["Tab", Modifiers -> {Control}, CellClass ->
BoxFormData], "MoveNextExpression"],
	Item[KeyEvent["Tab", Modifiers -> {Control, Shift}, CellClass ->
BoxFormData], "MovePreviousExpression"],

(* Drawing tool commands *)
	Item[KeyEvent["o", CellClass->BoxFormData, BoxClass->GraphEdit2D],
FrontEndExecute[Select2DTool["Select"]]],
	Item[KeyEvent["r", CellClass->BoxFormData, BoxClass->GraphEdit2D],
FrontEndExecute[Select2DTool["Reshape"]]],
	Item[KeyEvent["p", CellClass->BoxFormData, BoxClass->GraphEdit2D],
FrontEndExecute[Select2DTool["DrawPoint"]]],
	Item[KeyEvent["c", CellClass->BoxFormData, BoxClass->GraphEdit2D],
FrontEndExecute[Select2DTool["DrawCircle"]]],
	Item[KeyEvent["f", CellClass->BoxFormData, BoxClass->GraphEdit2D],
FrontEndExecute[Select2DTool["DrawFreehand"]]],
	Item[KeyEvent["a", CellClass->BoxFormData, BoxClass->GraphEdit2D],
FrontEndExecute[Select2DTool["DrawArrow"]]],
	Item[KeyEvent["l", CellClass->BoxFormData, BoxClass->GraphEdit2D],
FrontEndExecute[Select2DTool["DrawLine"]]],
	Item[KeyEvent["q", CellClass->BoxFormData, BoxClass->GraphEdit2D],
FrontEndExecute[Select2DTool["DrawRectangle"]]],
	Item[KeyEvent["s", CellClass->BoxFormData, BoxClass->GraphEdit2D],
FrontEndExecute[Select2DTool["DrawPolyline"]]],
	Item[KeyEvent["g", CellClass->BoxFormData, BoxClass->GraphEdit2D],
FrontEndExecute[Select2DTool["DrawPolygon"]]],
	Item[KeyEvent["t", CellClass->BoxFormData, BoxClass->GraphEdit2D],
FrontEndExecute[Select2DTool["PlaceText"]]],
	Item[KeyEvent["m", CellClass->BoxFormData, BoxClass->GraphEdit2D],
FrontEndExecute[Select2DTool["PlaceMath"]]],
	Item[KeyEvent["i", CellClass->BoxFormData, BoxClass->GraphEdit2D],
FrontEndExecute[Select2DTool["SampleColor"]]],
	Item[KeyEvent[".", CellClass->BoxFormData, BoxClass->GraphEdit2D],
FrontEndExecute[Select2DTool["GetCoordinates"]]],

	Item[KeyEvent["o", CellClass->BoxFormData, BoxClass->GraphEdit3D],
FrontEndExecute[Select3DTool["Select"]]],
	Item[KeyEvent["r", CellClass->BoxFormData, BoxClass->GraphEdit3D],
FrontEndExecute[Select3DTool["Reshape"]]],
	Item[KeyEvent["i", CellClass->BoxFormData, BoxClass->GraphEdit3D],
FrontEndExecute[Select3DTool["SampleColor"]]],
	Item[KeyEvent["v", CellClass->BoxFormData, BoxClass->GraphEdit3D],
FrontEndExecute[Select3DTool["AdjustView"]]],
	Item[KeyEvent["m", CellClass->BoxFormData, BoxClass->GraphEdit3D],
FrontEndExecute[Select3DTool["AdjustLights"]]],

(* Grouping commands *)
	Item[KeyEvent["g", Modifiers -> {Control, Shift}], "CellGroup"],
	Item[KeyEvent["u", Modifiers -> {Control, Shift}], "CellUngroup"],
	Item[KeyEvent["g", Modifiers -> {Control, Shift}, CellClass-
>BoxFormData, BoxClass->GraphEdit2D], "Group"],
	Item[KeyEvent["u", Modifiers -> {Control, Shift}, CellClass-
>BoxFormData, BoxClass->GraphEdit2D], "Ungroup"],

(* Miscellaneous menu commands *)
	Item[KeyEvent["Cut"], "Cut"],
	Item[KeyEvent["Copy"], "Copy"],
	Item[KeyEvent["Paste"], Paste[After]],
	Item[KeyEvent["Undo"], "Undo"],
	Item[KeyEvent["Help"], "SelectionHelpDialog"],
	Item[KeyEvent["Insert", Modifiers -> {Shift}], Paste[After]],
	Item[KeyEvent["Insert", Modifiers -> {Control}], "Copy"],
	Item[KeyEvent["Delete", Modifiers -> {Shift}], "Cut"],
	Item[KeyEvent["F1", Modifiers->{Shift}], SelectionHelpDialog[False]],
	Item[KeyEvent["F2"], FrontEnd`CompleteSelection[True]]
}]

Cheers -- Sjoerd

On Jul 30, 12:03 pm, Jorge A. L=F3pez L=F3pez <jorg... at gmail.com> wrote:
> Hello All,
>
> I have Mathematica 8, with Mac OS X.
>
> My Problem:
> When I want to add a superscript the shortcut is "Ctrl+6", it doesn't
> work, if I use the Writing Assistant tool the superscript appears with
> no errors. It also happen with any combination, like "Ctrl+2", for
> square root.
> Other kind of combinations, for example, "Ctrl+Shift+7" gives a
> fraction, with no problems, also "Ctrl+_" works for subscripts
>
> What I have done:
> Reseting Mathematica preferences by pressing "Option+Shift" and
> opening the program waiting for full start, did not work.
> Removing "/Library/Mathematica/" and "Library/Mathematica/" folders, I
> don't know if there are more pref. folders in the system, after this I
> had to reenter activation keys, like a new installation but it did not
> worked.
>
> Well, please send help.
>
> Best Regards,
>
> --
> Jorge L=F3pez





  • Prev by Date: Re: FinancialData still broken
  • Next by Date: Re: Multiple Styles
  • Previous by thread: Re: Feature idea (may already be there)
  • Next by thread: Sandboxing Mathematica on Unix