home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / tcl / 2146 < prev    next >
Encoding:
Text File  |  1992-12-21  |  3.4 KB  |  94 lines
  1. Newsgroups: comp.lang.tcl
  2. Path: sparky!uunet!stanford.edu!leland.Stanford.EDU!eillihca@drizzle.Stanford.EDU
  3. From: eillihca@drizzle.StanFord.EDU ( Achille Hui, the Day Dreamer )
  4. Subject: Re: New releases:  Tk 3.0 and Tcl 6.5
  5. Message-ID: <eillihca.92121806254921182@drizzle.Stanford.EDU>
  6. Sender: news@leland.Stanford.EDU (Mr News)
  7. X-Transfer-Agent: leland.stanford.edu (NNTP)
  8. Organization: Dept. of Physics, Stanford University.
  9. Date: 18 Dec 92 14:25:49 GMT
  10. Lines: 82
  11.  
  12. ouster@sprite.Berkeley.EDU (John Ousterhout) writes: 
  13.  
  14. >
  15. >I have just released new versions of Tk and Tcl.  Tk 3.0 is a major
  16. >new release with several incompatibilities (hence the change in
  17. >major version number).  It doesn't have a lot of fancy new features
  18. >but includes many bug fixes and major structural improvements, such as
  19.  
  20. The following patch fixes two more bugs (a. never setting up the WM_CLASS
  21. property on a toplevel window. b. wish cores dump when you call wm without
  22. any argument) of Tk3.0 in tkWm.c. Also, the new restriction that a
  23. menubutton cannot "post" arbitary menus is a little bit annoying
  24.  
  25.                 -achille (eillihca@drizzle.stanford.edu)
  26. %%%%%%%%%%%%%% cut here %%%%%%%%%%%%%%%%%% cut here %%%%%%%%%%%%%%%%%%%%
  27. *** tkWm.c,dist Wed Dec 16 11:59:15 1992
  28. --- tkWm.c      Fri Dec 18 06:17:33 1992
  29. ***************
  30. *** 386,391 ****
  31. --- 386,392 ----
  32.         return;
  33.       }
  34.       if (wmPtr->flags & WM_NEVER_MAPPED) {
  35. +       wmPtr->flags &= ~WM_NEVER_MAPPED;
  36.         /*
  37.          * This is the first time this window has ever been mapped.
  38.          * Store all the window-manager-related information for the
  39. ***************
  40. *** 585,609 ****
  41.       char c;
  42.       int length;
  43.   
  44. !     c = argv[1][0];
  45. !     length = strlen(argv[1]);
  46. !     if ((c == 't') && (strncmp(argv[1], "tracing", length) == 0)
  47. !           && (length >= 3)) {
  48. !       if ((argc != 2) && (argc != 3)) {
  49. !           Tcl_AppendResult(interp, "wrong # arguments: must be \"",
  50. !                   argv[0], " tracing ?boolean?\"", (char *) NULL);
  51. !           return TCL_ERROR;
  52. !       }
  53.         if (argc == 2) {
  54.             interp->result = (wmTracing) ? "on" : "off";
  55.             return TCL_OK;
  56.         }
  57. !       return Tcl_GetBoolean(interp, argv[2], &wmTracing);
  58. !     }
  59. ! 
  60. !     if (argc < 3) {
  61.         Tcl_AppendResult(interp, "wrong # args: should be \"",
  62. !               argv[0], " option window ?arg ...?\"", (char *) NULL);
  63.         return TCL_ERROR;
  64.       }
  65.       winPtr = (TkWindow *) Tk_NameToWindow(interp, argv[2], tkwin);
  66. --- 586,611 ----
  67.       char c;
  68.       int length;
  69.   
  70. !     if(argc < 2){
  71. !       Tcl_AppendResult(interp, "wrong # args: should be \"",
  72. !               argv[0], " option window ?arg ...?\"", (char *) NULL);
  73. !       return TCL_ERROR;
  74. !     } else if(((c = argv[1][0]) == 't') &&
  75. !             (strncmp(argv[1],"tracing",length = strlen(argv[1])) == 0) &&
  76. !             (length >= 3)){
  77.         if (argc == 2) {
  78.             interp->result = (wmTracing) ? "on" : "off";
  79.             return TCL_OK;
  80. +       } else if(argc == 3){
  81. +           return Tcl_GetBoolean(interp, argv[2], &wmTracing);
  82. +       } else {
  83. +           Tcl_AppendResult(interp, "wrong # arguments: must be \"",
  84. +                   argv[0], " tracing ?boolean?\"", (char *) NULL);
  85. +           return TCL_ERROR;
  86.         }
  87. !     } else if (argc < 3) {
  88.         Tcl_AppendResult(interp, "wrong # args: should be \"",
  89. !           argv[0], " option window ?arg ...?\"", (char *) NULL);
  90.         return TCL_ERROR;
  91.       }
  92.       winPtr = (TkWindow *) Tk_NameToWindow(interp, argv[2], tkwin);
  93.  
  94.