--- a/TerminalApplication.st	Wed Oct 22 19:19:48 2003 +0200
+++ b/TerminalApplication.st	Wed Oct 22 19:46:30 2003 +0200
@@ -12,7 +12,7 @@
 
 "{ Package: 'stx:libtool' }"
 
-MultiViewApplication subclass:#TerminalApplication
+MultiViewToolApplication subclass:#TerminalApplication
 	instanceVariableNames:'initialDirectory'
 	classVariableNames:''
 	poolDictionaries:''
@@ -434,6 +434,13 @@
     super postOpenWith:aBuilder
 !
 
+shellFinishedInWorkspace:aView
+    "/ vt backgroundColor:(Color red).
+    aView 
+        cr; 
+        nextPutLine:('>> shell terminated.' asText allBold colorizeAllWith:Color red).
+!
+
 startShellInSelectedWindow
     |vt|
 
@@ -444,14 +451,11 @@
     ].
 
     vt startShellIn:initialDirectory.
-    vt shellTerminateAction:[ 
-        "/ vt backgroundColor:(Color red).
-        vt cr; nextPutLine:('**** shell terminated ****' asText allBold colorizeAllWith:Color red).
-    ].
+    vt shellTerminateAction:[self shellFinishedInWorkspace:vt].
 ! !
 
 !TerminalApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.4 2003-10-22 14:52:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.5 2003-10-22 17:46:30 cg Exp $'
 ! !