--- a/BrowserView.st Mon Oct 14 17:34:33 1996 +0200
+++ b/BrowserView.st Mon Oct 14 18:18:45 1996 +0200
@@ -1671,7 +1671,7 @@
classNewSubclass
).
- PrivateClass notNil ifTrue:[
+ PrivateMetaclass notNil ifTrue:[
labels := labels , #(
'new private class'
).
@@ -1719,7 +1719,7 @@
m subMenuAt:#otherMenu put:specialMenu.
^ m
- "Modified: 11.10.1996 / 18:17:19 / cg"
+ "Modified: 14.10.1996 / 16:55:58 / cg"
!
classNewClass
@@ -7861,6 +7861,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.178 1996-10-14 15:34:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.179 1996-10-14 16:18:45 cg Exp $'
! !
BrowserView initialize!