模擬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。