#OTHER by cg
authorClaus Gittinger <cg@exept.de>
Tue, 16 Jan 2018 22:14:11 +0100
changeset 17907 8517589b4f38
parent 17906 b29bc2354d9d
child 17908 7b3445ce2790
#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.
NewLauncher.st
--- a/NewLauncher.st	Tue Jan 16 22:14:07 2018 +0100
+++ b/NewLauncher.st	Tue Jan 16 22:14:11 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997-1998 by eXept Software AG
 	      All Rights Reserved
@@ -178,84 +180,6 @@
 
 !NewLauncher class methodsFor:'help specs'!
 
-flyByHelpSpec
-    <resource: #help>
-
-    ^super flyByHelpSpec addPairsFrom:#(
-
-#fileFileBrowser
-'FileBrowser'
-
-#fileBrowserV2
-'New FileBrowser / Recently visited folders'
-
-#fileSaveImage
-'Save Image'
-
-#fileSaveImageAs
-'Save Image'
-
-#helpSTXOnlineDocumentation
-'Online Manual'
-
-#classesSystemBrowserOnClass
-'Browser history'
-
-#classesSystemBrowser
-'SystemBrowser'
-
-#newSystemBrowser
-'New SystemBrowser / Recently visited classes'
-
-#systemGarbageCollect
-'GarbageCollect - force free space reclamation to be done now.\(Normally not needed, the system does this automatically for you)'
-
-#systemGarbageCollectAndCompress
-'GarbageCollect - force free space reclamation now and compress memory.\(Normally not needed, the system does this automatically for you)'
-
-#toolsGUIPainter
-'GUIPainter - a tool for interactive UI construction.\Normally opened via the browser by double clicking on an interface spec method'
-
-#toolsImageEditor
-'BitmapEditor - a tool to create/modify icons and bitmaps used in the UI.\Normally opened via the browser by double clicking on an image spec method'
-
-#toolsMenuEditor
-'MenuEditor - a tool for interactive UI-menu construction.\Normally opened via the browser by double clicking on a menu spec method'
-
-#toolsChangesBrowser
-'Changes Browser'
-
-toolsChangesBrowserOrNavigateToRecentChange
-'Changes Browser / Uncommitted recent changes'
-
-#toolsMiscProjectsNewProject
-'New Project'
-
-#toolsNewChangesBrowser
-'ChangesBrowser (new GUI)'
-
-#toolsOldChangesBrowser
-'ChangesBrowser (old GUI)'
-
-#toolsWorkspace
-'Workspace - a scratchpad for text and expression evaluator'
-
-#toolsMyWorkspace
-'Workspace on the "MyWorkspace.wsp" file'
-
-#toolsSystemWorkspace
-'The SystemWorkspace with Welcome Messages'
-
-#toolsEvaluationWorkspace
-'A 3-pane EvaluationWorkspace - good for lectures and Smalltalk courses'
-
-#toolsInternationalLanguageTranslationEditor
-'National Language Translation Editor'
-)
-
-    "Modified: / 28-08-2013 / 14:56:20 / cg"
-!
-
 helpSpec
     "This resource specification was automatically generated
      by the UIHelpTool of ST/X."
@@ -482,7 +406,7 @@
 'Open an Application Builder for building stand alone ST/X-applications'
 
 #fileBrowserV2
-'Open a FileBrowser to edit or load files and folders'
+'New FileBrowser / Recently visited folders'
 
 #fileFileBrowser
 'Open a FileBrowser to edit or load files and folders'
@@ -569,7 +493,7 @@
 'Show the latest news about ST/X'
 
 #newSystemBrowser
-'Open a System Browser or revisit a class'
+'New SystemBrowser / Recently visited classes'
 
 #openTestRunner
 'Open the SUnit test runner for executing unit tests'
@@ -641,10 +565,10 @@
 'Open a view and trace its window events on the console'
 
 #systemGarbageCollect
-'Reclaim unused memory'
+'GarbageCollect - force free space reclamation to be done now.\(Normally not needed, the system does this automatically for you)'
 
 #systemGarbageCollectAndCompress
-'Reclaim unused memory and minimize the amount of used memory'
+'GarbageCollect - force free space reclamation now and compress memory.\(Normally not needed, the system does this automatically for you)'
 
 #systemInterruptLatency
 'Open an Interrupt Latency Monitor displaying methods which block interrupts for longer than a given time goal'
@@ -674,22 +598,22 @@
 'Open a Changes Browser'
 
 #toolsChangesBrowserOrNavigateToRecentChange
-'Open a Changes Browser or navigate to a recent change'
+'Open a Changes Browser or navigate to a recent (uncommitted) change'
 
 #toolsEvaluationWorkspace
 'A 3-pane EvaluationWorkspace - good for lectures and Smalltalk courses'
 
 #toolsGUIPainter
-'Open a GUI Painter for graphical user interface construction'
+'GUIPainter - a tool for interactive UI construction.\Normally opened via the browser by double clicking on an interface spec method'
 
 #toolsImageEditor
-'Open a Bitmap Image Editor for editing small images for toolbars and buttons'
+'BitmapEditor - a tool to create/modify icons and bitmaps used in the UI.\Normally opened via the browser by double clicking on an image spec method'
 
 #toolsInternationalLanguageTranslationEditor
 'Open the National Language Translation Editor'
 
 #toolsMenuEditor
-'Open a Menu Editor for building menus and toolbars'
+'MenuEditor - a tool for interactive UI-menu construction.\Normally opened via the browser by double clicking on a menu spec method'
 
 #toolsMisc
 'Misc Tools'
@@ -3807,12 +3731,12 @@
 
 !
 
-flyByHelpTextForKey:aKey
+helpTextForKey:aKey
     |text|
 
-    text := super flyByHelpTextForKey:aKey.
+    text := super helpTextForKey:aKey.
     aKey == #fileSaveImage ifTrue:[
-	^ text bindWith:(ObjectMemory nameForSnapshot)
+        ^ text bindWith:(ObjectMemory nameForSnapshot)
     ].
     ^ text
 ! !