home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / tcl / 2213 < prev    next >
Encoding:
Internet Message Format  |  1992-12-22  |  4.5 KB
  1. Path: sparky!uunet!olivea!spool.mu.edu!agate!sprite.Berkeley.EDU!ouster
  2. From: ouster@sprite.Berkeley.EDU (John Ousterhout)
  3. Newsgroups: comp.lang.tcl
  4. Subject: Re: Tk3.0 bug?
  5. Message-ID: <1h7hh6INNrlk@agate.berkeley.edu>
  6. Date: 22 Dec 92 16:59:18 GMT
  7. References: <SLS.92Dec18163617@batcomputer.aero.org> <1h56dpINNfvt@agate.berkeley.edu> <1992Dec22.012721.17612@walter.bellcore.com>
  8. Organization: U.C. Berkeley Sprite Project
  9. Lines: 146
  10. NNTP-Posting-Host: tyranny.berkeley.edu
  11.  
  12. Mea culpa.  When I posted a patch yesterday for the bug whereby
  13. "wm withdraw" didn't work correctly, I forgot that I've made
  14. several changes to tkWm.c since the release, and I didn't get them
  15. all in the patch.  Here's a better tkWm.c patch:
  16.  
  17. *** /tmp/,RCSt1084828    Tue Dec 22 08:57:35 1992
  18. --- tkWm.c    Mon Dec 21 11:43:16 1992
  19. ***************
  20. *** 206,211 ****
  21. --- 206,214 ----
  22.    * WM_VROOT_OFFSET_STALE -    non-zero means that (x,y) offset information
  23.    *                about the virtual root window is stale and
  24.    *                needs to be fetched fresh from the X server.
  25. +  * WM_ABOUT_TO_MAP -        non-zero means that the window is about to
  26. +  *                be mapped by TkWmMapWindow.  This is used
  27. +  *                by UpdateGeometryInfo to modify its behavior.
  28.    */
  29.   
  30.   #define WM_NEVER_MAPPED        1
  31. ***************
  32. *** 215,220 ****
  33. --- 218,224 ----
  34.   #define WM_UPDATE_SIZE_HINTS    0x10
  35.   #define WM_SYNC_PENDING        0x20
  36.   #define WM_VROOT_OFFSET_STALE    0x40
  37. + #define WM_ABOUT_TO_MAP        0x100
  38.   
  39.   /*
  40.    * This module keeps a list of all top-level windows, primarily to
  41. ***************
  42. *** 382,391 ****
  43.       XTextProperty textProp;
  44.       int savedX, savedY, savedFlags;
  45.   
  46. -     if (wmPtr->hints.initial_state == WithdrawnState) {
  47. -     return;
  48. -     }
  49.       if (wmPtr->flags & WM_NEVER_MAPPED) {
  50.       /*
  51.        * This is the first time this window has ever been mapped.
  52.        * Store all the window-manager-related information for the
  53. --- 386,394 ----
  54.       XTextProperty textProp;
  55.       int savedX, savedY, savedFlags;
  56.   
  57.       if (wmPtr->flags & WM_NEVER_MAPPED) {
  58. +     wmPtr->flags &= ~WM_NEVER_MAPPED;
  59. + 
  60.       /*
  61.        * This is the first time this window has ever been mapped.
  62.        * Store all the window-manager-related information for the
  63. ***************
  64. *** 427,433 ****
  65. --- 430,441 ----
  66.           }
  67.       }
  68.       }
  69. +     if (wmPtr->hints.initial_state == WithdrawnState) {
  70. +     return;
  71. +     }
  72. +     wmPtr->flags |= WM_ABOUT_TO_MAP;
  73.       UpdateGeometryInfo((ClientData) winPtr);
  74. +     wmPtr->flags &= ~WM_ABOUT_TO_MAP;
  75.   
  76.       /*
  77.        * Map the window, wait to be sure that the window manager has
  78. ***************
  79. *** 435,441 ****
  80.        * if there were explicit positions asked for.
  81.        */
  82.   
  83. -     wmPtr->flags &= ~WM_NEVER_MAPPED;
  84.       XMapWindow(winPtr->display, winPtr->window);
  85.       savedX = wmPtr->x;
  86.       savedY = wmPtr->y;
  87. --- 443,448 ----
  88. ***************
  89. *** 585,590 ****
  90. --- 592,603 ----
  91.       char c;
  92.       int length;
  93.   
  94. +     if (argc < 2) {
  95. +     wrongNumArgs:
  96. +     Tcl_AppendResult(interp, "wrong # args: should be \"",
  97. +         argv[0], " option window ?arg ...?\"", (char *) NULL);
  98. +     return TCL_ERROR;
  99. +     }
  100.       c = argv[1][0];
  101.       length = strlen(argv[1]);
  102.       if ((c == 't') && (strncmp(argv[1], "tracing", length) == 0)
  103. ***************
  104. *** 602,610 ****
  105.       }
  106.   
  107.       if (argc < 3) {
  108. !     Tcl_AppendResult(interp, "wrong # args: should be \"",
  109. !         argv[0], " option window ?arg ...?\"", (char *) NULL);
  110. !     return TCL_ERROR;
  111.       }
  112.       winPtr = (TkWindow *) Tk_NameToWindow(interp, argv[2], tkwin);
  113.       if (winPtr == NULL) {
  114. --- 615,621 ----
  115.       }
  116.   
  117.       if (argc < 3) {
  118. !     goto wrongNumArgs;
  119.       }
  120.       winPtr = (TkWindow *) Tk_NameToWindow(interp, argv[2], tkwin);
  121.       if (winPtr == NULL) {
  122. ***************
  123. *** 1235,1243 ****
  124.           wmPtr->protPtr = protPtr;
  125.           protPtr->interp = interp;
  126.           strcpy(protPtr->command, argv[4]);
  127. -         if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
  128. -         UpdateWmProtocols(wmPtr);
  129. -         }
  130.       }
  131.       if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
  132.           UpdateWmProtocols(wmPtr);
  133. --- 1246,1251 ----
  134. ***************
  135. *** 1970,1976 ****
  136.       return;
  137.       }
  138.   
  139. !     if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
  140.       int savedX, savedY, savedFlags;
  141.   
  142.       savedX = wmPtr->x;
  143. --- 1978,1991 ----
  144.       return;
  145.       }
  146.   
  147. !     /*
  148. !      * Wait for the configure operation to complete, then verify that the
  149. !      * window was positioned where it was supposed to be and adjust it if
  150. !      * it wasn't.  Don't need to do this, however, if the window is about
  151. !      * to be mapped:  it will be taken care of elsewhere.
  152. !      */
  153. ! 
  154. !     if (!(wmPtr->flags & WM_ABOUT_TO_MAP)) {
  155.       int savedX, savedY, savedFlags;
  156.   
  157.       savedX = wmPtr->x;
  158.