--- a/Launcher.st Sat Jun 07 13:45:31 1997 +0200
+++ b/Launcher.st Mon Jun 09 21:23:58 1997 +0200
@@ -2433,26 +2433,27 @@
|s screen fileName|
fileName := Dialog
- requestFileName:(resources string:'save settings in:')
- default:'settings.stx'
- ok:(resources string:'save')
- abort:(resources string:'cancel')
- pattern:'*.stx'
- fromDirectory:nil.
+ requestFileName:(resources string:'save settings in:')
+ default:'settings.stx'
+ ok:(resources string:'save')
+ abort:(resources string:'cancel')
+ pattern:'*.stx'
+ fromDirectory:nil.
(fileName isNil or:[fileName isEmpty]) ifTrue:[
- "/ canceled
- ^ self
+ "/ canceled
+ ^ self
].
s := fileName asFilename writeStream.
s isNil ifTrue:[
- self warn:'cannot write the ''' , fileName , ''' file'.
- ^ self
+ self warn:'cannot write the ''' , fileName , ''' file'.
+ ^ self
].
s nextPutLine:'"/ ST/X saved settings';
nextPutLine:'"/ DO NOT MODIFY MANUALLY';
+ nextPutLine:'"/ (modifications would be lost with next save-settings)';
nextPutLine:'"/';
nextPutLine:'"/ this file was automatically generated by the';
nextPutLine:'"/ ''save settings'' function of the Launcher';
@@ -2471,12 +2472,12 @@
s nextPutLine:'Display displayName = ' , (Display displayName storeString) , ' ifTrue:['.
screen := Screen current.
screen fixColors notNil ifTrue:[
- s nextPutLine:' Image flushDeviceImages.'.
- s nextPutLine:' Color colorAllocationFailSignal catch:['.
- s nextPutLine:' Color getColorsRed:6 green:6 blue:4 on:Display'.
- s nextPutLine:' ].'.
+ s nextPutLine:' Image flushDeviceImages.'.
+ s nextPutLine:' Color colorAllocationFailSignal catch:['.
+ s nextPutLine:' Color getColorsRed:6 green:6 blue:4 on:Display'.
+ s nextPutLine:' ].'.
] ifFalse:[
- s nextPutLine:' Display releaseFixColors.'.
+ s nextPutLine:' Display releaseFixColors.'.
].
s nextPutLine:' Display hasColors: ' , (screen hasColors storeString) , '.'.
s nextPutLine:' Display widthInMillimeter: ' , (screen widthInMillimeter storeString) , '.'.
@@ -2494,6 +2495,7 @@
nextPutLine:'Compiler warnUnderscoreInIdentifier: ' , (Compiler warnUnderscoreInIdentifier storeString) , '.';
nextPutLine:'Compiler warnOldStyleAssignment: ' , (Compiler warnOldStyleAssignment storeString) , '.';
nextPutLine:'Compiler warnCommonMistakes: ' , (Compiler warnCommonMistakes storeString) , '.';
+ nextPutLine:'Compiler warnPossibleIncompatibilities: ' , (Compiler warnPossibleIncompatibilities storeString) , '.';
nextPutLine:'Compiler allowUnderscoreInIdentifier: ' , (Compiler allowUnderscoreInIdentifier storeString) , '.';
nextPutLine:'Compiler arraysAreImmutable: ' , (Compiler arraysAreImmutable storeString) , '.';
nextPutLine:'Compiler lineNumberInfo: ' , (Compiler lineNumberInfo storeString) , '.';
@@ -2510,14 +2512,14 @@
nextPutLine:'ObjectMemory fullSingleStepSupport: ' , (ObjectMemory fullSingleStepSupport storeString) , '.'.
HistoryManager isActive ifTrue:[
- s nextPutLine:'HistoryManager activate.'.
+ s nextPutLine:'HistoryManager activate.'.
] ifFalse:[
- s nextPutLine:'HistoryManager deactivate.'.
+ s nextPutLine:'HistoryManager deactivate.'.
].
ObjectFileLoader notNil ifTrue:[
- s nextPutLine:'ObjectFileLoader searchedLibraries: ' , (ObjectFileLoader searchedLibraries storeString) , '.'.
- s nextPutLine:'ObjectFileLoader libPath: ' , (ObjectFileLoader libPath storeString) , '.'.
+ s nextPutLine:'ObjectFileLoader searchedLibraries: ' , (ObjectFileLoader searchedLibraries storeString) , '.'.
+ s nextPutLine:'ObjectFileLoader libPath: ' , (ObjectFileLoader libPath storeString) , '.'.
].
s nextPutLine:'Class catchMethodRedefinitions: ' , (Class catchMethodRedefinitions storeString) , '.'.
@@ -2552,7 +2554,7 @@
nextPutLine:'MenuView showAcceleratorKeys: ' , (MenuView showAcceleratorKeys storeString) , '.';
nextPutLine:'Class tryLocalSourceFirst: ' , (Class tryLocalSourceFirst storeString) , '.'.
(Exception emergencyHandler == Launcher notifyingEmergencyHandler) ifTrue:[
- s nextPutLine:'Exception emergencyHandler:(Launcher notifyingEmergencyHandler).'.
+ s nextPutLine:'Exception emergencyHandler:(Launcher notifyingEmergencyHandler).'.
].
s cr.
@@ -2563,17 +2565,17 @@
nextPutLine:'Printer printCommand: ' , (Printer printCommand storeString) , '.'.
Printer supportsPageSizes ifTrue:[
- s nextPutLine:'Printer pageFormat: ' , (Printer pageFormat storeString) , '.'.
- s nextPutLine:'Printer landscape: ' , (Printer landscape storeString) , '.'.
+ s nextPutLine:'Printer pageFormat: ' , (Printer pageFormat storeString) , '.'.
+ s nextPutLine:'Printer landscape: ' , (Printer landscape storeString) , '.'.
].
Printer supportsMargins ifTrue:[
- s nextPutLine:'Printer topMargin: ' , (Printer topMargin storeString) , '.'.
- s nextPutLine:'Printer leftMargin: ' , (Printer leftMargin storeString) , '.'.
- s nextPutLine:'Printer rightMargin: ' , (Printer rightMargin storeString) , '.'.
- s nextPutLine:'Printer bottomMargin: ' , (Printer bottomMargin storeString) , '.'.
+ s nextPutLine:'Printer topMargin: ' , (Printer topMargin storeString) , '.'.
+ s nextPutLine:'Printer leftMargin: ' , (Printer leftMargin storeString) , '.'.
+ s nextPutLine:'Printer rightMargin: ' , (Printer rightMargin storeString) , '.'.
+ s nextPutLine:'Printer bottomMargin: ' , (Printer bottomMargin storeString) , '.'.
].
Printer supportsPostscript ifTrue:[
- s nextPutLine:'Printer supportsColor: ' , (Printer supportsColor storeString) , '.'.
+ s nextPutLine:'Printer supportsColor: ' , (Printer supportsColor storeString) , '.'.
].
s cr.
@@ -2603,7 +2605,7 @@
Transcript topView application saveSettings
"
- "Modified: 8.1.1997 / 14:54:00 / cg"
+ "Modified: 9.6.1997 / 21:23:34 / cg"
!
sourceAndDebuggerSettings
@@ -4718,5 +4720,5 @@
!Launcher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.271 1997-05-23 11:46:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.272 1997-06-09 19:23:58 cg Exp $'
! !