equal
deleted
inserted
replaced
161 ! ! |
161 ! ! |
162 |
162 |
163 !ListSelectionBox methodsFor:'accessing-look'! |
163 !ListSelectionBox methodsFor:'accessing-look'! |
164 |
164 |
165 noEnterField |
165 noEnterField |
|
166 "suppress the enterField - now only existing items are selectable; |
|
167 the default is to present an enterField." |
|
168 |
166 enterField destroy. |
169 enterField destroy. |
167 enterField := nil |
170 enterField := nil |
168 |
171 |
169 "Created: 26.10.1995 / 17:12:38 / cg" |
172 "Created: 26.10.1995 / 17:12:38 / cg" |
|
173 "Modified: 12.5.1996 / 21:49:14 / cg" |
170 ! ! |
174 ! ! |
171 |
175 |
172 !ListSelectionBox methodsFor:'initialization'! |
176 !ListSelectionBox methodsFor:'initialization'! |
173 |
177 |
174 focusSequence |
178 focusSequence |
175 ^ Array with:enterField with:selectionList with:abortButton with:okButton |
179 "return a sequence for tabbing through my components" |
|
180 |
|
181 ^ Array with:enterField with:selectionList with:abortButton with:okButton |
|
182 |
|
183 "Modified: 12.5.1996 / 21:49:37 / cg" |
176 ! |
184 ! |
177 |
185 |
178 initialize |
186 initialize |
179 |space2 halfSpace v vbw eH| |
187 |space2 halfSpace v vbw eH| |
180 |
188 |
242 |
250 |
243 "Modified: 27.2.1996 / 01:11:41 / cg" |
251 "Modified: 27.2.1996 / 01:11:41 / cg" |
244 ! |
252 ! |
245 |
253 |
246 realize |
254 realize |
|
255 "redefined to update the list now. |
|
256 This was not done in #initialize to allow settings to be changed before, |
|
257 in case list-updating is a slow operation - such as reading a directory" |
|
258 |
247 self updateList. |
259 self updateList. |
248 super realize |
260 super realize |
|
261 |
|
262 "Modified: 12.5.1996 / 21:50:50 / cg" |
249 ! |
263 ! |
250 |
264 |
251 updateList |
265 updateList |
252 "setup contents of list; nothing done here but redefined in subclasses" |
266 "setup contents of list; |
|
267 nothing done here but typically redefined in subclasses." |
253 |
268 |
254 ^ self |
269 ^ self |
|
270 |
|
271 "Modified: 12.5.1996 / 21:51:10 / cg" |
255 ! ! |
272 ! ! |
256 |
273 |
257 !ListSelectionBox methodsFor:'queries'! |
274 !ListSelectionBox methodsFor:'queries'! |
258 |
275 |
259 preferredExtent |
276 preferredExtent |
312 ! ! |
329 ! ! |
313 |
330 |
314 !ListSelectionBox class methodsFor:'documentation'! |
331 !ListSelectionBox class methodsFor:'documentation'! |
315 |
332 |
316 version |
333 version |
317 ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.28 1996-04-27 18:16:14 cg Exp $' |
334 ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.29 1996-05-12 19:51:43 cg Exp $' |
318 ! ! |
335 ! ! |