模拟按键事件

Question

如何在执行其他代码时模拟按住某个键（ctrl）？下面的方法的实现是什么？

self ctrlDownWhile: [self doSomething]

Answer 1

您可以尝试通过更改其“ctrlDown”状态来“欺骗”输入状态。
坏消息是它没有 setter 方法来访问它（可能仅在我的版本中），因此您可能需要使用一个技巧：

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.
    ].

另一种方法是创建 keyPress & 。 CTRL 键的 keyRelease 事件，并在块评估之前和之后将它们排队到 WindowSensor 中。