getModifiers
getModifiers は 「元に戻す」が可能、「照会」が不可能、「編集」が不可能 です。
このコマンドは、モディファイア キーの現在の状態を返します。各モディファイアの状態は、戻り値内の対応するビットの値をテストすることによって取得することができます。Shift キーはビット 1 に、Caps Lock キーはビット 2 に、Ctrl キーはビット 3 に、そして Alt キーはビット 4 に対応します。各モディファイアのビット値のテストに関する詳細については、下の例を参照してください。int | どのモディファイア キーが押されたかを示します。 |
window; columnLayout; button -label "Press Me" -command "PrintModifiers"; showWindow; global proc PrintModifiers() { int $mods = `getModifiers`; print ("Modifiers are:"); if ($mods & 1) print (" Shift"); if ($mods & 2) print (" CapsLock"); if ($mods & 4) print (" Ctrl"); if ($mods & 8) print (" Alt"); print ("\n"); }