--- a/ColoredListEntry.st	Thu May 18 17:52:01 1995 +0200
+++ b/ColoredListEntry.st	Fri May 19 01:00:30 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg2/ColoredListEntry.st,v 1.1 1995-05-17 12:48:41 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/ColoredListEntry.st,v 1.2 1995-05-18 23:00:30 claus Exp $
 "
 !
 
@@ -68,27 +68,9 @@
 	v setList:myList expandTabs:false.
 	v open
 
-     in a selectionInList
 
-	|v e myList selList tabs|
-
-	myList := OrderedCollection new.
-
-	myList add:(ColoredListEntry string:'red' color:Color red).
-	myList add:(ColoredListEntry string:'green' color:Color green).
-	myList add:(ColoredListEntry string:'blue' color:Color blue).
-	myList add:(ColoredListEntry string:'white' color:Color white).
-	myList add:(ColoredListEntry string:'black' color:Color black).
-	myList add:(ColoredListEntry string:'yellow' color:Color yellow).
-
-	selList := SelectionInList new list:myList.
-
-	v := SelectionInListView on:selList.
-	v printItems:false.
-	v open
-
-
-     in a popUpList
+     in a popUpList (sorry, Labels do not (yet) know how to display
+     non-strings.
 
 	|v e myList selList tabs|