--- 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 $'
! !