--- a/AbstractLauncherApplication.st Fri Jun 25 16:55:03 1999 +0200
+++ b/AbstractLauncherApplication.st Fri Jun 25 17:51:04 1999 +0200
@@ -3014,22 +3014,22 @@
resources := requestor class classResources.
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 size == 0) 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';
@@ -3053,12 +3053,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) , '.'.
@@ -3095,17 +3095,17 @@
nextPutLine:'ObjectMemory fullSingleStepSupport: ' , (ObjectMemory fullSingleStepSupport storeString) , '.'.
HistoryManager notNil ifTrue:[
- HistoryManager isActive ifTrue:[
- s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager activate].'.
- s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager fullHistoryUpdate:' , HistoryManager fullHistoryUpdate storeString , '].'.
- ] ifFalse:[
- s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager deactivate].'.
- ].
+ HistoryManager isActive ifTrue:[
+ s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager activate].'.
+ s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager fullHistoryUpdate:' , HistoryManager fullHistoryUpdate storeString , '].'.
+ ] ifFalse:[
+ s nextPutLine:'HistoryManager notNil ifTrue:[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) , '.'.
@@ -3128,6 +3128,9 @@
s nextPutLine:'EditTextView st80Mode: ' , (EditTextView st80Mode storeString) , '.'.
s nextPutLine:'TextView st80SelectMode: ' , (TextView st80SelectMode storeString) , '.'.
s nextPutLine:'UserPreferences current syntaxColoring: ' , (UserPreferences current syntaxColoring storeString) , '.'.
+ UserPreferences current keysAndValuesDo:[:k :v |
+ s nextPutLine:'UserPreferences current at:' , k storeString , ' put:' , v storeString.
+ ].
s cr.
s nextPutLine:'"/'.
@@ -3157,13 +3160,13 @@
nextPutLine:'MenuView showAcceleratorKeys: ' , (MenuView showAcceleratorKeys storeString) , '.';
nextPutLine:'Class tryLocalSourceFirst: ' , (Class tryLocalSourceFirst storeString) , '.'.
(Exception emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[
- s nextPutLine:'Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler).'.
+ s nextPutLine:'Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler).'.
].
Processor isTimeSlicing ifTrue:[
- s nextPutLine:'Processor startTimeSlicing.'.
- s nextPutLine:('Processor supportDynamicPriorities:' , (Processor supportDynamicPriorities ? false) storeString , '.').
+ s nextPutLine:'Processor startTimeSlicing.'.
+ s nextPutLine:('Processor supportDynamicPriorities:' , (Processor supportDynamicPriorities ? false) storeString , '.').
] ifFalse:[
- s nextPutLine:'Processor stopTimeSlicing.'.
+ s nextPutLine:'Processor stopTimeSlicing.'.
].
s cr.
@@ -3174,17 +3177,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.
@@ -4551,5 +4554,5 @@
!AbstractLauncherApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.38 1999-06-25 14:55:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.39 1999-06-25 15:51:04 cg Exp $'
! !