--- a/BrowserView.st Sat Oct 26 13:15:41 1996 +0200
+++ b/BrowserView.st Sat Oct 26 15:26:42 1996 +0200
@@ -597,6 +597,8 @@
currentClassCategory isNil ifTrue:[
labels := #(
+"/ 'namespace ...'
+"/ '-'
'clone'
'open for class ...'
'spawn full class'
@@ -610,6 +612,8 @@
'others ...'
).
selectors := #(
+"/ namespaceDialog
+"/ nil
classCategoryClone
classCategoryOpenInClass
classCategorySpawnFullClass
@@ -623,6 +627,8 @@
otherMenu
).
shorties := #(
+"/ nil
+"/ nil
nil
nil
nil
@@ -641,6 +647,8 @@
'printOut'
'printOut protocol'
'-'
+"/ 'namespace ...'
+"/ '-'
'clone'
'open for class ...'
'SPAWN_CATEGORY'
@@ -654,7 +662,7 @@
'rename ...'
'remove'
'='
- 'others ...'
+ 'others'
).
selectors := #(
classCategoryFileOut
@@ -662,6 +670,8 @@
classCategoryPrintOut
classCategoryPrintOutProtocol
nil
+"/ namespaceDialog
+"/ nil
classCategoryClone
classCategoryOpenInClass
classCategorySpawn
@@ -683,6 +693,8 @@
nil
nil
nil
+"/ nil
+"/ nil
nil
nil
nil
@@ -709,7 +721,7 @@
^ m
"Created: 14.9.1995 / 10:50:17 / claus"
- "Modified: 9.9.1996 / 22:19:16 / cg"
+ "Modified: 26.10.1996 / 14:25:36 / cg"
!
classCategoryNewCategory
@@ -1745,7 +1757,7 @@
labels := labels , #(
'='
- 'others ...'
+ 'others'
).
selectors := selectors , #(
nil
@@ -1767,7 +1779,7 @@
m subMenuAt:#otherMenu put:specialMenu.
^ m
- "Modified: 15.10.1996 / 20:42:34 / cg"
+ "Modified: 26.10.1996 / 11:37:39 / cg"
!
classNewClass
@@ -5796,7 +5808,7 @@
specialMenu notNil ifTrue:[
labels := labels , #(
'='
- 'others ...'
+ 'others'
).
selectors := selectors , #(
nil
@@ -5841,7 +5853,7 @@
"Created: 23.11.1995 / 12:02:29 / cg"
"Modified: 18.12.1995 / 16:20:07 / stefan"
- "Modified: 14.10.1996 / 15:47:06 / cg"
+ "Modified: 26.10.1996 / 11:37:57 / cg"
!
methodMove
@@ -8153,6 +8165,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.192 1996-10-23 21:46:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.193 1996-10-26 13:26:42 cg Exp $'
! !
BrowserView initialize!