--- a/TextCollector.st	Thu Jul 03 14:27:05 1997 +0200
+++ b/TextCollector.st	Thu Jul 03 14:29:55 1997 +0200
@@ -254,7 +254,7 @@
     "return my popUpMenu; thats the superClasses menu,
      minus any accept item."
 
-    <resource: #menu>
+    <resource: #programMenu>
 
     |m idx|
 
@@ -273,7 +273,7 @@
     ].
     ^ m
 
-    "Modified: 7.3.1997 / 11:09:42 / cg"
+    "Modified: 3.7.1997 / 13:54:11 / cg"
 !
 
 initialize
@@ -544,5 +544,5 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.37 1997-05-09 10:20:01 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.38 1997-07-03 12:28:51 cg Exp $'
 ! !