equal
deleted
inserted
replaced
174 "Created: 26.10.1995 / 17:12:38 / cg" |
174 "Created: 26.10.1995 / 17:12:38 / cg" |
175 "Modified: 12.5.1996 / 21:49:14 / cg" |
175 "Modified: 12.5.1996 / 21:49:14 / cg" |
176 ! ! |
176 ! ! |
177 |
177 |
178 !ListSelectionBox methodsFor:'initialization'! |
178 !ListSelectionBox methodsFor:'initialization'! |
179 |
|
180 focusSequence |
|
181 "return a sequence for tabbing through my components" |
|
182 |
|
183 ^ Array with:enterField with:selectionList with:abortButton with:okButton |
|
184 |
|
185 "Modified: 12.5.1996 / 21:49:37 / cg" |
|
186 ! |
|
187 |
179 |
188 initialize |
180 initialize |
189 |space2 halfSpace v vbw eH| |
181 |space2 halfSpace v vbw eH| |
190 |
182 |
191 super initialize. |
183 super initialize. |
227 vbw := v borderWidth. |
219 vbw := v borderWidth. |
228 v leftInset:halfSpace+vbw; |
220 v leftInset:halfSpace+vbw; |
229 rightInset:halfSpace+vbw. |
221 rightInset:halfSpace+vbw. |
230 |
222 |
231 selectionList := v scrolledView. |
223 selectionList := v scrolledView. |
|
224 self makeTabable:selectionList. |
232 |
225 |
233 "self updateList." |
226 "self updateList." |
234 |
227 |
235 "I am interested in what is done in the selectionList |
228 "I am interested in what is done in the selectionList |
236 (could also create a SelectionInList-model and catch its changes ...)" |
229 (could also create a SelectionInList-model and catch its changes ...)" |
248 toView:enterField |
241 toView:enterField |
249 condition:#noFocus |
242 condition:#noFocus |
250 filter:[:key | (key ~~ #CursorUp) and:[key ~~ #CursorDown]] |
243 filter:[:key | (key ~~ #CursorUp) and:[key ~~ #CursorDown]] |
251 ) |
244 ) |
252 |
245 |
253 "Modified: 18.4.1996 / 18:31:50 / cg" |
246 "Modified: 31.5.1996 / 22:02:33 / cg" |
254 ! |
247 ! |
255 |
248 |
256 realize |
249 realize |
257 "redefined to update the list now. |
250 "redefined to update the list now. |
258 This was not done in #initialize to allow settings to be changed before, |
251 This was not done in #initialize to allow settings to be changed before, |
335 ! ! |
328 ! ! |
336 |
329 |
337 !ListSelectionBox class methodsFor:'documentation'! |
330 !ListSelectionBox class methodsFor:'documentation'! |
338 |
331 |
339 version |
332 version |
340 ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.33 1996-05-29 14:58:33 cg Exp $' |
333 ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.34 1996-05-31 20:18:39 cg Exp $' |
341 ! ! |
334 ! ! |