--- a/AbstractSettingsApplication.st Wed Aug 09 19:31:36 2006 +0200
+++ b/AbstractSettingsApplication.st Wed Aug 09 19:32:39 2006 +0200
@@ -13,250 +13,248 @@
"{ Package: 'stx:libtool' }"
ApplicationModel subclass:#AbstractSettingsApplication
- instanceVariableNames:'settingsString currentUserPrefs modifiedChannel settingsDialog
- requestor'
- classVariableNames:''
- poolDictionaries:''
- category:'Interface-Smalltalk'
+ instanceVariableNames:'settingsString currentUserPrefs modifiedChannel settingsDialog
+ requestor'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Interface-Smalltalk'
!
AbstractSettingsApplication subclass:#ByteCodeCompilerSettingsAppl
- instanceVariableNames:'warnings warnSTX warnDollar warnOldStyle warnCommonMistakes
- warnUnderscore warnCompatibility warnUnusedVars
- warnAboutWrongVariableNames warnAboutBadComments
- warnInconsistentReturnValues
- warnAboutNonLowercaseLocalVariableNames allowQualifiedNames
- allowDollar allowReservedWordsAsSelectors allowOldStyleAssignment
- allowUnderscore allowDolphinExtensions allowSqueakExtensions
- allowVisualAgeESSymbolLiterals allowSTVPrimitives
- allowSTVExtensions allowFixedPointLiterals justInTimeCompilation
- canLoadBinaries constantFoldingSelection keepSource
- constantFolding constantFoldingOptions fullDebugSupport
- immutableArrays enableUnderscore enableDollar'
- classVariableNames:''
- poolDictionaries:''
- privateIn:AbstractSettingsApplication
+ instanceVariableNames:'warnings warnSTX warnDollar warnOldStyle warnCommonMistakes
+ warnUnderscore warnCompatibility warnUnusedVars
+ warnAboutWrongVariableNames warnAboutBadComments
+ warnInconsistentReturnValues warnAboutLowercaseLocalVariableNames
+ allowQualifiedNames allowDollar allowReservedWordsAsSelectors
+ allowOldStyleAssignment allowUnderscore allowDolphinExtensions
+ allowSqueakExtensions allowVisualAgeESSymbolLiterals
+ allowFixedPointLiterals justInTimeCompilation canLoadBinaries
+ constantFoldingSelection keepSource constantFolding
+ constantFoldingOptions fullDebugSupport immutableArrays
+ enableUnderscore enableDollar'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:AbstractSettingsApplication
!
AbstractSettingsApplication subclass:#DebuggerSettingsAppl
- instanceVariableNames:'showErrorNotifier showVerboseStack allowSendMailFromDebugger'
- classVariableNames:''
- poolDictionaries:''
- privateIn:AbstractSettingsApplication
+ 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
+ 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 deleteSetsClipboardText'
- classVariableNames:''
- poolDictionaries:''
- privateIn:AbstractSettingsApplication
+ 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
+ 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
+ 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
+ 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
+ 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
+ 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
+ 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
+ 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
+ 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
+ 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
+ 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
+ instanceVariableNames:'dynamicPrios preemptive'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:AbstractSettingsApplication
!
AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
- instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
- rDoitErrorDebugging rDoitServerPortOrPath'
- classVariableNames:''
- poolDictionaries:''
- privateIn:AbstractSettingsApplication
+ instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
+ rDoitErrorDebugging rDoitServerPortOrPath'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:AbstractSettingsApplication
!
AbstractSettingsApplication subclass:#SQLServerSettingsAppl
- instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging
- sqlDataLogging sqlErrorLogging hasSQLServer sqlErrorDebugging
- sqlServerPort'
- classVariableNames:''
- poolDictionaries:''
- privateIn:AbstractSettingsApplication
+ instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging
+ sqlDataLogging 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 makeCommand'
- classVariableNames:''
- poolDictionaries:''
- privateIn:AbstractSettingsApplication
+ 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
+ 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
+ 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
+ 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
+ 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
+ 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'
- classVariableNames:''
- poolDictionaries:''
- privateIn:AbstractSettingsApplication
+ instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
+ showClockInLauncher useNewChangesBrowser useNewFileBrowser
+ useNewSystemBrowser useNewFileDialog useNewSettingsApplication
+ useProcessMonitorV2 useSmalltalkDocumentViewer'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:AbstractSettingsApplication
!
!AbstractSettingsApplication class methodsFor:'documentation'!
@@ -746,13 +744,6 @@
extent: (Point 665 22)
)
(CheckBoxSpec
- label: 'Allow ST/V Primitives'
- name: 'allowSTVPrimitives'
- model: allowSTVPrimitives
- translateLabel: true
- extent: (Point 665 22)
- )
- (CheckBoxSpec
label: 'Allow VisualAge ES-Symbols'
name: 'AllowVisualAgeESSymbolLiterals'
model: allowVisualAgeESSymbolLiterals
@@ -880,7 +871,7 @@
extent: (Point 600 22)
)
(CheckBoxSpec
- label: 'Bad (Uppercase) Local Variable Names'
+ label: 'Bad (Lowercase) Local Variable Names'
name: 'BadLocalVariableNames'
enableChannel: warnings
model: warnAboutLowercaseLocalVariableNames
@@ -982,7 +973,6 @@
allowQualifiedNames
allowReservedWordsAsSelectors
allowSqueakExtensions
- allowSTVPrimitives
allowUnderscoreInIdentifier
allowVisualAgeESSymbolLiterals
allowFixedPointLiterals
@@ -998,7 +988,7 @@
warnAboutWrongVariableNames
warnAboutBadComments
warnInconsistentReturnValues
- warnAboutNonLowercaseLocalVariableNames
+ warnAboutLowercaseLocalVariableNames
)
from:ParserFlags.
@@ -1031,11 +1021,10 @@
warnAboutWrongVariableNames
warnAboutBadComments
warnInconsistentReturnValues
- warnAboutNonLowercaseLocalVariableNames
+ warnAboutLowercaseLocalVariableNames
allowUnderscoreInIdentifier
allowDollarInIdentifier
allowSqueakExtensions
- allowSTVPrimitives
allowDolphinExtensions
allowQualifiedNames
allowOldStyleAssignment
@@ -1131,15 +1120,6 @@
^ allowReservedWordsAsSelectors.
!
-allowSTVPrimitives
-
- allowSTVPrimitives isNil ifTrue:[
- allowSTVPrimitives := ParserFlags allowSTVPrimitives asValue.
- allowSTVPrimitives onChangeSend:#updateModifiedChannel to:self.
- ].
- ^ allowSTVPrimitives.
-!
-
allowSqueakExtensions
allowSqueakExtensions isNil ifTrue:[
@@ -1264,12 +1244,12 @@
^ warnAboutBadComments.
!
-warnAboutNonLowercaseLocalVariableNames
- warnAboutNonLowercaseLocalVariableNames isNil ifTrue:[
- warnAboutNonLowercaseLocalVariableNames := ParserFlags warnAboutNonLowercaseLocalVariableNames asValue.
- warnAboutNonLowercaseLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
- ].
- ^ warnAboutNonLowercaseLocalVariableNames.
+warnAboutLowercaseLocalVariableNames
+ warnAboutLowercaseLocalVariableNames isNil ifTrue:[
+ warnAboutLowercaseLocalVariableNames := ParserFlags warnAboutLowercaseLocalVariableNames asValue.
+ warnAboutLowercaseLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
+ ].
+ ^ warnAboutLowercaseLocalVariableNames.
!
warnAboutWrongVariableNames
@@ -1395,7 +1375,7 @@
warnAboutWrongVariableNames
warnAboutBadComments
warnInconsistentReturnValues
- warnAboutNonLowercaseLocalVariableNames
+ warnAboutLowercaseLocalVariableNames
warnSTXSpecials
warnOldStyleAssignment
warnUnderscoreInIdentifier
@@ -1404,7 +1384,6 @@
allowVisualAgeESSymbolLiterals
allowSqueakExtensions
- allowSTVPrimitives
allowDolphinExtensions
allowQualifiedNames
allowOldStyleAssignment
@@ -2221,14 +2200,14 @@
label: 'Editor Settings'
name: 'Editor Settings'
min: (Point 10 10)
- bounds: (Rectangle 0 0 600 320)
+ bounds: (Rectangle 14 46 614 366)
)
component:
(SpecCollection
collection: (
(VerticalPanelViewSpec
- name: 'VerticalPanel1'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ name: 'VerticalPanel2'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
horizontalLayout: fit
verticalLayout: top
horizontalSpace: 3
@@ -2236,54 +2215,54 @@
component:
(SpecCollection
collection: (
- (CheckBoxSpec
- label: 'CTRL-Key to Start TextDrag'
- name: 'CTRLKeyStTextDragCheckBox'
- model: startTextDragWithControl
- translateLabel: true
- extent: (Point 600 23)
- )
- (CheckBoxSpec
- label: 'SearchBox is Modal'
- name: 'SearchBoxModalCheckBox'
- model: searchDialogIsModal
- translateLabel: true
- extent: (Point 600 23)
- )
- (CheckBoxSpec
- label: 'Tab Stops in Multiples of 4'
- name: 'TabStopsMultiples4CheckBox'
- model: tabsIs4
- translateLabel: true
- extent: (Point 600 23)
- )
- (CheckBoxSpec
- label: 'Double Click Select Behavior as in ST80/VW'
- name: 'DoubleClickSelectBehaviorST80CheckBox'
- model: st80SelectMode
- translateLabel: true
- extent: (Point 600 23)
- )
- (CheckBoxSpec
- label: 'Cursor has ST80/VW Line-end Behavior'
- name: 'CursorST80LineEndBehaviorCheckBox'
- model: st80EditMode
- translateLabel: true
- extent: (Point 600 23)
- )
- (CheckBoxSpec
- label: 'Extended Character-Set for Word-Select (Underline, Dollar)'
- name: 'ExtendedWordSelectModeCheckBox'
- model: extendedWordSelectMode
- translateLabel: true
- extent: (Point 600 23)
- )
- (CheckBoxSpec
- label: 'Delete-Key sets Clipboard'
- name: 'DeleteSetsClipboardTextCheckBox'
- model: deleteSetsClipboardText
- translateLabel: true
- extent: (Point 600 23)
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel1'
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'CTRL-Key to Start TextDrag'
+ name: 'CTRLKeyStTextDragCheckBox'
+ model: startTextDragWithControl
+ translateLabel: true
+ extent: (Point 600 23)
+ )
+ (CheckBoxSpec
+ label: 'SearchBox is Modal'
+ name: 'SearchBoxModalCheckBox'
+ model: searchDialogIsModal
+ translateLabel: true
+ extent: (Point 600 23)
+ )
+ (CheckBoxSpec
+ label: 'Tab Stops in Multiples of 4'
+ name: 'TabStopsMultiples4CheckBox'
+ model: tabsIs4
+ translateLabel: true
+ extent: (Point 600 23)
+ )
+ (CheckBoxSpec
+ label: 'Double Click Select Behavior as in ST80'
+ name: 'DoubleClickSelectBehaviorST80CheckBox'
+ model: st80DoubleClickSelectMode
+ translateLabel: true
+ extent: (Point 600 23)
+ )
+ (CheckBoxSpec
+ label: 'Cursor has ST80 Line-end Behavior'
+ name: 'CursorST80LineEndBehaviorCheckBox'
+ model: st80EditMode
+ translateLabel: true
+ extent: (Point 600 23)
+ )
+ )
+
+ )
+ extent: (Point 600 127)
)
)
@@ -2304,15 +2283,11 @@
searchDialogIsModal
startTextDragWithControl
st80EditMode
- st80SelectMode
- extendedWordSelectMode
- deleteSetsClipboardText
)
from:currentUserPrefs.
+ self st80DoubleClickSelectMode value:TextView st80SelectMode.
self tabsIs4 value:(ListView userDefaultTabPositions = ListView tab4Positions).
-
- "Modified: / 03-07-2006 / 16:52:22 / cg"
!
basicSaveSettings
@@ -2322,20 +2297,16 @@
searchDialogIsModal
startTextDragWithControl
st80EditMode
- st80SelectMode
- extendedWordSelectMode
- deleteSetsClipboardText
)
to:currentUserPrefs.
+ TextView st80SelectMode:(self st80DoubleClickSelectMode value).
tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
ListView allSubInstancesDo:[:eachKindOfListView |
self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
].
].
-
- "Modified: / 03-07-2006 / 16:52:27 / cg"
!
helpFilename
@@ -2344,28 +2315,6 @@
!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
-deleteSetsClipboardText
-
- deleteSetsClipboardText isNil ifTrue:[
- deleteSetsClipboardText := false asValue.
- deleteSetsClipboardText onChangeSend:#updateModifiedChannel to:self.
- ].
- ^ deleteSetsClipboardText.
-
- "Created: / 03-07-2006 / 16:52:06 / cg"
-!
-
-extendedWordSelectMode
-
- extendedWordSelectMode isNil ifTrue:[
- extendedWordSelectMode := true asValue.
- extendedWordSelectMode onChangeSend:#updateModifiedChannel to:self.
- ].
- ^ extendedWordSelectMode.
-
- "Created: / 03-07-2006 / 16:52:06 / cg"
-!
-
searchDialogIsModal
searchDialogIsModal isNil ifTrue:[
@@ -2375,6 +2324,15 @@
^ searchDialogIsModal.
!
+st80DoubleClickSelectMode
+
+ st80DoubleClickSelectMode isNil ifTrue:[
+ st80DoubleClickSelectMode := true asValue.
+ st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
+ ].
+ ^ st80DoubleClickSelectMode.
+!
+
st80EditMode
st80EditingMode isNil ifTrue:[
@@ -2384,17 +2342,6 @@
^ st80EditingMode.
!
-st80SelectMode
-
- st80DoubleClickSelectMode isNil ifTrue:[
- st80DoubleClickSelectMode := true asValue.
- st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
- ].
- ^ st80DoubleClickSelectMode.
-
- "Created: / 03-07-2006 / 16:33:36 / cg"
-!
-
startTextDragWithControl
startTextDragWithControl isNil ifTrue:[
@@ -2416,6 +2363,7 @@
!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
hasUnsavedChanges
+ TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) ifTrue:[^ true].
tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
ListView userDefaultTabPositions ~= (self tabsIs4 value
ifTrue:[ListView tab4Positions]
@@ -2428,15 +2376,10 @@
searchDialogIsModal
startTextDragWithControl
st80EditMode
- st80SelectMode
- extendedWordSelectMode
- deleteSetsClipboardText
)
asComparedTo:currentUserPrefs) ifTrue:[^ true].
^ false
-
- "Modified: / 03-07-2006 / 16:52:14 / cg"
! !
!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
@@ -8771,7 +8714,7 @@
ParserFlags stcCompilationOptions:self stcOptions value.
ParserFlags ccCompilationOptions:self ccOptions value.
ParserFlags ccPath:self cc value.
- ParserFlags makeCommand:self makeCommand.
+ ParserFlags makeCommand:self makeCommand value.
self stc value ~= ParserFlags stcPath ifTrue:[
ParserFlags stcPath:self stc value
@@ -8788,7 +8731,7 @@
]
].
- "Modified: / 09-08-2006 / 18:50:22 / fm"
+ "Modified: / 09-08-2006 / 19:33:10 / fm"
!
helpFilename
@@ -12308,5 +12251,5 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.237 2006-08-09 17:31:36 fm Exp $'
-! !
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.238 2006-08-09 17:32:39 fm Exp $'
+! !