checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 27 Jul 1998 13:44:58 +0200
changeset 1752 1602e27bb929
parent 1751 c42e758e842d
child 1753 f86f3eb53b2a
checkin from browser
NewLauncher.st
--- a/NewLauncher.st	Mon Jul 27 13:09:07 1998 +0200
+++ b/NewLauncher.st	Mon Jul 27 13:44:58 1998 +0200
@@ -751,6 +751,15 @@
                                     #translateLabel: true
                                     #value: #startOldChangesBrowser
                                 )
+                                 #(#MenuItem
+                                    #label: '-'
+                                )
+                                 #(#MenuItem
+                                    #label: 'Terminal'
+                                    #translateLabel: true
+                                    #isVisible: #canDoTerminal
+                                    #value: #openTerminal
+                                )
                               ) nil
                               nil
                           )
@@ -1459,7 +1468,7 @@
           nil
       )
 
-    "Modified: / 8.7.1998 / 20:36:03 / cg"
+    "Modified: / 27.7.1998 / 12:47:11 / cg"
 !
 
 menuToolbar
@@ -1764,6 +1773,12 @@
 
 !NewLauncher methodsFor:'aspects'!
 
+canDoTerminal
+    ^ [OperatingSystem isUNIXlike]
+
+    "Created: / 27.7.1998 / 12:47:54 / cg"
+!
+
 enableDangerousMenuItemsInRemoteLauncher
 
     |holder|
@@ -5038,6 +5053,12 @@
     Project notNil ifTrue: [(ProjectView for: Project new) open]
 !
 
+openTerminal
+    VT100TerminalView open
+
+    "Created: / 27.7.1998 / 12:48:30 / cg"
+!
+
 selectProject
     "asks for and switch to another project"
 
@@ -5259,5 +5280,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.81 1998-07-09 08:32:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.82 1998-07-27 11:44:58 cg Exp $'
 ! !