#valueNowOrOnUnwindDo: -> #ensure:
authorClaus Gittinger <cg@exept.de>
Tue, 26 Feb 2002 14:05:04 +0100
changeset 1559 75127f6bf318
parent 1558 1ae43779327f
child 1560 cd34f832b2b0
#valueNowOrOnUnwindDo: -> #ensure:
DisplayObject.st
--- a/DisplayObject.st	Tue Feb 26 14:03:27 2002 +0100
+++ b/DisplayObject.st	Tue Feb 26 14:05:04 2002 +0100
@@ -257,7 +257,7 @@
     aGC lineStyle:#dashed.
     [
         self drawOutlineIn:aGC offset:anOffset.
-    ] valueNowOrOnUnwindDo:[
+    ] ensure:[
         aGC lineStyle:prevStyle.
     ]
 
@@ -515,5 +515,5 @@
 !DisplayObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.24 2001-08-22 22:07:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.25 2002-02-26 13:05:04 cg Exp $'
 ! !