--- a/Tools__CodeView2SettingsAppl.st Fri Dec 06 17:11:32 2013 +0000
+++ b/Tools__CodeView2SettingsAppl.st Fri Dec 06 17:54:27 2013 +0000
@@ -17,7 +17,8 @@
instanceVariableNames:'useCodeView2InTools useCodeView2InDebugger useCodeView2InBrowser
useCodeView2InToolEnabled useCodeView2InWorkspace
codeView2AutoPrettyPrint codeView2ShowAcceptCancel
- codeView2QuickSendersAndImplementorsOnControl'
+ codeView2QuickSendersAndImplementorsOnControl
+ showAcceptCancelBarInBrowser'
classVariableNames:''
poolDictionaries:''
category:'Interface-CodeView'
@@ -78,6 +79,27 @@
and check if it looks good enough to be accepted.'
)
+!
+
+helpSpec
+ "This resource specification was automatically generated
+ by the UIHelpTool of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIHelpTool may not be able to read the specification."
+
+ "
+ UIHelpTool openOnClass:Tools::CodeView2SettingsAppl
+ "
+
+ <resource: #help>
+
+ ^ super helpSpec addPairsFrom:#(
+
+#showAcceptCancelBarInGutter
+'When selected, use CodeView''s internal Accept/Cancel bar shown in gutter.'
+
+)
! !
!CodeView2SettingsAppl class methodsFor:'image specs'!
@@ -123,173 +145,193 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'Code Editor Settings'
- name: 'Code Editor Settings'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 585 289)
- )
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VBox'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (FramedBoxSpec
- label: 'Individual Tool Support'
- name: 'ToolSupport'
- visibilityChannel: false
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'ToolSupportCheckBox'
- layout: (LayoutFrame 0 0 0 0 0 1 81 0)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Use Advanced Code Editor in Class Browser'
- name: 'CheckBox2'
- activeHelpKey: useCodeView2InBrowser
- enableChannel: useCodeView2InToolEnabled
- model: useCodeView2InBrowser
- translateLabel: true
- extent: (Point 551 25)
- )
- (CheckBoxSpec
- label: 'Use Advanced Code Editor in Debugger (experimental)'
- name: 'CheckBox3'
- activeHelpKey: useCodeView2InDebugger
- enableChannel: useCodeView2InToolEnabled
- model: useCodeView2InDebugger
- translateLabel: true
- extent: (Point 551 25)
- )
- (CheckBoxSpec
- label: 'Use Advanced Code Editor in Workspace'
- name: 'CheckBox4'
- activeHelpKey: useCodeView2InWorkspace
- enableChannel: useCodeView2InToolEnabled
- model: useCodeView2InWorkspace
- translateLabel: true
- extent: (Point 551 25)
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Code Editor Settings'
+ name: 'Code Editor Settings'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 585 333)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VBox'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (FramedBoxSpec
+ label: 'Individual Tool Support'
+ name: 'ToolSupport'
+ visibilityChannel: false
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'ToolSupportCheckBox'
+ layout: (LayoutFrame 0 0 0 0 0 1 81 0)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Use Advanced Code Editor in Class Browser'
+ name: 'CheckBox2'
+ activeHelpKey: useCodeView2InBrowser
+ enableChannel: useCodeView2InToolEnabled
+ model: useCodeView2InBrowser
+ translateLabel: true
+ extent: (Point 549 25)
)
-
- )
- usePreferredHeight: true
- useDynamicPreferredHeight: true
- )
+ (CheckBoxSpec
+ label: 'Use Advanced Code Editor in Debugger (experimental)'
+ name: 'CheckBox3'
+ activeHelpKey: useCodeView2InDebugger
+ enableChannel: useCodeView2InToolEnabled
+ model: useCodeView2InDebugger
+ translateLabel: true
+ extent: (Point 549 25)
+ )
+ (CheckBoxSpec
+ label: 'Use Advanced Code Editor in Workspace'
+ name: 'CheckBox4'
+ activeHelpKey: useCodeView2InWorkspace
+ enableChannel: useCodeView2InToolEnabled
+ model: useCodeView2InWorkspace
+ translateLabel: true
+ extent: (Point 549 25)
+ )
+ )
+
+ )
+ usePreferredHeight: true
+ useDynamicPreferredHeight: true
)
-
- )
- extent: (Point 585 117)
- )
- (FramedBoxSpec
- label: 'Edit Support'
- name: 'EditSupport'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel1'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Show Accept/Cancel Buttons in Gutter'
- name: 'CheckBox6'
- activeHelpKey: showAcceptCancelBarInGutter
- enableChannel: acceptCancelInGutterEnabledHolder
- model: codeView2ShowAcceptCancel
- translateLabel: true
- extent: (Point 551 25)
- )
- (CheckBoxSpec
- label: 'Auto Pretty Print (experimental, not yet recommended)'
- name: 'CheckBox5'
- activeHelpKey: codeView2AutoPrettyPrint
- enableChannel: false
- model: codeView2AutoPrettyPrint
- translateLabel: true
- extent: (Point 551 25)
- )
+ )
+
+ )
+ extent: (Point 585 117)
+ )
+ (FramedBoxSpec
+ label: 'Edit Support'
+ name: 'EditSupport'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel1'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Show Accept/Cancel Bar in Editor'
+ name: 'ShowAcceptCancelBarInBrowser'
+ activeHelpKey: showAcceptCancelBar
+ model: showAcceptCancelBarInBrowser
+ extent: (Point 549 25)
)
-
- )
- )
+ (ViewSpec
+ name: 'Box1'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Use Internal Accept/Cancel Bar Shown in Editor''s Gutter'
+ name: 'CheckBox6'
+ layout: (LayoutFrame 25 0 0 0 0 1 0 1)
+ activeHelpKey: showAcceptCancelBarInGutter
+ enableChannel: showAcceptCancelBarInBrowser
+ model: codeView2ShowAcceptCancel
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 549 25)
+ )
+ (CheckBoxSpec
+ label: 'Auto Pretty Print (experimental, not yet recommended)'
+ name: 'CheckBox5'
+ activeHelpKey: codeView2AutoPrettyPrint
+ visibilityChannel: false
+ enableChannel: false
+ model: codeView2AutoPrettyPrint
+ translateLabel: true
+ extent: (Point 549 25)
+ )
+ )
+
+ )
)
-
- )
- extent: (Point 585 89)
- )
- (FramedBoxSpec
- label: 'Keyboard Shortcuts'
- name: 'FramedBox1'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel2'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Quick Senders/Implementors Menu with CTRL key (as opposed to ALT key)'
- name: 'CheckBox7'
- activeHelpKey: codeView2QuickSendersAndImplementorsOnControl
- model: codeView2QuickSendersAndImplementorsOnControl
- translateLabel: true
- extent: (Point 551 25)
- )
+ )
+
+ )
+ extent: (Point 585 115)
+ )
+ (FramedBoxSpec
+ label: 'Keyboard Shortcuts'
+ name: 'FramedBox1'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel2'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Quick Senders/Implementors Menu with CTRL key (as opposed to ALT key)'
+ name: 'CheckBox7'
+ activeHelpKey: codeView2QuickSendersAndImplementorsOnControl
+ model: codeView2QuickSendersAndImplementorsOnControl
+ translateLabel: true
+ extent: (Point 549 25)
)
-
- )
- )
+ )
+
+ )
)
-
- )
- extent: (Point 585 65)
- )
+ )
+
+ )
+ extent: (Point 585 65)
)
-
- )
- )
+ )
+
+ )
)
-
- )
- )
+ )
+
+ )
+ )
+
+ "Modified (format): / 06-12-2013 / 17:43:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!CodeView2SettingsAppl methodsFor:'aspects'!
@@ -331,6 +373,16 @@
"Modified: / 10-10-2011 / 16:43:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+showAcceptCancelBarInBrowser
+ showAcceptCancelBarInBrowser isNil ifTrue:[
+ showAcceptCancelBarInBrowser := false asValue.
+ showAcceptCancelBarInBrowser onChangeSend:#updateModifiedChannel to:self
+ ].
+ ^ showAcceptCancelBarInBrowser.
+
+ "Created: / 06-12-2013 / 17:39:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
useCodeView2InBrowser
useCodeView2InBrowser isNil ifTrue:[
@@ -405,11 +457,12 @@
#useCodeView2InWorkspace
"/Editing support
#codeView2AutoPrettyPrint
- "/ #codeView2ShowAcceptCancel
+ #showAcceptCancelBarInBrowser
+ #codeView2ShowAcceptCancel
#codeView2QuickSendersAndImplementorsOnControl
)
- "Modified: / 10-10-2011 / 16:43:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 06-12-2013 / 17:39:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
basicReadSettings