#OTHER by cg
authorClaus Gittinger <cg@exept.de>
Tue, 16 Jan 2018 22:13:48 +0100
changeset 17900 fafb77eead65
parent 17899 fd1e7993ab71
child 17901 a5dd0226df2c
#OTHER by cg big refactoring: replaced all flyByHelpXXX sends and implementations by helpXXX. This should remove the confusion on where the tooltips should be stored and which methods need to be redefined. ATTENTION: May introduce temporary inconveniences until all other applications (in exept:xxx packages) are changed.
FileApplicationNoteBook.st
--- a/FileApplicationNoteBook.st	Tue Jan 16 22:13:47 2018 +0100
+++ b/FileApplicationNoteBook.st	Tue Jan 16 22:13:48 2018 +0100
@@ -1302,36 +1302,6 @@
 
 !FileApplicationNoteBook::ArchiveViewApplication 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:FileApplicationNoteBook::ArchiveViewApplication    
-    "
-
-    <resource: #help>
-
-    ^super flyByHelpSpec addPairsFrom:#(
-
-#closeTabButton
-'Close Archiver Tab'
-
-#extractItem
-'Extract...'
-
-#removeOutputButton
-'Remove Error Output'
-
-#stopButton
-'Stop'
-
-)
-!
-
 helpSpec
     "This resource specification was automatically generated
      by the UIHelpTool of ST/X."
@@ -1347,6 +1317,9 @@
 
     ^super helpSpec addPairsFrom:#(
 
+#closeTabButton
+'Close Archiver Tab'
+
 #closeButton
 'Close Archiver'
 
@@ -3328,7 +3301,7 @@
 
 !FileApplicationNoteBook::DigitalNotepadFileViewApplication class methodsFor:'help specs'!
 
-flyByHelpSpec
+helpSpec
     "This resource specification was automatically generated
      by the UIHelpTool of ST/X."
 
@@ -3341,7 +3314,7 @@
 
     <resource: #help>
 
-    ^ super flyByHelpSpec addPairsFrom:#(
+    ^ super helpSpec addPairsFrom:#(
 
 #'fitImageSize'
 'Shrink to Fit View'
@@ -4022,7 +3995,7 @@
 
 !FileApplicationNoteBook::ImageViewApplication class methodsFor:'help specs'!
 
-flyByHelpSpec
+helpSpec
     "This resource specification was automatically generated
      by the UIHelpTool of ST/X."
 
@@ -4035,7 +4008,7 @@
 
     <resource: #help>
 
-    ^ super flyByHelpSpec addPairsFrom:#(
+    ^ super helpSpec addPairsFrom:#(
 
 #'fitImageSize'
 'Shrink image to fit view'