equal
deleted
inserted
replaced
893 |
893 |
894 changedObject == environmentHolder ifTrue:[ |
894 changedObject == environmentHolder ifTrue:[ |
895 self environmentChanged. |
895 self environmentChanged. |
896 ^ self. |
896 ^ self. |
897 ]. |
897 ]. |
|
898 (changedObject == Smalltalk) ifTrue:[ |
|
899 something == #preLoad ifTrue:[ |
|
900 loadInProgress := true. |
|
901 ^ self. |
|
902 ]. |
|
903 something == #postLoad ifTrue:[ |
|
904 "/ must check, as it could be nested... |
|
905 LoadInProgressQuery query ifFalse:[ |
|
906 loadInProgress := false. |
|
907 ]. |
|
908 ^ self. |
|
909 ]. |
|
910 ]. |
898 |
911 |
899 (NewSystemBrowser synchronousUpdate == true |
912 (NewSystemBrowser synchronousUpdate == true |
900 or:[ immediateUpdate value == true ]) |
913 or:[ immediateUpdate value == true ]) |
901 ifTrue:[ |
914 ifTrue:[ |
902 self delayedUpdate:something with:aParameter from:changedObject. |
915 self delayedUpdate:something with:aParameter from:changedObject. |
2088 ! ! |
2101 ! ! |
2089 |
2102 |
2090 !BrowserList class methodsFor:'documentation'! |
2103 !BrowserList class methodsFor:'documentation'! |
2091 |
2104 |
2092 version |
2105 version |
2093 ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.79 2015-02-01 14:12:49 cg Exp $' |
2106 ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.80 2015-02-07 17:48:00 cg Exp $' |
2094 ! |
2107 ! |
2095 |
2108 |
2096 version_CVS |
2109 version_CVS |
2097 ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.79 2015-02-01 14:12:49 cg Exp $' |
2110 ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.80 2015-02-07 17:48:00 cg Exp $' |
2098 ! ! |
2111 ! ! |
2099 |
2112 |