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