--- 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!