--- a/TerminalView.st	Sat Jun 13 18:19:36 1998 +0200
+++ b/TerminalView.st	Sat Jun 13 19:19:43 1998 +0200
@@ -632,16 +632,26 @@
 
     shellPid := Processor
                monitor:[
-                  |e|
+                  |e shell cmd|
 
                   e := Dictionary new.
-                  e at:'TERM'    put:(self terminalType).
-                  e at:'LINES'   put:nil.
-                  e at:'COLUMNS' put:nil.
+                  e at:'TERM'     put:(self terminalType).
+                  e at:'LINES'    put:(numberOfLines printString).
+                  e at:'COLUMNS'  put:(numberOfColumns printString).
+                  drawableId notNil ifTrue:[
+                      e at:'WINDOWID' put:(drawableId address printString).
+                  ].
+
+                  shell := OperatingSystem getEnvironment:'SHELL'.
+                  shell size == 0 ifTrue:[
+                      shell := '/bin/sh'.
+                  ].
+                  e at:'SHELL'  put:shell.
+                  cmd := shell asFilename baseName.
 
                   OperatingSystem
-                      exec:'/bin/sh'
-                      withArguments:#('sh')
+                      exec:shell
+                      withArguments:(Array with:cmd)
                       environment:e
                       fileDescriptors:execFdArray
                       closeDescriptors:#()
@@ -677,7 +687,7 @@
      VT100TerminalView openShell
     "
 
-    "Modified: / 12.6.1998 / 20:59:32 / cg"
+    "Modified: / 13.6.1998 / 19:08:45 / cg"
 ! !
 
 !TerminalView methodsFor:'menu'!
@@ -787,5 +797,5 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.32 1998-06-13 16:19:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.33 1998-06-13 17:19:43 cg Exp $'
 ! !