equal
deleted
inserted
replaced
150 ! ! |
150 ! ! |
151 |
151 |
152 !ComboListView methodsFor:'private'! |
152 !ComboListView methodsFor:'private'! |
153 |
153 |
154 getValueFromModel |
154 getValueFromModel |
|
155 |val| |
|
156 |
155 model notNil ifTrue:[ |
157 model notNil ifTrue:[ |
156 (model respondsTo:#selection) ifTrue:[ |
158 (model respondsTo:#selection) ifTrue:[ |
157 self contents:(model selection) |
159 "/ mhmh - looks like a selectionInList model |
|
160 useIndex ifTrue:[ |
|
161 val := list at:(model selectionIndex) |
|
162 ] ifFalse:[ |
|
163 val := (model selection) |
|
164 ] |
158 ] ifFalse:[ |
165 ] ifFalse:[ |
159 self contents:model value |
166 "/ mhmh - looks like a valueHolder |
160 ] |
167 useIndex ifTrue:[ |
|
168 val := list at:(model value) |
|
169 ] ifFalse:[ |
|
170 val := model value |
|
171 ]. |
|
172 ]. |
|
173 self contents:val |
161 ]. |
174 ]. |
162 |
175 |
163 "Created: 15.7.1996 / 12:28:53 / cg" |
176 "Created: 15.7.1996 / 12:28:53 / cg" |
164 "Modified: 26.7.1996 / 17:59:15 / cg" |
177 "Modified: 26.7.1996 / 18:07:04 / cg" |
165 ! ! |
178 ! ! |
166 |
179 |
167 !ComboListView methodsFor:'user interaction'! |
180 !ComboListView methodsFor:'user interaction'! |
168 |
181 |
169 entryChanged:index |
182 entryChanged:index |
185 ! ! |
198 ! ! |
186 |
199 |
187 !ComboListView class methodsFor:'documentation'! |
200 !ComboListView class methodsFor:'documentation'! |
188 |
201 |
189 version |
202 version |
190 ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.5 1996-07-26 16:04:34 cg Exp $' |
203 ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.6 1996-07-26 16:07:54 cg Exp $' |
191 ! ! |
204 ! ! |