--- a/TextView.st	Thu Jul 03 14:27:05 1997 +0200
+++ b/TextView.st	Thu Jul 03 14:29:55 1997 +0200
@@ -1030,7 +1030,7 @@
     "return my popUpMenu"
 
     <resource: #keyboard (#Copy #Find #GotoLine #SaveAs #Print)>
-    <resource: #menu>
+    <resource: #programMenu>
 
     |labels selectors m|
 
@@ -1078,7 +1078,7 @@
     ].
     ^ m
 
-    "Modified: 7.3.1997 / 11:10:17 / cg"
+    "Modified: 3.7.1997 / 13:54:09 / cg"
 !
 
 gotoLine
@@ -2486,5 +2486,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.97 1997-06-28 19:58:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.98 1997-07-03 12:29:11 cg Exp $'
 ! !