equal
deleted
inserted
replaced
1795 pool notNil ifTrue:[ |
1795 pool notNil ifTrue:[ |
1796 browserClass browseReferendsOf:(pool name,':',nameOfGlobal) |
1796 browserClass browseReferendsOf:(pool name,':',nameOfGlobal) |
1797 ] ifFalse:[ |
1797 ] ifFalse:[ |
1798 (cls notNil |
1798 (cls notNil |
1799 and:[ cls nameSpace notNil |
1799 and:[ cls nameSpace notNil |
1800 and:[ (nsClass := cls nameSpace at:nameOfGlobal) notNil |
1800 and:[ nameOfGlobal knownAsSymbol |
1801 ]]) notNil ifTrue:[ |
1801 and:[ (nsClass := cls nameSpace at:nameOfGlobal asSymbol) notNil |
|
1802 ]]]) notNil ifTrue:[ |
1802 "/ a namespace class |
1803 "/ a namespace class |
1803 browserClass browseReferendsOf:nsClass name |
1804 browserClass browseReferendsOf:nsClass name |
1804 ] ifFalse:[ |
1805 ] ifFalse:[ |
1805 "/ no, assume global |
1806 "/ no, assume global |
1806 browserClass browseReferendsOf:nameOfGlobal |
1807 browserClass browseReferendsOf:nameOfGlobal |
2288 ! ! |
2289 ! ! |
2289 |
2290 |
2290 !Workspace class methodsFor:'documentation'! |
2291 !Workspace class methodsFor:'documentation'! |
2291 |
2292 |
2292 version |
2293 version |
2293 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.327 2014-04-23 00:32:58 cg Exp $' |
2294 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.328 2014-04-29 17:05:00 cg Exp $' |
2294 ! |
2295 ! |
2295 |
2296 |
2296 version_CVS |
2297 version_CVS |
2297 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.327 2014-04-23 00:32:58 cg Exp $' |
2298 ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.328 2014-04-29 17:05:00 cg Exp $' |
2298 ! ! |
2299 ! ! |
2299 |
2300 |