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にエンキューします。