Tools__CodeView2SettingsAppl.st
changeset 10524 ceb080812e0d
parent 10398 3940fc3545c1
child 10794 854c6d72f257
--- 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