equal
deleted
inserted
replaced
3225 tryToSelectKeyNamed:aString |
3225 tryToSelectKeyNamed:aString |
3226 |list idx aStringWithSpace| |
3226 |list idx aStringWithSpace| |
3227 |
3227 |
3228 aString isEmptyOrNil ifTrue:[^ self]. |
3228 aString isEmptyOrNil ifTrue:[^ self]. |
3229 |
3229 |
3230 aStringWithSpace := aString,' '. |
3230 aStringWithSpace := aString string,' '. |
3231 |
3231 |
3232 list := listView list. |
3232 list := listView list. |
3233 list notNil ifTrue:[ |
3233 list notNil ifTrue:[ |
3234 (idx := list findFirst:[:line | line = aString or:[line startsWith:aStringWithSpace]]) ~= 0 ifTrue:[ |
3234 (idx := list findFirst:[:line | line = aString or:[line string startsWith:aStringWithSpace]]) ~= 0 ifTrue:[ |
3235 listView selection:idx |
3235 listView selection:idx |
3236 ]. |
3236 ]. |
3237 ]. |
3237 ]. |
3238 |
3238 |
3239 "Created: / 16-11-2001 / 13:48:51 / cg" |
3239 "Created: / 16-11-2001 / 13:48:51 / cg" |
3250 ! ! |
3250 ! ! |
3251 |
3251 |
3252 !InspectorView class methodsFor:'documentation'! |
3252 !InspectorView class methodsFor:'documentation'! |
3253 |
3253 |
3254 version |
3254 version |
3255 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.265 2012-07-17 17:03:36 cg Exp $' |
3255 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.266 2012-07-18 15:17:31 cg Exp $' |
3256 ! |
3256 ! |
3257 |
3257 |
3258 version_CVS |
3258 version_CVS |
3259 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.265 2012-07-17 17:03:36 cg Exp $' |
3259 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.266 2012-07-18 15:17:31 cg Exp $' |
3260 ! ! |
3260 ! ! |