#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.
--- 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
! !