added start-old changesBrowser item
authorClaus Gittinger <cg@exept.de>
Sat, 06 Jun 1998 19:48:46 +0200
changeset 1680 b1156fe1df3b
parent 1679 8b2dffb35e01
child 1681 b209bdfbf762
added start-old changesBrowser item
NewLauncher.st
--- a/NewLauncher.st	Fri Jun 05 04:45:04 1998 +0200
+++ b/NewLauncher.st	Sat Jun 06 19:48:46 1998 +0200
@@ -740,6 +740,14 @@
                                     #value: #startOldLauncher
                                     #activeHelpKey: #toolsMiscOldLauncher
                                 )
+                                 #(#MenuItem
+                                    #label: '-'
+                                )
+                                 #(#MenuItem
+                                    #label: 'Old Changes Browser'
+                                    #translateLabel: true
+                                    #value: #startOldChangesBrowser
+                                )
                               ) nil
                               nil
                           )
@@ -1443,7 +1451,7 @@
           nil
       )
 
-    "Modified: / 5.6.1998 / 04:43:45 / cg"
+    "Modified: / 6.6.1998 / 19:47:04 / cg"
 !
 
 menuToolbar
@@ -5040,6 +5048,14 @@
 
 !
 
+startOldChangesBrowser
+    "opens the old changeBrowser"
+
+    ChangesBrowser open
+
+    "Created: / 6.6.1998 / 19:47:26 / cg"
+!
+
 startOldLauncher
     "opens the old launcher"
 
@@ -5220,5 +5236,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.76 1998-06-05 02:45:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.77 1998-06-06 17:48:46 cg Exp $'
 ! !