Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ignoreShortcutKeys also blocks individual items
authorClaus Gittinger <cg@exept.de>
Thu, 23 Feb 2006 22:26:18 +0100
changeset 2011 d323a2d0dbfc
parent 2010 f5f5a961cfa8
child 2012 3a3b694c8288
ignoreShortcutKeys also blocks individual items
MenuEditor.st file | annotate | diff | comparison | revisions 
--- 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).
     ].
 ! !
hg/stx-libtool2