# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1001422668 -7200
# Node ID 5478ca0ac71f9e1d46bd9aac82374565b973eb36
# Parent  1c34cd12b80b51bac8fef29a01bba2d007a4c303
*** empty log message ***

diff -r 1c34cd12b80b -r 5478ca0ac71f ColorInspectorView.st
--- a/ColorInspectorView.st	Tue Sep 25 14:45:13 2001 +0200
+++ b/ColorInspectorView.st	Tue Sep 25 14:57:48 2001 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libtool' }"
+
 InspectorView subclass:#ColorInspectorView
 	instanceVariableNames:'colorView'
 	classVariableNames:''
@@ -70,5 +72,5 @@
 !ColorInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.7 1999-07-16 17:26:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ColorInspectorView.st,v 1.8 2001-09-25 12:57:48 cg Exp $'
 ! !
diff -r 1c34cd12b80b -r 5478ca0ac71f InspectorView.st
--- a/InspectorView.st	Tue Sep 25 14:45:13 2001 +0200
+++ b/InspectorView.st	Tue Sep 25 14:57:48 2001 +0200
@@ -511,8 +511,8 @@
                        ('Ref chains'                   #showReferences         )
                        ('-')
                        ('Browse'                       #browse                 )
-                       ('Browse class hierarchy'       #browseClassHierarchy   )
-                       ('Browse full class protocol'   #browseFullClassProtocol)
+"/                       ('Browse class hierarchy'       #browseClassHierarchy   )
+"/                       ('Browse full class protocol'   #browseFullClassProtocol)
               ).
 
     sel := self selection.
@@ -599,6 +599,10 @@
         m disableAll:#(showReferences doNewInspect)
     ].
 
+    sel inspectorClass == self class ifFalse:[
+        m disable:#doFollow
+    ].
+
     ^ m
 
     "Modified: / 6.2.2000 / 13:48:09 / cg"
@@ -1051,6 +1055,10 @@
 
 !InspectorView methodsFor:'queries'!
 
+canInspect:anObject
+    ^ anObject inspectorClass == self class
+!
+
 labelFor:anObject
     "return the windowLabel to use in my topView, when inspecting anObject."
 
@@ -1339,5 +1347,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.113 2001-09-25 12:45:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.114 2001-09-25 12:57:35 cg Exp $'
 ! !