From 83e4a677ed3392ce3021f1138de0f2c274d605f4 Mon Sep 17 00:00:00 2001
From: rmax <rmax>
Date: Thu, 18 Jul 2002 16:02:47 +0000
Subject: 	* unix/tkUnixSend.c: Using Tcl_GetTime instead of TclpGetTime.

---
 ChangeLog         | 4 ++++
 unix/tkUnixSend.c | 6 +++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 2f0247f..a840a82 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-07-18  Reinhard Max  <max@suse.de>
+
+	* unix/tkUnixSend.c: Using Tcl_GetTime instead of TclpGetTime.
+
 2002-07-17  Reinhard Max  <max@suse.de>
 
 	* library/unsupported.tcl: Extended ExposePrivateVariable, and
diff --git a/unix/tkUnixSend.c b/unix/tkUnixSend.c
index ea0d393..8525afa 100644
--- a/unix/tkUnixSend.c
+++ b/unix/tkUnixSend.c
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkUnixSend.c,v 1.8 2002/06/19 19:37:55 mdejong Exp $
+ * RCS: @(#) $Id: tkUnixSend.c,v 1.9 2002/07/18 16:02:48 rmax Exp $
  */
 
 #include "tkPort.h"
@@ -1104,7 +1104,7 @@ Tk_SendCmd(clientData, interp, argc, argv)
 
     prevRestrictProc = Tk_RestrictEvents(SendRestrictProc,
 	    (ClientData) NULL, &prevArg);
-    TclpGetTime(&timeout);
+    Tcl_GetTime(&timeout);
     timeout.sec += 2;
     while (!pending.gotResponse) {
 	if (!TkUnixDoOneXEvent(&timeout)) {
@@ -1128,7 +1128,7 @@ Tk_SendCmd(clientData, interp, argc, argv)
 		strcpy(pending.result, msg);
 		pending.gotResponse = 1;
 	    } else {
-		TclpGetTime(&timeout);
+		Tcl_GetTime(&timeout);
 		timeout.sec += 2;
 	    }
 	}
-- 
cgit v0.12