--- a/TerminalApplication.st	Wed Oct 22 16:48:51 2003 +0200
+++ b/TerminalApplication.st	Wed Oct 22 16:52:28 2003 +0200
@@ -13,7 +13,7 @@
 "{ Package: 'stx:libtool' }"
 
 MultiViewApplication subclass:#TerminalApplication
-	instanceVariableNames:''
+	instanceVariableNames:'initialDirectory'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Smalltalk'
@@ -327,28 +327,19 @@
 
 !TerminalApplication class methodsFor:'special startup'!
 
-openWith:initialText
-    "launch a new terminal with some initial contents"
+openIn:aDirectory
+    "launch a new terminal in some directory"
+
+    |terminal|
 
-    ^ self openWith:initialText selected:false
+    terminal := self new.
+    terminal initialDirectory:aDirectory.
+    terminal open.
+    ^ terminal
 
     "
-     TerminalApplication openWith:'Transcript showCR:''hello world'''
-    "
-!
-
-openWith:initialText selected:selectedBoolean
-    "launch a new terminal with some initial contents"
-
-    |workspace|
-
-    workspace := self new.
-    workspace open.
-    workspace selectedWorkspace contents:initialText selected:selectedBoolean.
-    ^ workspace
-
-    "
-     TerminalApplication openWith:'Transcript showCR:''hello world'''
+     TerminalApplication open
+     TerminalApplication openIn:'/etc'
     "
 ! !
 
@@ -424,6 +415,10 @@
 
 !TerminalApplication methodsFor:'startup'!
 
+initialDirectory:aDirectory
+    initialDirectory := aDirectory
+!
+
 postBuildWith:aBuilder
     |w h|
 
@@ -448,7 +443,7 @@
         ^ self.
     ].
 
-    vt startShellIn:nil.
+    vt startShellIn:initialDirectory.
     vt shellTerminateAction:[ 
         "/ vt backgroundColor:(Color red).
         vt cr; nextPutLine:('**** shell terminated ****' asText allBold colorizeAllWith:Color red).
@@ -458,5 +453,5 @@
 !TerminalApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.3 2003-10-22 14:48:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.4 2003-10-22 14:52:21 cg Exp $'
 ! !