diff options
| author | rmax <rmax> | 2002-07-18 16:02:47 (GMT) |
|---|---|---|
| committer | rmax <rmax> | 2002-07-18 16:02:47 (GMT) |
| commit | 83e4a677ed3392ce3021f1138de0f2c274d605f4 (patch) | |
| tree | 0d8c16824aec271f764ec5be64357301870e575e | |
| parent | 677d2828146e065b014f0c63707664bd1845426d (diff) | |
| download | tk-83e4a677ed3392ce3021f1138de0f2c274d605f4.zip tk-83e4a677ed3392ce3021f1138de0f2c274d605f4.tar.gz tk-83e4a677ed3392ce3021f1138de0f2c274d605f4.tar.bz2 | |
* unix/tkUnixSend.c: Using Tcl_GetTime instead of TclpGetTime.
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | unix/tkUnixSend.c | 6 |
2 files changed, 7 insertions, 3 deletions
@@ -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; } } |