class: NewLauncher
added:
#flyByHelpSpec
#flyByHelpTextForKey:
changed: #helpSpec
--- 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