equal
deleted
inserted
replaced
185 |
185 |
186 !BrowserList methodsFor:'accessing'! |
186 !BrowserList methodsFor:'accessing'! |
187 |
187 |
188 environment:env |
188 environment:env |
189 | prevenv | |
189 | prevenv | |
|
190 |
|
191 self assert:(env isNil or:[env isNameSpace or:[env == Smalltalk]]). |
190 |
192 |
191 prevenv := environment. |
193 prevenv := environment. |
192 environment := env. |
194 environment := env. |
193 environment ~~ prevenv ifTrue:[ |
195 environment ~~ prevenv ifTrue:[ |
194 self enqueueMessage: #updateList for: self arguments: #() |
196 self enqueueMessage: #updateList for: self arguments: #() |
1888 ! ! |
1890 ! ! |
1889 |
1891 |
1890 !BrowserList class methodsFor:'documentation'! |
1892 !BrowserList class methodsFor:'documentation'! |
1891 |
1893 |
1892 version |
1894 version |
1893 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.60 2014-02-05 18:57:48 cg Exp $' |
1895 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.61 2014-02-22 12:42:00 cg Exp $' |
1894 ! |
1896 ! |
1895 |
1897 |
1896 version_CVS |
1898 version_CVS |
1897 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.60 2014-02-05 18:57:48 cg Exp $' |
1899 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.61 2014-02-22 12:42:00 cg Exp $' |
1898 ! ! |
1900 ! ! |
1899 |
1901 |