--- a/MenuEditor.st Mon Feb 04 10:28:24 2008 +0100
+++ b/MenuEditor.st Mon Feb 04 10:28:33 2008 +0100
@@ -2248,6 +2248,8 @@
evView := anEvent targetView.
evView isNil ifTrue:[ ^ false ].
+ "/ only handle keyboard events for the left item list
+ "/ (otherwise, copy-paste would not work in the editFields on the right)
inView := evView isSameOrComponentOf:listOfItemsView.
inView ifFalse:[^ false].
@@ -2258,28 +2260,28 @@
or:[key == #BackSpace
or:[key == #Cut]]
) ifTrue:[
- self doCut.
- ^ true.
+ self doCut.
+ ^ true.
].
key == #Copy ifTrue:[ self doCopy. ^ true ].
key == #Paste ifTrue:[ self doPaste. ^ true ].
(rawKey == #CtrlCursorUp) ifTrue:[
- self doMoveUp.
- ^ true.
+ self doMoveUp.
+ ^ true.
].
(rawKey == #CtrlCursorDown) ifTrue:[
- self doMoveDown.
- ^ true.
+ self doMoveDown.
+ ^ true.
].
(rawKey == #CtrlCursorLeft) ifTrue:[
- self doMoveOut.
- ^ true.
+ self doMoveOut.
+ ^ true.
].
(rawKey == #CtrlCursorRight) ifTrue:[
- self doMoveInNext.
- ^ true.
+ self doMoveInNext.
+ ^ true.
].
^ false.