keyboard-shortcuts - 如何重新定义 FrontEndEventActions？

Question

再会，

这个问题来自aborting evaluation of the full sequence of inputs上的问题.

我认为通过重新定义 FrontEndEventActions 可能实现所需的行为两个事件:"EvaluateCells" (或按 Shift+Enter)和按 Alt+.. 它应该是这样的:

SetOptions[$FrontEndSession, 
 FrontEndEventActions -> {"EvaluateCells" :> Last$PreRead, 
   {{"Alt", "."} :> AbortAllNextInputs}}]

或者

SetOptions[$FrontEndSession, 
 FrontEndEventActions -> {{{"ShiftKey", "ReturnKeyDown"} :> Last$PreRead}
   {{"Alt", "."} :> AbortAllNextInputs}}]

哪里 AbortAllNextInputs和 Last$PreRead定义如下:

AbortAllNextInputs := AbortProtect[
   $new$PreRead = True;
   last$PreRead = ToString[Definition[$PreRead], InputForm];
   ClearAll[$PreRead];
   $PreRead := # &] /; ! TrueQ[$new$PreRead]
Last$PreRead :=
 $PreRead := AbortProtect[
    $new$PreRead = False;
    ClearAll[$PreRead];
    If[last$PreRead === "Null", #, 
     ToExpression[last$PreRead]; $PreRead@#]
    ] &

但我无法得到 FrontEndEventActions在职的。谁能帮我？

Answer 1

我相信您需要修改 KeyEventTranslations.tr 作为引用 here和 here .