diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | unix/tkUnixSend.c | 8 |
2 files changed, 7 insertions, 5 deletions
@@ -1,3 +1,7 @@ +2002-08-13 Reinhard Max <max@suse.de> + + * unix/tkUnixSend.c (Tk_SetAppName): Fixed a compiler warning. + 2002-08-12 Donal K. Fellows <fellowsd@cs.man.ac.uk> * library/demos/image2.tcl: Tweaked the behaviour of the directory diff --git a/unix/tkUnixSend.c b/unix/tkUnixSend.c index 25f712f..4e115c8 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.10 2002/08/05 04:30:41 dgp Exp $ + * RCS: @(#) $Id: tkUnixSend.c,v 1.11 2002/08/13 16:20:49 rmax Exp $ */ #include "tkPort.h" @@ -816,17 +816,15 @@ Tk_SetAppName(tkwin, name) * set" compiler warnings. */ for (i = 1; ; i++) { if (i > 1) { - char *copy; if (i == 2) { Tcl_DStringInit(&dString); Tcl_DStringAppend(&dString, name, -1); Tcl_DStringAppend(&dString, " #", 2); offset = Tcl_DStringLength(&dString); Tcl_DStringSetLength(&dString, offset+TCL_INTEGER_SPACE); - copy = Tcl_DStringValue(&dString); - actualName = copy; + actualName = Tcl_DStringValue(&dString); } - sprintf(copy + offset, "%d", i); + sprintf(Tcl_DStringValue(&dString) + offset, "%d", i); } w = RegFindName(regPtr, actualName); if (w == None) { |