--- a/Launcher.st	Tue Jan 23 17:37:18 1996 +0100
+++ b/Launcher.st	Wed Jan 24 20:48:35 1996 +0100
@@ -932,7 +932,8 @@
 
 miscSettings
     |box check logDoits shadows updChanges changeFileName returnFocus
-     loadBinaries compileLazy hostNameInLabel useManager y component|
+     loadBinaries compileLazy hostNameInLabel useManager localSourceFirst 
+     y component localCheck|
 
     "/
     "/ extract relevant system settings ...
@@ -944,6 +945,7 @@
     updChanges := Class updatingChanges asValue.
     changeFileName := ObjectMemory nameForChanges asValue.
     useManager := (Smalltalk at:#SourceCodeManager) notNil asValue.
+    localSourceFirst := Class tryLocalSourceFirst asValue.
 
     loadBinaries := Smalltalk loadBinaries asValue.
     compileLazy := Autoload compileLazy asValue.
@@ -969,16 +971,24 @@
     box addCheckBox:(resources string:'lazy compilation when autoloading') on:compileLazy.
     check := box addCheckBox:(resources string:'if present, load binary objects when autoloading') on:loadBinaries.
     ObjectFileLoader isNil ifTrue:[
-        loadBinaries value:false.
-        check disable
+	loadBinaries value:false.
+	check disable
     ].
 
     check := box addCheckBox:(resources string:'sourcecode from sourcecode management') on:useManager.
+    box leftIndent:30.
+    localCheck := box addCheckBox:(resources string:'if present, use local source (suppress checkout)') on:localSourceFirst.
+    box leftIndent:0.
+    localCheck enableChannel:useManager.
+
     (AbstractSourceCodeManager isNil 
     or:[AbstractSourceCodeManager defaultManager isNil]) ifTrue:[
-        useManager value:false.
-        check disable
+	useManager value:false.
+	check disable.
+	localCheck value:true.
+"/        localCheck disable
     ].
+
     box addHorizontalLine.
 
     box addCheckBox:(resources string:'shadows under popup views') on:shadows.
@@ -996,26 +1006,27 @@
     "/ update system settings
     "/
     box accepted ifTrue:[
-        Smalltalk logDoits:logDoits value.
-        PopUpView shadows:shadows value.
-        Class updateChanges:updChanges value.
-        Autoload compileLazy:compileLazy value.
-        Smalltalk loadBinaries:loadBinaries value.
-        StandardSystemView includeHostNameInLabel:hostNameInLabel value.
-        ObjectMemory nameForChanges:changeFileName value.
-        Dialog returnFocusWhenClosingModalBoxes:returnFocus value.
+	Smalltalk logDoits:logDoits value.
+	PopUpView shadows:shadows value.
+	Class updateChanges:updChanges value.
+	Autoload compileLazy:compileLazy value.
+	Smalltalk loadBinaries:loadBinaries value.
+	StandardSystemView includeHostNameInLabel:hostNameInLabel value.
+	ObjectMemory nameForChanges:changeFileName value.
+	Dialog returnFocusWhenClosingModalBoxes:returnFocus value.
 
-        useManager value ifTrue:[
-            (Smalltalk at:#SourceCodeManager) isNil ifTrue:[
-                Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager)
-            ]
-        ] ifFalse:[
-            Smalltalk at:#SourceCodeManager put:nil
-        ]
+	useManager value ifTrue:[
+	    (Smalltalk at:#SourceCodeManager) isNil ifTrue:[
+		Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager)
+	    ].
+	    Class tryLocalSourceFirst:(localSourceFirst value).
+	] ifFalse:[
+	    Smalltalk at:#SourceCodeManager put:nil
+	]
     ].
     box destroy
 
-    "Modified: 7.12.1995 / 20:05:23 / cg"
+    "Modified: 24.1.1996 / 20:19:14 / cg"
 !
 
 viewStyleSetting 
@@ -1973,5 +1984,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.71 1996-01-10 15:06:04 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.72 1996-01-24 19:48:35 cg Exp $'
 ! !