--- a/NewLauncher.st Mon Sep 02 13:53:47 2013 +0100
+++ b/NewLauncher.st Wed Sep 04 11:33:19 2013 +0100
@@ -204,19 +204,19 @@
'New SystemBrowser / Recently visited classes'
#systemGarbageCollect
-'GarbageCollect'
+'GarbageCollect - force free space reclamation to be done now.\(Normally not needed, the system does this automatically for you)'
#systemGarbageCollectAndCompress
-'GarbageCollect'
+'GarbageCollect - force free space reclamation now and compress memory.\(Normally not needed, the system does this automatically for you)'
#toolsGUIPainter
-'GUIPainter'
+'GUIPainter - a tool for interactive UI construction.\Normally opened via the browser by double clicking on an interface spec method'
#toolsImageEditor
-'BitmapEditor'
+'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'
+'MenuEditor - a tool for interactive UI-menu construction.\Normally opened via the browser by double clicking on a menu spec method'
#toolsChangesBrowser
'Changes Browser'
@@ -234,7 +234,7 @@
'ChangesBrowser (old GUI)'
#toolsWorkspace
-'Workspace'
+'Workspace - a scratchpad for text and expression evaluator'
#toolsMyWorkspace
'Workspace on the "MyWorkspace.wsp" file'
@@ -248,6 +248,8 @@
#toolsInternationalLanguageTranslationEditor
'National Language Translation Editor'
)
+
+ "Modified: / 28-08-2013 / 14:56:20 / cg"
!
helpSpec
@@ -3769,7 +3771,7 @@
This can be invoked by a classes #initialize method, to add an item
for itself to the toolbar or menu."
- |what menuPanel freeMenuIndex mainMenuPanel item subViews subMenuPath
+ |what menuPanel freeMenuIndex mainMenuPanel item subViews subMenuPath
rest subMenu subItem positionSpecOrNil itemNameOrNil before itemsOriginalLabel|
itemsOriginalLabel := newItem label.
@@ -3803,7 +3805,7 @@
itemNameOrNil notNil ifTrue:[
freeMenuIndex := menuPanel findFirst: [:i| i nameKey = itemNameOrNil].
freeMenuIndex == 0 ifTrue:[
- freeMenuIndex := menuPanel findFirst: [:i| i activeHelpKey = itemNameOrNil
+ freeMenuIndex := menuPanel findFirst: [:i| i activeHelpKey = itemNameOrNil
or:[i label = itemNameOrNil]].
]
].
@@ -3817,7 +3819,7 @@
space ifTrue:[
"want an empty entry before or after newItem"
- (menuPanel createAtIndex:freeMenuIndex) menuItem:(MenuItem labeled:'').
+ (menuPanel createAtIndex:freeMenuIndex) menuItem:(MenuItem label:'').
before ifFalse:[
freeMenuIndex := freeMenuIndex + 1.
].
@@ -3910,7 +3912,7 @@
freeMenuIndex == 0 ifTrue:[
freeMenuIndex := menuPanel findFirst:[:i| i itemValue = itemNameOrNil].
freeMenuIndex == 0 ifTrue:[
- freeMenuIndex := menuPanel findFirst:[:i| i activeHelpKey = itemNameOrNil
+ freeMenuIndex := menuPanel findFirst:[:i| i activeHelpKey = itemNameOrNil
or:[i label = itemNameOrNil]].
]
]
@@ -3922,7 +3924,7 @@
].
space ifTrue:[
"want a line before or after newItem"
- (menuPanel createAtIndex:freeMenuIndex) menuItem:(MenuItem labeled: '-').
+ (menuPanel createAtIndex:freeMenuIndex) menuItem:(MenuItem label: '-').
before ifFalse:[
freeMenuIndex := freeMenuIndex + 1.
].
@@ -3949,7 +3951,7 @@
NewLauncher open.
Transcript topView application
- addMenuItem:(MenuItem new
+ addMenuItem:(MenuItem new
label: 'Foo';
value: [Transcript showCR:'foo'];
isButton: false;
@@ -3960,7 +3962,7 @@
space:true.
Transcript topView application
- addMenuItem:(MenuItem new
+ addMenuItem:(MenuItem new
label: 'Foo';
value: [Transcript showCR:'foo'];
isButton: false;
@@ -3971,7 +3973,7 @@
space:true.
Transcript topView application
- addMenuItem:(MenuItem new
+ addMenuItem:(MenuItem new
label: 'Bar';
value: [Transcript showCR:'bar'];
isButton: false;
@@ -3982,7 +3984,7 @@
space:true.
Transcript topView application
- addMenuItem:(MenuItem new
+ addMenuItem:(MenuItem new
label: 'Baz';
value: [Transcript showCR:'baz'];
isButton: false;
@@ -3993,7 +3995,7 @@
space:false.
Transcript topView application
- addMenuItem:(MenuItem new
+ addMenuItem:(MenuItem new
label: 'Baz2';
value: [Transcript showCR:'baz2'];
isButton: false;
@@ -4004,7 +4006,7 @@
space:false.
Transcript topView application
- addMenuItem:(MenuItem new
+ addMenuItem:(MenuItem new
label: 'Foo2';
value: [Transcript showCR:'foo2'];
isButton: false;
@@ -4015,7 +4017,7 @@
space:false.
Transcript topView application
- addMenuItem:(MenuItem new
+ addMenuItem:(MenuItem new
label: 'Foo3';
value: [Transcript showCR:'foo3'];
isButton: false;
@@ -5016,11 +5018,11 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.475 2013-08-27 14:19:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.477 2013-08-31 17:19:58 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.475 2013-08-27 14:19:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.477 2013-08-31 17:19:58 cg Exp $'
!
version_HG
@@ -5029,6 +5031,6 @@
!
version_SVN
- ^ '$Id: NewLauncher.st,v 1.475 2013-08-27 14:19:39 cg Exp $'
+ ^ '$Id: NewLauncher.st,v 1.477 2013-08-31 17:19:58 cg Exp $'
! !