--- a/PopUpList.st	Wed Oct 29 17:13:04 1997 +0100
+++ b/PopUpList.st	Wed Oct 29 21:09:21 1997 +0100
@@ -903,14 +903,11 @@
 
     |value menuLabels label chg|
 
-anIndex printCR.
     menuLabels := menu labels.
     values isNil ifTrue:[
         value := anIndex.
         useIndex ifFalse:[
-useIndex printCR.
             value := menuLabels at:anIndex.
-anIndex printCR.
         ]
     ] ifFalse:[
         value := values at:anIndex
@@ -943,7 +940,6 @@
             ]
         ].
 
-value printCR.
         self sendChangeMessage:chg with:value.
     ].
 
@@ -954,11 +950,11 @@
         menuAction value:value.
     ].
 
-    "Modified: / 29.10.1997 / 15:50:18 / cg"
+    "Modified: / 29.10.1997 / 21:08:50 / cg"
 ! !
 
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.52 1997-10-29 16:13:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.53 1997-10-29 20:09:21 cg Exp $'
 ! !