BrowserView.st
changeset 758 613257a962eb
parent 757 e11e8984a976
child 759 8d667c66af50
--- 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!