4042 "filter keyboard events. |
4042 "filter keyboard events. |
4043 Return true, if I have eaten the event" |
4043 Return true, if I have eaten the event" |
4044 |
4044 |
4045 <resource: #keyboard (#CtrlCursorUp #CtrlCursorDown #CtrlCursorLeft #CtrlCursorRight)> |
4045 <resource: #keyboard (#CtrlCursorUp #CtrlCursorDown #CtrlCursorLeft #CtrlCursorRight)> |
4046 |
4046 |
4047 |key| |
4047 |key rawKey| |
4048 |
4048 |
4049 anEvent isKeyPressEvent ifTrue:[ |
4049 anEvent isKeyPressEvent ifTrue:[ |
4050 anEvent targetView == treeView ifFalse:[^ false]. |
4050 anEvent targetView == treeView ifFalse:[^ false]. |
4051 treeView hasFocus ifFalse:[^ false]. |
4051 treeView hasFocus ifFalse:[^ false]. |
4052 |
4052 |
4053 key := anEvent key. |
4053 key := anEvent key. |
|
4054 rawKey := anEvent rawKey. |
4054 |
4055 |
4055 "/ (anEvent rawKey == #Cmdr) ifTrue:[ |
4056 "/ (anEvent rawKey == #Cmdr) ifTrue:[ |
4056 "/ self openNameEditorOnTreeSelection. |
4057 "/ self openNameEditorOnTreeSelection. |
4057 "/ ^ true. |
4058 "/ ^ true. |
4058 "/ ]. |
4059 "/ ]. |
4059 (anEvent rawKey == #CtrlCursorUp) ifTrue:[ |
4060 ((rawKey == #CtrlCursorUp) or:[ rawKey == #AltCursorUp ]) ifTrue:[ |
4060 self doStepUp. |
4061 self doStepUp. |
4061 ^ true. |
4062 ^ true. |
4062 ]. |
4063 ]. |
4063 (anEvent rawKey == #CtrlCursorDown) ifTrue:[ |
4064 ((rawKey == #CtrlCursorDown) or:[ rawKey == #AltCursorDown ]) ifTrue:[ |
4064 self doStepDown. |
4065 self doStepDown. |
4065 ^ true. |
4066 ^ true. |
4066 ]. |
4067 ]. |
4067 (anEvent rawKey == #CtrlCursorLeft) ifTrue:[ |
4068 ((rawKey == #CtrlCursorLeft) or:[ rawKey == #AltCursorLeft ]) ifTrue:[ |
4068 self doStepOut. |
4069 self doStepOut. |
4069 ^ true. |
4070 ^ true. |
4070 ]. |
4071 ]. |
4071 (anEvent rawKey == #CtrlCursorRight) ifTrue:[ |
4072 ((rawKey == #CtrlCursorRight) or:[ rawKey == #AltCursorRight ]) ifTrue:[ |
4072 self doStepIn. |
4073 self doStepIn. |
4073 ^ true. |
4074 ^ true. |
4074 ]. |
4075 ]. |
4075 ]. |
4076 ]. |
4076 |
4077 |