--- a/Tools__CodeView2SettingsAppl.st Sun Aug 07 13:58:55 2011 +0200
+++ b/Tools__CodeView2SettingsAppl.st Sun Aug 07 13:59:11 2011 +0200
@@ -15,7 +15,8 @@
AbstractSettingsApplication subclass:#CodeView2SettingsAppl
instanceVariableNames:'useCodeView2InTools useCodeView2InDebugger useCodeView2InBrowser
- useCodeView2InToolEnabled useCodeView2InWorkspace'
+ useCodeView2InToolEnabled useCodeView2InWorkspace
+ codeView2AutoIndent'
classVariableNames:''
poolDictionaries:''
category:'Interface-CodeView'
@@ -78,6 +79,40 @@
(SpecCollection
collection: (
(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: 'Auto Indent'
+ name: 'CheckBox5'
+ model: codeView2AutoIndent
+ translateLabel: true
+ extent: (Point 540 22)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ extent: (Point 576 59)
+ )
+ (FramedBoxSpec
label: 'Tool Support'
name: 'ToolSupport'
labelPosition: topLeft
@@ -158,6 +193,20 @@
!CodeView2SettingsAppl methodsFor:'aspects'!
+codeView2AutoIndent
+ "return/create the 'useCodeView2InTools' value holder (automatically generated)"
+
+ codeView2AutoIndent isNil ifTrue:[
+ codeView2AutoIndent := ValueHolder new.
+ codeView2AutoIndent onChangeSend:#updateModifiedChannel to:self
+
+ ].
+ ^ codeView2AutoIndent
+
+ "Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Created: / 07-08-2011 / 12:52:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
useCodeView2InBrowser
"return/create the 'useCodeView2InTools' value holder (automatically generated)"
@@ -239,9 +288,11 @@
#useCodeView2InBrowser
#useCodeView2InDebugger
#useCodeView2InWorkspace
+ "/Editing support
+ #codeView2AutoIndent
)
- "Modified: / 26-07-2011 / 10:31:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 07-08-2011 / 12:48:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
basicReadSettings
@@ -282,11 +333,11 @@
!CodeView2SettingsAppl class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2SettingsAppl.st,v 1.2 2011-07-26 09:53:35 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2SettingsAppl.st,v 1.3 2011-08-07 11:59:11 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2SettingsAppl.st,v 1.2 2011-07-26 09:53:35 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2SettingsAppl.st,v 1.3 2011-08-07 11:59:11 vrany Exp $'
!
version_SVN