--- a/MenuEditor.st Thu Feb 23 22:22:16 2006 +0100
+++ b/MenuEditor.st Thu Feb 23 22:26:18 2006 +0100
@@ -745,7 +745,7 @@
)
#(#MenuItem
#activeHelpKey: #editMoveUp
- #enabled: #valueOfEnableMovingUpOrDown
+ #enabled: #enableMovingUpOrDownHolder
#label: 'Move Up'
#itemValue: #doMoveUpOrDown:
#translateLabel: true
@@ -755,7 +755,7 @@
)
#(#MenuItem
#activeHelpKey: #editMoveDown
- #enabled: #valueOfEnableMovingUpOrDown
+ #enabled: #enableMovingUpOrDownHolder
#label: 'Move Down'
#itemValue: #doMoveUpOrDown:
#translateLabel: true
@@ -764,7 +764,7 @@
)
#(#MenuItem
#activeHelpKey: #editMoveIn
- #enabled: #valueOfEnableMovingIn
+ #enabled: #enableMovingInHolder
#label: 'Move Into Next'
#itemValue: #doMoveIn:
#translateLabel: true
@@ -773,7 +773,7 @@
)
#(#MenuItem
#activeHelpKey: #editMoveInAbove
- #enabled: #valueOfEnableMovingInAbove
+ #enabled: #enableMovingInAboveHolder
#label: 'Move Into Previous'
#itemValue: #doMoveIn:
#translateLabel: true
@@ -782,7 +782,7 @@
)
#(#MenuItem
#activeHelpKey: #editMoveOut
- #enabled: #valueOfEnableMovingOut
+ #enabled: #enableMovingOutHolder
#label: 'Move Out'
#itemValue: #doMoveOut
#translateLabel: true
@@ -1273,7 +1273,7 @@
)
(MenuItem
activeHelpKey: editMoveUp
- enabled: valueOfEnableMovingUpOrDown
+ enabled: enableMovingUpOrDownHolder
label: 'Move Up'
itemValue: doMoveUp
translateLabel: true
@@ -1283,7 +1283,7 @@
)
(MenuItem
activeHelpKey: editMoveDown
- enabled: valueOfEnableMovingUpOrDown
+ enabled: enableMovingUpOrDownHolder
label: 'Move Down'
itemValue: doMoveDown
translateLabel: true
@@ -1292,7 +1292,7 @@
)
(MenuItem
activeHelpKey: editMoveIn
- enabled: valueOfEnableMovingIn
+ enabled: enableMovingInHolder
label: 'Move Into Next'
itemValue: doMoveInNext
translateLabel: true
@@ -1301,7 +1301,7 @@
)
(MenuItem
activeHelpKey: editMoveInAbove
- enabled: valueOfEnableMovingInAbove
+ enabled: enableMovingInAboveHolder
label: 'Move Into Previous'
itemValue: doMoveInPrevious
translateLabel: true
@@ -1310,7 +1310,7 @@
)
(MenuItem
activeHelpKey: editMoveOut
- enabled: valueOfEnableMovingOut
+ enabled: enableMovingOutHolder
label: 'Move Out'
itemValue: doMoveOut
translateLabel: true
@@ -1810,23 +1810,23 @@
sizeOfSel := selection size.
sizeOfSel == 1 ifTrue:[selectedItem := selection at:1]
- ifFalse:[selectedItem := nil].
+ ifFalse:[selectedItem := nil].
self hasSelectionChannel value:(sizeOfSel ~~ 0).
self hasSingleSelectionChannel value:(selectedItem notNil).
selectedItem isNil ifTrue:[
- self valueOfEnableMovingIn value:false.
- self valueOfEnableMovingOut value:false.
- self valueOfEnableMovingUpOrDown value:false.
- self valueOfEnableMovingInAbove value:false.
- self canCreateDelayedMenuChannel value:false.
+ self enableMovingInHolder value:false.
+ self enableMovingOutHolder value:false.
+ self enableMovingUpOrDownHolder value:false.
+ self enableMovingInAboveHolder value:false.
+ self canCreateDelayedMenuChannel value:false.
] ifFalse:[
- self valueOfEnableMovingUpOrDown value:(selectedItem canMoveUpOrDown).
- self valueOfEnableMovingOut value:(selectedItem canMoveOut).
- self valueOfEnableMovingIn value:(selectedItem canMoveInNext).
- self valueOfEnableMovingInAbove value:(selectedItem canMoveInAbove).
- self canCreateDelayedMenuChannel value:(selectedItem canAddDelayedMenu).
+ self enableMovingUpOrDownHolder value:(selectedItem canMoveUpOrDown).
+ self enableMovingOutHolder value:(selectedItem canMoveOut).
+ self enableMovingInHolder value:(selectedItem canMoveInNext).
+ self enableMovingInAboveHolder value:(selectedItem canMoveInAbove).
+ self canCreateDelayedMenuChannel value:(selectedItem canAddDelayedMenu).
].
! !