SettingsDialog.st
changeset 14239 c7d2d44183d3
parent 14222 e423ea24d918
child 14305 be12b81e53ff
--- a/SettingsDialog.st	Mon Apr 14 14:10:08 2014 +0200
+++ b/SettingsDialog.st	Mon Apr 14 14:29:53 2014 +0200
@@ -1658,6 +1658,25 @@
     ^ self applicationClass isNil
 ! !
 
+!SettingsDialog::SettingsFilenameAppl class methodsFor:'help specs'!
+
+flyByHelpSpec
+    <resource: #help>
+
+    ^ super flyByHelpSpec addPairsFrom:#(
+
+#openSettingsFile
+'Click to open a file browser on the settings file'
+
+#reloadSettingsFile
+'Reload the settings from the file'
+
+#saveAsPrivateSettingsFile
+'Save the settings into your private settings file'
+
+)
+! !
+
 !SettingsDialog::SettingsFilenameAppl class methodsFor:'interface specs'!
 
 windowSpec
@@ -1683,7 +1702,7 @@
          label: 'Settings File'
          name: 'Settings File'
          min: (Point 10 10)
-         bounds: (Rectangle 0 0 411 358)
+         bounds: (Rectangle 0 0 426 359)
        )
        component: 
       (SpecCollection
@@ -1698,6 +1717,7 @@
              label: 'LinkButton'
              name: 'EditPreferences'
              layout: (LayoutFrame 0 0 0 0.5 0 1 30 0.5)
+             activeHelpKey: openSettingsFile
              foregroundColor: (Color 0.0 0.0 100.0)
              translateLabel: true
              labelChannel: settingsFilenameHolder
@@ -1706,7 +1726,7 @@
           (HorizontalPanelViewSpec
              name: 'HorizontalPanel1'
              layout: (LayoutFrame 0 0 53 0.5 0 1 101 0.5)
-             horizontalLayout: rightMax
+             horizontalLayout: centerMax
              verticalLayout: center
              horizontalSpace: 3
              verticalSpace: 3
@@ -1716,6 +1736,7 @@
                 (ActionButtonSpec
                    label: 'Reload'
                    name: 'Button2'
+                   activeHelpKey: reloadSettingsFile
                    translateLabel: true
                    model: reloadSettingsFile
                    useDefaultExtent: true
@@ -1723,6 +1744,7 @@
                 (ActionButtonSpec
                    label: 'Save as Private'
                    name: 'Button3'
+                   activeHelpKey: saveAsPrivateSettingsFile
                    translateLabel: true
                    model: saveAsPrivateSettingsFile
                    useDefaultExtent: true
@@ -1730,6 +1752,7 @@
                 (ActionButtonSpec
                    label: 'File Browser'
                    name: 'Button1'
+                   activeHelpKey: openSettingsFile
                    translateLabel: true
                    model: openSettingsFile
                    useDefaultExtent: true
@@ -1838,11 +1861,11 @@
 !SettingsDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.112 2014-04-13 17:43:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.113 2014-04-14 12:29:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.112 2014-04-13 17:43:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.113 2014-04-14 12:29:53 cg Exp $'
 ! !