# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 856539337 -3600
# Node ID e2ff156a2b3108c8b87d7d4c29360d4f44394bb1
# Parent  eec6775b6fb3cbe8680d69a1366c7d20a5726f46
displayString

diff -r eec6775b6fb3 -r e2ff156a2b31 SelList.st
--- 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 $'
 ! !
diff -r eec6775b6fb3 -r e2ff156a2b31 SelectionInList.st
--- 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 $'
 ! !