oops - dont use $ Header in createDocuStubs - rcs expands it
authorClaus Gittinger <cg@exept.de>
Thu, 07 Mar 1996 13:45:36 +0100
changeset 432 a6c771534efa
parent 431 830e2211ec00
child 433 703d84558f6f
oops - dont use $ Header in createDocuStubs - rcs expands it
BrowserView.st
BrwsrView.st
--- a/BrowserView.st	Thu Mar 07 11:06:56 1996 +0100
+++ b/BrowserView.st	Thu Mar 07 13:45:36 1996 +0100
@@ -473,6 +473,9 @@
 !
 
 classCategoryMenu
+
+    <resource: #keyboard ( #Find ) >
+
     |specialMenu m labels selectors shorties|
 
     currentClassCategory notNil ifTrue:[
@@ -617,7 +620,7 @@
     ^ m
 
     "Created: 14.9.1995 / 10:50:17 / claus"
-    "Modified: 2.3.1996 / 16:20:33 / cg"
+    "Modified: 7.3.1996 / 13:43:55 / cg"
 !
 
 classCategoryNewCategory
@@ -3892,7 +3895,7 @@
         (cls includesSelector:#version) ifFalse:[
             Compiler compile:
 'version
-    ^ ''$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.110 1996-03-07 10:06:56 cg Exp $''
+    ^ ''$' , 'Header$''
 '                   forClass:cls 
                   inCategory:'documentation'.
         ].
@@ -3945,7 +3948,7 @@
 "/        self updateMethodListWithScroll:false
     ]
 
-    "Modified: 7.3.1996 / 10:13:15 / cg"
+    "Modified: 7.3.1996 / 13:41:18 / cg"
 !
 
 methodCategoryFileOut
@@ -4687,6 +4690,8 @@
 methodMenu
     "return a popupmenu as appropriate for the methodList"
 
+    <resource: #keyboard ( #Cmds #Cmdi ) >
+
     |specialMenu m labels selectors shorties
      newLabels newSelectors
      mthdLabels mthdSelectors
@@ -4979,7 +4984,7 @@
 
     "Created: 23.11.1995 / 12:02:29 / cg"
     "Modified: 18.12.1995 / 16:20:07 / stefan"
-    "Modified: 2.3.1996 / 16:20:12 / cg"
+    "Modified: 7.3.1996 / 13:42:44 / cg"
 !
 
 methodMove
@@ -6936,6 +6941,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.110 1996-03-07 10:06:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.111 1996-03-07 12:45:36 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Thu Mar 07 11:06:56 1996 +0100
+++ b/BrwsrView.st	Thu Mar 07 13:45:36 1996 +0100
@@ -473,6 +473,9 @@
 !
 
 classCategoryMenu
+
+    <resource: #keyboard ( #Find ) >
+
     |specialMenu m labels selectors shorties|
 
     currentClassCategory notNil ifTrue:[
@@ -617,7 +620,7 @@
     ^ m
 
     "Created: 14.9.1995 / 10:50:17 / claus"
-    "Modified: 2.3.1996 / 16:20:33 / cg"
+    "Modified: 7.3.1996 / 13:43:55 / cg"
 !
 
 classCategoryNewCategory
@@ -3892,7 +3895,7 @@
         (cls includesSelector:#version) ifFalse:[
             Compiler compile:
 'version
-    ^ ''$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.110 1996-03-07 10:06:56 cg Exp $''
+    ^ ''$' , 'Header$''
 '                   forClass:cls 
                   inCategory:'documentation'.
         ].
@@ -3945,7 +3948,7 @@
 "/        self updateMethodListWithScroll:false
     ]
 
-    "Modified: 7.3.1996 / 10:13:15 / cg"
+    "Modified: 7.3.1996 / 13:41:18 / cg"
 !
 
 methodCategoryFileOut
@@ -4687,6 +4690,8 @@
 methodMenu
     "return a popupmenu as appropriate for the methodList"
 
+    <resource: #keyboard ( #Cmds #Cmdi ) >
+
     |specialMenu m labels selectors shorties
      newLabels newSelectors
      mthdLabels mthdSelectors
@@ -4979,7 +4984,7 @@
 
     "Created: 23.11.1995 / 12:02:29 / cg"
     "Modified: 18.12.1995 / 16:20:07 / stefan"
-    "Modified: 2.3.1996 / 16:20:12 / cg"
+    "Modified: 7.3.1996 / 13:42:44 / cg"
 !
 
 methodMove
@@ -6936,6 +6941,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.110 1996-03-07 10:06:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.111 1996-03-07 12:45:36 cg Exp $'
 ! !
 BrowserView initialize!