ask modification methods renamed
authortz
Sat, 14 Feb 1998 21:17:29 +0100
changeset 634 ebc0beb615c5
parent 633 11bbf4599843
child 635 47ffd4e4f387
ask modification methods renamed
MenuEditor.st
--- a/MenuEditor.st	Sat Feb 14 20:34:45 1998 +0100
+++ b/MenuEditor.st	Sat Feb 14 21:17:29 1998 +0100
@@ -1868,7 +1868,11 @@
 
 doNew
 
-    self buildFrom: nil andSelector: self treeView selectorName
+    self askForModification
+    ifTrue: 
+    [
+        self buildFrom: nil andSelector: self treeView selectorName
+    ]
 !
 
 doPickAMenu
@@ -2473,7 +2477,7 @@
     self multipleSelectOk:true.
     self showDirectoryIndicator: true.
     self showDirectoryIndicatorForRoot: false.
-    self selectConditionBlock: [:i|self application checkMenuItemModified]. 
+    self selectConditionBlock: [:i|self application askForItemModification]. 
     self validateDoubleClickBlock: [:node| node ~~ listOfNodes first].
 
     self model iconAction: [:aNode| aNode contents iconFor: aNode].
@@ -2524,7 +2528,7 @@
 
 doCut
 
-    self checkMenuItemModified
+    self askForItemModification
     ifTrue:
     [
         |selectedNodes|
@@ -2549,7 +2553,7 @@
 addElement: aNode
     "add something after selection"
 
-    self checkMenuItemModified
+    self askForItemModification
     ifTrue:
     [   
         self selectedNodeAdd: aNode.
@@ -2581,9 +2585,9 @@
     ]
 !
 
-checkMenuItemModified
-
-    ^self topView application checkItemModified
+askForItemModification
+
+    ^self topView application askForItemModification
 !
 
 nodeLabel:aLabel