--- a/TerminalApplication.st	Wed Feb 05 19:56:59 2014 +0100
+++ b/TerminalApplication.st	Wed Feb 05 19:57:01 2014 +0100
@@ -393,17 +393,17 @@
 "/    #startShellInSelectedWindow leads to infinite loop.
 "/    further investigation needed.        
 
-"/    (OperatingSystem isUNIXlike and:[XTermView notNil]) ifTrue:[
-"/        scr := XTermView new.
-"/        scr workingDirectory: initialDirectory.
-"/    ] ifFalse:[
+    (OperatingSystem isUNIXlike and:[XTermView notNil]) ifTrue:[
+        scr := XTermView new.
+        scr workingDirectory: initialDirectory.
+    ] ifFalse:[
         VT100TerminalView isNil ifTrue:[
             self error:'missing: VT100TerminalView'
         ].
         scr := (HVScrollableView for:VT100TerminalView).
         scr autoHideScrollBars:false.
         scr horizontalMini:true.
-"/    ].
+    ].
 
     self window realized ifTrue:[
         self window sensor pushUserEvent:#startShellInSelectedWindow for:self.
@@ -411,7 +411,7 @@
     ^ scr
 
     "Modified: / 08-04-2011 / 14:56:57 / cg"
-    "Modified (format): / 30-11-2011 / 11:06:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-04-2012 / 10:19:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 doKill
@@ -537,6 +537,25 @@
     "Created: / 30-07-2013 / 09:15:05 / cg"
 ! !
 
+!TerminalApplication methodsFor:'startup'!
+
+startShellInSelectedWindow
+    |vt|
+
+    vt := self selectedWorkspacesTextView.
+    (vt notNil and:[vt superView realized]) ifFalse:[
+        self window sensor pushUserEvent:#startShellInSelectedWindow for:self.
+        ^ self.
+    ].
+
+    vt startShellIn:initialDirectory.
+    vt shellTerminateAction:[self shellFinishedInWorkspace:vt].
+    vt masterWindow:(self window).  "/ to change window title
+
+    "Modified: / 07-04-2011 / 09:03:55 / cg"
+    "Modified: / 03-04-2012 / 10:31:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !TerminalApplication methodsFor:'startup & release'!
 
 initialDirectory:aDirectory
@@ -570,31 +589,15 @@
     aView 
         cr; 
         nextPutLine:('>> shell terminated.' asText allBold colorizeAllWith:Color red).
-!
-
-startShellInSelectedWindow
-    |vt|
-
-    vt := self selectedWorkspacesTextView.
-    (vt notNil and:[vt superView realized]) ifFalse:[
-        self window sensor pushUserEvent:#startShellInSelectedWindow for:self.
-        ^ self.
-    ].
-
-    vt startShellIn:initialDirectory.
-    vt shellTerminateAction:[self shellFinishedInWorkspace:vt].
-    vt masterWindow:(self window).  "/ to change window title
-
-    "Modified: / 07-04-2011 / 09:03:55 / cg"
 ! !
 
 !TerminalApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.19 2013-07-30 09:02:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.20 2014-02-05 18:57:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.19 2013-07-30 09:02:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/TerminalApplication.st,v 1.20 2014-02-05 18:57:01 cg Exp $'
 ! !