equal
deleted
inserted
replaced
19 |
19 |
20 ListSelectionBox comment:' |
20 ListSelectionBox comment:' |
21 COPYRIGHT (c) 1990 by Claus Gittinger |
21 COPYRIGHT (c) 1990 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.12 1995-05-09 01:55:56 claus Exp $ |
24 $Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.13 1995-05-17 12:25:14 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !ListSelectionBox class methodsFor:'documentation'! |
27 !ListSelectionBox class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.12 1995-05-09 01:55:56 claus Exp $ |
45 $Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.13 1995-05-17 12:25:14 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
161 ]. |
161 ]. |
162 selectionList doubleClickAction:[:lineNr | |
162 selectionList doubleClickAction:[:lineNr | |
163 enterField contents:(selectionList selectionValue). |
163 enterField contents:(selectionList selectionValue). |
164 self okPressed |
164 self okPressed |
165 ]. |
165 ]. |
|
166 enterField removeDependent:self. "dont want preferedExtent-changes" |
|
167 |
166 " |
168 " |
167 mhm: the lists keyboard functions are disabled, |
169 mhm: the lists keyboard functions are disabled, |
168 and input passed to the enterfield |
170 and input passed to the enterfield |
169 " |
171 " |
170 selectionList delegate:(KeyboardForwarder toView:enterField condition:#noFocus) |
172 selectionList delegate:(KeyboardForwarder toView:enterField condition:#noFocus) |
211 ^ (wWanted @ hWanted) |
213 ^ (wWanted @ hWanted) |
212 ! ! |
214 ! ! |
213 |
215 |
214 !ListSelectionBox methodsFor:'accessing'! |
216 !ListSelectionBox methodsFor:'accessing'! |
215 |
217 |
|
218 initialText:someString |
|
219 "in addition to showing the initial text, also select it in the list" |
|
220 |
|
221 super initialText:someString. |
|
222 selectionList selectElement:someString. |
|
223 ! |
|
224 |
216 list:aList |
225 list:aList |
217 "set the list to be displayed in selection list" |
226 "set the list to be displayed in selection list" |
218 |
227 |
219 selectionList list:aList |
228 selectionList list:aList |
220 ! ! |
229 ! ! |