--- a/AbstractSettingsApplication.st Mon Apr 14 11:24:18 2014 +0200
+++ b/AbstractSettingsApplication.st Mon Apr 14 11:38:29 2014 +0200
@@ -2475,64 +2475,62 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'Tool Settings'
- name: 'Tool Settings'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 607 786)
- )
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel2'
- layout: (LayoutFrame 0 0.0 0 0 0 1.0 342 0)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Generate Comments'
- name: 'GenerateComments'
- activeHelpKey: generateComments
- model: generateComments
- translateLabel: true
- extent: (Point 607 25)
- )
- (CheckBoxSpec
- label: 'Generate Comments in Getters'
- name: 'GenerateCommentsInGetters'
- activeHelpKey: generateCommentsInGetters
- enableChannel: generateComments
- model: generateCommentsInGetters
- translateLabel: true
- extent: (Point 607 25)
- )
- (CheckBoxSpec
- label: 'Generate Comments in Setters'
- name: 'GenerateCommentsInSetters'
- activeHelpKey: generateCommentsInSetters
- enableChannel: generateComments
- model: generateCommentsInSetters
- translateLabel: true
- extent: (Point 607 25)
- )
- )
-
- )
- )
- )
-
- )
- )
-
- "Modified: / 04-07-2011 / 16:58:44 / cg"
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Tool Settings'
+ name: 'Tool Settings'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 607 786)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel2'
+ layout: (LayoutFrame 0 0.0 0 0 0 1.0 342 0)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Generate Comments'
+ name: 'GenerateComments'
+ activeHelpKey: generateComments
+ model: generateComments
+ translateLabel: true
+ extent: (Point 607 30)
+ )
+ (CheckBoxSpec
+ label: 'Generate Comments in Getters'
+ name: 'GenerateCommentsInGetters'
+ activeHelpKey: generateCommentsInGetters
+ enableChannel: generateComments
+ model: generateCommentsInGetters
+ translateLabel: true
+ extent: (Point 607 30)
+ )
+ (CheckBoxSpec
+ label: 'Generate Comments in Setters'
+ name: 'GenerateCommentsInSetters'
+ activeHelpKey: generateCommentsInSetters
+ enableChannel: generateComments
+ model: generateCommentsInSetters
+ translateLabel: true
+ extent: (Point 607 30)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
! !
!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'actions'!
@@ -13628,271 +13626,272 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'Code Format Settings'
- name: 'Code Format Settings'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 604 676)
- )
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel3'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- horizontalLayout: fit
- verticalLayout: topSpace
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel1'
- horizontalLayout: fit
- verticalLayout: bottom
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'Box1'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Space around Temporaries'
- name: 'CheckBox3'
- layout: (LayoutFrame 0 0 0 0 250 0 22 0)
- model: spaceAroundTemporaries
- translateLabel: true
- )
- (CheckBoxSpec
- label: 'Blank line after local Var Declaration'
- name: 'CheckBox4'
- layout: (LayoutFrame 250 0 0 0 0 1 22 0)
- model: emptyLineAfterTemporaries
- translateLabel: true
- )
- )
-
- )
- extent: (Point 604 22)
- )
- (ViewSpec
- name: 'Box11'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Space after ''^'''
- name: 'CheckBox5'
- layout: (LayoutFrame 0 0 0 0 250 0 22 0)
- model: spaceAfterReturnToken
- translateLabel: true
- )
- (CheckBoxSpec
- label: 'Space after '':'' in Keywords'
- name: 'CheckBox6'
- layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
- model: spaceAfterKeywordSelector
- translateLabel: true
- )
- )
-
- )
- extent: (Point 604 22)
- )
- (ViewSpec
- name: 'Box15'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Space after ''['''
- name: 'CheckBox9'
- layout: (LayoutFrame 0 0 0 0 250 0 22 0)
- model: spaceAfterBlockStart
- translateLabel: true
- )
- (CheckBoxSpec
- label: 'Space before '']'''
- name: 'CheckBox10'
- layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
- model: spaceBeforeBlockEnd
- translateLabel: true
- )
- )
-
- )
- extent: (Point 604 22)
- )
- (ViewSpec
- name: 'Box12'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'C-Style Blocks'
- name: 'CheckBox8'
- layout: (LayoutFrame 0 0 0 0 250 0 22 0)
- model: cStyleBlocks
- translateLabel: true
- )
- (CheckBoxSpec
- label: 'Block Args on new Line'
- name: 'CheckBox7'
- layout: (LayoutFrame 250 0 0 0 -5 1 22 0)
- model: blockArgumentsOnNewLine
- translateLabel: true
- )
- )
-
- )
- extent: (Point 604 22)
- )
- (ViewSpec
- name: 'Box13'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Indent:'
- name: 'Label1'
- layout: (LayoutFrame 0 0 0 0 250 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField1'
- layout: (LayoutFrame 253 0 0 0 300 0 22 0)
- model: tabIndent
- type: number
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 604 30)
- )
- (ViewSpec
- name: 'Box16'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Max Length for Single Line Blocks:'
- name: 'Label5'
- layout: (LayoutFrame 0 0 0 0 250 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField4'
- layout: (LayoutFrame 253 0 0 0 300 0 22 0)
- model: maxLengthForSingleLineBlocks
- type: number
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 604 29)
- )
- (HorizontalPanelViewSpec
- name: 'HorizontalPanel1'
- horizontalLayout: fitSpace
- verticalLayout: bottom
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'Reset to ST/X Default'
- name: 'Button1'
- translateLabel: true
- tabable: true
- model: resetToStxDefault
- extent: (Point 297 22)
- )
- (ActionButtonSpec
- label: 'Reset to RefactoryBrowser Default'
- name: 'Button2'
- translateLabel: true
- tabable: true
- model: resetToRBDefault
- extent: (Point 298 22)
- )
- )
-
- )
- extent: (Point 604 30)
- )
- )
-
- )
- extent: (Point 604 180)
- )
- (ViewSpec
- name: 'SpacingBox1'
- extent: (Point 604 10)
- )
- (ViewSpec
- name: 'Box14'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Sample Output:'
- name: 'Label3'
- layout: (LayoutFrame 0 0 0 0 0 1 22 0)
- translateLabel: true
- adjust: left
- )
- (TextEditorSpec
- name: 'TextEditor3'
- layout: (LayoutFrame 0 0 22 0 0 1 300 0)
- model: editorText
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- isReadOnly: true
- postBuildCallback: postBuildTextEditor:
- )
- )
-
- )
- extent: (Point 604 300)
- )
- (ViewSpec
- name: 'SpacingBox2'
- extent: (Point 604 10)
- )
- (CheckBoxSpec
- label: 'Auto Format'
- name: 'CheckBox2'
- model: autoFormat
- translateLabel: true
- extent: (Point 604 22)
- )
- )
-
- )
- )
- )
-
- )
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Code Format Settings'
+ name: 'Code Format Settings'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 604 676)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel3'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ horizontalLayout: fit
+ verticalLayout: topSpace
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel1'
+ horizontalLayout: fit
+ verticalLayout: bottom
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box1'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Space around Temporaries'
+ name: 'CheckBox3'
+ layout: (LayoutFrame 0 0 0 0 250 0 30 0)
+ model: spaceAroundTemporaries
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'Blank line after local Var Declaration'
+ name: 'CheckBox4'
+ layout: (LayoutFrame 250 0 0 0 0 1 30 0)
+ model: emptyLineAfterTemporaries
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 604 30)
+ )
+ (ViewSpec
+ name: 'Box11'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Space after ''^'''
+ name: 'CheckBox5'
+ layout: (LayoutFrame 0 0 0 0 250 0 30 0)
+ model: spaceAfterReturnToken
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'Space after '':'' in Keywords'
+ name: 'CheckBox6'
+ layout: (LayoutFrame 250 0 0 0 -5 1 30 0)
+ model: spaceAfterKeywordSelector
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 604 30)
+ )
+ (ViewSpec
+ name: 'Box15'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Space after ''['''
+ name: 'CheckBox9'
+ layout: (LayoutFrame 0 0 0 0 250 0 30 0)
+ model: spaceAfterBlockStart
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'Space before '']'''
+ name: 'CheckBox10'
+ layout: (LayoutFrame 250 0 0 0 -5 1 30 0)
+ model: spaceBeforeBlockEnd
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 604 30)
+ )
+ (ViewSpec
+ name: 'Box12'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'C-Style Blocks'
+ name: 'CheckBox8'
+ layout: (LayoutFrame 0 0 0 0 250 0 30 0)
+ model: cStyleBlocks
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'Block Args on new Line'
+ name: 'CheckBox7'
+ layout: (LayoutFrame 250 0 0 0 -5 1 30 0)
+ model: blockArgumentsOnNewLine
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 604 30)
+ )
+ (ViewSpec
+ name: 'Box13'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Indent:'
+ name: 'Label1'
+ layout: (LayoutFrame 0 0 0 0 327 0 30 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame 334 0 0 0 381 0 30 0)
+ model: tabIndent
+ type: number
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 604 30)
+ )
+ (ViewSpec
+ name: 'Box16'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Max Length for Single Line Blocks:'
+ name: 'Label5'
+ layout: (LayoutFrame 0 0 0 0 327 0 30 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField4'
+ layout: (LayoutFrame 334 0 0 0 381 0 30 0)
+ model: maxLengthForSingleLineBlocks
+ type: number
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 604 30)
+ )
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel1'
+ horizontalLayout: fitSpace
+ verticalLayout: bottom
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Reset to ST/X Default'
+ name: 'Button1'
+ translateLabel: true
+ tabable: true
+ model: resetToStxDefault
+ extent: (Point 297 22)
+ )
+ (ActionButtonSpec
+ label: 'Reset to RefactoryBrowser Default'
+ name: 'Button2'
+ translateLabel: true
+ tabable: true
+ model: resetToRBDefault
+ extent: (Point 298 22)
+ )
+ )
+
+ )
+ extent: (Point 604 30)
+ )
+ )
+
+ )
+ extent: (Point 604 180)
+ )
+ (ViewSpec
+ name: 'SpacingBox1'
+ extent: (Point 604 10)
+ )
+ (ViewSpec
+ name: 'Box14'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Sample Output:'
+ name: 'Label3'
+ layout: (LayoutFrame 0 0 0 0 0 1 30 0)
+ translateLabel: true
+ adjust: left
+ )
+ (TextEditorSpec
+ name: 'TextEditor3'
+ layout: (LayoutFrame 0 0 30 0 0 1 300 0)
+ model: editorText
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ isReadOnly: true
+ hasKeyboardFocusInitially: false
+ postBuildCallback: postBuildTextEditor:
+ )
+ )
+
+ )
+ extent: (Point 604 300)
+ )
+ (ViewSpec
+ name: 'SpacingBox2'
+ extent: (Point 604 10)
+ )
+ (CheckBoxSpec
+ label: 'Auto Format'
+ name: 'CheckBox2'
+ model: autoFormat
+ translateLabel: true
+ extent: (Point 604 30)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
! !
!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
@@ -16466,198 +16465,198 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'Syntax Color Settings'
- name: 'Syntax Color Settings'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 695 609)
- )
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel2'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- horizontalLayout: fit
- verticalLayout: topSpaceFit
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Syntax Coloring'
- name: 'CheckBox1'
- activeHelpKey: syntaxColoringEnabled
- model: syntaxColoring
- translateLabel: true
- extent: (Point 695 22)
- )
- (CheckBoxSpec
- label: 'Immediate Selector Check'
- name: 'ImmediateSelectorCheckBox'
- activeHelpKey: immediateSelectorCheck
- enableChannel: syntaxColoring
- model: fullSelectorCheck
- translateLabel: true
- extent: (Point 695 22)
- )
- (ViewSpec
- name: 'SpacingBox2'
- extent: (Point 695 10)
- )
- (LabelSpec
- label: 'Style:'
- name: 'Label5'
- activeHelpKey: individualStyleSetting
- translateLabel: true
- adjust: left
- extent: (Point 695 22)
- )
- (ViewSpec
- name: 'ElementSelectionBox'
- activeHelpKey: individualStyleSetting
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Element:'
- name: 'Label4'
- layout: (LayoutFrame 0 0 0 0 120 0 22 0)
- activeHelpKey: elementSelection
- translateLabel: true
- adjust: right
- )
- (ComboListSpec
- name: 'ComboList3'
- layout: (LayoutFrame 140 0 0 0 0 1 22 0)
- enableChannel: syntaxColoring
- model: syntaxElementSelection
- comboList: syntaxElementList
- useIndex: false
- hidePullDownMenuButton: false
- )
- )
-
- )
- extent: (Point 695 25)
- )
- (ViewSpec
- name: 'ColorBox'
- activeHelpKey: individualStyleSetting
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Color:'
- name: 'Label2'
- layout: (LayoutFrame 0 0 0 0 120 0 22 0)
- activeHelpKey: colorSelection
- translateLabel: true
- adjust: right
- )
- (ColorMenuSpec
- name: 'ColorMenu2'
- layout: (LayoutFrame 140 0 0 0 0 1 25 0)
- enableChannel: syntaxColoring
- model: syntaxColor
- labelsAreColored: true
- )
- )
-
- )
- extent: (Point 695 25)
- )
- (ViewSpec
- name: 'EmphasisBox'
- activeHelpKey: individualStyleSetting
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Emphasis:'
- name: 'Label1'
- layout: (LayoutFrame 0 0 0 0 120 0 22 0)
- activeHelpKey: emphasisSelection
- translateLabel: true
- adjust: right
- )
- (ComboListSpec
- name: 'ComboList5'
- layout: (LayoutFrame 140 0 0 0 0 1 22 0)
- enableChannel: syntaxColoring
- model: syntaxEmphasisSelection
- comboList: syntaxEmphasisList
- useIndex: false
- hidePullDownMenuButton: false
- )
- )
-
- )
- extent: (Point 695 25)
- )
- (ViewSpec
- name: 'ResetBox'
- activeHelpKey: commonStyleSetting
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'Reset To:'
- name: 'Button2'
- layout: (LayoutFrame 0 0 -28 1 150 0 -6 1)
- activeHelpKey: resetToCommonStyle
- translateLabel: true
- model: resetToColorScheme
- enableChannel: syntaxColoring
- )
- (ComboListSpec
- name: 'ComboList4'
- layout: (LayoutFrame 150 0 -28 1 0 1 -6 1)
- activeHelpKey: commonStyleSelection
- enableChannel: syntaxColoring
- model: resetListSelection
- comboList: resetList
- useIndex: false
- hidePullDownMenuButton: false
- )
- )
-
- )
- extent: (Point 695 45)
- )
- (ViewSpec
- name: 'SpacingBox1'
- extent: (Point 695 10)
- )
- (LabelSpec
- label: 'Sample Output:'
- name: 'SampleLabel3'
- translateLabel: true
- adjust: left
- extent: (Point 695 22)
- )
- (TextEditorSpec
- name: 'TextEditor2'
- enableChannel: syntaxColoring
- model: coloredText
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- isReadOnly: true
- hasKeyboardFocusInitially: false
- extent: (Point 695 345)
- )
- )
-
- )
- )
- )
-
- )
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Syntax Color Settings'
+ name: 'Syntax Color Settings'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 695 609)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel2'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ horizontalLayout: fit
+ verticalLayout: topSpaceFit
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Syntax Coloring'
+ name: 'CheckBox1'
+ activeHelpKey: syntaxColoringEnabled
+ model: syntaxColoring
+ translateLabel: true
+ extent: (Point 695 30)
+ )
+ (CheckBoxSpec
+ label: 'Immediate Selector Check'
+ name: 'ImmediateSelectorCheckBox'
+ activeHelpKey: immediateSelectorCheck
+ enableChannel: syntaxColoring
+ model: fullSelectorCheck
+ translateLabel: true
+ extent: (Point 695 30)
+ )
+ (ViewSpec
+ name: 'SpacingBox2'
+ extent: (Point 695 10)
+ )
+ (LabelSpec
+ label: 'Style:'
+ name: 'Label5'
+ activeHelpKey: individualStyleSetting
+ translateLabel: true
+ adjust: left
+ extent: (Point 695 30)
+ )
+ (ViewSpec
+ name: 'ElementSelectionBox'
+ activeHelpKey: individualStyleSetting
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Element:'
+ name: 'Label4'
+ layout: (LayoutFrame 4 0 0 0 140 0 30 0)
+ activeHelpKey: elementSelection
+ translateLabel: true
+ adjust: right
+ )
+ (ComboListSpec
+ name: 'ComboList3'
+ layout: (LayoutFrame 140 0 0 0 0 1 30 0)
+ enableChannel: syntaxColoring
+ model: syntaxElementSelection
+ comboList: syntaxElementList
+ useIndex: false
+ hidePullDownMenuButton: false
+ )
+ )
+
+ )
+ extent: (Point 695 30)
+ )
+ (ViewSpec
+ name: 'ColorBox'
+ activeHelpKey: individualStyleSetting
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Color:'
+ name: 'Label2'
+ layout: (LayoutFrame 4 0 0 0 140 0 30 0)
+ activeHelpKey: colorSelection
+ translateLabel: true
+ adjust: right
+ )
+ (ColorMenuSpec
+ name: 'ColorMenu2'
+ layout: (LayoutFrame 140 0 0 0 0 1 30 0)
+ enableChannel: syntaxColoring
+ model: syntaxColor
+ labelsAreColored: true
+ )
+ )
+
+ )
+ extent: (Point 695 30)
+ )
+ (ViewSpec
+ name: 'EmphasisBox'
+ activeHelpKey: individualStyleSetting
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Emphasis:'
+ name: 'Label1'
+ layout: (LayoutFrame 4 0 0 0 140 0 30 0)
+ activeHelpKey: emphasisSelection
+ translateLabel: true
+ adjust: right
+ )
+ (ComboListSpec
+ name: 'ComboList5'
+ layout: (LayoutFrame 140 0 0 0 0 1 30 0)
+ enableChannel: syntaxColoring
+ model: syntaxEmphasisSelection
+ comboList: syntaxEmphasisList
+ useIndex: false
+ hidePullDownMenuButton: false
+ )
+ )
+
+ )
+ extent: (Point 695 30)
+ )
+ (ViewSpec
+ name: 'ResetBox'
+ activeHelpKey: commonStyleSetting
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Reset To:'
+ name: 'Button2'
+ layout: (LayoutFrame 0 0 -36 1 150 0 -6 1)
+ activeHelpKey: resetToCommonStyle
+ translateLabel: true
+ model: resetToColorScheme
+ enableChannel: syntaxColoring
+ )
+ (ComboListSpec
+ name: 'ComboList4'
+ layout: (LayoutFrame 150 0 -36 1 0 1 -6 1)
+ activeHelpKey: commonStyleSelection
+ enableChannel: syntaxColoring
+ model: resetListSelection
+ comboList: resetList
+ useIndex: false
+ hidePullDownMenuButton: false
+ )
+ )
+
+ )
+ extent: (Point 695 45)
+ )
+ (ViewSpec
+ name: 'SpacingBox1'
+ extent: (Point 695 10)
+ )
+ (LabelSpec
+ label: 'Sample Output:'
+ name: 'SampleLabel3'
+ translateLabel: true
+ adjust: left
+ extent: (Point 695 30)
+ )
+ (TextEditorSpec
+ name: 'TextEditor2'
+ enableChannel: syntaxColoring
+ model: coloredText
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ isReadOnly: true
+ hasKeyboardFocusInitially: false
+ extent: (Point 695 298)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
! !
!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
@@ -17080,194 +17079,195 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'Tool Settings'
- name: 'Tool Settings'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 613 436)
- )
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'SettingsPanel'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (FramedBoxSpec
- label: 'Settings'
- name: 'ToolsSettingsPanel'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'ToolSettingsVPanel'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Use the Embedded Test Runner'
- name: 'UseEmbeddedTestRunner'
- activeHelpKey: useEmbeddedTestRunner
- model: showEmbeddedTestRunnerInBrowser
- translateLabel: true
- extent: (Point 579 25)
- )
- (CheckBoxSpec
- label: 'Web Browser Like Layout (Toolbars are Part of the Tab - experimental)'
- name: 'CheckBox1'
- activeHelpKey: webBrowserLikeLayout
- initiallyInvisible: true
- model: webBrowserLikeLayout
- translateLabel: true
- extent: (Point 607 25)
- )
- (CheckBoxSpec
- label: 'Show Bookmarks Bar'
- name: 'ShowBookmarksBar'
- activeHelpKey: showBookmarksBar
- model: showBookmarkBar
- translateLabel: true
- extent: (Point 579 25)
- )
- (CheckBoxSpec
- label: 'Sort and Indent Classes by Inheritance'
- name: 'SortAndIndentClassesByInheritance'
- activeHelpKey: sortAndIndentClassesByInheritance
- model: sortAndIndentClassesByInheritance
- translateLabel: true
- extent: (Point 579 25)
- )
- (CheckBoxSpec
- label: 'Show Local Navigation History (Separate History per Browser Tab)'
- name: 'CheckBox2'
- activeHelpKey: showLocalHistory
- model: showLocalHistory
- translateLabel: true
- extent: (Point 579 25)
- )
- (CheckBoxSpec
- label: 'Show Global Navigation History (Global History for all Browsers)'
- name: 'CheckBox3'
- activeHelpKey: showGlobalHistory
- model: showGlobalHistory
- translateLabel: true
- extent: (Point 579 25)
- )
- (CheckBoxSpec
- label: 'Show Search Bar in Browser'
- name: 'ShowSearchBarInBrowser'
- activeHelpKey: searchBarInBrowser
- model: useSearchBarInBrowser
- translateLabel: true
- extent: (Point 579 25)
- )
- (CheckBoxSpec
- label: 'Use in-place Search in Browser Lists (experimental)'
- name: 'CheckBox4'
- activeHelpKey: inPlaceSearch
- model: useInPlaceSearchInBrowserLists
- translateLabel: true
- extent: (Point 579 22)
- )
- (CheckBoxSpec
- label: 'Show Method Template'
- name: 'MethodTemplate'
- activeHelpKey: showMethodTemplate
- model: showMethodTemplate
- translateLabel: true
- extent: (Point 579 25)
- )
- )
-
- )
- )
- )
-
- )
- extent: (Point 607 265)
- useDynamicPreferredHeight: true
- )
- (FramedBoxSpec
- label: 'Sourcecode Management Menu Layout'
- name: 'MenyLayoutPanel'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'MenyLayoutVPanel'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (RadioButtonSpec
- label: 'Old (default)'
- name: 'SCMMenuLayoutOld'
- activeHelpKey: oldSCMMenuLayout
- translateLabel: true
- model: sourceCodeManagementMenuLayout
- isTriggerOnDown: true
- select: 'old'
- extent: (Point 579 22)
- )
- (RadioButtonSpec
- label: 'Inline (experimental)'
- name: 'SCMMenuLayoutInline'
- activeHelpKey: inlineSCMLayout
- translateLabel: true
- model: sourceCodeManagementMenuLayout
- isTriggerOnDown: true
- select: 'inline'
- extent: (Point 579 22)
- )
- (RadioButtonSpec
- label: 'Compact (experimental)'
- name: 'SCMMenuLayoutCompact'
- activeHelpKey: compactSCMLayout
- translateLabel: true
- model: sourceCodeManagementMenuLayout
- isTriggerOnDown: true
- select: 'compact'
- extent: (Point 579 22)
- )
- )
-
- )
- )
- )
-
- )
- extent: (Point 613 108)
- )
- )
-
- )
- )
- )
-
- )
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Tool Settings'
+ name: 'Tool Settings'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 616 497)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'SettingsPanel'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (FramedBoxSpec
+ label: 'Settings'
+ name: 'ToolsSettingsPanel'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'ToolSettingsVPanel'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Use the Embedded Test Runner'
+ name: 'UseEmbeddedTestRunner'
+ activeHelpKey: useEmbeddedTestRunner
+ model: showEmbeddedTestRunnerInBrowser
+ translateLabel: true
+ extent: (Point 580 30)
+ )
+ (CheckBoxSpec
+ label: 'Web Browser Like Layout (Toolbars are Part of the Tab - experimental)'
+ name: 'CheckBox1'
+ activeHelpKey: webBrowserLikeLayout
+ initiallyInvisible: true
+ model: webBrowserLikeLayout
+ translateLabel: true
+ extent: (Point 607 30)
+ )
+ (CheckBoxSpec
+ label: 'Show Bookmarks Bar'
+ name: 'ShowBookmarksBar'
+ activeHelpKey: showBookmarksBar
+ model: showBookmarkBar
+ translateLabel: true
+ extent: (Point 580 30)
+ )
+ (CheckBoxSpec
+ label: 'Sort and Indent Classes by Inheritance'
+ name: 'SortAndIndentClassesByInheritance'
+ activeHelpKey: sortAndIndentClassesByInheritance
+ model: sortAndIndentClassesByInheritance
+ translateLabel: true
+ extent: (Point 580 30)
+ )
+ (CheckBoxSpec
+ label: 'Show Local Navigation History (Separate History per Browser Tab)'
+ name: 'CheckBox2'
+ activeHelpKey: showLocalHistory
+ model: showLocalHistory
+ translateLabel: true
+ extent: (Point 580 30)
+ )
+ (CheckBoxSpec
+ label: 'Show Global Navigation History (Global History for all Browsers)'
+ name: 'CheckBox3'
+ activeHelpKey: showGlobalHistory
+ model: showGlobalHistory
+ translateLabel: true
+ extent: (Point 580 30)
+ )
+ (CheckBoxSpec
+ label: 'Show Search Bar in Browser'
+ name: 'ShowSearchBarInBrowser'
+ activeHelpKey: searchBarInBrowser
+ model: useSearchBarInBrowser
+ translateLabel: true
+ extent: (Point 580 30)
+ )
+ (CheckBoxSpec
+ label: 'Use in-place Search in Browser Lists (experimental)'
+ name: 'CheckBox4'
+ activeHelpKey: inPlaceSearch
+ model: useInPlaceSearchInBrowserLists
+ translateLabel: true
+ extent: (Point 580 30)
+ )
+ (CheckBoxSpec
+ label: 'Show Method Template'
+ name: 'MethodTemplate'
+ activeHelpKey: showMethodTemplate
+ model: showMethodTemplate
+ translateLabel: true
+ extent: (Point 580 30)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ extent: (Point 607 295)
+ usePreferredHeight: true
+ useDynamicPreferredHeight: true
+ )
+ (FramedBoxSpec
+ label: 'Sourcecode Management Menu Layout'
+ name: 'MenuLayoutPanel'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'MenyLayoutVPanel'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (RadioButtonSpec
+ label: 'Old'
+ name: 'SCMMenuLayoutOld'
+ activeHelpKey: oldSCMMenuLayout
+ translateLabel: true
+ model: sourceCodeManagementMenuLayout
+ isTriggerOnDown: true
+ select: 'old'
+ extent: (Point 580 30)
+ )
+ (RadioButtonSpec
+ label: 'Inline'
+ name: 'SCMMenuLayoutInline'
+ activeHelpKey: inlineSCMLayout
+ translateLabel: true
+ model: sourceCodeManagementMenuLayout
+ isTriggerOnDown: true
+ select: 'inline'
+ extent: (Point 580 30)
+ )
+ (RadioButtonSpec
+ label: 'Compact'
+ name: 'SCMMenuLayoutCompact'
+ activeHelpKey: compactSCMLayout
+ translateLabel: true
+ model: sourceCodeManagementMenuLayout
+ isTriggerOnDown: true
+ select: 'compact'
+ extent: (Point 580 30)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ extent: (Point 616 122)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
! !
!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'actions'!
@@ -19203,10 +19203,10 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.523 2014-04-13 18:23:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.524 2014-04-14 09:38:29 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.523 2014-04-13 18:23:27 cg Exp $'
-! !
-
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.524 2014-04-14 09:38:29 cg Exp $'
+! !
+