FileBrowserV2SettingsAppl.st
changeset 13006 f5c4d034874d
parent 12418 d4fdcbe19d40
child 13007 d71b508f4592
--- a/FileBrowserV2SettingsAppl.st	Tue Jun 25 12:42:29 2013 +0200
+++ b/FileBrowserV2SettingsAppl.st	Tue Jun 25 15:50:19 2013 +0200
@@ -41,6 +41,29 @@
 "
 ! !
 
+!FileBrowserV2SettingsAppl class methodsFor:'help specs'!
+
+flyByHelpSpec
+    <resource: #help>
+
+    ^ super flyByHelpSpec addPairsFrom:(self helpPairs)
+!
+
+helpPairs
+    ^ #(
+
+#autoOpenDirectoryDescription
+'When changing directories, automatically show the contents of a README or .dirInfo file if present.'
+
+#openMultipleApplications
+'Show new selected files in a new tab, instead of changing the contents of an existing tab'
+
+#textEditorForAllTypes
+'Show all files as text, i.e. do not open specialized viewers as per mime type'
+
+)
+! !
+
 !FileBrowserV2SettingsAppl class methodsFor:'icon'!
 
 defaultIcon
@@ -279,38 +302,49 @@
                     component: 
                    (SpecCollection
                       collection: (
-                       (CheckBoxSpec
-                          label: 'Use the New CodeView (Affects all New Opened Tools)'
-                          name: 'CheckBox8'
-                          layout: (LayoutFrame 0 0.0 7 0 0 1.0 27 0)
-                          model: useCodeView2InTools
-                          translateLabel: true
-                        )
-                       (CheckBoxSpec
-                          label: 'Text Editor for all Types'
-                          name: 'CheckBox25'
-                          layout: (LayoutFrame 0 0.0 29 0 0 1.0 49 0)
-                          model: openAlwaysInTextEditor
-                          translateLabel: true
-                        )
-                       (CheckBoxSpec
-                          label: 'Open Multiple Applications'
-                          name: 'CheckBox9'
-                          layout: (LayoutFrame 0 0.0 51 0 0 1.0 71 0)
-                          model: openMultipleApplicationsForType
-                          translateLabel: true
-                        )
-                       (CheckBoxSpec
-                          label: 'Auto Open Directory Description (README)'
-                          name: 'CheckBox10'
-                          layout: (LayoutFrame 0 0.0 73 0 0 1.0 93 0)
-                          model: viewDirectoryDescription
-                          translateLabel: true
+                       (VerticalPanelViewSpec
+                          name: 'VerticalPanel3'
+                          layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+                          horizontalLayout: center
+                          verticalLayout: center
+                          horizontalSpace: 3
+                          verticalSpace: 3
+                          elementsChangeSize: true
+                          component: 
+                         (SpecCollection
+                            collection: (
+                             (CheckBoxSpec
+                                label: 'Text Editor for all Types'
+                                name: 'CheckBox25'
+                                activeHelpKey: textEditorForAllTypes
+                                model: openAlwaysInTextEditor
+                                translateLabel: true
+                                extent: (Point 435 20)
+                              )
+                             (CheckBoxSpec
+                                label: 'Open Multiple Applications'
+                                name: 'CheckBox9'
+                                activeHelpKey: openMultipleApplications
+                                model: openMultipleApplicationsForType
+                                translateLabel: true
+                                extent: (Point 435 20)
+                              )
+                             (CheckBoxSpec
+                                label: 'Auto Open Directory Description (README)'
+                                name: 'CheckBox10'
+                                activeHelpKey: autoOpenDirectoryDescription
+                                model: viewDirectoryDescription
+                                translateLabel: true
+                                extent: (Point 435 20)
+                              )
+                             )
+                           
+                          )
                         )
                        )
                      
                     )
-                    extent: (Point 469 134)
+                    useDefaultExtent: true
                   )
                  )
                
@@ -454,6 +488,7 @@
 !
 
 useCodeView2InTools
+    "/ obsolete - will vanish
     useCodeView2InTools isNil ifTrue:[
         useCodeView2InTools := true asValue.
         useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
@@ -601,10 +636,10 @@
 !FileBrowserV2SettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.29 2013-02-22 09:15:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.30 2013-06-25 13:50:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.29 2013-02-22 09:15:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.30 2013-06-25 13:50:19 cg Exp $'
 ! !