equal
deleted
inserted
replaced
135 |
135 |
136 box := OptionBox title:title numberOfOptions:(labels size). |
136 box := OptionBox title:title numberOfOptions:(labels size). |
137 box buttonTitles:labels. |
137 box buttonTitles:labels. |
138 box defaultButtonIndex:(values indexOf:defaultValue). |
138 box defaultButtonIndex:(values indexOf:defaultValue). |
139 box label:label; form:aForm. |
139 box label:label; form:aForm. |
|
140 values keysAndValuesDo:[:idx :val | |
|
141 val == false ifTrue:[ |
|
142 (box buttons at:idx) cursor:(Cursor thumbsDown). |
|
143 ]. |
|
144 val == true ifTrue:[ |
|
145 (box buttons at:idx) cursor:(Cursor thumbsUp). |
|
146 ]. |
|
147 ]. |
140 ^ box |
148 ^ box |
141 |
149 |
142 "Modified: / 23.2.2000 / 11:59:32 / cg" |
150 "Modified: / 23.2.2000 / 11:59:32 / cg" |
143 ! |
151 ! |
144 |
152 |
559 ! ! |
567 ! ! |
560 |
568 |
561 !OptionBox class methodsFor:'documentation'! |
569 !OptionBox class methodsFor:'documentation'! |
562 |
570 |
563 version |
571 version |
564 ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.56 2003-03-21 09:41:12 cg Exp $' |
572 ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.57 2004-02-20 16:43:55 cg Exp $' |
565 ! ! |
573 ! ! |