MenuEditor.st
changeset 1722 517efee14b0d
parent 1715 9eebdb3802aa
child 1725 2de97eb77984
--- a/MenuEditor.st	Wed May 07 17:18:38 2003 +0200
+++ b/MenuEditor.st	Wed May 14 13:06:43 2003 +0200
@@ -2236,14 +2236,15 @@
 
 withoutNotifyDo:aBlock
     "evaluate the block; all change notifications are
-     discard during the block is evaluated.
-    "
+     discard during the block is evaluated"
+
     |blockResult|
 
-    [   notifyDisabledCounter := notifyDisabledCounter + 1.
-	blockResult := aBlock value.
-    ] valueNowOrOnUnwindDo:[
-	notifyDisabledCounter := notifyDisabledCounter - 1
+    [   
+        notifyDisabledCounter := notifyDisabledCounter + 1.
+        blockResult := aBlock value.
+    ] ensure:[
+        notifyDisabledCounter := notifyDisabledCounter - 1
     ].    
     ^ blockResult
 ! !