DisplayObject.st
changeset 1559 75127f6bf318
parent 1496 c0a69df5abc0
child 1579 e23c7c766c69
--- 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 $'
 ! !