--- a/NewLauncher.st Wed Apr 22 18:02:02 1998 +0200
+++ b/NewLauncher.st Wed Apr 22 18:06:00 1998 +0200
@@ -1990,9 +1990,12 @@
|menu|
+ BrowserView checkClassHistory.
+
menu := Menu new receiver: self.
menu addItemGroup: (BrowserView classHistory collect:
- [:histEntry|
+ [:histEntry|
+
MenuItem new
label: (histEntry upTo: $ );
value: [SystemBrowser open loadFromMessage: histEntry];
@@ -5134,5 +5137,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.54 1998-04-16 15:22:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.55 1998-04-22 16:06:00 tz Exp $'
! !