From 14bca2d0f7683803b00efe7ae1dc3ae520f2d6f9 Mon Sep 17 00:00:00 2001
From: miljenko <miljenko>
Date: Mon, 5 Dec 2005 10:46:08 +0000
Subject: [PATCH] Added Shell window support for MS Windows.

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:
---
 editor.tcl | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/editor.tcl b/editor.tcl
index 2db99a0..58c839a 100755
--- 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" &
+    }
 }
 
 
-- 
2.39.5