equal
deleted
inserted
replaced
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 ValueHolder subclass:#SelectionInList |
13 ValueHolder subclass:#SelectionInList |
14 instanceVariableNames:'listHolder selectionIndexHolder' |
14 instanceVariableNames:'listHolder selectionIndexHolder' |
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Interface-Support-Models' |
17 category:'Interface-Support-Models' |
18 ! |
18 ! |
19 |
19 |
20 !SelectionInList class methodsFor:'documentation'! |
20 !SelectionInList class methodsFor:'documentation'! |
21 |
21 |
22 copyright |
22 copyright |
87 b open |
87 b open |
88 " |
88 " |
89 ! ! |
89 ! ! |
90 |
90 |
91 !SelectionInList class methodsFor:'instance creation'! |
91 !SelectionInList class methodsFor:'instance creation'! |
92 |
|
93 new |
|
94 ^ super new initialize |
|
95 ! |
|
96 |
92 |
97 with:aList |
93 with:aList |
98 ^ self new listHolder:(ValueHolder with:aList) |
94 ^ self new listHolder:(ValueHolder with:aList) |
99 ! ! |
95 ! ! |
100 |
96 |
241 ! ! |
237 ! ! |
242 |
238 |
243 !SelectionInList class methodsFor:'documentation'! |
239 !SelectionInList class methodsFor:'documentation'! |
244 |
240 |
245 version |
241 version |
246 ^ '$Header: /cvs/stx/stx/libwidg/SelectionInList.st,v 1.7 1995-11-23 17:48:50 cg Exp $' |
242 ^ '$Header: /cvs/stx/stx/libwidg/SelectionInList.st,v 1.8 1996-02-11 11:53:44 cg Exp $' |
247 ! ! |
243 ! ! |