Posted to tcl by kbk at Sun Apr 06 18:48:20 GMT 2008view pretty
Index: generic/tkArgv.c =================================================================== RCS file: /cvsroot/tktoolkit/tk/generic/tkArgv.c,v retrieving revision 1.11 diff -b -u -r1.11 tkArgv.c --- generic/tkArgv.c 13 Dec 2007 15:24:13 -0000 1.11 +++ generic/tkArgv.c 6 Apr 2008 18:42:13 -0000 @@ -338,8 +338,6 @@ { register Tk_ArgvInfo *infoPtr; size_t width, i, numSpaces; -#define NUM_SPACES 20 - static char spaces[] = " "; char tmp[TCL_DOUBLE_SPACE]; /* @@ -373,12 +371,8 @@ Tcl_AppendResult(interp, "\n ", infoPtr->key, ":", NULL); numSpaces = width + 1 - strlen(infoPtr->key); while (numSpaces > 0) { - if (numSpaces >= NUM_SPACES) { - Tcl_AppendResult(interp, spaces, NULL); - } else { - Tcl_AppendResult(interp, spaces+NUM_SPACES-numSpaces,NULL); - } - numSpaces -= NUM_SPACES; + Tcl_AppendResult(interp, " ", NULL); + numSpaces--; } Tcl_AppendResult(interp, infoPtr->help, NULL); switch (infoPtr->type) {