"

 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'

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

	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs 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'

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

!

saveRequest

    ^ self saveRequestAsking:self askForChangeOnRelease

!

saveRequestAsking:askForChangeOnRelease

    |result|

    (self hasUnsavedChanges) ifTrue:[

        askForChangeOnRelease ifTrue:[

            result := self confirmWithCancel:(resources 

                                string:'Save changed ' , settingsString , ' (in ''settings.stx'') ?').

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

    currentUserPrefs := UserPreferences current.

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

    "/ self readSettings.

! !

!AbstractSettingsApplication methodsFor:'menu'!

settingsDialogPopUpMenu

    ^ nil

! !

!AbstractSettingsApplication methodsFor:'protocol'!

askForChangeOnRelease

    ^ true "/ false

!

basicSaveSettings

    self subclassResponsibility.

!

hasUnsavedChanges

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

    currentUserPrefs := UserPreferences current.

    self modifiedChannel value:false.

! !

!AbstractSettingsApplication methodsFor:'queries'!

itemPathName

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

    "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 defaultIcon inspect

     ImageEditor openOnClass:self andSelector:#defaultIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon'

        ifAbsentPut:[(Depth1Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@C@@@@@@@@G.=0G.=3D*%QG.=0@@@@G?>3DNN1G=60DM>0G=>0DM>0G=60DNN0G?>0@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@@@@@@@@@') ; yourself); yourself]

! !

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

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

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

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

    "

     UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec

     AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec

     AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Byte Code Compiler Settings'

          name: 'Byte Code Compiler Settings'

          min: (Point 10 10)

          bounds: (Rectangle 14 46 614 560)

        )

        component: 

       (SpecCollection

          collection: (

           (VerticalPanelViewSpec

              name: 'VerticalPanel1'