Added Shell window support for MS Windows.

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:

diff --git a/editor.tcl b/editor.tcl
index 2db99a07c2e8f0faa1b81476b4f769073cb5affa..58c839a5e4edce906ee6e955317503d72e203a82 100755 (executable)
--- a/editor.tcl
+++ b/editor.tcl
@@ -796,12 +796,24 @@ proc button3node { c x y } {
 
 
 proc spawnShell { node cmd } {
-    global eid
+    global eid remote_exec exec_host gui_unix
 
     set node_id $eid\_$node
-    nexec xterm -sb -rightbar \
-       -T "IMUNES: [getNodeName $node] (console)" \
-       -e "vimage $node_id $cmd" &
+
+    if { $remote_exec } {
+        nexec vimage_shell.server.sh $node_id 1234 &
+        if { $gui_unix } {
+            exec xterm -sb -rightbar \
+           -T "IMUNES: [getNodeName $node] (console)" \
+           -e "nc $exec_host 1234" &
+        } else {
+             exec cmd /c nc $exec_host 1234 &
+        }
+    } else {
+        nexec xterm -sb -rightbar \
+            -T "IMUNES: [getNodeName $node] (console)" \
+            -e "vimage $node_id $cmd" &
+    }
 }