"{ Package: 'stx:libtool' }"

ApplicationModel subclass:#AbstractSettingsApplication

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

AbstractSettingsApplication subclass:#CompilerSettingsAppl

	instanceVariableNames:'modifiedChannel stcCompilationSelection catchMethodRedefs

		allowQualifiedNames warnDollar warnOldStyle stcCompilation

		fullDebugSupport warnCommonMistakes warnUnderscore keepSource

		constantFolding fullHistoryUpdate warnCompatibility

		constantFoldingOptions historyLines warnings warnSTX allowDollar

		allowReservedWordsAsSelectors immutableArrays

		allowOldStyleAssignment compileLazy allowUnderscore

		allowDolphinExtensions warnUnusedVars keepSourceSelection

		allowSqueakExtensions loadBinaries justInTimeCompilation

		canLoadBinaries constantFoldingSelection stcCompilationList

		catchClassRedefs stcCompilerSettings enableUnderscore

		enableDollar'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#DisplaySettingsAppl

	instanceVariableNames:'modifiedChannel isColorMonitor useFixGrayPaletteLabel

		useFixPalette sizeY clipEncodingListSelection sizeX monitorList

		ditherList clipEncodingList ditherListSelection deepIcons

		monitorSelection useFixPaletteLabel visualIsPseudoColor

		ditherSymsNotNil useFixGrayPalette sizeInfos screen ditherStyles

		ditherSyms screenDepthVisualLabelHolder'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#EditSettingsAppl

	instanceVariableNames:'modifiedChannel st80EditingMode tabsIs4 st80DoubleClickSelectMode

		searchDialogIsModal startTextDragWithControl'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#FontSettingsAppl

	instanceVariableNames:'modifiedChannel 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:#KbdMappingSettingsAppl

	instanceVariableNames:'modifiedChannel selectedRawKey macroTextHolder

		selectedFunctionKey labelTextHolder functionKeyList rawKeyList

		mappings'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#LanguageSettingsAppl

	instanceVariableNames:'modifiedChannel languageHolder languageList listOfLanguages

		translatedLanguages noticeLabelHolder currentLanguageChannel

		currentLanguageLabel'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#MemorySettingsAppl

	instanceVariableNames:'modifiedChannel newSpaceSize maxOldSpace fastMoreLimit

		warningLabelHolder codeTrigger codeLimit oldIncr compressLimit

		igcFreeLimit igcLimit igcFreeAmount stackLimit

		supportsJustInTimeCompilation'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#MiscSettingsAppl

	instanceVariableNames:'modifiedChannel returnFocus focusFollowsMouse beepEnabled

		takeFocus preemptive activateOnClick shadows dynamicPrios

		opaqueVariablePanelResize formatHostNameinWindowLabels

		opaqueTableColumnResize hostNameInLabelHolder showAccelerators

		currentUserPrefs newWindowLabelFormat'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#PlainSettingsAppl

	instanceVariableNames:'modifiedChannel'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#PrinterSettingsAppl

	instanceVariableNames:'modifiedChannel selectedUnit supportsColor topMargin rightMargin

		bottomMargin landscape pageFormatList pageFormat unitList

		leftMargin possiblePrinters printerType printerTypeSelection

		printCommandSelection printCommandList commandList printCommand

		enableFormat enablelandscape enableMargins enableColorBox'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#SourceAndDebuggerSettingsAppl

	instanceVariableNames:'modifiedChannel syntaxColoring showVerboseStack sourceCacheDir

		useManager updChanges condenseSourceCache

		syntaxColorConfiguration showErrorNotifier setupSourceCodeManager

		fullSelectorCheck logDoits checkClassesWhenCheckingIn

		changeFileName formattingConfiguration flushSourceCache

		localSourceFirst autoFormat cvsIsSetup repositoryHolder manager

		repository currentUserPrefs'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#StyleSettingsAppl

	instanceVariableNames:'modifiedChannel showStandardStylesOnly styleList selectedStyle

		styleDirectoryContents infoLabelHolder noticeLabelHolder'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#SystemMessageSettingsAppl

	instanceVariableNames:'modifiedChannel classInfos vmInfo vmErrors displayErrors'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

AbstractSettingsApplication subclass:#ToolsSettingsAppl

	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector

		showClockInLauncher useNewChangesBrowser useNewFileBrowser

		useNewSystemBrowser currentUserPrefs modifiedChannel'

	classVariableNames:''

	poolDictionaries:''

	privateIn:AbstractSettingsApplication

!

!AbstractSettingsApplication class methodsFor:'defaults'!

classResources

    ^ AbstractLauncherApplication classResources

! !

!AbstractSettingsApplication methodsFor:'actions'!

loadRequest

    self subclassResponsibility

!

saveRequest

    self subclassResponsibility

! !

!AbstractSettingsApplication methodsFor:'queries'!

isNotPartOfSettinsDialog

    ^ self isPartOfSettinsDialog not

!

isPartOfSettinsDialog

    | masterApplication |

    masterApplication := self masterApplication.

    ^ masterApplication notNil and:[ masterApplication class == AbstractLauncherApplication::SettingsDialog].

! !

!AbstractSettingsApplication::CompilerSettingsAppl class methodsFor:'defaults'!

constantFoldingOptions

    ^ #( nil #level1 #level2 #full )

!

constantFoldingStrings

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

!

keepSourceOptions

    ^ #( keep reference absReference sourceReference discard )

!

keepSourceStrings

    ^ #('Keep as String' 'Reference to Filename' 'Reference to Full Path' 'Append and Ref in `st.src''' 'Discard' )

!

stcCompilationDemoStrings

    ^ #('never')

!

stcCompilationFullVersionStrings

    ^ #('always' 'primitive code only' 'never')

!

stcCompilationOptions

    ^ #( always default never)

! !

!AbstractSettingsApplication::CompilerSettingsAppl 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."

    "

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpec

        #window: 

       #(#WindowSpec

          #label: 'Compiler Settings'

          #name: 'Compiler Settings'

          #min: #(#Point 10 10)

          #max: #(#Point 1024 768)

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#CheckBoxSpec

              #label: 'Catch Method Redefinitions'

              #name: 'CatchMethodRedefinitions'

              #layout: #(#LayoutFrame 5 0 5 0 250 0 30 0)

              #model: #catchMethodRedefs

              #translateLabel: true

            )

           #(#CheckBoxSpec

              #label: 'Catch Class Redefinitions'

              #name: 'CatchClassRedefinitions'

              #layout: #(#LayoutFrame 257 0 5 0 7 1 30 0)

              #model: #catchClassRedefs

              #translateLabel: true

            )

           #(#CheckBoxSpec

              #label: 'Keep History Line in Methods'

              #name: 'KeepHistoryLineinMethods'

              #layout: #(#LayoutFrame 5 0 30 0 250 0 55 0)

              #model: #historyLines

              #translateLabel: true

            )

           #(#CheckBoxSpec

              #label: 'Keep Full Class History'

              #name: 'KeepFullClassHistory'

              #layout: #(#LayoutFrame 257 0 30 0 7 1 55 0)

              #enableChannel: #hasHistoryManager

              #model: #fullHistoryUpdate

              #translateLabel: true

            )

           #(#LabelSpec

              #label: 'FileIn Source Mode:'

              #name: 'FileInSourceModeLabel'

              #layout: #(#LayoutFrame 239 0 60 0 425 0 82 0)

              #translateLabel: true

              #adjust: #right

            )

           #(#PopUpListSpec

              #label: 'PopUp List'

              #name: 'KeepSourceSelection'

              #layout: #(#LayoutFrame 425 0 60 0 -5 1 82 0)

              #tabable: true

              #model: #keepSourceSelection

              #menu: #keepSource

              #useIndex: true

            )

           #(#DividerSpec

              #name: 'Separator1'

              #layout: #(#LayoutFrame 0 0.0 90 0 0 1 93 0)

            )

           #(#CheckBoxSpec

              #label: 'Lazy Compilation when Autoloading'

              #name: 'LazyCompilationWhenAutoloading'

              #layout: #(#LayoutFrame 5 0 100 0 250 0 125 0)

              #model: #compileLazy

              #translateLabel: true

            )

           #(#CheckBoxSpec

              #label: 'If Present, Load Binary Objects when Autoloading'

              #name: 'LoadBinaryObjectsWhenAutoloading'

              #layout: #(#LayoutFrame 5 0 125 0 331 0 150 0)

              #enableChannel: #canLoadBinaries

              #model: #loadBinaries

              #translateLabel: true

            )

           #(#CheckBoxSpec

              #label: 'Just in Time Compilation to Machine Code'

              #name: 'JustInTimeCompilation'

              #layout: #(#LayoutFrame 5 0 150 0 289 0 175 0)

              #model: #justInTimeCompilation

              #translateLabel: true

            )

           #(#DividerSpec

              #name: 'Separator2'

              #layout: #(#LayoutFrame 0 0.0 180 0 0 1.0 183 0)

            )

           #(#ActionButtonSpec

              #label: 'Stc Compilation Parameters...'

              #name: 'StcCompilationParametersButton'

              #layout: #(#LayoutFrame 5 0 195 0 217 0 217 0)

              #translateLabel: true

              #model: #stcCompilerSettings

            )

           #(#LabelSpec

              #label: 'Stc Compilation to Machine Code'

              #name: 'StcCompilationToMachineCodeLabel'

              #layout: #(#LayoutFrame 220 0 195 0 425 0 217 0)

              #translateLabel: true

              #adjust: #right

            )

           #(#PopUpListSpec

              #label: 'PopUp List'

              #name: 'StcCompilation'

              #layout: #(#LayoutFrame 425 0 195 0 -5 1 217 0)

              #tabable: true

              #model: #stcCompilationSelection

              #enableChannel: #canLoadBinaries

              #menu: #stcCompilationList

              #useIndex: true

            )

           #(#DividerSpec

              #name: 'Separator3'

              #layout: #(#LayoutFrame 0 0.0 225 0 0 1.0 228 0)

            )

           #(#CheckBoxSpec

              #label: 'Allow Underscore in Identifiers'

              #name: 'AllowUnderscoreInIdentifiers'

              #layout: #(#LayoutFrame 5 0 240 0 249 0 262 0)

              #model: #allowUnderscore

              #translateLabel: true

            )

           #(#CheckBoxSpec

              #label: 'Allow Dollar in Identifiers'

              #name: 'AllowDollarInIdentifiers'

              #layout: #(#LayoutFrame 5 0 265 0 249 0 287 0)

              #model: #allowDollar

              #translateLabel: true

            )

           #(#CheckBoxSpec

              #label: 'Allow VW3 QualifiedNames'

              #name: 'AllowVW3QualifiedNames'

              #layout: #(#LayoutFrame 5 0 290 0 249 0 312 0)

              #model: #allowQualifiedNames

              #translateLabel: true

            )

           #(#CheckBoxSpec

              #label: 'Allow Squeak Extensions'

              #name: 'AllowSqueakExtensions'

              #layout: #(#LayoutFrame 5 0 315 0 249 0 337 0)

              #model: #allowSqueakExtensions

              #translateLabel: true

            )

           #(#CheckBoxSpec

              #label: 'Allow Dolphin Extensions'

              #name: 'AllowDolphinExtensions'

              #layout: #(#LayoutFrame 5 0 340 0 249 0 362 0)

              #model: #allowDolphinExtensions

              #translateLabel: true

            )

           #(#PopUpListSpec

              #label: 'PopUp List'

              #name: 'ConstantFolding'

              #layout: #(#LayoutFrame 425 0 238 0 -5 1 260 0)

              #tabable: true

              #model: #constantFoldingSelection

              #menu: #constantFolding

              #useIndex: true

            )

           #(#LabelSpec

              #label: 'Constant Folding:'

              #name: 'ConstantFoldingLabel'

              #layout: #(#LayoutFrame 250 0 240 0 425 0 262 0)

              #translateLabel: true

              #adjust: #right

            )

           #(#CheckBoxSpec

              #label: 'Allow OldStyle Assignment (_)'

              #name: 'AllowOldStyleAssignment'

              #layout: #(#LayoutFrame 257 0 265 0 501 0 287 0)

              #model: #allowOldStyleAssignment

              #translateLabel: true

            )

           #(#CheckBoxSpec

              #label: 'Allow Reserved Words as Selector (self)'

              #name: 'AllowReservedWordsAsSelector'

              #layout: #(#LayoutFrame 257 0 290 0 -5 1 312 0)

              #model: #allowReservedWordsAsSelectors

              #translateLabel: true

            )

           #(#CheckBoxSpec

              #label: 'Full Debug Info'

              #name: 'FullDebugInfo'

              #layout: #(#LayoutFrame 257 0 315 0 501 0 337 0)

              #model: #fullDebugSupport

              #translateLabel: true

            )

           #(#CheckBoxSpec

              #label: 'Literal Arrays are Immutable'

              #name: 'LiteralArraysAreImmutable'

              #layout: #(#LayoutFrame 257 0 340 0 501 0 362 0)

              #model: #immutableArrays

              #translateLabel: true

            )

           #(#DividerSpec

              #name: 'Separator4'

              #layout: #(#LayoutFrame 0 0.0 365 0 0 1.0 368 0)

            )

           #(#CheckBoxSpec

              #label: 'Warnings'

              #name: 'Warnings'

              #layout: #(#LayoutFrame 5 0 375 0 249 0 397 0)

              #model: #warnings

              #translateLabel: true

            )

           #(#CheckBoxSpec

              #label: 'ST/X Extensions'

              #name: 'STXExtensions'

              #layout: #(#LayoutFrame 25 0 400 0 245 0 422 0)

              #enableChannel: #warnings

              #model: #warnSTX

              #translateLabel: true

            )

           #(#CheckBoxSpec

              #label: 'Underscores in Identifiers'

              #name: 'UnderscoresInIdentifiers'

              #layout: #(#LayoutFrame 25 0 425 0 245 0 447 0)