MultiSelectionInList.st
changeset 536 fd1b723e69b6
parent 526 8203430fbadd
child 537 21fc632b22fe
equal deleted inserted replaced
535:84282b53f2a7 536:fd1b723e69b6
    96 
    96 
    97 selections
    97 selections
    98     |selectionIndices|
    98     |selectionIndices|
    99 
    99 
   100     selectionIndices := selectionIndexHolder value.
   100     selectionIndices := selectionIndexHolder value.
   101     (selectionIndices isNil 
   101     (selectionIndices isNil
   102     or:[selectionIndices isEmpty]) ifFalse:[
   102      or:[selectionIndices == 0
   103 	^ selectionIndices collect:[:index | listHolder value at:index]
   103      or:[selectionIndices isEmpty]]) ifFalse:[
       
   104         ^ selectionIndices collect:[:index | listHolder value at:index]
   104     ].
   105     ].
   105     ^ Array new
   106     ^ Array new
       
   107 
       
   108     "Modified: 16.4.1996 / 12:15:34 / cg"
   106 ! !
   109 ! !
   107 
   110 
   108 !MultiSelectionInList class methodsFor:'documentation'!
   111 !MultiSelectionInList class methodsFor:'documentation'!
   109 
   112 
   110 version
   113 version
   111     ^ '$Header: /cvs/stx/stx/libwidg/MultiSelectionInList.st,v 1.7 1996-04-01 18:56:26 ca Exp $'
   114     ^ '$Header: /cvs/stx/stx/libwidg/MultiSelectionInList.st,v 1.8 1996-04-16 10:15:42 cg Exp $'
   112 ! !
   115 ! !