diff -r 3889bd6912fb -r 1f898443e253 MenuEditor.st
--- a/MenuEditor.st	Wed Feb 15 18:24:29 2006 +0100
+++ b/MenuEditor.st	Wed Feb 15 18:24:39 2006 +0100
@@ -727,7 +727,7 @@
           )
          #(#MenuItem
             #activeHelpKey: #editPaste
-            #enabled: #valueOfCanPaste
+            #enabled: #canPasteHolder
             #label: 'Paste'
             #itemValue: #doPaste
             #translateLabel: true
@@ -1191,7 +1191,7 @@
           )
          (MenuItem
             activeHelpKey: editPaste
-            enabled: valueOfCanPaste
+            enabled: canPasteHolder
             label: 'Paste'
             itemValue: doPaste
             translateLabel: true
@@ -1464,7 +1464,7 @@
     ^ wizards at:#help ifAbsentPut:[ |tool|
         tool := UIHelpTool new.
         tool masterApplication:self.
-        tool modifiedHolder: self valueOfEnablingCommitButtons.
+        tool modifiedHolder: self enablingCommitButtonsHolder.
         tool builder window:(ApplicationSubView new client:tool).
         tool masterApplication:self.
         tool
@@ -1475,11 +1475,11 @@
     "get the image tool application
     "
   ^ wizards at:#image ifAbsentPut:[ |tool|
-	tool := ResourceEditor new createBuilder.
-	tool masterApplication:self.
-	tool modifiedChannel: self valueOfEnablingCommitButtons.
-	tool builder window:(ApplicationSubView new client:tool).
-	tool
+        tool := ResourceEditor new createBuilder.
+        tool masterApplication:self.
+        tool modifiedChannel: self enablingCommitButtonsHolder.
+        tool builder window:(ApplicationSubView new client:tool).
+        tool
     ]
 !
 
@@ -1643,14 +1643,14 @@
     |root menu|
 
     aMenu isCollection ifTrue:[menu := aMenu decodeAsLiteralArray]
-		      ifFalse:[menu := aMenu].
-
-    self valueOfEnablingCommitButtons value:false.
+                      ifFalse:[menu := aMenu].
+
+    self enablingCommitButtonsHolder value:false.
     root := listOfItems root.
 
     self withoutNotifyDo:[
-	selectionHolder setValue:#().
-	root menu:aMenu labeled:(aSelector ? specSelector).
+        selectionHolder setValue:#().
+        root menu:aMenu labeled:(aSelector ? specSelector).
     ].
     self selectedItem:root.
     self updateHistory.
@@ -2019,7 +2019,7 @@
 
     dropOverLine := nil.
 
-    self valueOfEnablingCommitButtons value ifTrue:[
+    self enablingCommitButtonsHolder value ifTrue:[
         "/ current editing spec is modified (couldn't accept operation)
         ^ self
     ].
@@ -2138,7 +2138,7 @@
 closeRequest
     "ask for modification
     "
-    self valueOfEnablingCommitButtons value ifTrue:[
+    self enablingCommitButtonsHolder value ifTrue:[
         self setModified.
         self askForListModification.
         modified ifTrue:[^ self].
@@ -2249,7 +2249,7 @@
     "clear the modifiedChannel and the commitPanel"
 
     modified := false.
-    self valueOfEnablingCommitButtons value:false.
+    self enablingCommitButtonsHolder value:false.
     self clearModifiedFlag.
 !
 
@@ -2348,7 +2348,7 @@
     "
     |oldSelectedItem newSelectedItem anythingChanged|
 
-    self valueOfEnablingCommitButtons value ifFalse:[
+    self enablingCommitButtonsHolder value ifFalse:[
         ^ true
     ].
     oldSelectedItem := self selectedItem.
@@ -2359,7 +2359,7 @@
         ^ true
     ].
 
-    anythingChanged := self valueOfEnablingCommitButtons value.
+    anythingChanged := self enablingCommitButtonsHolder value.
     anythingChanged ifTrue:[          
         self autoAcceptOnSelectionChange value ifTrue:[
             self accept.