*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 24 Sep 2004 12:57:53 +0200
changeset 6044 b1d4a36d45dd
parent 6043 16da3052c00c
child 6045 3589c863290a
*** empty log message ***
FileBrowser.st
--- a/FileBrowser.st	Fri Sep 24 10:35:46 2004 +0200
+++ b/FileBrowser.st	Fri Sep 24 12:57:53 2004 +0200
@@ -3581,7 +3581,11 @@
 !
 
 openTerminal
-    VT100TerminalView openShellIn:currentDirectory
+    TerminalApplication notNil ifTrue:[
+        TerminalApplication openIn:currentDirectory.
+    ] ifFalse:[
+        VT100TerminalView openShellIn:currentDirectory
+    ]
 
     "Created: / 20.7.1998 / 18:18:15 / cg"
     "Modified: / 20.7.1998 / 18:32:28 / cg"
@@ -7429,5 +7433,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.596 2004-09-21 10:31:29 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.597 2004-09-24 10:57:53 cg Exp $'
 ! !