equal
deleted
inserted
replaced
4186 appHistory isEmpty ifTrue:[^nil]. |
4186 appHistory isEmpty ifTrue:[^nil]. |
4187 |
4187 |
4188 menu := Menu new receiver: self. |
4188 menu := Menu new receiver: self. |
4189 menu addItemGroup: |
4189 menu addItemGroup: |
4190 (appHistory collect:[:appClassName| |
4190 (appHistory collect:[:appClassName| |
4191 MenuItem new |
4191 |item appClass label| |
4192 label: (Smalltalk classNamed:appClassName) nameWithoutPrefix; |
4192 |
|
4193 appClass := Smalltalk classNamed:appClassName. |
|
4194 appClass isNil ifTrue:[ |
|
4195 label := appClassName. |
|
4196 ] ifFalse:[ |
|
4197 label := appClass nameWithoutPrefix |
|
4198 ]. |
|
4199 item := MenuItem new |
|
4200 label: label; |
4193 value: #openApplication:; |
4201 value: #openApplication:; |
4194 argument: appClassName. |
4202 argument: appClassName. |
|
4203 |
|
4204 appClass isNil ifTrue:[ |
|
4205 item enabled:false. |
|
4206 item label:(LabelAndIcon icon:(ToolbarIconLibrary erase16x16Icon2) string:appClassName) |
|
4207 ]. |
|
4208 item |
4195 ] |
4209 ] |
4196 ). |
4210 ). |
4197 menu addItem: (MenuItem new |
4211 menu addItem: (MenuItem new |
4198 label: 'Clear History'; |
4212 label: 'Clear History'; |
4199 value: [ ApplicationModel forgetRecentlyOpenedApplications ]; |
4213 value: [ ApplicationModel forgetRecentlyOpenedApplications ]; |
4722 ! ! |
4736 ! ! |
4723 |
4737 |
4724 !NewLauncher class methodsFor:'documentation'! |
4738 !NewLauncher class methodsFor:'documentation'! |
4725 |
4739 |
4726 version |
4740 version |
4727 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.399 2009-11-07 13:34:17 cg Exp $' |
4741 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.400 2009-11-12 18:05:50 cg Exp $' |
4728 ! |
4742 ! |
4729 |
4743 |
4730 version_CVS |
4744 version_CVS |
4731 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.399 2009-11-07 13:34:17 cg Exp $' |
4745 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.400 2009-11-12 18:05:50 cg Exp $' |
4732 ! ! |
4746 ! ! |