--- a/ListSelectionBox.st Fri Nov 01 00:25:54 2002 +0100
+++ b/ListSelectionBox.st Mon Nov 04 15:56:29 2002 +0100
@@ -304,7 +304,7 @@
"/ find the first list-entry, starting with entered text
index := (selectionList list ? #()) findFirst:[:line | line string startsWith:string string].
index ~~ 0 ifTrue:[
- selectionList makeLineVisible:index.
+ selectionList scrollToLine:index "/ makeLineVisible:index.
].
].
].
@@ -424,5 +424,5 @@
!ListSelectionBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.53 2002-07-18 09:25:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.54 2002-11-04 14:56:29 cg Exp $'
! !