--- a/BrowserView.st	Thu May 21 15:54:55 1998 +0200
+++ b/BrowserView.st	Thu May 21 15:57:22 1998 +0200
@@ -2164,6 +2164,8 @@
 classHistoryMenu
     "returns a popup menu containing the history of the classes"
 
+    <resource: #programMenu >
+
     |labels selectors args|
 
     self class checkClassHistory.
@@ -2193,6 +2195,8 @@
             args:nil
             receiver:self.
     ]
+
+    "Modified: / 21.5.1998 / 15:42:10 / cg"
 !
 
 emptyClassHistory
@@ -11498,6 +11502,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.409 1998-05-21 13:37:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.410 1998-05-21 13:57:22 cg Exp $'
 ! !
 BrowserView initialize!

--- a/BrwsrView.st	Thu May 21 15:54:55 1998 +0200
+++ b/BrwsrView.st	Thu May 21 15:57:22 1998 +0200
@@ -2164,6 +2164,8 @@
 classHistoryMenu
     "returns a popup menu containing the history of the classes"
 
+    <resource: #programMenu >
+
     |labels selectors args|
 
     self class checkClassHistory.
@@ -2193,6 +2195,8 @@
             args:nil
             receiver:self.
     ]
+
+    "Modified: / 21.5.1998 / 15:42:10 / cg"
 !
 
 emptyClassHistory
@@ -11498,6 +11502,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.409 1998-05-21 13:37:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.410 1998-05-21 13:57:22 cg Exp $'
 ! !
 BrowserView initialize!