--- a/NewLauncher.st Thu Nov 12 17:25:59 2009 +0100
+++ b/NewLauncher.st Thu Nov 12 19:05:50 2009 +0100
@@ -4188,10 +4188,24 @@
menu := Menu new receiver: self.
menu addItemGroup:
(appHistory collect:[:appClassName|
- MenuItem new
- label: (Smalltalk classNamed:appClassName) nameWithoutPrefix;
+ |item appClass label|
+
+ appClass := Smalltalk classNamed:appClassName.
+ appClass isNil ifTrue:[
+ label := appClassName.
+ ] ifFalse:[
+ label := appClass nameWithoutPrefix
+ ].
+ item := MenuItem new
+ label: label;
value: #openApplication:;
argument: appClassName.
+
+ appClass isNil ifTrue:[
+ item enabled:false.
+ item label:(LabelAndIcon icon:(ToolbarIconLibrary erase16x16Icon2) string:appClassName)
+ ].
+ item
]
).
menu addItem: (MenuItem new
@@ -4724,9 +4738,9 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.399 2009-11-07 13:34:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.400 2009-11-12 18:05:50 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.399 2009-11-07 13:34:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.400 2009-11-12 18:05:50 cg Exp $'
! !