checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 15 Aug 2000 16:53:34 +0200
changeset 2703 ea75f41902bd
parent 2702 4d64b70cf90c
child 2704 b67887517cf9
checkin from browser
AbstractLauncherApplication.st
--- a/AbstractLauncherApplication.st	Tue Aug 15 16:50:59 2000 +0200
+++ b/AbstractLauncherApplication.st	Tue Aug 15 16:53:34 2000 +0200
@@ -3964,7 +3964,7 @@
 
     |box resources currentUserPrefs in acceptChannel
      useNewInspector useNewChangesBrowser useNewSystemBrowser useNewVersionDiffBrowser
-     showClockInLauncher showClock launcher transcriptBufferSize|
+     showClockInLauncher showClock launcher transcriptBufferSize useNew|
 
     currentUserPrefs := UserPreferences current.
 
@@ -4024,7 +4024,12 @@
 
         currentUserPrefs useNewInspector:useNewInspector value.
         currentUserPrefs useNewChangesBrowser:useNewChangesBrowser value.
-        currentUserPrefs useNewSystemBrowser:useNewSystemBrowser value.
+        currentUserPrefs useNewSystemBrowser:(useNew := useNewSystemBrowser value).
+        useNew ifTrue:[
+            NewSystemBrowser isLoaded ifFalse:[
+                NewSystemBrowser autoload
+            ]
+        ].
         currentUserPrefs useNewVersionDiffBrowser:useNewVersionDiffBrowser value.
 
         showClock := showClockInLauncher value.
@@ -5501,5 +5506,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.106 2000-08-15 14:12:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.107 2000-08-15 14:53:34 cg Exp $'
 ! !