--- a/AbstractLauncherApplication.st Thu Feb 13 11:54:17 2003 +0100
+++ b/AbstractLauncherApplication.st Thu Feb 13 12:20:36 2003 +0100
@@ -4067,281 +4067,7 @@
!
saveSettings
- "save settings to a settings-file."
-
- "a temporary kludge - we need a central systemSettings object for this,
- which can be saved/restored with a single store/read.
- Will move entries over to UserPreferences over time;
- new items should always go there."
-
- |fileName resources|
-
- resources := self owningClass classResources.
-
- fileName := Dialog
- requestFileName:(resources string:'Save settings in:')
- default:'settings.stx'
- ok:(resources string:'Save')
- abort:(resources string:'Cancel')
- pattern:'*.stx'
- fromDirectory:'.'.
-
- fileName size ~~ 0 ifTrue:[
- "not canceled"
- self saveSettingsIn:fileName.
- ]
-!
-
-saveSettingsIn:fileName
- "save settings to a settings-file."
-
- "a temporary kludge - we need a central systemSettings object for this,
- which can be saved/restored with a single store/read.
- Will move entries over to UserPreferences over time;
- new items should always go there."
-
- |resources s screen currentUserPrefs|
-
- resources := self owningClass classResources.
-
- s := fileName asFilename writeStream.
- s isNil ifTrue:[
- self warn:(resources string:'Cannot write the %1 file !!' with:fileName).
- ^ self
- ].
-
- currentUserPrefs := UserPreferences current.
- screen := Screen current.
-
- 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';
- nextPutLine:'"/'.
- s cr.
-
- s nextPutLine:'"/'.
- s nextPutLine:'"/ saved by ' , OperatingSystem getLoginName , '@' , OperatingSystem getHostName , ' at ' , AbsoluteTime now printString.
- s nextPutLine:'"/'.
- s cr.
-
- s nextPutLine:'"/'.
- s nextPutLine:'"/ Display settings:'.
- s nextPutLine:'"/'.
- s nextPutLine:'"/ only restore the display settings, if on the same Display ...'.
- s nextPutLine:'Display notNil ifTrue:['.
- s nextPutLine:' Display displayName = ' , (screen displayName storeString) , ' ifTrue:['.
- 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:' ].'.
- ] ifFalse:[
- s nextPutLine:' Display releaseFixColors.'.
- ].
- s nextPutLine:' Display hasColors: ' , (screen hasColors storeString) , '.'.
- s nextPutLine:' Display widthInMillimeter: ' , (screen widthInMillimeter storeString) , '.'.
- s nextPutLine:' Display heightInMillimeter: ' , (screen heightInMillimeter storeString) , '.'.
- s nextPutLine:' Display supportsDeepIcons: ' , (screen supportsDeepIcons storeString) , '.'.
- s nextPutLine:' Image ditherAlgorithm: ' , (Image ditherAlgorithm storeString) , '.'.
- s nextPutLine:' View defaultStyle:' , View defaultStyle storeString , '.'.
- s nextPutLine:' ].'.
- s nextPutLine:'].'.
- s cr.
-
- s nextPutLine:'"/'.
- s nextPutLine:'"/ Compiler settings:'.
- s nextPutLine:'"/'.
- s nextPutLine:'Compiler warnSTXSpecials: ' , (Compiler warnSTXSpecials storeString) , '.';
- 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 allowSqueakExtensions: ' , (Compiler allowSqueakExtensions storeString) , '.';
- nextPutLine:'Compiler allowDolphinExtensions: ' , (Compiler allowDolphinExtensions storeString) , '.';
- nextPutLine:'Compiler arraysAreImmutable: ' , (Compiler arraysAreImmutable storeString) , '.';
- nextPutLine:'Compiler lineNumberInfo: ' , (Compiler lineNumberInfo storeString) , '.';
-
- nextPutLine:'Compiler foldConstants: ' , (Compiler foldConstants storeString) , '.';
- nextPutLine:'Compiler stcCompilation: ' , (Compiler stcCompilation storeString) , '.';
- nextPutLine:'OperatingSystem getOSType = ' , (OperatingSystem getOSType storeString) , ' ifTrue:[';
- nextPutLine:' Compiler stcCompilationIncludes: ' , (Compiler stcCompilationIncludes storeString) , '.';
- nextPutLine:' Compiler stcCompilationDefines: ' , (Compiler stcCompilationDefines storeString) , '.';
- nextPutLine:' Compiler stcCompilationOptions: ' , (Compiler stcCompilationOptions storeString) , '.';
- nextPutLine:' ' , (Compiler stcModulePath storeString) , ' asFilename exists ifTrue:[';
- nextPutLine:' Compiler stcModulePath: ' , (Compiler stcModulePath storeString) , '.';
- nextPutLine:' ].';
- nextPutLine:' Compiler stcPath: ' , (Compiler stcPath storeString) , '.';
- nextPutLine:' Compiler ccCompilationOptions: ' , (Compiler ccCompilationOptions storeString) , '.';
- nextPutLine:' Compiler ccPath: ' , (Compiler ccPath storeString) , '.';
- nextPutLine:' ObjectFileLoader linkArgs: ' , (ObjectFileLoader linkArgs storeString) , '.';
- nextPutLine:' ObjectFileLoader linkCommand: ' , (ObjectFileLoader linkCommand storeString) , '.';
- nextPutLine:' ObjectFileLoader libPath: ' , (ObjectFileLoader libPath storeString) , '.';
- nextPutLine:' ObjectFileLoader searchedLibraries: ' , (ObjectFileLoader searchedLibraries storeString) , '.';
- nextPutLine:'].';
-
- nextPutLine:'ObjectMemory justInTimeCompilation: ' , (ObjectMemory justInTimeCompilation storeString) , '.';
- 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].'.
- ].
- ].
-
- ObjectFileLoader notNil ifTrue:[
- s nextPutLine:'ObjectFileLoader searchedLibraries: ' , (ObjectFileLoader searchedLibraries storeString) , '.'.
- s nextPutLine:'ObjectFileLoader libPath: ' , (ObjectFileLoader libPath storeString) , '.'.
- ].
-
- s nextPutLine:'Class catchMethodRedefinitions: ' , (Class catchMethodRedefinitions storeString) , '.'.
- s nextPutLine:'ClassCategoryReader sourceMode: ' , (ClassCategoryReader sourceMode storeString) , '.'.
-
- s cr.
- s nextPutLine:'"/'.
- s nextPutLine:'"/ Info & Debug Messages:'.
- s nextPutLine:'"/'.
- s nextPutLine:'ObjectMemory infoPrinting: ' , (ObjectMemory infoPrinting storeString) , '.';
- nextPutLine:'ObjectMemory debugPrinting: ' , (ObjectMemory debugPrinting storeString) , '.';
- nextPutLine:'Object infoPrinting: ' , (Object infoPrinting storeString) , '.';
- nextPutLine:'DeviceWorkstation errorPrinting: ' , (DeviceWorkstation errorPrinting storeString) , '.'.
-
- FlyByHelp isActive ifTrue:[
- s nextPutLine:'FlyByHelp start.'
- ].
-
- s cr.
- s nextPutLine:'"/'.
- s nextPutLine:'"/ Edit settings:'.
- s nextPutLine:'"/'.
- "/ s nextPutLine:'EditTextView st80Mode: ' , (EditTextView st80Mode storeString) , '.'.
- s nextPutLine:'TextView st80SelectMode: ' , (TextView st80SelectMode storeString) , '.'.
- s nextPutLine:'UserPreferences current syntaxColoring: ' , (currentUserPrefs syntaxColoring storeString) , '.'.
- (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
- s nextPutLine:'ListView userDefaultTabPositions:(ListView tab4Positions).'.
- ] ifFalse:[
- s nextPutLine:'ListView userDefaultTabPositions:(ListView tab8Positions).'.
- ].
-
- s nextPutLine:'"/'.
- s nextPutLine:'"/ User preference values:'.
- s nextPutLine:'"/'.
- currentUserPrefs keysAndValuesDo:[:k :v |
- (UserPreferences includesSelector:(k , ':') asSymbol) ifTrue:[
- s nextPutLine:'UserPreferences current ' , k , ':' , v storeString , '.'.
- ] ifFalse:[
- s nextPutLine:'UserPreferences current at:' , k storeString , ' put:' , v storeString , '.'.
- ]
- ].
-
- s cr.
- s nextPutLine:'"/'.
- s nextPutLine:'"/ Misc settings:'.
- s nextPutLine:'"/'.
- s nextPutLine:'Class keepMethodHistory: ' , (Class methodHistory notNil storeString) , '.';
- nextPutLine:'Smalltalk logDoits: ' , (Smalltalk logDoits storeString) , '.';
- nextPutLine:'Autoload compileLazy: ' , (Autoload compileLazy storeString) , '.';
- nextPutLine:'Smalltalk loadBinaries: ' , (Smalltalk loadBinaries storeString) , '.';
- nextPutLine:'StandardSystemView includeHostNameInLabel: ' , (StandardSystemView includeHostNameInLabel storeString) , '.';
-
- "/ claus - I dont think its a good idea to save those ...
- nextPutLine:'"/ Class updateChanges: ' , (Class updatingChanges storeString) , '.';
- nextPutLine:'"/ ObjectMemory nameForChanges: ' , (ObjectMemory nameForChanges storeString) , '.';
-
- nextPutLine:'StandardSystemView returnFocusWhenClosingModalBoxes: ' , (StandardSystemView returnFocusWhenClosingModalBoxes storeString) , '.';
- nextPutLine:'StandardSystemView takeFocusWhenMapped: ' , (StandardSystemView takeFocusWhenMapped storeString) , '.';
- nextPutLine:'Display notNil ifTrue:[';
- nextPutLine:' Display activateOnClick: ' , ((screen activateOnClick:nil) storeString) , '.';
- nextPutLine:'].';
- nextPutLine:'MenuView showAcceleratorKeys: ' , (MenuView showAcceleratorKeys storeString) , '.';
- nextPutLine:'Class tryLocalSourceFirst: ' , (Class tryLocalSourceFirst storeString) , '.'.
- (Exception emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[
- s nextPutLine:'Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler).'.
- ].
- Processor isTimeSlicing ifTrue:[
- s nextPutLine:'Processor startTimeSlicing.'.
- s nextPutLine:('Processor supportDynamicPriorities:' , (Processor supportDynamicPriorities ? false) storeString , '.').
- ] ifFalse:[
- s nextPutLine:'Processor stopTimeSlicing.'.
- ].
-
- s cr.
- s nextPutLine:'"/'.
- s nextPutLine:'"/ Printer settings:'.
- s nextPutLine:'"/'.
- s nextPutLine:'Printer := ' , (Printer name) , '.';
- nextPutLine:'Printer printCommand: ' , (Printer printCommand storeString) , '.'.
-
- Printer supportsPageSizes ifTrue:[
- 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) , '.'.
- ].
- Printer supportsPostscript ifTrue:[
- s nextPutLine:'Printer supportsColor: ' , (Printer supportsColor storeString) , '.'.
- ].
-
- s cr.
- s nextPutLine:'"/'.
- s nextPutLine:'"/ Font settings:'.
- s nextPutLine:'"/ (only restored, if image is restarted on the same display)'.
- s nextPutLine:'"/'.
- s nextPutLine:'Display notNil ifTrue:['.
- s nextPutLine:' Display displayName = ' , (screen displayName storeString) , ' ifTrue:['.
- s nextPutLine:' View defaultFont: ' , (View defaultFont storeString) , '.'.
- s nextPutLine:' Label defaultFont: ' , (Label defaultFont storeString) , '.'.
- s nextPutLine:' Button defaultFont: ' , (Button defaultFont storeString) , '.'.
- s nextPutLine:' Toggle defaultFont: ' , (Toggle defaultFont storeString) , '.'.
- s nextPutLine:' SelectionInListView defaultFont: ' , (SelectionInListView defaultFont storeString) , '.'.
- s nextPutLine:' MenuView defaultFont: ' , (MenuView defaultFont storeString) , '.'.
- s nextPutLine:' PullDownMenu defaultFont: ' , (PullDownMenu defaultFont storeString) , '.'.
- s nextPutLine:' TextView defaultFont: ' , (TextView defaultFont storeString) , '.'.
- s nextPutLine:' EditTextView defaultFont: ' , (EditTextView defaultFont storeString) , '.'.
- s nextPutLine:' CodeView defaultFont: ' , (CodeView defaultFont storeString) , '.'.
- s nextPutLine:' ].'.
- s nextPutLine:'].'.
-
- s cr.
- s nextPutLine:'"/'.
- s nextPutLine:'"/ Language setting:'.
- s nextPutLine:'"/'.
- s nextPutLine:'Smalltalk language: ' , (Smalltalk language storeString) , '.'.
- s nextPutLine:'Smalltalk languageTerritory: ' , (Smalltalk languageTerritory storeString) , '.'.
-
- s cr.
- s nextPutLine:'"/'.
- s nextPutLine:'"/ SourceCodeManager settings:'.
- s nextPutLine:'"/ (only restored, if image is restarted on the same host)'.
- s nextPutLine:'"/'.
- s nextPutLine:'OperatingSystem getHostName = ' , (OperatingSystem getHostName storeString) , ' ifTrue:['.
- s nextPutLine:' Class tryLocalSourceFirst:' , Class tryLocalSourceFirst storeString , '.'.
- (Smalltalk at:#SourceCodeManager) == CVSSourceCodeManager ifTrue:[
- s nextPutLine:' Smalltalk at:#SourceCodeManager put: CVSSourceCodeManager.'.
- s nextPutLine:' AbstractSourceCodeManager cacheDirectoryName:' , AbstractSourceCodeManager cacheDirectoryName storeString , '.'.
- s nextPutLine:' CVSSourceCodeManager cvsBinDirectory:' , CVSSourceCodeManager cvsBinDirectory storeString , '.'.
- s nextPutLine:' CVSSourceCodeManager repositoryNamesPerModule:' , CVSSourceCodeManager repositoryNamesPerModule storeString , '.'.
- s nextPutLine:' CVSSourceCodeManager initializeForRepository:' , CVSSourceCodeManager repositoryName storeString , '.'.
- ].
- s nextPutLine:'].'.
-
- s close.
-
- "
- Transcript topView application saveSettings
- "
-
- "Modified: / 6.1.1999 / 14:24:16 / cg"
+ SettingsDialog saveSettingsIntoFile.
!
sourceAndDebuggerSettings
@@ -6694,5 +6420,5 @@
!AbstractLauncherApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.259 2003-01-31 09:27:10 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.260 2003-02-13 11:20:36 cg Exp $'
! !