"

 COPYRIGHT (c) 2002 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

ApplicationModel subclass:#AbstractSettingsApplication

	instanceVariableNames:'settingsString currentUserPrefs modifiedChannel settingsDialog

		requestor'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

AbstractSettingsApplication subclass:#BuildSettingsAppl

	instanceVariableNames:'buildDirectory localBuild'

	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 allowFixedPointLiterals

		justInTimeCompilation canLoadBinaries constantFoldingSelection

		keepSource constantFolding constantFoldingOptions

		fullDebugSupport immutableArrays enableUnderscore enableDollar

		allowEmptyStatements warnAboutPossibleSTCCompilationProblems

		warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames

		warnAboutPossiblyUnimplementedSelectors'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#DebuggerSettingsAppl

	instanceVariableNames:'showErrorNotifier verboseBacktraceInDebugger

		allowSendMailFromDebugger useNewLayoutInDebugger'

	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'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#EditSettingsAppl

	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode

		searchDialogIsModal startTextDragWithControl

		extendedWordSelectMode whitespaceWordSelectMode'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#FontSettingsAppl

	instanceVariableNames:'filter allOfThem labelDef buttonDef listDef menuDef textDef

		allFontLabelHolder buttonsFontLabelHolder textFontLabelHolder

		labelsFontLabelHolder listsFontLabelHolder menusFontLabelHolder

		allLabel buttonsLabel textLabel labelLabel listsLabel menuLabel

		inputFieldLabel inputFieldDef inputFieldFontLabelHolder'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl

	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode

		searchDialogIsModal startTextDragWithControl catchClassRedefs

		fullHistoryUpdate historyLines keepSourceSelection keepSource

		hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication

	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel

		hasCreatedServerChannel useFcgiHolder'

	classVariableNames:'CreatedServers'

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#KbdMappingSettingsAppl

	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey

		labelTextHolder functionKeyList rawKeyList mappings'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#LanguageSettingsAppl

	instanceVariableNames:'languageHolder languageIndexHolder languageList

		languageListHolder listOfLanguages translatedLanguages

		noticeLabelHolder currentFlagAndLanguageChannel

		currentLanguageLabel perLanguageResources'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#MemorySettingsAppl

	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder

		codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit

		igcFreeAmount stackLimit supportsJustInTimeCompilation'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl

	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled

		windowMigrationPassword windowMigrationAuthenticate

		enablePasswordCheck smallTeamServerEnabled selectedSmallTeamHost

		listOfSmallTeamHosts smallTeamHostEntry addHostEnabled

		removeHostEnabled acceptChannel smtpServerName

		dotNetBridgeVerbose dotNetBridgeRunsInIDE'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl

	instanceVariableNames:'returnFocus focusFollowsMouse beepEnabled takeFocus

		activateOnClick nativeWidgets nativeDialogs shadows

		opaqueVariablePanelResize formatHostNameinWindowLabels

		opaqueTableColumnResize hostNameInLabelHolder showAccelerators

		newWindowLabelFormat formatHostNameWindowLabel'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#OsiSettingsAppl

	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging

		osiACSEErrorLogging osiROSEPresent osiCMISEPresent

		osiCMISEMessageLogging osiACSEDataLogging

		osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'

	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

!

AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl

	instanceVariableNames:'dynamicPrios preemptive'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#RDoItServerSettingsAppl

	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer

		rDoitErrorDebugging rDoitServerPortOrPath scriptingEnabled

		scriptingEnabledOnlyViaLocalConnection scriptingErrorDebugging

		scriptingErrorLogging scriptingLogging'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#SQLServerSettingsAppl

	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'

	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

!

AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl

	instanceVariableNames:'sourceCacheDir useManager availableManagers condenseSourceCache

		setupSourceCodeManager checkClassesWhenCheckingIn

		formattingConfiguration flushSourceCache localSourceFirst

		repositoryHolder manager repository listOfModules

		cvsRootPrototypeList addPerModuleRoot removeEnabled

		perModuleRootModule acceptChannel removePerModuleRoot

		perModuleRoot cvsRootHolder selectedPerModuleRoot

		cvsBinDirectoryHolder cvsExecutableHolder rootsPerModule

		cvsLoginInModuleEnabled cvsLoginEnabled

		selectedManagerTypeIndexHolder managerIsCVSSourceCodeManager

		managerIsStoreSourceCodeManager storeLoginEnabled

		storeHostPrototypeList storeHostnameHolder storeUsernameHolder

		storePasswordHolder perStoreModuleHostnameHolder

		perStoreModuleUsernameHolder perStoreModulePasswordHolder

		perStoreModuleRoot perStoreModuleRootModule

		selectedPerStoreModuleRoot storeConnectEnabled

		storeConnectInModuleEnabled perModuleFieldsEnableHolder

		managerIsSmallTeamSourceCodeManager

		selectedPerSmallTeamModuleRoot

		perSmallTeamModuleFieldsEnableHolder perSmallTeamModuleRoot

		perSmallTeamModuleRootModule perSmallTeamModuleHostnameHolder

		smallTeamHostnameHolder verboseSourceCodeAccess'

	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts

		RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser

		LastStorePassword'

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#StyleSettingsAppl

	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle

		styleDirectoryContents infoLabelHolder noticeLabelHolder'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl

	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection

		fullSelectorCheck syntaxColoring oldUserPreferences

		syntaxFontSelector syntaxFonts syntaxElementList

		syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection

		emphasisDictionary resetListDictionary'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#SystemBrowserSettingsAppl

	instanceVariableNames:'showAcceptCancelBarInBrowser showSearchBarInBrowser'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#SystemMessageSettingsAppl

	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges

		changeFileName beepForInfoDialog beepForWarningDialog

		beepForErrorDialog flyByHelp'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#ToolsSettingsAppl

	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector

		showClockInLauncher useNewChangesBrowser useNewFileBrowser

		useNewSystemBrowser useNewFileDialog useNewSettingsApplication

		useProcessMonitorV2 useSmalltalkDocumentViewer

		showTipOfTheDayAtStartup autoRaiseTranscript'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

!AbstractSettingsApplication class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2002 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    This is an abstract framework for settings applications.

    For a real settings dialog, you need a concrete settings dialog class to hold the pages

    (as an example, see SettingsDialog)

    and someone who specifies the hierarchy of settings-pages in a spec.

    (as an example, see NewLauncher class>>defaultSettingsApplicationList)

    typical use:

        |settingsList settingsApp|

        settingsList := NewLauncher settingsList.

        settingsApp := SettingsDialog new.

        'settingsApp requestor:requestingApplication'.

        settingsApp installSettingsEntries:settingsList.

        settingsApp allButOpen.

        settingsApp window label:('ST/X Settings').

        settingsApp openWindow.

"

! !

!AbstractSettingsApplication class methodsFor:'defaults'!

classResources

    ^ AbstractLauncherApplication classResources

!

resourcePackName

    "return the name which is used as the fileNameBase of my resource file.

     Here, use the same resources as the Launcher"

    ^ AbstractLauncherApplication resourcePackName

! !

!AbstractSettingsApplication class methodsFor:'interface specs'!

windowSpec

    self subclassResponsibility

! !

!AbstractSettingsApplication class methodsFor:'queries'!

isVisualStartable

    "return true, if this application can be started via #open.

     (to allow start of a change browser via double-click in the browser)"

    (self == AbstractSettingsApplication) ifTrue:[^ false "I am abstract"].

    ^ super isVisualStartable

! !

!AbstractSettingsApplication methodsFor:'accessing'!

requestor:something

    "set the value of the instance variable 'requestor' (automatically generated)"

    requestor := something.

!

settingsDialog

    ^ settingsDialog

!

settingsDialog:something

    settingsDialog := something.

! !

!AbstractSettingsApplication methodsFor:'actions'!

evaluateModified

    self obsoleteMethodWarning.

    ^ self updateModifiedChannel.

!

readSettings

    self basicReadSettings.

    self modifiedChannel value:false.

!

reopenToolsAfterChangedViewStyleSetting

    |app transcript|

    DebugView newDebugger.

    transcript := Transcript current.

    (transcript notNil and:[transcript isExternalStream not]) ifTrue:[

        app := transcript topView application.

        (app respondsTo:#reopenLauncher) ifTrue:[

            app reopenLauncher.

        ].

    ].

!

saveRequest

    ^ self saveRequestAsking:self askForChangeOnRelease

!

saveRequestAsking:askForChangeOnRelease

    |result|

    self hasUnsavedChanges ifTrue:[

        askForChangeOnRelease ifTrue:[

            result := self confirmWithCancel:(self resources 

                                string:'Apply changes made in %1 ?' 

                                with:(resources string:settingsString) allBold).

        ] ifFalse:[

            result := true.

        ].

        result isNil ifTrue:[

            ^ false

        ].

        result ifTrue:[

            self saveSettings

        ] ifFalse:[

            "/ reload current settings to show the right thing when re-entering.

            self readSettings

        ]

    ].

    ^ true

    "Modified: / 20-09-2006 / 23:56:25 / cg"

!

saveSettings

    self basicSaveSettings.

    self modifiedChannel value:false.

!

saveSettingsIfUnsavedChangesArePresent

    self hasUnsavedChanges ifTrue:[

        self saveSettings.

        self modifiedChannel value:false

    ].

!

updateModifiedChannel

    self modifiedChannel value:self hasUnsavedChanges

! !

!AbstractSettingsApplication methodsFor:'aspects'!

modifiedChannel

    modifiedChannel isNil ifTrue:[

        modifiedChannel := false asValue.

    ].

    ^ modifiedChannel

! !

!AbstractSettingsApplication methodsFor:'helpers'!

hasChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider

    "this code-sharing helper compares a bunch of aspect value against some object.

     The object is typically the current userPreferences object, or a flag-holder, such

     as ParserFlags.

     Using this, and a list of aspect selectors replaces code like:

        someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].

        someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].

        ...

        someone aspectN ~= (self aspectN value) ifTrue:[^ true].

        ^ false

     Prerequisite:

        local aspects must be named like corresponding aspect methods in the flag-provider.