equal
deleted
inserted
replaced
3 classVariableNames:'' |
3 classVariableNames:'' |
4 poolDictionaries:'' |
4 poolDictionaries:'' |
5 category:'Views-Interactors' |
5 category:'Views-Interactors' |
6 ! |
6 ! |
7 |
7 |
8 !ComboListView class methodsFor:'documentation'! |
8 !ComboListView class methodsFor:'documentation'! |
9 |
9 |
10 documentation |
10 documentation |
11 " |
11 " |
12 A ComboListView combines an label with a drop down list of default inputs; |
12 A ComboListView combines an label with a drop down list of default inputs; |
13 choosing any from the pulled list sets the string in the label. |
13 choosing any from the pulled list sets the string in the label. |
178 ! ! |
178 ! ! |
179 |
179 |
180 !ComboListView methodsFor:'user interaction'! |
180 !ComboListView methodsFor:'user interaction'! |
181 |
181 |
182 entryChanged:index |
182 entryChanged:index |
183 |what| |
183 |what changeArg| |
184 |
184 |
185 what := list at:index. |
185 what := list at:index. |
186 field label:what. |
186 field label:what. |
187 |
187 |
188 |
|
189 model notNil ifTrue:[ |
188 model notNil ifTrue:[ |
190 useIndex ifTrue:[ |
189 useIndex ifTrue:[ |
191 self sendChangeMessage:changeMsg with:index |
190 changeArg := index |
192 "/ model value:index |
|
193 ] ifFalse:[ |
191 ] ifFalse:[ |
194 self sendChangeMessage:changeMsg with:what |
192 changeArg := what |
195 "/ model value:what |
193 ]. |
196 ] |
194 self sendChangeMessage:changeMsg with:changeArg |
197 ]. |
195 ]. |
198 pullDownButton turnOff. |
196 pullDownButton turnOff. |
199 |
197 |
200 "Created: 28.2.1996 / 15:13:46 / cg" |
198 "Created: 28.2.1996 / 15:13:46 / cg" |
201 "Modified: 4.9.1996 / 22:38:57 / cg" |
199 "Modified: 4.9.1996 / 22:38:57 / cg" |
202 ! ! |
200 ! ! |
203 |
201 |
204 !ComboListView class methodsFor:'documentation'! |
202 !ComboListView class methodsFor:'documentation'! |
205 |
203 |
206 version |
204 version |
207 ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.7 1996-09-04 21:11:12 cg Exp $' |
205 ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.8 1996-12-20 20:10:02 cg Exp $' |
208 ! ! |
206 ! ! |