equal
deleted
inserted
replaced
302 enterField notNil ifTrue:[ |
302 enterField notNil ifTrue:[ |
303 string := enterField contents. |
303 string := enterField contents. |
304 "/ find the first list-entry, starting with entered text |
304 "/ find the first list-entry, starting with entered text |
305 index := (selectionList list ? #()) findFirst:[:line | line string startsWith:string string]. |
305 index := (selectionList list ? #()) findFirst:[:line | line string startsWith:string string]. |
306 index ~~ 0 ifTrue:[ |
306 index ~~ 0 ifTrue:[ |
307 selectionList makeLineVisible:index. |
307 selectionList scrollToLine:index "/ makeLineVisible:index. |
308 ]. |
308 ]. |
309 ]. |
309 ]. |
310 ]. |
310 ]. |
311 |
311 |
312 " |
312 " |
422 ! ! |
422 ! ! |
423 |
423 |
424 !ListSelectionBox class methodsFor:'documentation'! |
424 !ListSelectionBox class methodsFor:'documentation'! |
425 |
425 |
426 version |
426 version |
427 ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.53 2002-07-18 09:25:22 cg Exp $' |
427 ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.54 2002-11-04 14:56:29 cg Exp $' |
428 ! ! |
428 ! ! |