--- a/SelListV.st	Thu Apr 25 19:34:16 1996 +0200
+++ b/SelListV.st	Fri Apr 26 15:56:21 1996 +0200
@@ -2089,26 +2089,34 @@
 !
 
 getListFromModel
-    "if I have a model and a listMsg, get my list from it"
-
-    |text|
+    "if I have a model, get my list from it using the listMessage.
+     If listMessage is nil, try aspectMessage for backward compatibilty."
+
+    |text msg|
 
     model notNil ifTrue:[
-	listMsg notNil ifTrue:[
-	    items := model perform:listMsg.
-	    items notNil ifTrue:[
-		printItems ifTrue:[
-		    text := items collect:[:element | element printString]
-		] ifFalse:[
-		    text := items
-		].
+        msg := listMsg.
+        msg isNil ifTrue:[
+            msg := aspectMsg
+        ].
+
+        listMsg notNil ifTrue:[
+            items := model perform:msg.
+            items notNil ifTrue:[
+                printItems ifTrue:[
+                    text := items collect:[:element | element printString]
+                ] ifFalse:[
+                    text := items
+                ].
 "/                text notNil ifTrue:[
 "/                    text := text asStringCollection.
 "/                ]
-	    ].
-	    self list:text keepSelection:true. "/ expandTabs:false
-	].
+            ].
+            self list:text keepSelection:true. "/ expandTabs:false
+        ].
     ].
+
+    "Modified: 26.4.1996 / 14:09:04 / cg"
 !
 
 getSelectionFromModel
@@ -2723,5 +2731,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.65 1996-04-25 17:33:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.66 1996-04-26 13:56:21 cg Exp $'
 ! !