class: NewLauncher
authorClaus Gittinger <cg@exept.de>
Thu, 13 Dec 2012 11:07:34 +0100
changeset 12085 28244b8612be
parent 12084 e89562b5fff4
child 12086 95013d4cc1a9
class: NewLauncher added: #flyByHelpSpec #flyByHelpTextForKey: changed: #helpSpec
NewLauncher.st
--- a/NewLauncher.st	Thu Dec 13 11:07:25 2012 +0100
+++ b/NewLauncher.st	Thu Dec 13 11:07:34 2012 +0100
@@ -467,10 +467,10 @@
 'Open an Application Builder for building stand alone ST/X-applications'
 
 #fileBrowserV2
-'Open a FileBrowser to manipulate files'
+'Open a FileBrowser to edit or load files and folders'
 
 #fileFileBrowser
-'Open a FileBrowser to manipulate files'
+'Open a FileBrowser to edit or load files and folders'
 
 #fileLibraryBuilder
 'Open a Library Builder for building binary class libraries'
@@ -479,7 +479,7 @@
 'Show class libraries and other modules'
 
 #fileSaveImage
-'Save the complete state of ST/X into the current snapshot file'
+'Save the complete state of ST/X into the current snapshot file ("%1")'
 
 #fileSaveImageAs
 'Save the complete state of ST/X into a snapshot file'
@@ -548,7 +548,7 @@
 'Open a System Browser or revisit a class'
 
 #openTestRunner
-'Open the SUNIT test runner'
+'Open the SUnit test runner for executing unit tests'
 
 #settingsCommunications
 'Change communication settings'
@@ -653,13 +653,13 @@
 'Open a GUI Painter for graphical user interface construction'
 
 #toolsImageEditor
-'Open a Bitmap Image Editor'
+'Open a Bitmap Image Editor for editing small images for toolbars and buttons'
 
 #toolsInternationalLanguageTranslationEditor
 'Open the National Language Translation Editor'
 
 #toolsMenuEditor
-'Open a Menu Editor for building menus and toolBars'
+'Open a Menu Editor for building menus and toolbars'
 
 #toolsMisc
 'Misc Tools'
@@ -701,7 +701,7 @@
 'Open the project tool'
 
 #toolsSUnit
-'Open the SUnit test runner'
+'Open the SUnit test runner for executing unit tests'
 
 #toolsSmaCC
 'Open the SmaCC parser generator Tool'
@@ -713,7 +713,7 @@
 'Open a terminal view (aka xterm)'
 
 #toolsWorkspace
-'Open a Workspace for evaluating smalltalk expressions.\The first click opens the customizable MyWorkspace'
+'Open a Workspace for evaluating Smalltalk expressions.\The first click opens the customizable MyWorkspace'
 
 #windows
 'Window functions'
@@ -3738,6 +3738,16 @@
 
     ^self updateInfo
 
+!
+
+flyByHelpTextForKey:aKey
+    |text|
+
+    text := super flyByHelpTextForKey:aKey.
+    aKey == #fileSaveImage ifTrue:[
+        ^ text bindWith:(ObjectMemory nameForSnapshot)
+    ].
+    ^ text
 ! !
 
 !NewLauncher methodsFor:'menu configuration'!
@@ -4932,11 +4942,11 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.447 2012-11-07 08:49:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.448 2012-12-13 10:07:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.447 2012-11-07 08:49:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.448 2012-12-13 10:07:34 cg Exp $'
 !
 
 version_SVN