--- a/TerminalSession.st	Sat Aug 10 13:31:17 2013 +0200
+++ b/TerminalSession.st	Sun Aug 11 15:44:49 2013 +0200
@@ -4,7 +4,7 @@
 	instanceVariableNames:'inStream outStream errStream readerProcess shellPid shellCommand
 		shellDirectory readerDelay pluggableCheckBeforeReadAction
 		pluggableProcessInputAction execFDArray stxToStdinPipe
-		stdOutToStxPipe pty ptyName'
+		stdOutToStxPipe pty ptyName terminatedAction'
 	classVariableNames:'Debug'
 	poolDictionaries:''
 	category:'Views-TerminalViews'
@@ -77,6 +77,10 @@
 
 shellPid
     ^ shellPid
+!
+
+terminatedAction:something
+    terminatedAction := something.
 ! !
 
 !TerminalSession methodsFor:'initialization & release'!
@@ -209,7 +213,7 @@
     inStream := outStream := errStream := nil.
 !
 
-startCommand:aCommand in:aDirectory environment:envIn setupTerminalWith:setupBlock terminatedAction:terminatedAction
+startCommand:aCommand in:aDirectory environment:envIn setupTerminalWith:setupBlock terminatedAction:terminatedActionArg
     "start a command on a pseudo terminal. If the command arg is nil,
      a shell is started. If aDirectory is not nil, the command is
      executed in that directory.
@@ -221,6 +225,7 @@
 
     shellCommand := aCommand.
     shellDirectory := aDirectory.
+    terminatedAction := terminatedActionArg.
 
     self createTerminalConnectionAndSetupWith:setupBlock.
     OperatingSystem isMSWINDOWSlike ifTrue:[
@@ -504,11 +509,11 @@
 !TerminalSession class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.6 2013-08-01 18:47:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.7 2013-08-11 13:44:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.6 2013-08-01 18:47:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.7 2013-08-11 13:44:49 cg Exp $'
 ! !