equal
deleted
inserted
replaced
109 ! ! |
109 ! ! |
110 |
110 |
111 !ComboListView methodsFor:'accessing-contents'! |
111 !ComboListView methodsFor:'accessing-contents'! |
112 |
112 |
113 contents:something |
113 contents:something |
|
114 "set the current value - either in the fields model |
|
115 or directly" |
|
116 |
114 |m| |
117 |m| |
115 |
118 |
116 (m := field model) notNil ifTrue:[ |
119 (m := field model) notNil ifTrue:[ |
117 m value:something |
120 m value:something |
118 ] ifFalse:[ |
121 ] ifFalse:[ |
119 field label:something |
122 field label:something |
120 ] |
123 ] |
121 |
124 |
122 "Modified: 15.7.1996 / 12:27:39 / cg" |
|
123 "Created: 15.7.1996 / 13:16:49 / cg" |
125 "Created: 15.7.1996 / 13:16:49 / cg" |
|
126 "Modified: 5.1.1997 / 00:05:04 / cg" |
124 ! ! |
127 ! ! |
125 |
128 |
126 !ComboListView methodsFor:'initialization'! |
129 !ComboListView methodsFor:'initialization'! |
127 |
130 |
128 initialize |
131 initialize |
200 ! ! |
203 ! ! |
201 |
204 |
202 !ComboListView class methodsFor:'documentation'! |
205 !ComboListView class methodsFor:'documentation'! |
203 |
206 |
204 version |
207 version |
205 ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.8 1996-12-20 20:10:02 cg Exp $' |
208 ^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.9 1997-01-05 00:22:04 cg Exp $' |
206 ! ! |
209 ! ! |