equal
deleted
inserted
replaced
960 idx := self findLineFrom:fr2 to:lnNr-stp by:stp startingWithCharacter:aKey |
960 idx := self findLineFrom:fr2 to:lnNr-stp by:stp startingWithCharacter:aKey |
961 ]. |
961 ]. |
962 idx ~~ 0 ifTrue:[^ self selection:idx] |
962 idx ~~ 0 ifTrue:[^ self selection:idx] |
963 ! |
963 ! |
964 |
964 |
|
965 characterSearchItemStringAt:anIndex |
|
966 |item| |
|
967 |
|
968 item := list at:anIndex ifAbsent:nil. |
|
969 item isNil ifTrue:[^ item]. |
|
970 |
|
971 ^ item perform:#string ifNotUnderstood:nil. |
|
972 |
|
973 ! |
|
974 |
965 doubleClicked |
975 doubleClicked |
966 "handle a double click |
976 "handle a double click |
967 " |
977 " |
968 (doubleClickActionBlock notNil and:[self numberOfSelections == 1]) ifTrue:[ |
978 (doubleClickActionBlock notNil and:[self numberOfSelections == 1]) ifTrue:[ |
969 (doubleClickActionBlock numArgs == 1) ifTrue:[ |
979 (doubleClickActionBlock numArgs == 1) ifTrue:[ |
993 start := aStart < 0 ifTrue:[1] ifFalse:[aStart min:size]. |
1003 start := aStart < 0 ifTrue:[1] ifFalse:[aStart min:size]. |
994 stop := aStop < 0 ifTrue:[1] ifFalse:[aStop min:size]. |
1004 stop := aStop < 0 ifTrue:[1] ifFalse:[aStop min:size]. |
995 char := aCharacter asUppercase. |
1005 char := aCharacter asUppercase. |
996 |
1006 |
997 start to:stop by:aStep do:[:anIndex| |
1007 start to:stop by:aStep do:[:anIndex| |
998 item := list at:anIndex ifAbsent:nil. |
1008 lbl := self characterSearchItemStringAt:anIndex. |
999 item isNil ifTrue:[^ 0]. "/ list changed |
1009 "/ |
1000 |
1010 "/ item := list at:anIndex ifAbsent:nil. |
1001 lbl := item perform:#string ifNotUnderstood:nil. |
1011 "/ item isNil ifTrue:[^ 0]. "/ list changed |
1002 |
1012 "/ |
|
1013 "/ lbl := item perform:#string ifNotUnderstood:nil. |
|
1014 "/ |
1003 lbl notNil ifTrue:[ |
1015 lbl notNil ifTrue:[ |
1004 cmp := lbl string at:1 ifAbsent:nil. |
1016 cmp := lbl string at:1 ifAbsent:nil. |
1005 |
1017 |
1006 cmp notNil ifTrue:[ |
1018 cmp notNil ifTrue:[ |
1007 (char == cmp or:[char == cmp asUppercase]) ifTrue:[ |
1019 (char == cmp or:[char == cmp asUppercase]) ifTrue:[ |
1576 ! ! |
1588 ! ! |
1577 |
1589 |
1578 !SelectionInListModelView class methodsFor:'documentation'! |
1590 !SelectionInListModelView class methodsFor:'documentation'! |
1579 |
1591 |
1580 version |
1592 version |
1581 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.37 2000-04-12 14:44:29 ca Exp $' |
1593 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.38 2000-05-08 09:27:14 cg Exp $' |
1582 ! ! |
1594 ! ! |