Posted to tcl by kbk at Sun Apr 06 18:48:20 GMT 2008view raw
- 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) {