SettingsDialog.st
changeset 17910 9140bf7eb5b1
parent 17704 a14b0a39f7b3
child 17957 eeb60459f36f
--- a/SettingsDialog.st	Tue Jan 16 22:14:13 2018 +0100
+++ b/SettingsDialog.st	Tue Jan 16 22:14:14 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -321,7 +323,7 @@
 
 !SettingsDialog class methodsFor:'help specs'!
 
-flyByHelpSpec
+helpSpec
     "This resource specification was automatically generated
      by the UIHelpTool of ST/X."
 
@@ -334,7 +336,7 @@
 
     <resource: #help>
 
-    ^ super flyByHelpSpec addPairsFrom:#(
+    ^ super helpSpec addPairsFrom:#(
 
 #acceptChangedSettings
 'Accept changed settings for the current ST/X session.\Notice, that these affect the current session only.\To make the current settings the default in the future, save them to the settings file (using the "Save" button).\Also notice, that some values affect new opened windows/tools only.'
@@ -2131,9 +2133,9 @@
              
             (helpKey := eachView helpKey) notNil ifTrue:[
                 wordsInWidget add:helpKey.
-                helpText := anApplication helpTextForKey:helpKey.
-                wordsInWidget addAll:(allWords value:helpText).
-                tooltip := anApplication flyByHelpTextForKey:helpKey.
+                "/ helpText := anApplication helpTextForKey:helpKey.
+                "/ wordsInWidget addAll:(allWords value:helpText).
+                tooltip := anApplication helpTextForKey:helpKey.
                 wordsInWidget addAll:(allWords value:tooltip).
             ].
             label := eachView perform:#label ifNotUnderstood:nil.
@@ -2302,10 +2304,10 @@
 
 !SettingsDialog::SettingsFilenameAppl class methodsFor:'help specs'!
 
-flyByHelpSpec
+helpSpec
     <resource: #help>
 
-    ^ super flyByHelpSpec addPairsFrom:#(
+    ^ super helpSpec addPairsFrom:#(
 
 #openSettingsFile
 'Click to open a file browser on the settings file'