Added TCL_EVAL_GLOBAL flag to the send eval.

Updated the documentation.

diff --git a/Readme b/Readme
index 26828feffe3ef169241742d157c5cf2c87056e5b..be8d19ec73aa3f87898517b78e92caa75db20cb6 100644 (file)
--- a/Readme
+++ b/Readme
@@ -11,7 +11,7 @@ not be blocked by badly behaving windows applications.
 
 An example (from tkcon):         from a concurrent tclsh:
   % package require winsend  |     % package require winsend
-  0.3                        |     0.3
+  0.4                        |     0.4
   % winsend interps          |     % winsend interps
   tkcon.tcl                  |     tkcon.tcl TCLSH.EXE
                              |     % winsend send tkcon.tcl set x 1
@@ -50,7 +50,7 @@ Tcl version printed in your DOS box.
 See
   http://tclsoap.sourceforge.net/winsend.html
 and
-  http://tclsoap.sourceforge.net/winsend.zip
+  http://prdownloads.sourceforge.net/tclsoap/winsend-0.4.zip
 for the docs (this document) and code respectively.
 
 Pat Thoyts.

diff --git a/WinSendCom.c b/WinSendCom.c
index 53f0bae8b019ba216a5b842a4c28bf9e5bd94f0c..fd7e912087a760d36fc038687000d0c908f40ca6 100644 (file)
--- a/WinSendCom.c
+++ b/WinSendCom.c
@@ -217,7 +217,7 @@ Send(WinSendCom* obj, VARIANT vCmd, VARIANT* pvResult)
         {
             Tcl_Obj *script = Tcl_NewUnicodeObj(v.bstrVal,
                                                 SysStringLen(v.bstrVal));
-            r = Tcl_EvalObjEx(obj->interp, script, TCL_EVAL_DIRECT);
+            r = Tcl_EvalObjEx(obj->interp, script, TCL_EVAL_DIRECT | TCL_EVAL_GLOBAL);
             if (pvResult)
             {
                 VariantInit(pvResult);

diff --git a/winsend.dsp b/winsend.dsp
index 9d143a84d8b00be3fbfc9d831cb8b3ed6a6acd60..5f9c6a4f3f9a5ef5fb46786bd5d9a2dfaf38f948 100644 (file)
--- a/winsend.dsp
+++ b/winsend.dsp
@@ -125,6 +125,10 @@ SOURCE=.\WinSendCom.h
 # End Group
 # Begin Source File
 
+SOURCE=.\LICENSE
+# End Source File
+# Begin Source File
+
 SOURCE=.\Readme
 # End Source File
 # Begin Source File
@@ -133,7 +137,11 @@ SOURCE=.\test.vbs
 # End Source File
 # Begin Source File
 
-SOURCE=.\winsend.html
+SOURCE=.\test2.vbs
+# End Source File
+# Begin Source File
+
+SOURCE=.\winsend.man
 # End Source File
 # End Target
 # End Project

diff --git a/winsend.man b/winsend.man
index abced4ef1bf31dc6b6a35fa45e33d05a83bcb1e1..b1a8a05ac0be10443eca38ee73dd45119e4d0879 100644 (file)
--- a/winsend.man
+++ b/winsend.man
@@ -59,8 +59,8 @@ Windows Scripting Host cscript application using
 [example {
  Set interp = GetObject("\\.\TclInterp\tkcon.tcl")
  interp.Send "puts {Hello from VB Script}"
- WScript.Echo interp.Send("info tcl")
-}]
+ WScript.Echo interp.Send("info tcl")}]
+
 Provided you have an instance of Tcl running registered with 
 [cmd {winsend appname tkcon.tcl}] you should see the message appear in
 the Tcl window and the Tcl version should be printed to the cscript