--- a/ColoredListEntry.st	Sat Apr 27 20:20:27 1996 +0200
+++ b/ColoredListEntry.st	Sat Apr 27 20:23:13 1996 +0200
@@ -46,6 +46,8 @@
 
     [see also:]
         ListView
+        ListEntry
+        String Color
 "
 !
 
@@ -53,41 +55,43 @@
 "
      putting colored entries into a SelectionInListView
      (instead of strings)'
+                                                                        [exBegin]
+        |v e myList tabs|
 
-	|v e myList tabs|
-
-	myList := OrderedCollection new.
+        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).
+        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).
 
-	v := SelectionInListView new.
-	v setList:myList expandTabs:false.
-	v open
+        v := SelectionInListView new.
+        v setList:myList expandTabs:false.
+        v open
+                                                                        [exEnd]
 
 
      in a popUpList (sorry, Labels do not (yet) know how to display
      non-strings.
+                                                                        [exBegin]
+        |v e myList selList tabs|
 
-	|v e myList selList tabs|
-
-	myList := OrderedCollection new.
+        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).
+        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.
+        selList := SelectionInList new list:myList.
 
-	v := PopUpList on:selList.
-	v open
+        v := PopUpList on:selList.
+        v open
+                                                                        [exEnd]
 "
 ! !
 
@@ -163,5 +167,5 @@
 !ColoredListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColoredListEntry.st,v 1.10 1996-04-25 17:31:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColoredListEntry.st,v 1.11 1996-04-27 18:22:28 cg Exp $'
 ! !