--- a/UserPreferences.st Mon Sep 21 12:47:36 2009 +0200
+++ b/UserPreferences.st Mon Sep 21 14:22:26 2009 +0200
@@ -307,12 +307,12 @@
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:' ].'.
+ 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) , '.'.
@@ -364,12 +364,12 @@
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].'.
+ ].
].
s nextPutLine:'Class catchMethodRedefinitions: ' , (Class catchMethodRedefinitions storeString) , '.'.
@@ -396,20 +396,20 @@
s nextPutLine:'TextView st80SelectMode: ' , (TextView st80SelectMode storeString) , '.'.
s nextPutLine:'UserPreferences current syntaxColoring: ' , (userPrefs syntaxColoring storeString) , '.'.
(ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
- s nextPutLine:'ListView userDefaultTabPositions:(ListView tab4Positions).'.
+ s nextPutLine:'ListView userDefaultTabPositions:(ListView tab4Positions).'.
] ifFalse:[
- s nextPutLine:'ListView userDefaultTabPositions:(ListView tab8Positions).'.
+ s nextPutLine:'ListView userDefaultTabPositions:(ListView tab8Positions).'.
].
s nextPutLine:'"/'.
s nextPutLine:'"/ User preference values:'.
s nextPutLine:'"/'.
userPrefs 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 , '.'.
- ]
+ (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.
@@ -435,9 +435,8 @@
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:'"/ Class updateChanges: ' , (Class updatingChanges storeString) , '.';
+"/ nextPutLine:'"/ ObjectMemory nameForChanges: ' , (ObjectMemory nameForChanges storeString) , '.';
nextPutLine:'StandardSystemView returnFocusWhenClosingModalBoxes: ' , (StandardSystemView returnFocusWhenClosingModalBoxes storeString) , '.';
nextPutLine:'StandardSystemView takeFocusWhenMapped: ' , (StandardSystemView takeFocusWhenMapped storeString) , '.';
@@ -447,13 +446,13 @@
nextPutLine:'MenuView showAcceleratorKeys: ' , (MenuView showAcceleratorKeys storeString) , '.';
nextPutLine:'Class tryLocalSourceFirst: ' , (Class tryLocalSourceFirst storeString) , '.'.
(NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[
- s nextPutLine:'NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler).'.
+ s nextPutLine:'NoHandlerError 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.
@@ -461,23 +460,23 @@
s nextPutLine:'"/ Printer settings:'.
s nextPutLine:'"/'.
Printer notNil ifTrue:[
- s nextPutLine:'Printer := ' , (Printer name) , '.'.
- Printer supportsPrintingToCommand ifTrue:[
- s 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 nextPutLine:'Printer := ' , (Printer name) , '.'.
+ Printer supportsPrintingToCommand ifTrue:[
+ s 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:'"/'.
@@ -520,13 +519,13 @@
s nextPutLine:' Class tryLocalSourceFirst:' , Class tryLocalSourceFirst storeString , '.'.
s nextPutLine:' AbstractSourceCodeManager cacheDirectoryName:' , AbstractSourceCodeManager cacheDirectoryName storeString , '.'.
CVSSourceCodeManager notNil ifTrue:[
- CVSSourceCodeManager savePreferencesOn:s
+ CVSSourceCodeManager savePreferencesOn:s
].
(StoreSourceCodeManager notNil and:[StoreSourceCodeManager isExperimental not]) ifTrue:[
- StoreSourceCodeManager savePreferencesOn:s
+ StoreSourceCodeManager savePreferencesOn:s
].
(SmallTeamSourceCodeManager notNil and:[SmallTeamSourceCodeManager isExperimental not]) ifTrue:[
- SmallTeamSourceCodeManager savePreferencesOn:s
+ SmallTeamSourceCodeManager savePreferencesOn:s
].
s nextPutLine:'].'.
@@ -2821,5 +2820,5 @@
!UserPreferences class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.219 2009-09-16 16:16:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.220 2009-09-21 12:22:26 fm Exp $'
! !