--- 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 $'
! !
--- 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 $'
! !