Posted to tcl by kbk at Sun Apr 06 18:48:20 GMT 2008view raw

  1. Index: generic/tkArgv.c
  2. ===================================================================
  3. RCS file: /cvsroot/tktoolkit/tk/generic/tkArgv.c,v
  4. retrieving revision 1.11
  5. diff -b -u -r1.11 tkArgv.c
  6. --- generic/tkArgv.c 13 Dec 2007 15:24:13 -0000 1.11
  7. +++ generic/tkArgv.c 6 Apr 2008 18:42:13 -0000
  8. @@ -338,8 +338,6 @@
  9. {
  10. register Tk_ArgvInfo *infoPtr;
  11. size_t width, i, numSpaces;
  12. -#define NUM_SPACES 20
  13. - static char spaces[] = " ";
  14. char tmp[TCL_DOUBLE_SPACE];
  15.  
  16. /*
  17. @@ -373,12 +371,8 @@
  18. Tcl_AppendResult(interp, "\n ", infoPtr->key, ":", NULL);
  19. numSpaces = width + 1 - strlen(infoPtr->key);
  20. while (numSpaces > 0) {
  21. - if (numSpaces >= NUM_SPACES) {
  22. - Tcl_AppendResult(interp, spaces, NULL);
  23. - } else {
  24. - Tcl_AppendResult(interp, spaces+NUM_SPACES-numSpaces,NULL);
  25. - }
  26. - numSpaces -= NUM_SPACES;
  27. + Tcl_AppendResult(interp, " ", NULL);
  28. + numSpaces--;
  29. }
  30. Tcl_AppendResult(interp, infoPtr->help, NULL);
  31. switch (infoPtr->type) {