--- a/TerminalApplication.st	Fri Apr 08 12:32:44 2011 +0200
+++ b/TerminalApplication.st	Fri Apr 08 14:57:08 2011 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2001 by eXept Software AG
               All Rights Reserved
@@ -11,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libtool' }"
 
 MultiViewToolApplication subclass:#TerminalApplication
@@ -354,6 +351,10 @@
 createWorkspace
     |scr|
 
+    VT100TerminalView isNil ifTrue:[
+        self error:'missing: VT100TerminalView'
+    ].
+
     scr := (HVScrollableView for:VT100TerminalView).
     scr autoHideScrollBars:false.
     scr horizontalMini:true.
@@ -361,6 +362,8 @@
         self window sensor pushUserEvent:#startShellInSelectedWindow for:self.
     ].
     ^ scr
+
+    "Modified: / 08-04-2011 / 14:56:57 / cg"
 !
 
 doKill
@@ -449,17 +452,23 @@
     |vt|
 
     vt := self selectedWorkspacesTextView.
-    vt superView realized ifFalse:[
+    (vt notNil and:[vt superView realized]) ifFalse:[
         self window sensor pushUserEvent:#startShellInSelectedWindow for:self.
         ^ self.
     ].
 
     vt startShellIn:initialDirectory.
     vt shellTerminateAction:[self shellFinishedInWorkspace:vt].
+
+    "Modified: / 07-04-2011 / 09:03:55 / cg"
 ! !
 
 !TerminalApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.8 2004-03-05 09:42:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.9 2011-04-08 12:57:08 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.9 2011-04-08 12:57:08 cg Exp $'
 ! !