2246 anEvent isKeyPressEvent ifFalse:[^ false]. |
2246 anEvent isKeyPressEvent ifFalse:[^ false]. |
2247 |
2247 |
2248 evView := anEvent targetView. |
2248 evView := anEvent targetView. |
2249 evView isNil ifTrue:[ ^ false ]. |
2249 evView isNil ifTrue:[ ^ false ]. |
2250 |
2250 |
|
2251 "/ only handle keyboard events for the left item list |
|
2252 "/ (otherwise, copy-paste would not work in the editFields on the right) |
2251 inView := evView isSameOrComponentOf:listOfItemsView. |
2253 inView := evView isSameOrComponentOf:listOfItemsView. |
2252 inView ifFalse:[^ false]. |
2254 inView ifFalse:[^ false]. |
2253 |
2255 |
2254 key := anEvent key. |
2256 key := anEvent key. |
2255 rawKey := anEvent rawKey. |
2257 rawKey := anEvent rawKey. |
2256 |
2258 |
2257 ( key == #Delete |
2259 ( key == #Delete |
2258 or:[key == #BackSpace |
2260 or:[key == #BackSpace |
2259 or:[key == #Cut]] |
2261 or:[key == #Cut]] |
2260 ) ifTrue:[ |
2262 ) ifTrue:[ |
2261 self doCut. |
2263 self doCut. |
2262 ^ true. |
2264 ^ true. |
2263 ]. |
2265 ]. |
2264 |
2266 |
2265 key == #Copy ifTrue:[ self doCopy. ^ true ]. |
2267 key == #Copy ifTrue:[ self doCopy. ^ true ]. |
2266 key == #Paste ifTrue:[ self doPaste. ^ true ]. |
2268 key == #Paste ifTrue:[ self doPaste. ^ true ]. |
2267 |
2269 |
2268 (rawKey == #CtrlCursorUp) ifTrue:[ |
2270 (rawKey == #CtrlCursorUp) ifTrue:[ |
2269 self doMoveUp. |
2271 self doMoveUp. |
2270 ^ true. |
2272 ^ true. |
2271 ]. |
2273 ]. |
2272 (rawKey == #CtrlCursorDown) ifTrue:[ |
2274 (rawKey == #CtrlCursorDown) ifTrue:[ |
2273 self doMoveDown. |
2275 self doMoveDown. |
2274 ^ true. |
2276 ^ true. |
2275 ]. |
2277 ]. |
2276 (rawKey == #CtrlCursorLeft) ifTrue:[ |
2278 (rawKey == #CtrlCursorLeft) ifTrue:[ |
2277 self doMoveOut. |
2279 self doMoveOut. |
2278 ^ true. |
2280 ^ true. |
2279 ]. |
2281 ]. |
2280 (rawKey == #CtrlCursorRight) ifTrue:[ |
2282 (rawKey == #CtrlCursorRight) ifTrue:[ |
2281 self doMoveInNext. |
2283 self doMoveInNext. |
2282 ^ true. |
2284 ^ true. |
2283 ]. |
2285 ]. |
2284 |
2286 |
2285 ^ false. |
2287 ^ false. |
2286 ! ! |
2288 ! ! |
2287 |
2289 |