#valueNowOrOnUnwindDo: -> #ensure:
authorClaus Gittinger <cg@exept.de>
Tue, 26 Feb 2002 14:06:07 +0100
changeset 3607 62e5a818d378
parent 3606 aeed73d9beb3
child 3608 6ac2b6c8fbd8
#valueNowOrOnUnwindDo: -> #ensure:
Cursor.st
--- a/Cursor.st	Tue Feb 26 14:04:57 2002 +0100
+++ b/Cursor.st	Tue Feb 26 14:06:07 2002 +0100
@@ -3008,7 +3008,7 @@
 
     savedCursor := aView cursor.
     aView cursor:self.
-    ^ aBlock valueNowOrOnUnwindDo:[aView cursor:savedCursor]
+    ^ aBlock ensure:[aView cursor:savedCursor]
 !
 
 showWhile:aBlock
@@ -3336,6 +3336,6 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.95 2001-08-15 12:51:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.96 2002-02-26 13:06:07 cg Exp $'
 ! !
 Cursor initialize!