--- 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 $'
! !