--- a/FileApplicationNoteBook.st Wed Oct 22 19:19:48 2003 +0200
+++ b/FileApplicationNoteBook.st Wed Oct 22 19:46:30 2003 +0200
@@ -3621,7 +3621,7 @@
self notify:'shell in ' , self fileName asString, ' finished'.
terminalView cr.
- text := '>> shell closed' allBold.
+ text := '>> shell terminated.' allBold.
text colorizeAllWith:Color red.
terminalView nextPutAll:text.
!
@@ -4957,5 +4957,5 @@
!FileApplicationNoteBook class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.119 2003-10-21 18:21:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.120 2003-10-22 17:46:20 cg Exp $'
! !
--- 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 $'
! !