--- a/Launcher.st Mon Dec 04 00:53:18 1995 +0100
+++ b/Launcher.st Mon Dec 04 01:12:03 1995 +0100
@@ -600,20 +600,20 @@
warnEnabler := Plug new.
warnEnabler
- respondTo:#check
- with:[warnings value ifTrue:[
- warnSTXBox enable.
- warnOldStyleBox enable.
- allowUnderscore value ifTrue:[
- warnUnderscoreBox enable.
- ] ifFalse:[
- warnUnderscoreBox disable.
- ].
- ] ifFalse:[
- warnSTXBox disable.
- warnUnderscoreBox disable.
- warnOldStyleBox disable.
- ]].
+ respondTo:#check
+ with:[warnings value ifTrue:[
+ warnSTXBox enable.
+ warnOldStyleBox enable.
+ allowUnderscore value ifTrue:[
+ warnUnderscoreBox enable.
+ ] ifFalse:[
+ warnUnderscoreBox disable.
+ ].
+ ] ifFalse:[
+ warnSTXBox disable.
+ warnUnderscoreBox disable.
+ warnOldStyleBox disable.
+ ]].
warnings onChangeSend:#check to:warnEnabler.
allowUnderscore onChangeSend:#check to:warnEnabler.
@@ -632,7 +632,7 @@
y := box yPosition.
component := box addTextLabel:(resources string:'stc include directories:').
- component width:0.5; adjust:#right.
+ component width:0.5; adjust:#right; borderWidth:0.
box yPosition:y.
component := box addInputFieldOn:stcIncludes tabable:true.
component width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
@@ -640,7 +640,7 @@
box addVerticalSpace.
y := box yPosition.
component := box addTextLabel:'stc defines:'.
- component width:0.5; adjust:#right.
+ component width:0.5; adjust:#right; borderWidth:0.
box yPosition:y.
component := box addInputFieldOn:stcDefines tabable:true.
component width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
@@ -648,7 +648,7 @@
box addVerticalSpace.
y := box yPosition.
component := box addTextLabel:'stc options:'.
- component width:0.5; adjust:#right.
+ component width:0.5; adjust:#right; borderWidth:0.
box yPosition:y.
component := box addInputFieldOn:stcOptions tabable:true.
component width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
@@ -656,7 +656,7 @@
box addVerticalSpace.
y := box yPosition.
component := box addTextLabel:'stc C-libraries:'.
- component width:0.5; adjust:#right.
+ component width:0.5; adjust:#right; borderWidth:0.
box yPosition:y.
component := box addInputFieldOn:stcLibraries tabable:true.
component width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
@@ -667,8 +667,8 @@
"/ if there is no compiler around,
"/ change to compile nothing, and disable the checkBoxes
Compiler canCreateMachineCode ifFalse:[
- stcCompilation selectionIndex:3.
- compilationList disable.
+ stcCompilation selectionIndex:3.
+ compilationList disable.
].
box addCheckBox:(resources string:'allow underscore in identifiers') on:allowUnderscore.
@@ -693,28 +693,29 @@
box showAtPointer.
box accepted ifTrue:[
- HistoryManager notNil ifTrue:[
- historyLines value ifTrue:[
- HistoryManager activate
- ] ifFalse:[
- HistoryManager deactivate
- ].
- ].
- Class catchMethodRedefinitions:catchRedefs value.
- Compiler warnings:warnings value.
- Compiler warnSTXSpecials:warnSTX value.
- Compiler warnOldStyleAssignment:warnOldStyle value.
- Compiler warnUnderscoreInIdentifier:warnUnderscore value.
- Compiler allowUnderscoreInIdentifier:allowUnderscore value.
- Compiler arraysAreImmutable:immutableArrays value.
- Compiler stcCompilation:(stcCompilationOptions at:stcCompilation selectionIndex).
- Compiler stcCompilationIncludes:stcIncludes value.
- Compiler stcCompilationDefines:stcDefines value.
- Compiler stcCompilationOptions:stcOptions value.
- ObjectFileLoader searchedLibraries:(stcLibraries value asCollectionOfWords).
+ HistoryManager notNil ifTrue:[
+ historyLines value ifTrue:[
+ HistoryManager activate
+ ] ifFalse:[
+ HistoryManager deactivate
+ ].
+ ].
+ Class catchMethodRedefinitions:catchRedefs value.
+ Compiler warnings:warnings value.
+ Compiler warnSTXSpecials:warnSTX value.
+ Compiler warnOldStyleAssignment:warnOldStyle value.
+ Compiler warnUnderscoreInIdentifier:warnUnderscore value.
+ Compiler allowUnderscoreInIdentifier:allowUnderscore value.
+ Compiler arraysAreImmutable:immutableArrays value.
+ Compiler stcCompilation:(stcCompilationOptions at:stcCompilation selectionIndex).
+ Compiler stcCompilationIncludes:stcIncludes value.
+ Compiler stcCompilationDefines:stcDefines value.
+ Compiler stcCompilationOptions:stcOptions value.
+ ObjectFileLoader searchedLibraries:(stcLibraries value asCollectionOfWords).
]
"Modified: 10.9.1995 / 19:19:18 / claus"
+ "Modified: 4.12.1995 / 01:11:23 / cg"
!
keyboardSetting
@@ -925,7 +926,7 @@
box addCheckBox:(resources string:'log doIts in changes file') on:logDoits.
y := box yPosition.
component := box addTextLabel:(resources string:'change file:').
- component width:0.5; adjust:#right.
+ component width:0.5; adjust:#right; borderWidth:0.
box yPosition:y.
component := box addInputFieldOn:changeFileName tabable:true.
component width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false.
@@ -935,8 +936,8 @@
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
].
box addHorizontalLine.
@@ -947,16 +948,16 @@
box showAtPointer.
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.
+ 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.
]
- "Modified: 11.11.1995 / 15:02:05 / cg"
+ "Modified: 4.12.1995 / 01:10:49 / cg"
!
viewStyleSetting
@@ -1902,5 +1903,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.55 1995-12-03 23:53:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.56 1995-12-04 00:12:03 cg Exp $'
! !