--- 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!