--- a/PopUpList.st	Fri Feb 14 16:51:25 1997 +0100
+++ b/PopUpList.st	Fri Feb 14 16:52:36 1997 +0100
@@ -638,16 +638,17 @@
     self sizeFixed:true.
     self label:label printString.
 
-    "
-     tell my model - if any
-    "
+    "/
+    "/ ST-80 way of doing it
+    "/ tell my model - if any
+    "/
     self sendChangeMessageWith:value
 
-    "Modified: 8.2.1996 / 11:58:51 / cg"
+    "Modified: 14.2.1997 / 16:47:09 / cg"
 ! !
 
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.29 1997-02-11 21:54:28 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.30 1997-02-14 15:52:36 cg Exp $'
 ! !