"

 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:#ByteCodeCompilerSettingsAppl

	instanceVariableNames:'allowQualifiedNames warnDollar warnOldStyle fullDebugSupport

		warnCommonMistakes warnUnderscore keepSource constantFolding

		warnCompatibility constantFoldingOptions warnings warnSTX

		allowDollar allowReservedWordsAsSelectors immutableArrays

		allowOldStyleAssignment allowUnderscore allowDolphinExtensions

		warnUnusedVars allowSqueakExtensions justInTimeCompilation

		canLoadBinaries constantFoldingSelection enableUnderscore

		enableDollar'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#DebuggerSettingsAppl

	instanceVariableNames:'showErrorNotifier showVerboseStack allowSendMailFromDebugger'

	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'

	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'

	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'

	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'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl

	instanceVariableNames:'dynamicPrios preemptive'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#RDoItServerSettingsAppl

	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer

		rDoitErrorDebugging rDoitServerPortOrPath'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#SQLServerSettingsAppl

	instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging

		sqlErrorLogging hasSQLServer sqlErrorDebugging sqlServerPort'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#STCCompilerSettingsAppl

	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs

		canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath

		stcCompilationSelection stcCompilationList'

	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 condenseSourceCache

		syntaxColorConfiguration setupSourceCodeManager

		checkClassesWhenCheckingIn formattingConfiguration

		flushSourceCache localSourceFirst cvsIsSetup repositoryHolder

		manager repository listOfModules cvsRootPrototypeList

		addPerModuleRoot removeEnabled perModuleRootModule acceptChannel

		removePerModuleRoot perModuleRoot cvsRootHolder

		selectedPerModuleRoot cvsBinDirectoryHolder rootsPerModule

		cvsLoginInModuleEnabled cvsLoginEnabled'

	classVariableNames:''

	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:#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'

	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.

"

! !

!AbstractSettingsApplication class methodsFor:'defaults'!

classResources

    ^ AbstractLauncherApplication classResources

!

resourcePackName

    ^ 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.

!

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:(resources 

                                string:'Apply changed %1 ?' with:settingsString allBold).

        ] ifFalse:[

            result := true.

        ].

        result isNil ifTrue:[

            ^ false

        ].

        result ifTrue:[

            self saveSettings

        ] ifFalse:[

            self readSettings

        ]

    ].

    ^ true

!

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:'initialization'!

initialize

    super initialize.

    resources := self class classResources.

    self initializeCurrentUserPreferences.

    settingsString := (UISpecification from:(self class windowSpec)) window label.

    "/ self readSettings.

!

initializeCurrentUserPreferences

    currentUserPrefs := UserPreferences current.

! !

!AbstractSettingsApplication methodsFor:'menu'!

settingsDialogPopUpMenu

    ^ nil

! !

!AbstractSettingsApplication methodsFor:'protocol'!

askForChangeOnRelease

    ^ true "/ false

!

basicSaveSettings

    self subclassResponsibility.

!

help

    |filename|

    filename := self helpFilename.

    filename isNil ifTrue:[

        self warn:'Sorry - no help available here.'.

        ^ self.

    ].

    self withWaitCursorDo:[

        HTMLDocumentView openFullOnHelpFile:filename

    ].

!

helpFilename

    "subclasses must return the relative name of a helpFile

     in the doc/online/<language>/help directory.

     Or nil, if no help is available."

    self subclassResponsibility

!

readSettings

    self subclassResponsibility

!

saveSettings

    self basicSaveSettings.

    self modifiedChannel value:false.

! !

!AbstractSettingsApplication methodsFor:'queries'!

hasUnsavedChanges

    ^ self subclassResponsibility

!

itemPathName

    ^ settingsDialog getNameOfApplication:self.

! !

!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!

constantFoldingOptions

    ^ #( nil #level1 #level2 #full )

!

constantFoldingStrings

    ^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')

! !

!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!

defaultIcon

    ^ self defaultIcon3

!

defaultIcon1

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self defaultIcon1 inspect

     ImageEditor openOnClass:self andSelector:#defaultIcon1

     Icon flushCachedIcons

    "

    <resource: #image>