--- a/CodeView.st	Tue Feb 26 14:03:06 2002 +0100
+++ b/CodeView.st	Tue Feb 26 14:06:16 2002 +0100
@@ -167,7 +167,7 @@
         ] do:[
             super accept.
         ]
-    ] valueNowOrOnUnwindDo:[
+    ] ensure:[
         self unselect.
     ]
 
@@ -269,5 +269,5 @@
 !CodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.47 2001-11-12 17:27:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.48 2002-02-26 13:06:16 cg Exp $'
 ! !

--- a/DialogBox.st	Tue Feb 26 14:03:06 2002 +0100
+++ b/DialogBox.st	Tue Feb 26 14:06:16 2002 +0100
@@ -1157,7 +1157,7 @@
         box hideButtons.
         self showBox:box. "/ box showAtPointer.
     ] forkAt:(Processor activePriority + 1).
-    aBlock valueNowOrOnUnwindDo:[box destroy]
+    aBlock ensure:[box destroy]
 
     "
      Dialog informUser:'wait a second...' during:[Delay waitForSeconds:1]
@@ -7393,6 +7393,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.185 2002-02-22 10:21:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.186 2002-02-26 13:05:32 cg Exp $'
 ! !
 DialogBox initialize!

--- a/EditTextView.st	Tue Feb 26 14:03:06 2002 +0100
+++ b/EditTextView.st	Tue Feb 26 14:06:16 2002 +0100
@@ -1886,7 +1886,7 @@
         ^ aBlock value
     ].
     self hideCursor.
-    aBlock valueNowOrOnUnwindDo:[
+    aBlock ensure:[
         self showCursor
     ]
 ! !
@@ -5106,5 +5106,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.265 2001-12-21 12:00:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.266 2002-02-26 13:04:50 cg Exp $'
 ! !