#valueNowOrOnUnwindDo: -> #ensure:
authorClaus Gittinger <cg@exept.de>
Tue, 26 Feb 2002 14:03:15 +0100
changeset 2084 8aec1132f129
parent 2083 d7b305aea776
child 2085 4cf52f994f0a
#valueNowOrOnUnwindDo: -> #ensure:
MenuPanel.st
--- a/MenuPanel.st	Tue Feb 26 14:00:07 2002 +0100
+++ b/MenuPanel.st	Tue Feb 26 14:03:15 2002 +0100
@@ -6975,7 +6975,7 @@
                                 index := index + step.
                             ].
                             item := nil.
-                        ] valueNowOrOnUnwindDo:[
+                        ] ensure:[
                             scrollTask := nil.
 
                             item notNil ifTrue:[
@@ -7022,6 +7022,6 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.298 2002-02-11 19:52:06 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.299 2002-02-26 13:03:15 cg Exp $'
 ! !
 MenuPanel initialize!