#UI_ENHANCEMENT
authorClaus Gittinger <cg@exept.de>
Sun, 20 Mar 2016 13:38:03 +0100
changeset 16161 6c7dd271a017
parent 16160 ed6b8b5cb2d4
child 16162 c59b8f5ba4ae
#UI_ENHANCEMENT class: AbstractSettingsApplication
AbstractSettingsApplication.st
--- a/AbstractSettingsApplication.st	Sun Mar 20 11:13:59 2016 +0100
+++ b/AbstractSettingsApplication.st	Sun Mar 20 13:38:03 2016 +0100
@@ -11275,6 +11275,37 @@
     ^ false
 ! !
 
+!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'help specs'!
+
+flyByHelpSpec
+    "This resource specification was automatically generated
+     by the UIHelpTool of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIHelpTool may not be able to read the specification."
+
+    "
+     UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
+    "
+
+    <resource: #help>
+
+    ^ super flyByHelpSpec addPairsFrom:#(
+
+#rdoitDisabled
+'RDoit setup disabled, because the "stx:goodies/rdoit" package is not loaded.\To load, open the package load dialog via the Launcher''s "File"-"Load Package" menu item.\\Press the ''Help'' button for a description of what this does'
+
+#rdoitSettings
+'RDoit setup. Press the ''Help'' button for a description of what this does'
+
+#scriptingDisabled
+'Scripting service setup disabled, because the "stx:goodies/simpleServices" package is not loaded.\To load, open the package load dialog via the Launcher''s "File"-"Load Package" menu item.\\Press the ''Help'' button for a description of what this does'
+
+#scriptingSettings
+'Scripting service setup. Press the ''Help'' button for a description of what this does'
+)
+! !
+
 !AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
 
 defaultIcon
@@ -11335,6 +11366,7 @@
              label: 'RDoIt'
              name: 'RDoItFramedBox'
              layout: (LayoutFrame 0 0 0 0 0 1 232 0)
+             activeHelpKey: #rdoitSettings
              labelPosition: topLeft
              translateLabel: true
              component: 
@@ -11483,10 +11515,11 @@
              )
            )
           (FramedBoxSpec
-             label: 'JavaScript-Scripting via Telnet'
+             label: 'JavaScript/Smalltalk-Scripting via Telnet'
              name: 'ScriptingFramedBox'
              layout: (LayoutFrame 0 0 224 0 0 1 460 0)
              labelPosition: topLeft
+             activeHelpKey: #scriptingSettings
              translateLabel: true
              component: 
             (SpecCollection
@@ -11894,6 +11927,23 @@
 
 !AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'help'!
 
+flyByHelpTextForKey:aKey
+    |usedKey|
+    
+    usedKey := aKey.
+    usedKey == #rdoitSettings ifTrue:[
+        self hasRDoitServerClass ifFalse:[
+            usedKey := #rdoitDisabled
+        ].    
+    ].
+    usedKey == #scriptingSettings ifTrue:[
+        self hasScriptingServerClass ifFalse:[
+            usedKey := #scriptingDisabled
+        ].    
+    ].
+    ^ super flyByHelpTextForKey:usedKey.
+!
+
 helpFilename
     ^ 'Launcher/communicationsSettings.html'
 ! !