equal
deleted
inserted
replaced
182 entryChanged:index |
182 entryChanged:index |
183 |what| |
183 |what| |
184 |
184 |
185 what := list at:index. |
185 what := list at:index. |
186 field label:what. |
186 field label:what. |
|
187 |
|
188 |
187 model notNil ifTrue:[ |
189 model notNil ifTrue:[ |
188 useIndex ifTrue:[ |
190 useIndex ifTrue:[ |
189 model value:index |
191 self sendChangeMessage:changeMsg with:index |
|
192 "/ model value:index |
190 ] ifFalse:[ |
193 ] ifFalse:[ |
191 model value:what |
194 self sendChangeMessage:changeMsg with:what |
|
195 "/ model value:what |
192 ] |
196 ] |
193 ]. |
197 ]. |
194 pullDownButton turnOff. |
198 pullDownButton turnOff. |
195 |
199 |
196 "Created: 28.2.1996 / 15:13:46 / cg" |
200 "Created: 28.2.1996 / 15:13:46 / cg" |
197 "Modified: 26.7.1996 / 17:46:04 / cg" |
201 "Modified: 4.9.1996 / 22:38:57 / cg" |
198 ! ! |
202 ! ! |
199 |
203 |
200 !ComboListView class methodsFor:'documentation'! |
204 !ComboListView class methodsFor:'documentation'! |
201 |
205 |
202 version |
206 version |
203 ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.6 1996-07-26 16:07:54 cg Exp $' |
207 ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.7 1996-09-04 21:11:12 cg Exp $' |
204 ! ! |
208 ! ! |