literal array overwrite fixed
authorClaus Gittinger <cg@exept.de>
Sun, 11 Feb 1996 12:59:15 +0100
changeset 360 c057423ecdd0
parent 359 dec35d4fbc35
child 361 b5cb40f55316
literal array overwrite fixed
MSelList.st
MultiSelectionInList.st
--- a/MSelList.st	Sun Feb 11 12:53:44 1996 +0100
+++ b/MSelList.st	Sun Feb 11 12:59:15 1996 +0100
@@ -36,7 +36,7 @@
 !
 
 version
-    ^ '$Header'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/MSelList.st,v 1.6 1996-02-11 11:59:15 cg Exp $'
 !
 
 documentation
@@ -50,7 +50,7 @@
 
 initialize
     self listHolder:(nil asValue).      "/ could also use an empty collection here
-    self selectionIndexHolder:(#() asValue).
+    self selectionIndexHolder:(Array new asValue).
 
     "Created: 26.10.1995 / 16:30:22 / cg"
 ! !
@@ -100,6 +100,6 @@
     or:[selectionIndices isEmpty]) ifFalse:[
 	^ selectionIndices collect:[:index | listHolder value at:index]
     ].
-    ^ #()
+    ^ Array new
 ! !
 
--- a/MultiSelectionInList.st	Sun Feb 11 12:53:44 1996 +0100
+++ b/MultiSelectionInList.st	Sun Feb 11 12:59:15 1996 +0100
@@ -36,7 +36,7 @@
 !
 
 version
-    ^ '$Header'
+    ^ '$Header: /cvs/stx/stx/libwidg/MultiSelectionInList.st,v 1.6 1996-02-11 11:59:15 cg Exp $'
 !
 
 documentation
@@ -50,7 +50,7 @@
 
 initialize
     self listHolder:(nil asValue).      "/ could also use an empty collection here
-    self selectionIndexHolder:(#() asValue).
+    self selectionIndexHolder:(Array new asValue).
 
     "Created: 26.10.1995 / 16:30:22 / cg"
 ! !
@@ -100,6 +100,6 @@
     or:[selectionIndices isEmpty]) ifFalse:[
 	^ selectionIndices collect:[:index | listHolder value at:index]
     ].
-    ^ #()
+    ^ Array new
 ! !