# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1052910544 -7200
# Node ID 30d20151ed81bb2d09ba5294411ef028f190d587
# Parent  517efee14b0d804f626d06fd497ab41697e65c3a
Stream streamErrorSignal -> StreamError
#valueNowOrOnUnwindDo:   -> #ensure:

diff -r 517efee14b0d -r 30d20151ed81 UIHelpTool.st
--- a/UIHelpTool.st	Wed May 14 13:06:43 2003 +0200
+++ b/UIHelpTool.st	Wed May 14 13:09:04 2003 +0200
@@ -848,16 +848,15 @@
 
 withoutModifyDo:aBlock
     "discard modifications; trigger not the modifiedHolder during
-     the action is active.
-    "
+     the action is active"
+
     |holder|
 
+    modifiedHolder isNil ifTrue:[
+        ^ aBlock value
+    ].
     holder := modifiedHolder.
-
-    holder isNil ifTrue:[
-	^ aBlock value
-    ].
-    ^ aBlock valueNowOrOnUnwindDo:[ modifiedHolder := holder ]
+    ^ aBlock ensure:[modifiedHolder := holder]
 ! !
 
 !UIHelpTool methodsFor:'private'!