--- a/SelList.st	Fri Feb 21 16:02:50 1997 +0100
+++ b/SelList.st	Fri Feb 21 16:35:37 1997 +0100
@@ -364,6 +364,14 @@
     "Modified: 24.4.1996 / 08:43:43 / cg"
 ! !
 
+!SelectionInList methodsFor:'printing & storing'!
+
+displayString
+    ^ self class name , '(' , self selectionIndex displayString , ')'
+
+    "Modified: 21.2.1997 / 16:30:38 / cg"
+! !
+
 !SelectionInList methodsFor:'private'!
 
 clearSelection
@@ -394,5 +402,5 @@
 !SelectionInList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelList.st,v 1.17 1997-01-25 17:52:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelList.st,v 1.18 1997-02-21 15:35:37 cg Exp $'
 ! !

--- a/SelectionInList.st	Fri Feb 21 16:02:50 1997 +0100
+++ b/SelectionInList.st	Fri Feb 21 16:35:37 1997 +0100
@@ -364,6 +364,14 @@
     "Modified: 24.4.1996 / 08:43:43 / cg"
 ! !
 
+!SelectionInList methodsFor:'printing & storing'!
+
+displayString
+    ^ self class name , '(' , self selectionIndex displayString , ')'
+
+    "Modified: 21.2.1997 / 16:30:38 / cg"
+! !
+
 !SelectionInList methodsFor:'private'!
 
 clearSelection
@@ -394,5 +402,5 @@
 !SelectionInList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInList.st,v 1.17 1997-01-25 17:52:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInList.st,v 1.18 1997-02-21 15:35:37 cg Exp $'
 ! !