equal
deleted
inserted
replaced
469 menu isNil ifTrue:[^ self]. |
469 menu isNil ifTrue:[^ self]. |
470 |
470 |
471 (useIndex not and:[values notNil]) ifTrue:[ |
471 (useIndex not and:[values notNil]) ifTrue:[ |
472 index := values indexOf:indexOrString |
472 index := values indexOf:indexOrString |
473 ] ifFalse:[ |
473 ] ifFalse:[ |
474 index := menu labels indexOf:indexOrString. |
474 indexOrString isNumber ifTrue:[ |
|
475 index := indexOrString |
|
476 ] ifFalse:[ |
|
477 index := menu labels indexOf:indexOrString. |
|
478 ]. |
475 "/ fails if list consists of symbols ... |
479 "/ fails if list consists of symbols ... |
476 "/ index := menu indexOf:indexOrString. |
480 "/ index := menu indexOf:indexOrString. |
477 ]. |
481 ]. |
478 index == 0 ifTrue:[ |
482 index == 0 ifTrue:[ |
479 super label:defaultLabel. |
483 super label:defaultLabel. |
933 ! ! |
937 ! ! |
934 |
938 |
935 !PopUpList class methodsFor:'documentation'! |
939 !PopUpList class methodsFor:'documentation'! |
936 |
940 |
937 version |
941 version |
938 ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.49 1997-03-19 17:07:29 cg Exp $' |
942 ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.50 1997-06-04 11:33:43 ca Exp $' |
939 ! ! |
943 ! ! |