Workspace.st
changeset 5669 b97b51a2d076
parent 5646 b52061d58dab
child 5680 4a392137c898
equal deleted inserted replaced
5668:f1dbe76ade19 5669:b97b51a2d076
  1866                         pool notNil ifTrue:[
  1866                         pool notNil ifTrue:[
  1867                             browserClass browseReferendsOf:(pool name,':',nameOfVariable)
  1867                             browserClass browseReferendsOf:(pool name,':',nameOfVariable)
  1868                         ] ifFalse:[
  1868                         ] ifFalse:[
  1869                             (cls notNil
  1869                             (cls notNil
  1870                               and:[ cls nameSpace notNil
  1870                               and:[ cls nameSpace notNil
       
  1871                               and:[ cls nameSpace isNameSpace
  1871                               and:[ nameOfVariable knownAsSymbol
  1872                               and:[ nameOfVariable knownAsSymbol
  1872                               and:[ (nsClass := cls nameSpace at:nameOfVariable asSymbol) notNil
  1873                               and:[ (nsClass := cls nameSpace at:nameOfVariable asSymbol) notNil
  1873                               and:[ nsClass isBehavior
  1874                               and:[ nsClass isBehavior
  1874                             ]]]]) ifTrue:[
  1875                             ]]]]]) ifTrue:[
  1875                                 "/ a namespace class?
  1876                                 "/ a namespace class?
  1876                                 browserClass browseReferendsOf:nsClass name
  1877                                 browserClass browseReferendsOf:nsClass name
  1877                             ] ifFalse:[
  1878                             ] ifFalse:[
  1878                                 "/ an instvar?
  1879                                 "/ an instvar?
  1879                                 (cls notNil and:[cls allInstVarNames includes:nameOfVariable]) ifTrue:[
  1880                                 (cls notNil and:[cls allInstVarNames includes:nameOfVariable]) ifTrue:[