# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 895759042 -7200
# Node ID 18ea61127a9e23ed662971b691aba5fd943fc8b1
# Parent  3f5e66d22039aa33f9ce86d4c2f064ad78fcc034
checkin from browser

diff -r 3f5e66d22039 -r 18ea61127a9e BrowserView.st
--- 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!
diff -r 3f5e66d22039 -r 18ea61127a9e BrwsrView.st
--- 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!