InspectorView.st
changeset 8616 51d6f6c57f14
parent 8452 0840b314f7bb
child 8635 30b613bae7f3
equal deleted inserted replaced
8615:3407696ae28f 8616:51d6f6c57f14
   720         m disable:#doBack
   720         m disable:#doBack
   721     ].
   721     ].
   722     sel class hasImmediateInstances ifTrue:[
   722     sel class hasImmediateInstances ifTrue:[
   723         m disableAll:#(showReferences doNewInspect)
   723         m disableAll:#(showReferences doNewInspect)
   724     ].
   724     ].
   725     sel inspectorClass == self class ifFalse:[
   725 "/    sel inspectorClass == self class ifFalse:[
   726         m disable:#doFollow
   726 "/        m disable:#doFollow
   727     ].
   727 "/    ].
   728     sel isMethod ifFalse:[
   728     sel isMethod ifFalse:[
   729         m disable:#browseMethodsClass
   729         m disable:#browseMethodsClass
   730     ].
   730     ].
   731 
   731 
   732     ^ m
   732     ^ m
  2072 ! !
  2072 ! !
  2073 
  2073 
  2074 !InspectorView class methodsFor:'documentation'!
  2074 !InspectorView class methodsFor:'documentation'!
  2075 
  2075 
  2076 version
  2076 version
  2077     ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.184 2008-11-26 15:45:39 cg Exp $'
  2077     ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.185 2009-05-10 13:53:20 cg Exp $'
  2078 ! !
  2078 ! !