--- a/BrowserView.st	Thu Jul 03 14:29:38 1997 +0200
+++ b/BrowserView.st	Thu Jul 03 14:44:26 1997 +0200
@@ -8689,11 +8689,12 @@
             currentClass subclasses size == 0 ifTrue:[
                 b disable.
             ] ifFalse:[
-                toSearch := IdentitySet new.
-                currentClass withAllSubclasses do:[:cls | toSearch add:cls privateClasses].
-                toSearch size == 0 ifTrue:[
-                    b disable
-                ]
+"/ this takes too long ...
+"/                toSearch := IdentitySet new.
+"/                currentClass withAllSubclasses do:[:cls | toSearch add:cls privateClasses].
+"/                toSearch size == 0 ifTrue:[
+"/                    b disable
+"/                ]
             ]
         ].
         whereDefault notNil ifTrue:[
@@ -8757,7 +8758,7 @@
     ]
 
     "Created: 11.11.1996 / 12:42:14 / cg"
-    "Modified: 3.3.1997 / 14:47:16 / cg"
+    "Modified: 3.7.1997 / 14:32:07 / cg"
 !
 
 busyLabel:what with:someArgument
@@ -10241,6 +10242,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.313 1997-07-03 11:44:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.314 1997-07-03 12:44:26 cg Exp $'
 ! !
 BrowserView initialize!