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 "{ Package: 'stx:libwidg' }" |
12 "{ Package: 'stx:libwidg' }" |
14 |
13 |
15 ValueHolder subclass:#SelectionInList |
14 ValueHolder subclass:#SelectionInList |
16 instanceVariableNames:'listHolder selectionIndexHolder' |
15 instanceVariableNames:'listHolder selectionIndexHolder' |
17 classVariableNames:'' |
16 classVariableNames:'' |
249 ] ifFalse:[ |
248 ] ifFalse:[ |
250 aCollection isList ifTrue:[ |
249 aCollection isList ifTrue:[ |
251 self listHolder:aCollection. |
250 self listHolder:aCollection. |
252 listHolder changed. |
251 listHolder changed. |
253 ] ifFalse:[ |
252 ] ifFalse:[ |
254 listHolder value:aCollection. |
253 listHolder isList ifTrue:[ |
|
254 listHolder contents:aCollection. |
|
255 ] ifFalse:[ |
|
256 listHolder value:aCollection. |
|
257 ] |
255 ] |
258 ] |
256 "/ listHolder value:aCollection. |
259 "/ listHolder value:aCollection. |
257 ]. |
260 ]. |
258 |
261 |
259 "Modified: / 2.2.1998 / 13:05:56 / cg" |
262 "Modified: / 2.2.1998 / 13:05:56 / cg" |
440 ! ! |
443 ! ! |
441 |
444 |
442 !SelectionInList class methodsFor:'documentation'! |
445 !SelectionInList class methodsFor:'documentation'! |
443 |
446 |
444 version |
447 version |
445 ^ '$Header: /cvs/stx/stx/libwidg/SelectionInList.st,v 1.29 2003-05-07 14:46:06 cg Exp $' |
448 ^ '$Header: /cvs/stx/stx/libwidg/SelectionInList.st,v 1.30 2008-02-04 09:33:20 cg Exp $' |
446 ! ! |
449 ! ! |