equal
deleted
inserted
replaced
151 !SelectionInList class methodsFor:'instance creation'! |
151 !SelectionInList class methodsFor:'instance creation'! |
152 |
152 |
153 with:aList |
153 with:aList |
154 "return a new instance holding aList" |
154 "return a new instance holding aList" |
155 |
155 |
156 ^ self new |
156 ^ self new listHolder:(ValueHolder with:aList) |
157 listHolder:aList asValue |
157 |
158 |
158 "Modified: / 21.5.1998 / 03:17:16 / cg" |
159 "Modified: 25.1.1997 / 18:49:53 / cg" |
|
160 ! |
159 ! |
161 |
160 |
162 with:aList initialSelection:index |
161 with:aList initialSelection:index |
163 "return a new instance holding aList and initially selecting |
162 "return a new instance holding aList and initially selecting |
164 the item at index." |
163 the item at index." |
165 |
164 |
166 ^ (self with:aList) |
165 ^ (self with:aList) |
167 selectionIndexHolder:index asValue |
166 selectionIndexHolder:(ValueHolder with:index) |
168 |
167 |
169 "Created: 24.4.1996 / 08:47:33 / cg" |
168 "Created: / 24.4.1996 / 08:47:33 / cg" |
170 "Modified: 25.1.1997 / 18:51:56 / cg" |
169 "Modified: / 21.5.1998 / 03:17:31 / cg" |
171 ! ! |
170 ! ! |
172 |
171 |
173 !SelectionInList methodsFor:'accessing-holders'! |
172 !SelectionInList methodsFor:'accessing-holders'! |
174 |
173 |
175 listHolder |
174 listHolder |
321 !SelectionInList methodsFor:'initialization'! |
320 !SelectionInList methodsFor:'initialization'! |
322 |
321 |
323 initialize |
322 initialize |
324 "initialize; create the valueHolders for the index and the list" |
323 "initialize; create the valueHolders for the index and the list" |
325 |
324 |
326 self listHolder:(List new asValue). |
325 self listHolder:(ValueHolder with:List new). |
327 self selectionIndexHolder:(self zeroIndex asValue). |
326 self selectionIndexHolder:(ValueHolder with:self zeroIndex). |
328 |
327 |
329 "Modified: 24.4.1996 / 08:42:33 / cg" |
328 "Modified: / 21.5.1998 / 03:17:56 / cg" |
330 ! ! |
329 ! ! |
331 |
330 |
332 !SelectionInList methodsFor:'obsolete backward compatibility'! |
331 !SelectionInList methodsFor:'obsolete backward compatibility'! |
333 |
332 |
334 index |
333 index |
424 ! ! |
423 ! ! |
425 |
424 |
426 !SelectionInList class methodsFor:'documentation'! |
425 !SelectionInList class methodsFor:'documentation'! |
427 |
426 |
428 version |
427 version |
429 ^ '$Header: /cvs/stx/stx/libwidg/SelectionInList.st,v 1.23 1998-02-02 12:06:05 cg Exp $' |
428 ^ '$Header: /cvs/stx/stx/libwidg/SelectionInList.st,v 1.24 1998-05-21 01:18:07 cg Exp $' |
430 ! ! |
429 ! ! |