--- 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.