模拟keydown事件

Question

如何在执行某些其他代码时模拟按住按键（ctrl）？以下方法的实施将会是什么？

self ctrlDownWhile: [self doSomething] 

Answer 1

您可以尝试通过更改其“ctrlDown”状态来“欺骗”输入状态。 坏消息是，它没有一个二传手的方法来访问它（也许只有在我的版本），所以你可能有一个绝招到那里：

ctrlDownWhile:aBlock 
    "aBlock will see ctrlDown as true" 

    |indexOfCtrlState| 

    indexOfCtrlState := InputState allInstVarNames indexOf:'ctrlState'. 

    InputState default instVarAt:indexOfCtrlState put:1. 
    aBlock 
    ensure: [ 
     InputState default instVarAt:indexOfCtrlState put:0. 
    ]. 

的方法是创建按键& CTRL键的keyRelease事件，并在块评估之前和之后将它们排入WindowSensor。