Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
commentary & backward compatibility fix
authorClaus Gittinger <cg@exept.de>
Thu, 25 Apr 1996 09:56:58 +0200
changeset 579 a9188bedbfb9
parent 578 5b82bc433c14
child 580 a31ba5bcc4c0
commentary & backward compatibility fix
MSelList.st file | annotate | diff | comparison | revisions
MultiSelectionInList.st file | annotate | diff | comparison | revisions 
--- a/MSelList.st	Thu Apr 25 09:56:34 1996 +0200
+++ b/MSelList.st	Thu Apr 25 09:56:58 1996 +0200
@@ -64,6 +64,14 @@
 
     |l indizes|
 
+    "/
+    "/ for your convenience: allow 0 and nil as empty
+    "/ selections
+    "/
+    (anObjectList isNil or:[anObjectList == 0]) ifTrue:[
+        ^ self selectionIndex:#()
+    ].
+
     l := self list.
     l isNil ifTrue:[^ self].   "/ mhmh - no list; what should we do here ?
 
@@ -79,7 +87,7 @@
     ^ self selectionIndex:indizes
 
     "Created: 26.10.1995 / 16:40:24 / cg"
-    "Modified: 16.4.1996 / 15:53:03 / cg"
+    "Modified: 25.4.1996 / 09:07:44 / cg"
 ! !
 
 !MultiSelectionInList methodsFor:'queries'!
@@ -96,8 +104,12 @@
 !MultiSelectionInList methodsFor:'selections'!
 
 selections
+    "obsolete - almost the same as selection"
+
     |selectionIndices|
 
+    self obsoleteMethodWarning.
+
     selectionIndices := selectionIndexHolder value.
     (selectionIndices isNil
      or:[selectionIndices == 0     
@@ -106,11 +118,11 @@
     ].
     ^ Array new
 
-    "Modified: 20.4.1996 / 13:13:21 / cg"
+    "Modified: 25.4.1996 / 09:09:45 / cg"
 ! !
 
 !MultiSelectionInList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/MSelList.st,v 1.10 1996-04-20 13:54:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/MSelList.st,v 1.11 1996-04-25 07:56:58 cg Exp $'
 ! !
--- a/MultiSelectionInList.st	Thu Apr 25 09:56:34 1996 +0200
+++ b/MultiSelectionInList.st	Thu Apr 25 09:56:58 1996 +0200
@@ -64,6 +64,14 @@
 
     |l indizes|
 
+    "/
+    "/ for your convenience: allow 0 and nil as empty
+    "/ selections
+    "/
+    (anObjectList isNil or:[anObjectList == 0]) ifTrue:[
+        ^ self selectionIndex:#()
+    ].
+
     l := self list.
     l isNil ifTrue:[^ self].   "/ mhmh - no list; what should we do here ?
 
@@ -79,7 +87,7 @@
     ^ self selectionIndex:indizes
 
     "Created: 26.10.1995 / 16:40:24 / cg"
-    "Modified: 16.4.1996 / 15:53:03 / cg"
+    "Modified: 25.4.1996 / 09:07:44 / cg"
 ! !
 
 !MultiSelectionInList methodsFor:'queries'!
@@ -96,8 +104,12 @@
 !MultiSelectionInList methodsFor:'selections'!
 
 selections
+    "obsolete - almost the same as selection"
+
     |selectionIndices|
 
+    self obsoleteMethodWarning.
+
     selectionIndices := selectionIndexHolder value.
     (selectionIndices isNil
      or:[selectionIndices == 0     
@@ -106,11 +118,11 @@
     ].
     ^ Array new
 
-    "Modified: 20.4.1996 / 13:13:21 / cg"
+    "Modified: 25.4.1996 / 09:09:45 / cg"
 ! !
 
 !MultiSelectionInList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MultiSelectionInList.st,v 1.10 1996-04-20 13:54:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MultiSelectionInList.st,v 1.11 1996-04-25 07:56:58 cg Exp $'
 ! !
hg/stx-libwidg