--- a/MenuEditor.st Mon Jan 23 19:04:54 2006 +0100
+++ b/MenuEditor.st Mon Jan 23 19:12:02 2006 +0100
@@ -1269,42 +1269,38 @@
activeHelpKey: editMoveUp
enabled: valueOfEnableMovingUpOrDown
label: 'Move Up'
- itemValue: doMoveUpOrDown:
+ itemValue: doMoveUp
translateLabel: true
isButton: true
startGroup: right
labelImage: (ResourceRetriever Icon upIcon)
- argument: up
)
(MenuItem
activeHelpKey: editMoveDown
enabled: valueOfEnableMovingUpOrDown
label: 'Move Down'
- itemValue: doMoveUpOrDown:
+ itemValue: doMoveDown
translateLabel: true
isButton: true
labelImage: (ResourceRetriever Icon downIcon)
- argument: down
)
(MenuItem
activeHelpKey: editMoveIn
enabled: valueOfEnableMovingIn
- label: 'Move In'
- itemValue: doMoveIn:
+ label: 'Move Into Next'
+ itemValue: doMoveInNext
translateLabel: true
isButton: true
labelImage: (ResourceRetriever Icon downRightIcon)
- argument: inNext
)
(MenuItem
activeHelpKey: editMoveInAbove
enabled: valueOfEnableMovingInAbove
- label: 'Move In Above'
- itemValue: doMoveIn:
+ label: 'Move Into Previous'
+ itemValue: doMoveInPrevious
translateLabel: true
isButton: true
labelImage: (ResourceRetriever Icon upRightIcon)
- argument: inPrev
)
(MenuItem
activeHelpKey: editMoveOut
@@ -2102,7 +2098,24 @@
key == #Copy ifTrue:[ self doCopy. ^ true ].
key == #Paste ifTrue:[ self doPaste. ^ true ].
- ^ false
+ (rawKey == #CtrlCursorUp) ifTrue:[
+ self doMoveUp.
+ ^ true.
+ ].
+ (rawKey == #CtrlCursorDown) ifTrue:[
+ self doMoveDown.
+ ^ true.
+ ].
+ (rawKey == #CtrlCursorLeft) ifTrue:[
+ self doMoveOut.
+ ^ true.
+ ].
+ (rawKey == #CtrlCursorRight) ifTrue:[
+ self doMoveInNext.
+ ^ true.
+ ].
+
+ ^ false.
! !
!MenuEditor methodsFor:'initialization & release'!
@@ -2705,6 +2718,12 @@
!MenuEditor methodsFor:'user actions-hierarchy'!
+doMoveDown
+ "move selected item down"
+
+ self doMoveUpOrDown:#down
+!
+
doMoveIn:aDirection
"move selected item into the next (#inNext) or previous (#inPrev) item
"
@@ -2736,6 +2755,18 @@
modified := true.
!
+doMoveInNext
+ "move selected item into the next item"
+
+ self doMoveIn:#inNext.
+!
+
+doMoveInPrevious
+ "move selected item into the previous item"
+
+ self doMoveIn:#inPrev.
+!
+
doMoveOut
"move selected item out of current item
"
@@ -2761,6 +2792,12 @@
modified := true.
!
+doMoveUp
+ "move selected item up"
+
+ self doMoveUpOrDown:#up
+!
+
doMoveUpOrDown:aDirection
"move selected item up (#up) or down (#down)
"