diff -r 952f1b112e7a -r dd72f9732a3c AbstractSettingsApplication.st
--- a/AbstractSettingsApplication.st	Wed Feb 26 14:50:07 2020 +0100
+++ b/AbstractSettingsApplication.st	Wed Feb 26 17:03:28 2020 +0100
@@ -16,421 +16,421 @@
 "{ NameSpace: Smalltalk }"
 
 ApplicationModel subclass:#AbstractSettingsApplication
-	instanceVariableNames:'settingsString currentUserPrefs modifiedChannel settingsDialog
-		requestor didModifySettings acceptChannel'
-	classVariableNames:'AutoSaveChangedSettingsOnClose'
-	poolDictionaries:''
-	category:'Interface-Smalltalk'
+        instanceVariableNames:'settingsString currentUserPrefs modifiedChannel settingsDialog
+                requestor didModifySettings acceptChannel'
+        classVariableNames:'AutoSaveChangedSettingsOnClose'
+        poolDictionaries:''
+        category:'Interface-Smalltalk'
 !
 
 AbstractSettingsApplication subclass:#AllSettingsAppl
-	instanceVariableNames:'buildDirectory localBuild selectedCompiler usedCompilerForBuild
-		selectedSettingHolder settingsList'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'buildDirectory localBuild selectedCompiler usedCompilerForBuild
+                selectedSettingHolder settingsList'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#AutoloadedPackagesSettingsAppl
-	instanceVariableNames:'possibleItemsLabelHolder listOfPossibleItems
-		selectedItemsLabelHolder packageChooser listOfSelectedItems'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'possibleItemsLabelHolder listOfPossibleItems
+                selectedItemsLabelHolder packageChooser listOfSelectedItems'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#BuildSettingsAppl
-	instanceVariableNames:'buildDirectory localBuild selectedCompiler usedCompilerForBuild'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'buildDirectory localBuild selectedCompiler usedCompilerForBuild'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#ByteCodeCompilerSettingsAppl
-	instanceVariableNames:'warnings warnSTX warnDollar warnOldStyle warnCommonMistakes
-		warnUnderscore warnCompatibility warnUnusedVars
-		warnAboutWrongVariableNames warnAboutBadComments
-		warnInconsistentReturnValues
-		warnAboutNonLowercaseLocalVariableNames allowQualifiedNames
-		allowDollar allowReservedWordsAsSelectors allowOldStyleAssignment
-		allowUnderscore allowDolphinExtensions allowSqueakExtensions
-		allowVisualAgeESSymbolLiterals allowVisualAgePrimitives
-		allowFixedPointLiterals justInTimeCompilation canLoadBinaries
-		constantFoldingSelection keepSource constantFolding
-		constantFoldingOptions fullDebugSupport immutableArrays
-		immutableStrings enableUnderscore enableDollar
-		allowEmptyStatements warnAboutPossibleSTCCompilationProblems
-		warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames
-		warnAboutPossiblyUnimplementedSelectors
-		allowExtendedBinarySelectors warnAboutMissingMethodComment
-		allowAssignmentToPoolVariable warnPlausibilityChecks
-		allowParagraph enableParagraph
-		warnAboutPossiblyUninitializedLocals'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'warnings warnSTX warnDollar warnOldStyle warnCommonMistakes
+                warnUnderscore warnCompatibility warnUnusedVars
+                warnAboutWrongVariableNames warnAboutBadComments
+                warnInconsistentReturnValues
+                warnAboutNonLowercaseLocalVariableNames allowQualifiedNames
+                allowDollar allowReservedWordsAsSelectors allowOldStyleAssignment
+                allowUnderscore allowDolphinExtensions allowSqueakExtensions
+                allowVisualAgeESSymbolLiterals allowVisualAgePrimitives
+                allowFixedPointLiterals justInTimeCompilation canLoadBinaries
+                constantFoldingSelection keepSource constantFolding
+                constantFoldingOptions fullDebugSupport immutableArrays
+                immutableStrings enableUnderscore enableDollar
+                allowEmptyStatements warnAboutPossibleSTCCompilationProblems
+                warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames
+                warnAboutPossiblyUnimplementedSelectors
+                allowExtendedBinarySelectors warnAboutMissingMethodComment
+                allowAssignmentToPoolVariable warnPlausibilityChecks
+                allowParagraph enableParagraph
+                warnAboutPossiblyUninitializedLocals'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#ChangeFileSettingsAppl
-	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
-		changeFileName beepForInfoDialog beepForWarningDialog
-		beepForErrorDialog flyByHelp beepEnabled beepInEditor'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
+                changeFileName beepForInfoDialog beepForWarningDialog
+                beepForErrorDialog flyByHelp beepEnabled beepInEditor'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#CodeGeneratorSettingsAppl
-	instanceVariableNames:'generateComments generateCommentsForGetters
-		generateCommentsForSetters'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'generateComments generateCommentsForGetters
+                generateCommentsForSetters'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#CommunicationLoggingSettingsAppl
-	instanceVariableNames:'logHTTPRequests logSOAPRequests logExecutedOSCommands
-		logNetCommunications logSSLCommunications'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'logHTTPRequests logSOAPRequests logExecutedOSCommands
+                logNetCommunications logSSLCommunications'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#DebuggerSettingsAppl
-	instanceVariableNames:'showErrorNotifier verboseBacktraceInDebugger
-		allowSendMailFromDebugger useNewLayoutInDebugger
-		hideSupportCodeInDebugger'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'showErrorNotifier verboseBacktraceInDebugger
+                allowSendMailFromDebugger useNewLayoutInDebugger
+                hideSupportCodeInDebugger'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#DisplaySettingsAppl
-	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
-		clipEncodingListSelection sizeX monitorList ditherList
-		clipEncodingList ditherListSelection deepIcons monitorSelection
-		useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
-		useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
-		screenDepthVisualLabelHolder maxCopyBufferSize usedWidth
-		usedHeight enableVMWareDrawingBugWorkaround'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
+                clipEncodingListSelection sizeX monitorList ditherList
+                clipEncodingList ditherListSelection deepIcons monitorSelection
+                useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
+                useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
+                screenDepthVisualLabelHolder maxCopyBufferSize usedWidth
+                usedHeight enableVMWareDrawingBugWorkaround'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#EditSettingsAppl
-	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
-		searchDialogIsModal startTextDragWithControl
-		extendedWordSelectMode whitespaceWordSelectMode
-		enforceContentsDropForFiles selectAllWhenClickingBeyondEnd
-		showAcceptCancelBarInBrowser useCodeView2InTools
-		autoIndentInCodeView immediateCodeCompletion
-		codeCompletionOnControlKey codeCompletionOnTabKey
-		selectionExtensionMode'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
+                searchDialogIsModal startTextDragWithControl
+                extendedWordSelectMode whitespaceWordSelectMode
+                enforceContentsDropForFiles selectAllWhenClickingBeyondEnd
+                showAcceptCancelBarInBrowser useCodeView2InTools
+                autoIndentInCodeView immediateCodeCompletion
+                codeCompletionOnControlKey codeCompletionOnTabKey
+                selectionExtensionMode'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
-	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
-		searchDialogIsModal startTextDragWithControl catchClassRedefs
-		fullHistoryUpdate historyLines keepSourceSelection keepSource
-		hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs
-		userNameInHistoryHolder'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
+                searchDialogIsModal startTextDragWithControl catchClassRedefs
+                fullHistoryUpdate historyLines keepSourceSelection keepSource
+                hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs
+                userNameInHistoryHolder'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication
-	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
-		hasCreatedServerChannel useFcgiHolder
-		hasWebServerClassesNotLoadedHolder'
-	classVariableNames:'CreatedServers'
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
+                hasCreatedServerChannel useFcgiHolder
+                hasWebServerClassesNotLoadedHolder'
+        classVariableNames:'CreatedServers'
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
-	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
-		labelTextHolder changeMapHolder currentKeyHolder functionKeyList
-		rawKeyList mappings'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
+                labelTextHolder changeMapHolder currentKeyHolder functionKeyList
+                rawKeyList mappings'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#LanguageSettingsAppl
-	instanceVariableNames:'languageHolder languageIndexHolder languageList
-		languageListHolder listOfLanguages translatedLanguages
-		noticeLabelHolder currentFlagAndLanguageChannel
-		currentLanguageLabel perLanguageResources useSystemLanguageHolder'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'languageHolder languageIndexHolder languageList
+                languageListHolder listOfLanguages translatedLanguages
+                noticeLabelHolder currentFlagAndLanguageChannel
+                currentLanguageLabel perLanguageResources useSystemLanguageHolder'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#MemorySettingsAppl
-	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
-		codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
-		igcFreeAmount stackLimit supportsJustInTimeCompilation
-		methodCodeSizeLimit'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
+                codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
+                igcFreeAmount stackLimit supportsJustInTimeCompilation
+                methodCodeSizeLimit'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#MiscBridgeCommunicationSettingsAppl
-	instanceVariableNames:'smallTeamServerEnabled selectedSmallTeamHost listOfSmallTeamHosts
-		smallTeamHostEntry dotNetBridgeVerbose dotNetBridgeRunsInIDE
-		smalltalkBridgeEnabled smalltalkBridgeVerbose'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'smallTeamServerEnabled selectedSmallTeamHost listOfSmallTeamHosts
+                smallTeamHostEntry dotNetBridgeVerbose dotNetBridgeRunsInIDE
+                smalltalkBridgeEnabled smalltalkBridgeVerbose'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
-	instanceVariableNames:'smtpServerName'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'smtpServerName'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#MiscDisplay2SettingsAppl
-	instanceVariableNames:'nativeWidgets nativeDialogs shadows opaqueVariablePanelResize
-		opaqueTableColumnResize lowerOnRightClickInTitle
-		lowerOnShiftClickInTitle displaySupportsNativeFileDialogs
-		nativeFileDialogs cartoonToolTipStyle
-		markThisApplicationAsHighDpiAwareHolder'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'nativeWidgets nativeDialogs shadows opaqueVariablePanelResize
+                opaqueTableColumnResize lowerOnRightClickInTitle
+                lowerOnShiftClickInTitle displaySupportsNativeFileDialogs
+                nativeFileDialogs cartoonToolTipStyle
+                markThisApplicationAsHighDpiAwareHolder'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
-	instanceVariableNames:'returnFocus focusFollowsMouse mouseWheelFocusFollowsMouse
-		beepEnabled takeFocus activateOnClick
-		formatHostNameinWindowLabels hostNameInLabelHolder
-		showAccelerators newWindowLabelFormat formatHostNameWindowLabel
-		selectOnRightClick popUpMenuOnRelease
-		showRightButtonMenuOnRelease formatHostNameWindowLabel1
-		formatHostNameWindowLabel2 allowMouseWheelZoom
-		forceWindowsIntoMonitorBounds button2WithAltKey
-		autoRaiseOnFocusIn menuPanelTakesFocusOnClick
-		shouldRememberLastExtentHolder'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'returnFocus focusFollowsMouse mouseWheelFocusFollowsMouse
+                beepEnabled takeFocus activateOnClick
+                formatHostNameinWindowLabels hostNameInLabelHolder
+                showAccelerators newWindowLabelFormat formatHostNameWindowLabel
+                selectOnRightClick popUpMenuOnRelease
+                showRightButtonMenuOnRelease formatHostNameWindowLabel1
+                formatHostNameWindowLabel2 allowMouseWheelZoom
+                forceWindowsIntoMonitorBounds button2WithAltKey
+                autoRaiseOnFocusIn menuPanelTakesFocusOnClick
+                shouldRememberLastExtentHolder'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#MiscSmalltalkCommunicationSettingsAppl
-	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
-		windowMigrationPassword windowMigrationAuthenticate
-		enablePasswordCheck smallTeamServerEnabled selectedSmallTeamHost
-		listOfSmallTeamHosts smallTeamHostEntry addHostEnabled
-		removeHostEnabled smalltalkBridgeEnabled smalltalkBridgeVerbose
-		smallTeamViaXMPPEnabled selectedXMPPSmallTeamUser
-		xmppSmallTeamUserEntry listOfXMPPSmallTeamUsers
-		smallteamXMPPServer smallteamXMPPUser smallteamXMPPPassword'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
+                windowMigrationPassword windowMigrationAuthenticate
+                enablePasswordCheck smallTeamServerEnabled selectedSmallTeamHost
+                listOfSmallTeamHosts smallTeamHostEntry addHostEnabled
+                removeHostEnabled smalltalkBridgeEnabled smalltalkBridgeVerbose
+                smallTeamViaXMPPEnabled selectedXMPPSmallTeamUser
+                xmppSmallTeamUserEntry listOfXMPPSmallTeamUsers
+                smallteamXMPPServer smallteamXMPPUser smallteamXMPPPassword'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#OsiSettingsAppl
-	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
-		osiACSEErrorLogging osiROSEPresent osiCMISEPresent
-		osiCMISEMessageLogging osiACSEDataLogging
-		osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
+                osiACSEErrorLogging osiROSEPresent osiCMISEPresent
+                osiCMISEMessageLogging osiACSEDataLogging
+                osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#PackagePathSettingsAppl
-	instanceVariableNames:'listOfFoldersInPath selectedFolder'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'listOfFoldersInPath selectedFolder'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#PrinterSettingsAppl
-	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
-		landscape pageFormatList pageFormat unitList leftMargin
-		possiblePrinters printerType printerTypeSelection
-		printCommandList commandList printCommand printFilename
-		enableFormat enablelandscape enableMargins enableColorBox
-		printerIsDrivenByCommand printerSupportsPrintingToFile
-		supportsPageFormatSetting supportsMarginSetting
-		supportsColorSetting'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
+                landscape pageFormatList pageFormat unitList leftMargin
+                possiblePrinters printerType printerTypeSelection
+                printCommandList commandList printCommand printFilename
+                enableFormat enablelandscape enableMargins enableColorBox
+                printerIsDrivenByCommand printerSupportsPrintingToFile
+                supportsPageFormatSetting supportsMarginSetting
+                supportsColorSetting'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
-	instanceVariableNames:'dynamicPrios preemptive'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'dynamicPrios preemptive'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
-	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
-		rDoitErrorDebugging rDoitServerPortOrPath
-		rDoitEnabledOnlyViaLocalConnection scriptingEnabled
-		scriptingEnabledOnlyViaLocalConnection scriptingErrorDebugging
-		scriptingErrorLogging scriptingLogging scriptingServerPortOrPath
-		rDoitOnlyViaLocalConnection'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
+                rDoitErrorDebugging rDoitServerPortOrPath
+                rDoitEnabledOnlyViaLocalConnection scriptingEnabled
+                scriptingEnabledOnlyViaLocalConnection scriptingErrorDebugging
+                scriptingErrorLogging scriptingLogging scriptingServerPortOrPath
+                rDoitOnlyViaLocalConnection'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#SQLServerSettingsAppl
-	instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging
-		sqlDataLogging sqlErrorLogging hasSQLServer sqlErrorDebugging
-		sqlServerPort sqlStatementLogging'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging
+                sqlDataLogging sqlErrorLogging hasSQLServer sqlErrorDebugging
+                sqlServerPort sqlStatementLogging'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
-	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs
-		canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
-		stcCompilationSelection stcCompilationList makeCommand
-		stcKeepCIntermediate supportedCCompilerSelection verbose'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs
+                canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
+                stcCompilationSelection stcCompilationList makeCommand
+                stcKeepCIntermediate supportedCCompilerSelection verbose'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
-	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
-		autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
-		blockArgumentsOnNewLine spaceAfterReturnToken
-		spaceAroundTemporaries spaceAfterBlockStart spaceBeforeBlockEnd
-		oldUserPreferences reformatLocked'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
+                autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
+                blockArgumentsOnNewLine spaceAfterReturnToken
+                spaceAroundTemporaries spaceAfterBlockStart spaceBeforeBlockEnd
+                oldUserPreferences reformatLocked'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
-	instanceVariableNames:'sourceCacheDir useManager availableManagers condenseSourceCache
-		setupSourceCodeManager checkClassesWhenCheckingIn
-		formattingConfiguration flushSourceCache localSourceFirst
-		repositoryHolder manager repository listOfModules
-		managerTypePerModule addPerModuleRoot removeEnabled
-		perModuleRootModule removePerModuleRoot perModuleRoot
-		selectedPerModuleRoot rootsPerModule
-		selectedManagerTypeIndexHolder managerIsCVSSourceCodeManager
-		managerIsStoreSourceCodeManager perModuleFieldsEnableHolder
-		managerIsSmallTeamSourceCodeManager verboseSourceCodeAccess
-		keepMethodSource packageToAddHolder managerTypeIndexToAddHolder
-		managerTypeToAddHolder managerPerMatchingModule
-		selectedManagerPerMatchingModuleHolder'
-	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
-		RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
-		LastStorePassword FillCacheProcess'
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'sourceCacheDir useManager availableManagers condenseSourceCache
+                setupSourceCodeManager checkClassesWhenCheckingIn
+                formattingConfiguration flushSourceCache localSourceFirst
+                repositoryHolder manager repository listOfModules
+                managerTypePerModule addPerModuleRoot removeEnabled
+                perModuleRootModule removePerModuleRoot perModuleRoot
+                selectedPerModuleRoot rootsPerModule
+                selectedManagerTypeIndexHolder managerIsCVSSourceCodeManager
+                managerIsStoreSourceCodeManager perModuleFieldsEnableHolder
+                managerIsSmallTeamSourceCodeManager verboseSourceCodeAccess
+                keepMethodSource packageToAddHolder managerTypeIndexToAddHolder
+                managerTypeToAddHolder managerPerMatchingModule
+                selectedManagerPerMatchingModuleHolder'
+        classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
+                RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
+                LastStorePassword FillCacheProcess'
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 SimpleDialog subclass:#PerModuleManagerSettingDialog
-	instanceVariableNames:'packageHolder managerNameHolder availableManagers'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication::SourceCodeManagementSettingsAppl
+        instanceVariableNames:'packageHolder managerNameHolder availableManagers'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication::SourceCodeManagementSettingsAppl
 !
 
 AbstractSettingsApplication subclass:#StyleSettingsAppl
-	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
-		styleDirectoryContents infoLabelHolder noticeLabelHolder
-		previewVisibleHolder'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
+                styleDirectoryContents infoLabelHolder noticeLabelHolder
+                previewVisibleHolder'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
-	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
-		fullSelectorCheck syntaxColoring oldUserPreferences
-		syntaxFontSelector syntaxFonts syntaxElementList
-		syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
-		emphasisDictionary resetListDictionary changedSettings'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
+                fullSelectorCheck syntaxColoring oldUserPreferences
+                syntaxFontSelector syntaxFonts syntaxElementList
+                syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
+                emphasisDictionary resetListDictionary changedSettings'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#SystemBrowserSettingsAppl
-	instanceVariableNames:'showAcceptCancelBarInBrowser useSearchBarInBrowser
-		showMethodTemplate useCodeView2InTools
-		showEmbeddedTestRunnerInBrowser showBookmarkBar
-		webBrowserLikeLayout sortAndIndentClassesByInheritance
-		showLocalHistory showGlobalHistory useInPlaceSearchInBrowserLists
-		sourceCodeManagementMenuLayout confirmRefactorings
-		smallLintRulesetDefault showMarqueeInfo'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'showAcceptCancelBarInBrowser useSearchBarInBrowser
+                showMethodTemplate useCodeView2InTools
+                showEmbeddedTestRunnerInBrowser showBookmarkBar
+                webBrowserLikeLayout sortAndIndentClassesByInheritance
+                showLocalHistory showGlobalHistory useInPlaceSearchInBrowserLists
+                sourceCodeManagementMenuLayout confirmRefactorings
+                smallLintRulesetDefault showMarqueeInfo'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
-	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
-		changeFileName beepForInfoDialog beepForWarningDialog
-		beepForErrorDialog flyByHelp beepEnabled beepInEditor
-		toolTipAutoHideDelay sendMessagesAlsoToTranscript
-		onlyShowTooltipsForActiveWindow logLevelIndex'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
+                changeFileName beepForInfoDialog beepForWarningDialog
+                beepForErrorDialog flyByHelp beepEnabled beepInEditor
+                toolTipAutoHideDelay sendMessagesAlsoToTranscript
+                onlyShowTooltipsForActiveWindow logLevelIndex'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#TerminalViewSettingsAppl
-	instanceVariableNames:'terminalOutputIsUTF8 terminalInputIsUTF8'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'terminalOutputIsUTF8 terminalInputIsUTF8'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#ToolboxSettingsAppl
-	instanceVariableNames:'changesBrowserClassName fileBrowserClassName'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'changesBrowserClassName fileBrowserClassName'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 ApplicationModel subclass:#ClassToolSetting
-	instanceVariableNames:'optionValueHolder optionValueList optionLabelHolder
-		optionSelectionHolder optionLabelList optionCustomValueHolder
-		optionCustomValueVisibleHolder optionCustomValueBackgroundHolder'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication::ToolboxSettingsAppl
+        instanceVariableNames:'optionValueHolder optionValueList optionLabelHolder
+                optionSelectionHolder optionLabelList optionCustomValueHolder
+                optionCustomValueVisibleHolder optionCustomValueBackgroundHolder'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication::ToolboxSettingsAppl
 !
 
 AbstractSettingsApplication subclass:#ToolsSettingsAppl
-	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
-		showClockInLauncher useNewChangesBrowser useNewFileBrowser
-		useNewSystemBrowser useNewFileDialog useNewSettingsApplication
-		useProcessMonitorV2 useSmalltalkDocumentViewer useTestRunner2
-		showTipOfTheDayAtStartup autoRaiseTranscript eclipseStyleMenus
-		useNewChangeSetBrowser useCodeView2InTools
-		externalDiffCommandTemplate'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
+                showClockInLauncher useNewChangesBrowser useNewFileBrowser
+                useNewSystemBrowser useNewFileDialog useNewSettingsApplication
+                useProcessMonitorV2 useSmalltalkDocumentViewer useTestRunner2
+                showTipOfTheDayAtStartup autoRaiseTranscript eclipseStyleMenus
+                useNewChangeSetBrowser useCodeView2InTools
+                externalDiffCommandTemplate'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 AbstractSettingsApplication subclass:#WorkspaceSettingsAppl
-	instanceVariableNames:'usersModuleName workspaceDirectory'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:AbstractSettingsApplication
+        instanceVariableNames:'usersModuleName workspaceDirectory'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:AbstractSettingsApplication
 !
 
 !AbstractSettingsApplication class methodsFor:'documentation'!
@@ -9577,13 +9577,11 @@
 
     resources := self classResources.
 
-    (WinWorkstation isNil 
-     or:[Screen current isWindowsPlatform not]) ifTrue:[
+    aView graphicsDevice isWindowsPlatform ifFalse:[
         ^ resources string:'This setting is only used with Windows displays'.
     ].
 
-    monitorScaleFactor := Screen current
-                            monitorScaleFactorForView:aView topView.
+    monitorScaleFactor := aView topView monitorScaleFactor.
 
     textLines := OrderedCollection new.
     textLines add:(resources string:'If the screen scaling factor (in windows display settings) is highter than 100%,').