equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
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 |
|
13 'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:56:05 pm' ! |
|
14 |
12 |
15 ValueHolder subclass:#SelectionInList |
13 ValueHolder subclass:#SelectionInList |
16 instanceVariableNames:'listHolder selectionIndexHolder' |
14 instanceVariableNames:'listHolder selectionIndexHolder' |
17 classVariableNames:'' |
15 classVariableNames:'' |
18 poolDictionaries:'' |
16 poolDictionaries:'' |
316 !SelectionInList methodsFor:'initialization'! |
314 !SelectionInList methodsFor:'initialization'! |
317 |
315 |
318 initialize |
316 initialize |
319 "initialize; create the valueHolders for the index and the list" |
317 "initialize; create the valueHolders for the index and the list" |
320 |
318 |
321 self listHolder:(nil asValue). "/ could also use an empty collection here |
319 self listHolder:(List new asValue). |
322 self selectionIndexHolder:(self zeroIndex asValue). |
320 self selectionIndexHolder:(self zeroIndex asValue). |
323 |
321 |
324 "Modified: 24.4.1996 / 08:42:33 / cg" |
322 "Modified: 24.4.1996 / 08:42:33 / cg" |
325 ! ! |
323 ! ! |
326 |
324 |
404 ! ! |
402 ! ! |
405 |
403 |
406 !SelectionInList class methodsFor:'documentation'! |
404 !SelectionInList class methodsFor:'documentation'! |
407 |
405 |
408 version |
406 version |
409 ^ '$Header: /cvs/stx/stx/libwidg/SelectionInList.st,v 1.19 1997-09-20 22:41:00 cg Exp $' |
407 ^ '$Header: /cvs/stx/stx/libwidg/SelectionInList.st,v 1.20 1997-10-10 13:05:02 ca Exp $' |
410 ! ! |
408 ! ! |