equal
deleted
inserted
replaced
595 |wg activeView| |
595 |wg activeView| |
596 |
596 |
597 (wg := self windowGroup) isNil ifTrue:[ ^ true ]. "/ I am being initialized |
597 (wg := self windowGroup) isNil ifTrue:[ ^ true ]. "/ I am being initialized |
598 self device isNil ifTrue:[ ^ true ]. "/ I am being initialized |
598 self device isNil ifTrue:[ ^ true ]. "/ I am being initialized |
599 |
599 |
600 (activeView := self device activeView) isNil ifTrue:[ Transcript showCR:'nil active'. ^ false ]. |
600 (activeView := self device activeView) isNil ifTrue:[ "Transcript showCR:'nil active'." ^ false ]. |
601 "/Transcript showCR:'active view: ',(activeView printString). |
601 "/Transcript showCR:'active view: ',(activeView printString). |
602 "/Transcript showCR:'active wg: ',(activeView windowGroup printString). |
602 "/Transcript showCR:'active wg: ',(activeView windowGroup printString). |
603 "/Transcript showCR:'my wg: ',wg printString. |
603 "/Transcript showCR:'my wg: ',wg printString. |
604 ^ activeView windowGroup == wg |
604 ^ activeView windowGroup == wg |
605 ! |
605 ! |
1869 ! ! |
1869 ! ! |
1870 |
1870 |
1871 !BrowserList class methodsFor:'documentation'! |
1871 !BrowserList class methodsFor:'documentation'! |
1872 |
1872 |
1873 version |
1873 version |
1874 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.52 2012-11-07 14:36:23 cg Exp $' |
1874 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.53 2012-11-12 09:06:58 stefan Exp $' |
1875 ! |
1875 ! |
1876 |
1876 |
1877 version_CVS |
1877 version_CVS |
1878 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.52 2012-11-07 14:36:23 cg Exp $' |
1878 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.53 2012-11-12 09:06:58 stefan Exp $' |
1879 ! ! |
1879 ! ! |