equal
deleted
inserted
replaced
183 "Modified: / 04-12-2011 / 15:35:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
183 "Modified: / 04-12-2011 / 15:35:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
184 ! ! |
184 ! ! |
185 |
185 |
186 !BrowserList methodsFor:'accessing'! |
186 !BrowserList methodsFor:'accessing'! |
187 |
187 |
|
188 environment:env |
|
189 | prevenv | |
|
190 |
|
191 prevenv := environment. |
|
192 environment := env. |
|
193 environment ~~ prevenv ifTrue:[ |
|
194 self enqueueMessage: #updateList for: self arguments: #() |
|
195 ] |
|
196 |
|
197 "Created: / 03-09-2013 / 18:32:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
198 ! |
|
199 |
188 nameFilter:something |
200 nameFilter:something |
189 nameFilter := something. |
201 nameFilter := something. |
190 ! ! |
202 ! ! |
191 |
203 |
192 !BrowserList methodsFor:'aspects'! |
204 !BrowserList methodsFor:'aspects'! |
605 ! |
617 ! |
606 |
618 |
607 delayedUpdate:something with:aParameter from:changedObject |
619 delayedUpdate:something with:aParameter from:changedObject |
608 |
620 |
609 "/ if any of my subclasses want those, they should look for them. |
621 "/ if any of my subclasses want those, they should look for them. |
610 changedObject == Smalltalk ifTrue:[ |
622 changedObject == environment ifTrue:[ |
611 (something == #Language or:[something == #LanguageTerritory]) ifTrue:[ |
623 (something == #Language or:[something == #LanguageTerritory]) ifTrue:[ |
612 ^ self |
624 ^ self |
613 ]. |
625 ]. |
614 something == #organization ifTrue:[ |
626 something == #organization ifTrue:[ |
615 ^ self |
627 ^ self |
866 ! |
878 ! |
867 |
879 |
868 dropClassFiles:files |
880 dropClassFiles:files |
869 files do:[:fn | |
881 files do:[:fn | |
870 (Dialog confirm:(resources string:'FileIn %1 ?' with:fn baseName allBold)) ifTrue:[ |
882 (Dialog confirm:(resources string:'FileIn %1 ?' with:fn baseName allBold)) ifTrue:[ |
871 Smalltalk fileIn:fn logged:true. |
883 environment fileIn:fn logged:true. |
872 ] |
884 ] |
873 ]. |
885 ]. |
874 |
886 |
875 "Created: / 17-10-2006 / 18:24:36 / cg" |
887 "Created: / 17-10-2006 / 18:24:36 / cg" |
876 ! |
888 ! |
1876 ! ! |
1888 ! ! |
1877 |
1889 |
1878 !BrowserList class methodsFor:'documentation'! |
1890 !BrowserList class methodsFor:'documentation'! |
1879 |
1891 |
1880 version |
1892 version |
1881 ^ '$Id: Tools__BrowserList.st 8086 2013-01-15 12:03:21Z vranyj1 $' |
1893 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.58 2013-09-05 10:46:11 vrany Exp $' |
1882 ! |
1894 ! |
1883 |
1895 |
1884 version_CVS |
1896 version_CVS |
1885 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.57 2013/03/22 11:36:34 cg Exp $' |
1897 ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.58 2013-09-05 10:46:11 vrany Exp $' |
1886 ! |
1898 ! |
1887 |
1899 |
1888 version_HG |
1900 version_HG |
1889 |
1901 |
1890 ^ '$Changeset: <not expanded> $' |
1902 ^ '$Changeset: <not expanded> $' |