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) {