Hex Artifact Content

Artifact 26b787040490ff261577d67c024c45d1de98cf54:


0000: 2f 2a 20 0a 20 2a 20 74 6b 47 65 6f 6d 65 74 72  /* . * tkGeometr
0010: 79 2e 63 20 28 43 54 6b 29 20 2d 2d 0a 20 2a 0a  y.c (CTk) --. *.
0020: 20 2a 09 54 68 69 73 20 66 69 6c 65 20 63 6f 6e   *.This file con
0030: 74 61 69 6e 73 20 67 65 6e 65 72 69 63 20 54 6b  tains generic Tk
0040: 20 63 6f 64 65 20 66 6f 72 20 67 65 6f 6d 65 74   code for geomet
0050: 72 79 20 6d 61 6e 61 67 65 6d 65 6e 74 0a 20 2a  ry management. *
0060: 09 28 73 74 75 66 66 20 74 68 61 74 27 73 20 75  .(stuff that's u
0070: 73 65 64 20 62 79 20 61 6c 6c 20 67 65 6f 6d 65  sed by all geome
0080: 74 72 79 20 6d 61 6e 61 67 65 72 73 29 2e 0a 20  try managers).. 
0090: 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 28  *. * Copyright (
00a0: 63 29 20 31 39 39 30 2d 31 39 39 34 20 54 68 65  c) 1990-1994 The
00b0: 20 52 65 67 65 6e 74 73 20 6f 66 20 74 68 65 20   Regents of the 
00c0: 55 6e 69 76 65 72 73 69 74 79 20 6f 66 20 43 61  University of Ca
00d0: 6c 69 66 6f 72 6e 69 61 2e 0a 20 2a 20 43 6f 70  lifornia.. * Cop
00e0: 79 72 69 67 68 74 20 28 63 29 20 31 39 39 34 2d  yright (c) 1994-
00f0: 31 39 39 35 20 53 75 6e 20 4d 69 63 72 6f 73 79  1995 Sun Microsy
0100: 73 74 65 6d 73 2c 20 49 6e 63 2e 0a 20 2a 20 43  stems, Inc.. * C
0110: 6f 70 79 72 69 67 68 74 20 28 63 29 20 31 39 39  opyright (c) 199
0120: 35 20 43 6c 65 76 65 6c 61 6e 64 20 43 6c 69 6e  5 Cleveland Clin
0130: 69 63 20 46 6f 75 6e 64 61 74 69 6f 6e 0a 20 2a  ic Foundation. *
0140: 0a 20 2a 20 53 65 65 20 74 68 65 20 66 69 6c 65  . * See the file
0150: 20 22 6c 69 63 65 6e 73 65 2e 74 65 72 6d 73 22   "license.terms"
0160: 20 66 6f 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e   for information
0170: 20 6f 6e 20 75 73 61 67 65 20 61 6e 64 20 72 65   on usage and re
0180: 64 69 73 74 72 69 62 75 74 69 6f 6e 0a 20 2a 20  distribution. * 
0190: 6f 66 20 74 68 69 73 20 66 69 6c 65 2c 20 61 6e  of this file, an
01a0: 64 20 66 6f 72 20 61 20 44 49 53 43 4c 41 49 4d  d for a DISCLAIM
01b0: 45 52 20 4f 46 20 41 4c 4c 20 57 41 52 52 41 4e  ER OF ALL WARRAN
01c0: 54 49 45 53 2e 0a 20 2a 0a 20 2a 20 40 28 23 29  TIES.. *. * @(#)
01d0: 20 24 49 64 3a 20 63 74 6b 2e 73 68 61 72 2c 76   $Id: ctk.shar,v
01e0: 20 31 2e 35 30 20 31 39 39 36 2f 30 31 2f 31 35   1.50 1996/01/15
01f0: 20 31 34 3a 34 37 3a 31 36 20 61 6e 64 72 65 77   14:47:16 andrew
0200: 6d 20 45 78 70 20 61 6e 64 72 65 77 6d 20 24 0a  m Exp andrewm $.
0210: 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74   */..#include "t
0220: 6b 50 6f 72 74 2e 68 22 0a 23 69 6e 63 6c 75 64  kPort.h".#includ
0230: 65 20 22 74 6b 49 6e 74 2e 68 22 0a 0a 2f 2a 0a  e "tkInt.h"../*.
0240: 20 2a 20 44 61 74 61 20 73 74 72 75 63 74 75 72   * Data structur
0250: 65 73 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77  es of the follow
0260: 69 6e 67 20 74 79 70 65 20 61 72 65 20 75 73 65  ing type are use
0270: 64 20 62 79 20 54 6b 5f 4d 61 69 6e 74 61 69 6e  d by Tk_Maintain
0280: 47 65 6f 6d 65 74 72 79 2e 0a 20 2a 20 46 6f 72  Geometry.. * For
0290: 20 65 61 63 68 20 73 6c 61 76 65 20 6d 61 6e 61   each slave mana
02a0: 67 65 64 20 62 79 20 54 6b 5f 4d 61 69 6e 74 61  ged by Tk_Mainta
02b0: 69 6e 47 65 6f 6d 65 74 72 79 2c 20 74 68 65 72  inGeometry, ther
02c0: 65 20 69 73 20 6f 6e 65 20 6f 66 20 74 68 65 73  e is one of thes
02d0: 65 0a 20 2a 20 73 74 72 75 63 74 75 72 65 73 20  e. * structures 
02e0: 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20  associated with 
02f0: 69 74 73 20 6d 61 73 74 65 72 2e 0a 20 2a 2f 0a  its master.. */.
0300: 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20  .typedef struct 
0310: 4d 61 69 6e 74 61 69 6e 53 6c 61 76 65 20 7b 0a  MaintainSlave {.
0320: 20 20 20 20 54 6b 5f 57 69 6e 64 6f 77 20 73 6c      Tk_Window sl
0330: 61 76 65 3b 09 09 2f 2a 20 54 68 65 20 73 6c 61  ave;../* The sla
0340: 76 65 20 77 69 6e 64 6f 77 20 62 65 69 6e 67 20  ve window being 
0350: 70 6f 73 69 74 69 6f 6e 65 64 2e 20 2a 2f 0a 20  positioned. */. 
0360: 20 20 20 54 6b 5f 57 69 6e 64 6f 77 20 6d 61 73     Tk_Window mas
0370: 74 65 72 3b 09 09 2f 2a 20 54 68 65 20 6d 61 73  ter;../* The mas
0380: 74 65 72 20 74 68 61 74 20 64 65 74 65 72 6d 69  ter that determi
0390: 6e 65 73 20 73 6c 61 76 65 27 73 0a 09 09 09 09  nes slave's.....
03a0: 20 2a 20 70 6f 73 69 74 69 6f 6e 3b 20 69 74 20   * position; it 
03b0: 6d 75 73 74 20 62 65 20 61 20 64 65 73 63 65 6e  must be a descen
03c0: 64 61 6e 74 20 6f 66 0a 09 09 09 09 20 2a 20 73  dant of..... * s
03d0: 6c 61 76 65 27 73 20 70 61 72 65 6e 74 2e 20 2a  lave's parent. *
03e0: 2f 0a 20 20 20 20 69 6e 74 20 78 2c 20 79 3b 09  /.    int x, y;.
03f0: 09 09 2f 2a 20 44 65 73 69 72 65 64 20 70 6f 73  ../* Desired pos
0400: 69 74 69 6f 6e 20 6f 66 20 73 6c 61 76 65 20 72  ition of slave r
0410: 65 6c 61 74 69 76 65 20 74 6f 0a 09 09 09 09 20  elative to..... 
0420: 2a 20 6d 61 73 74 65 72 2e 20 2a 2f 0a 20 20 20  * master. */.   
0430: 20 69 6e 74 20 77 69 64 74 68 2c 20 68 65 69 67   int width, heig
0440: 68 74 3b 09 09 2f 2a 20 44 65 73 69 72 65 64 20  ht;../* Desired 
0450: 64 69 6d 65 6e 73 69 6f 6e 73 20 6f 66 20 73 6c  dimensions of sl
0460: 61 76 65 2e 20 2a 2f 0a 20 20 20 20 73 74 72 75  ave. */.    stru
0470: 63 74 20 4d 61 69 6e 74 61 69 6e 53 6c 61 76 65  ct MaintainSlave
0480: 20 2a 6e 65 78 74 50 74 72 3b 0a 09 09 09 09 2f   *nextPtr;...../
0490: 2a 20 4e 65 78 74 20 69 6e 20 6c 69 73 74 20 6f  * Next in list o
04a0: 66 20 4d 61 69 6e 74 61 69 6e 73 20 61 73 73 6f  f Maintains asso
04b0: 63 69 61 74 65 64 0a 09 09 09 09 20 2a 20 77 69  ciated..... * wi
04c0: 74 68 20 6d 61 73 74 65 72 2e 20 2a 2f 0a 7d 20  th master. */.} 
04d0: 4d 61 69 6e 74 61 69 6e 53 6c 61 76 65 3b 0a 0a  MaintainSlave;..
04e0: 2f 2a 0a 20 2a 20 46 6f 72 20 65 61 63 68 20 77  /*. * For each w
04f0: 69 6e 64 6f 77 20 74 68 61 74 20 68 61 73 20 62  indow that has b
0500: 65 65 6e 20 73 70 65 63 69 66 69 65 64 20 61 73  een specified as
0510: 20 61 20 6d 61 73 74 65 72 20 74 6f 0a 20 2a 20   a master to. * 
0520: 54 6b 5f 4d 61 69 6e 74 61 69 6e 47 65 6f 6d 65  Tk_MaintainGeome
0530: 74 72 79 2c 20 74 68 65 72 65 20 69 73 20 61 20  try, there is a 
0540: 73 74 72 75 63 74 75 72 65 20 6f 66 20 74 68 65  structure of the
0550: 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 79 70 65 3a   following type:
0560: 0a 20 2a 2f 0a 0a 74 79 70 65 64 65 66 20 73 74  . */..typedef st
0570: 72 75 63 74 20 4d 61 69 6e 74 61 69 6e 4d 61 73  ruct MaintainMas
0580: 74 65 72 20 7b 0a 20 20 20 20 54 6b 5f 57 69 6e  ter {.    Tk_Win
0590: 64 6f 77 20 61 6e 63 65 73 74 6f 72 3b 09 09 2f  dow ancestor;../
05a0: 2a 20 54 68 65 20 6c 6f 77 65 73 74 20 61 6e 63  * The lowest anc
05b0: 65 73 74 6f 72 20 6f 66 20 74 68 69 73 20 77 69  estor of this wi
05c0: 6e 64 6f 77 0a 09 09 09 09 20 2a 20 66 6f 72 20  ndow..... * for 
05d0: 77 68 69 63 68 20 77 65 20 68 61 76 65 20 2a 6e  which we have *n
05e0: 6f 74 2a 20 63 72 65 61 74 65 64 20 61 0a 09 09  ot* created a...
05f0: 09 09 20 2a 20 53 74 72 75 63 74 75 72 65 4e 6f  .. * StructureNo
0600: 74 69 66 79 20 68 61 6e 64 6c 65 72 2e 20 20 4d  tify handler.  M
0610: 61 79 20 62 65 20 74 68 65 0a 09 09 09 09 20 2a  ay be the..... *
0620: 20 73 61 6d 65 20 61 73 20 74 68 65 20 77 69 6e   same as the win
0630: 64 6f 77 20 69 74 73 65 6c 66 2e 20 2a 2f 0a 20  dow itself. */. 
0640: 20 20 20 69 6e 74 20 63 68 65 63 6b 53 63 68 65     int checkSche
0650: 64 75 6c 65 64 3b 09 09 2f 2a 20 4e 6f 6e 2d 7a  duled;../* Non-z
0660: 65 72 6f 20 6d 65 61 6e 73 20 74 68 61 74 20 74  ero means that t
0670: 68 65 72 65 20 69 73 20 61 6c 72 65 61 64 79 20  here is already 
0680: 61 0a 09 09 09 09 20 2a 20 63 61 6c 6c 20 74 6f  a..... * call to
0690: 20 4d 61 69 6e 74 61 69 6e 43 68 65 63 6b 50 72   MaintainCheckPr
06a0: 6f 63 20 73 63 68 65 64 75 6c 65 64 20 61 73 0a  oc scheduled as.
06b0: 09 09 09 09 20 2a 20 61 6e 20 69 64 6c 65 20 68  .... * an idle h
06c0: 61 6e 64 6c 65 72 2e 20 2a 2f 0a 20 20 20 20 4d  andler. */.    M
06d0: 61 69 6e 74 61 69 6e 53 6c 61 76 65 20 2a 73 6c  aintainSlave *sl
06e0: 61 76 65 50 74 72 3b 09 2f 2a 20 46 69 72 73 74  avePtr;./* First
06f0: 20 69 6e 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20   in list of all 
0700: 73 6c 61 76 65 73 20 61 73 73 6f 63 69 61 74 65  slaves associate
0710: 64 0a 09 09 09 09 20 2a 20 77 69 74 68 20 74 68  d..... * with th
0720: 69 73 20 6d 61 73 74 65 72 2e 20 2a 2f 0a 7d 20  is master. */.} 
0730: 4d 61 69 6e 74 61 69 6e 4d 61 73 74 65 72 3b 0a  MaintainMaster;.
0740: 0a 2f 2a 0a 20 2a 20 48 61 73 68 20 74 61 62 6c  ./*. * Hash tabl
0750: 65 20 74 68 61 74 20 6d 61 70 73 20 66 72 6f 6d  e that maps from
0760: 20 61 20 6d 61 73 74 65 72 27 73 20 54 6b 5f 57   a master's Tk_W
0770: 69 6e 64 6f 77 20 74 6f 6b 65 6e 20 74 6f 20 61  indow token to a
0780: 20 6c 69 73 74 20 6f 66 0a 20 2a 20 4d 61 69 6e   list of. * Main
0790: 74 61 69 6e 73 20 66 6f 72 20 74 68 61 74 20 6d  tains for that m
07a0: 61 73 74 65 72 3a 0a 20 2a 2f 0a 0a 73 74 61 74  aster:. */..stat
07b0: 69 63 20 54 63 6c 5f 48 61 73 68 54 61 62 6c 65  ic Tcl_HashTable
07c0: 20 6d 61 69 6e 74 61 69 6e 48 61 73 68 54 61 62   maintainHashTab
07d0: 6c 65 3b 0a 0a 2f 2a 0a 20 2a 20 48 61 73 20 6d  le;../*. * Has m
07e0: 61 69 6e 74 61 69 6e 48 61 73 68 54 61 62 6c 65  aintainHashTable
07f0: 20 62 65 65 6e 20 69 6e 69 74 69 61 6c 69 7a 65   been initialize
0800: 64 20 79 65 74 3f 0a 20 2a 2f 0a 0a 73 74 61 74  d yet?. */..stat
0810: 69 63 20 69 6e 74 20 69 6e 69 74 69 61 6c 69 7a  ic int initializ
0820: 65 64 20 3d 20 30 3b 0a 0a 2f 2a 0a 20 2a 20 50  ed = 0;../*. * P
0830: 72 6f 74 6f 74 79 70 65 73 20 66 6f 72 20 73 74  rototypes for st
0840: 61 74 69 63 20 70 72 6f 63 65 64 75 72 65 73 20  atic procedures 
0850: 69 6e 20 74 68 69 73 20 66 69 6c 65 3a 0a 20 2a  in this file:. *
0860: 2f 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 09 09  /..static void..
0870: 4d 61 69 6e 74 61 69 6e 43 68 65 63 6b 50 72 6f  MaintainCheckPro
0880: 63 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 43  c _ANSI_ARGS_((C
0890: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74  lientData client
08a0: 44 61 74 61 29 29 3b 0a 73 74 61 74 69 63 20 76  Data));.static v
08b0: 6f 69 64 09 09 4d 61 69 6e 74 61 69 6e 4d 61 73  oid..MaintainMas
08c0: 74 65 72 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52  terProc _ANSI_AR
08d0: 47 53 5f 28 28 43 6c 69 65 6e 74 44 61 74 61 20  GS_((ClientData 
08e0: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 20  clientData,.... 
08f0: 20 20 20 58 45 76 65 6e 74 20 2a 65 76 65 6e 74     XEvent *event
0900: 50 74 72 29 29 3b 0a 73 74 61 74 69 63 20 76 6f  Ptr));.static vo
0910: 69 64 09 09 4d 61 69 6e 74 61 69 6e 53 6c 61 76  id..MaintainSlav
0920: 65 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52 47 53  eProc _ANSI_ARGS
0930: 5f 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c  _((ClientData cl
0940: 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 20 20 20  ientData,....   
0950: 20 58 45 76 65 6e 74 20 2a 65 76 65 6e 74 50 74   XEvent *eventPt
0960: 72 29 29 3b 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d  r));.../*. *----
0970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
09a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a  ----------. *. *
09b0: 20 54 6b 5f 4d 61 6e 61 67 65 47 65 6f 6d 65 74   Tk_ManageGeomet
09c0: 72 79 20 2d 2d 0a 20 2a 0a 20 2a 09 41 72 72 61  ry --. *. *.Arra
09d0: 6e 67 65 20 66 6f 72 20 61 20 70 61 72 74 69 63  nge for a partic
09e0: 75 6c 61 72 20 70 72 6f 63 65 64 75 72 65 20 74  ular procedure t
09f0: 6f 20 6d 61 6e 61 67 65 20 74 68 65 20 67 65 6f  o manage the geo
0a00: 6d 65 74 72 79 0a 20 2a 09 6f 66 20 61 20 67 69  metry. *.of a gi
0a10: 76 65 6e 20 73 6c 61 76 65 20 77 69 6e 64 6f 77  ven slave window
0a20: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a  .. *. * Results:
0a30: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20  . *.None.. *. * 
0a40: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a  Side effects:. *
0a50: 09 50 72 6f 63 20 62 65 63 6f 6d 65 73 20 74 68  .Proc becomes th
0a60: 65 20 6e 65 77 20 67 65 6f 6d 65 74 72 79 20 6d  e new geometry m
0a70: 61 6e 61 67 65 72 20 66 6f 72 20 74 6b 77 69 6e  anager for tkwin
0a80: 2c 20 72 65 70 6c 61 63 69 6e 67 0a 20 2a 09 61  , replacing. *.a
0a90: 6e 79 20 70 72 65 76 69 6f 75 73 20 67 65 6f 6d  ny previous geom
0aa0: 65 74 72 79 20 6d 61 6e 61 67 65 72 2e 20 20 54  etry manager.  T
0ab0: 68 65 20 67 65 6f 6d 65 74 72 79 20 6d 61 6e 61  he geometry mana
0ac0: 67 65 72 20 77 69 6c 6c 0a 20 2a 09 62 65 20 6e  ger will. *.be n
0ad0: 6f 74 69 66 69 65 64 20 28 62 79 20 63 61 6c 6c  otified (by call
0ae0: 69 6e 67 20 70 72 6f 63 65 64 75 72 65 73 20 69  ing procedures i
0af0: 6e 20 2a 6d 67 72 50 74 72 29 20 77 68 65 6e 20  n *mgrPtr) when 
0b00: 69 6e 74 65 72 65 73 74 69 6e 67 0a 20 2a 09 74  interesting. *.t
0b10: 68 69 6e 67 73 20 68 61 70 70 65 6e 20 69 6e 20  hings happen in 
0b20: 74 68 65 20 66 75 74 75 72 65 2e 20 20 49 66 20  the future.  If 
0b30: 74 68 65 72 65 20 77 61 73 20 61 6e 20 65 78 69  there was an exi
0b40: 73 74 69 6e 67 20 67 65 6f 6d 65 74 72 79 0a 20  sting geometry. 
0b50: 2a 09 6d 61 6e 61 67 65 72 20 66 6f 72 20 74 6b  *.manager for tk
0b60: 77 69 6e 20 64 69 66 66 65 72 65 6e 74 20 66 72  win different fr
0b70: 6f 6d 20 74 68 65 20 6e 65 77 20 6f 6e 65 2c 20  om the new one, 
0b80: 69 74 20 69 73 20 6e 6f 74 69 66 69 65 64 0a 20  it is notified. 
0b90: 2a 09 62 79 20 63 61 6c 6c 69 6e 67 20 69 74 73  *.by calling its
0ba0: 20 6c 6f 73 74 53 6c 61 76 65 50 72 6f 63 2e 0a   lostSlaveProc..
0bb0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *. *-----------
0bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0bf0: 2d 2d 2d 0a 20 2a 2f 0a 0a 76 6f 69 64 0a 54 6b  ---. */..void.Tk
0c00: 5f 4d 61 6e 61 67 65 47 65 6f 6d 65 74 72 79 28  _ManageGeometry(
0c10: 74 6b 77 69 6e 2c 20 6d 67 72 50 74 72 2c 20 63  tkwin, mgrPtr, c
0c20: 6c 69 65 6e 74 44 61 74 61 29 0a 20 20 20 20 54  lientData).    T
0c30: 6b 5f 57 69 6e 64 6f 77 20 74 6b 77 69 6e 3b 09  k_Window tkwin;.
0c40: 09 2f 2a 20 57 69 6e 64 6f 77 20 77 68 6f 73 65  ./* Window whose
0c50: 20 67 65 6f 6d 65 74 72 79 20 69 73 20 74 6f 0a   geometry is to.
0c60: 09 09 09 09 20 2a 20 62 65 20 6d 61 6e 61 67 65  .... * be manage
0c70: 64 20 62 79 20 70 72 6f 63 2e 20 20 2a 2f 0a 20  d by proc.  */. 
0c80: 20 20 20 54 6b 5f 47 65 6f 6d 4d 67 72 20 2a 6d     Tk_GeomMgr *m
0c90: 67 72 50 74 72 3b 09 09 2f 2a 20 53 74 61 74 69  grPtr;../* Stati
0ca0: 63 20 73 74 72 75 63 74 75 72 65 20 64 65 73 63  c structure desc
0cb0: 72 69 62 69 6e 67 20 74 68 65 0a 09 09 09 09 20  ribing the..... 
0cc0: 2a 20 67 65 6f 6d 65 74 72 79 20 6d 61 6e 61 67  * geometry manag
0cd0: 65 72 2e 20 20 54 68 69 73 20 73 74 72 75 63 74  er.  This struct
0ce0: 75 72 65 0a 09 09 09 09 20 2a 20 6d 75 73 74 20  ure..... * must 
0cf0: 6e 65 76 65 72 20 67 6f 20 61 77 61 79 2e 20 2a  never go away. *
0d00: 2f 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61  /.    ClientData
0d10: 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20   clientData;./* 
0d20: 41 72 62 69 74 72 61 72 79 20 6f 6e 65 2d 77 6f  Arbitrary one-wo
0d30: 72 64 20 61 72 67 75 6d 65 6e 74 20 74 6f 0a 09  rd argument to..
0d40: 09 09 09 20 2a 20 70 61 73 73 20 74 6f 20 67 65  ... * pass to ge
0d50: 6f 6d 65 74 72 79 20 6d 61 6e 61 67 65 72 20 70  ometry manager p
0d60: 72 6f 63 65 64 75 72 65 73 2e 20 2a 2f 0a 7b 0a  rocedures. */.{.
0d70: 20 20 20 20 72 65 67 69 73 74 65 72 20 54 6b 57      register TkW
0d80: 69 6e 64 6f 77 20 2a 77 69 6e 50 74 72 20 3d 20  indow *winPtr = 
0d90: 28 54 6b 57 69 6e 64 6f 77 20 2a 29 20 74 6b 77  (TkWindow *) tkw
0da0: 69 6e 3b 0a 0a 20 20 20 20 69 66 20 28 28 77 69  in;..    if ((wi
0db0: 6e 50 74 72 2d 3e 67 65 6f 6d 4d 67 72 50 74 72  nPtr->geomMgrPtr
0dc0: 20 21 3d 20 4e 55 4c 4c 29 20 26 26 20 28 6d 67   != NULL) && (mg
0dd0: 72 50 74 72 20 21 3d 20 4e 55 4c 4c 29 0a 09 20  rPtr != NULL).. 
0de0: 20 20 20 26 26 20 28 28 77 69 6e 50 74 72 2d 3e     && ((winPtr->
0df0: 67 65 6f 6d 4d 67 72 50 74 72 20 21 3d 20 6d 67  geomMgrPtr != mg
0e00: 72 50 74 72 29 0a 09 09 7c 7c 20 28 77 69 6e 50  rPtr)...|| (winP
0e10: 74 72 2d 3e 67 65 6f 6d 44 61 74 61 20 21 3d 20  tr->geomData != 
0e20: 63 6c 69 65 6e 74 44 61 74 61 29 29 0a 09 20 20  clientData))..  
0e30: 20 20 26 26 20 28 77 69 6e 50 74 72 2d 3e 67 65    && (winPtr->ge
0e40: 6f 6d 4d 67 72 50 74 72 2d 3e 6c 6f 73 74 53 6c  omMgrPtr->lostSl
0e50: 61 76 65 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29  aveProc != NULL)
0e60: 29 20 7b 0a 09 28 2a 77 69 6e 50 74 72 2d 3e 67  ) {..(*winPtr->g
0e70: 65 6f 6d 4d 67 72 50 74 72 2d 3e 6c 6f 73 74 53  eomMgrPtr->lostS
0e80: 6c 61 76 65 50 72 6f 63 29 28 77 69 6e 50 74 72  laveProc)(winPtr
0e90: 2d 3e 67 65 6f 6d 44 61 74 61 2c 20 74 6b 77 69  ->geomData, tkwi
0ea0: 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 77  n);.    }..    w
0eb0: 69 6e 50 74 72 2d 3e 67 65 6f 6d 4d 67 72 50 74  inPtr->geomMgrPt
0ec0: 72 20 3d 20 6d 67 72 50 74 72 3b 0a 20 20 20 20  r = mgrPtr;.    
0ed0: 77 69 6e 50 74 72 2d 3e 67 65 6f 6d 44 61 74 61  winPtr->geomData
0ee0: 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d   = clientData;.}
0ef0: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  .../*. *--------
0f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0f30: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6b 5f  ------. *. * Tk_
0f40: 47 65 6f 6d 65 74 72 79 52 65 71 75 65 73 74 20  GeometryRequest 
0f50: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72  --. *. *.This pr
0f60: 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b  ocedure is invok
0f70: 65 64 20 62 79 20 77 69 64 67 65 74 20 63 6f 64  ed by widget cod
0f80: 65 20 74 6f 20 69 6e 64 69 63 61 74 65 0a 20 2a  e to indicate. *
0f90: 09 69 74 73 20 70 72 65 66 65 72 65 6e 63 65 73  .its preferences
0fa0: 20 61 62 6f 75 74 20 74 68 65 20 73 69 7a 65 20   about the size 
0fb0: 6f 66 20 61 20 77 69 6e 64 6f 77 20 69 74 20 6d  of a window it m
0fc0: 61 6e 61 67 65 73 2e 0a 20 2a 09 49 6e 20 67 65  anages.. *.In ge
0fd0: 6e 65 72 61 6c 2c 20 77 69 64 67 65 74 20 63 6f  neral, widget co
0fe0: 64 65 20 73 68 6f 75 6c 64 20 63 61 6c 6c 20 74  de should call t
0ff0: 68 69 73 20 70 72 6f 63 65 64 75 72 65 0a 20 2a  his procedure. *
1000: 09 72 61 74 68 65 72 20 74 68 61 6e 20 54 6b 5f  .rather than Tk_
1010: 52 65 73 69 7a 65 57 69 6e 64 6f 77 2e 0a 20 2a  ResizeWindow.. *
1020: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09  . * Results:. *.
1030: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65  None.. *. * Side
1040: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 54 68 65   effects:. *.The
1050: 20 67 65 6f 6d 65 74 72 79 20 6d 61 6e 61 67 65   geometry manage
1060: 72 20 66 6f 72 20 74 6b 77 69 6e 20 28 69 66 20  r for tkwin (if 
1070: 61 6e 79 29 20 69 73 20 69 6e 76 6f 6b 65 64 20  any) is invoked 
1080: 74 6f 0a 20 2a 09 68 61 6e 64 6c 65 20 74 68 65  to. *.handle the
1090: 20 72 65 71 75 65 73 74 2e 20 20 49 66 20 70 6f   request.  If po
10a0: 73 73 69 62 6c 65 2c 20 69 74 20 77 69 6c 6c 20  ssible, it will 
10b0: 72 65 63 6f 6e 66 69 67 75 72 65 0a 20 2a 09 74  reconfigure. *.t
10c0: 6b 77 69 6e 20 61 6e 64 2f 6f 72 20 6f 74 68 65  kwin and/or othe
10d0: 72 20 77 69 6e 64 6f 77 73 20 74 6f 20 73 61 74  r windows to sat
10e0: 69 73 66 79 20 74 68 65 20 72 65 71 75 65 73 74  isfy the request
10f0: 2e 20 20 54 68 65 0a 20 2a 09 63 61 6c 6c 65 72  .  The. *.caller
1100: 20 67 65 74 73 20 6e 6f 20 69 6e 64 69 63 61 74   gets no indicat
1110: 69 6f 6e 20 6f 66 20 73 75 63 63 65 73 73 20 6f  ion of success o
1120: 72 20 66 61 69 6c 75 72 65 2c 20 62 75 74 20 69  r failure, but i
1130: 74 0a 20 2a 09 77 69 6c 6c 20 67 65 74 20 58 20  t. *.will get X 
1140: 65 76 65 6e 74 73 20 69 66 20 74 68 65 20 77 69  events if the wi
1150: 6e 64 6f 77 20 73 69 7a 65 20 77 61 73 20 61 63  ndow size was ac
1160: 74 75 61 6c 6c 79 0a 20 2a 09 63 68 61 6e 67 65  tually. *.change
1170: 64 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  d.. *. *--------
1180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
11a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
11b0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 76 6f 69 64  ------. */..void
11c0: 0a 54 6b 5f 47 65 6f 6d 65 74 72 79 52 65 71 75  .Tk_GeometryRequ
11d0: 65 73 74 28 74 6b 77 69 6e 2c 20 72 65 71 57 69  est(tkwin, reqWi
11e0: 64 74 68 2c 20 72 65 71 48 65 69 67 68 74 29 0a  dth, reqHeight).
11f0: 20 20 20 20 54 6b 5f 57 69 6e 64 6f 77 20 74 6b      Tk_Window tk
1200: 77 69 6e 3b 09 09 2f 2a 20 57 69 6e 64 6f 77 20  win;../* Window 
1210: 74 68 61 74 20 67 65 6f 6d 65 74 72 79 20 69 6e  that geometry in
1220: 66 6f 72 6d 61 74 69 6f 6e 0a 09 09 09 09 20 2a  formation..... *
1230: 20 70 65 72 74 61 69 6e 73 20 74 6f 2e 20 2a 2f   pertains to. */
1240: 0a 20 20 20 20 69 6e 74 20 72 65 71 57 69 64 74  .    int reqWidt
1250: 68 2c 20 72 65 71 48 65 69 67 68 74 3b 09 2f 2a  h, reqHeight;./*
1260: 20 4d 69 6e 69 6d 75 6d 20 64 65 73 69 72 65 64   Minimum desired
1270: 20 64 69 6d 65 6e 73 69 6f 6e 73 20 66 6f 72 0a   dimensions for.
1280: 09 09 09 09 20 2a 20 77 69 6e 64 6f 77 2c 20 69  .... * window, i
1290: 6e 20 70 69 78 65 6c 73 2e 20 2a 2f 0a 7b 0a 20  n pixels. */.{. 
12a0: 20 20 20 72 65 67 69 73 74 65 72 20 54 6b 57 69     register TkWi
12b0: 6e 64 6f 77 20 2a 77 69 6e 50 74 72 20 3d 20 28  ndow *winPtr = (
12c0: 54 6b 57 69 6e 64 6f 77 20 2a 29 20 74 6b 77 69  TkWindow *) tkwi
12d0: 6e 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20  n;..    /*.     
12e0: 2a 20 58 20 67 65 74 73 20 76 65 72 79 20 75 70  * X gets very up
12f0: 73 65 74 20 69 66 20 61 20 77 69 6e 64 6f 77 20  set if a window 
1300: 72 65 71 75 65 73 74 73 20 61 20 77 69 64 74 68  requests a width
1310: 20 6f 72 20 68 65 69 67 68 74 20 6f 66 0a 20 20   or height of.  
1320: 20 20 20 2a 20 7a 65 72 6f 2c 20 73 6f 20 72 6f     * zero, so ro
1330: 75 6e 64 73 20 72 65 71 75 65 73 74 65 64 20 73  unds requested s
1340: 69 7a 65 73 20 75 70 20 74 6f 20 61 74 20 6c 65  izes up to at le
1350: 61 73 74 20 31 2e 0a 20 20 20 20 20 2a 2f 0a 0a  ast 1..     */..
1360: 20 20 20 20 69 66 20 28 72 65 71 57 69 64 74 68      if (reqWidth
1370: 20 3c 3d 20 30 29 20 7b 0a 09 72 65 71 57 69 64   <= 0) {..reqWid
1380: 74 68 20 3d 20 31 3b 0a 20 20 20 20 7d 0a 20 20  th = 1;.    }.  
1390: 20 20 69 66 20 28 72 65 71 48 65 69 67 68 74 20    if (reqHeight 
13a0: 3c 3d 20 30 29 20 7b 0a 09 72 65 71 48 65 69 67  <= 0) {..reqHeig
13b0: 68 74 20 3d 20 31 3b 0a 20 20 20 20 7d 0a 20 20  ht = 1;.    }.  
13c0: 20 20 69 66 20 28 28 72 65 71 57 69 64 74 68 20    if ((reqWidth 
13d0: 3d 3d 20 77 69 6e 50 74 72 2d 3e 72 65 71 57 69  == winPtr->reqWi
13e0: 64 74 68 29 20 26 26 20 28 72 65 71 48 65 69 67  dth) && (reqHeig
13f0: 68 74 20 3d 3d 20 77 69 6e 50 74 72 2d 3e 72 65  ht == winPtr->re
1400: 71 48 65 69 67 68 74 29 29 20 7b 0a 09 72 65 74  qHeight)) {..ret
1410: 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 77  urn;.    }.    w
1420: 69 6e 50 74 72 2d 3e 72 65 71 57 69 64 74 68 20  inPtr->reqWidth 
1430: 3d 20 72 65 71 57 69 64 74 68 3b 0a 20 20 20 20  = reqWidth;.    
1440: 77 69 6e 50 74 72 2d 3e 72 65 71 48 65 69 67 68  winPtr->reqHeigh
1450: 74 20 3d 20 72 65 71 48 65 69 67 68 74 3b 0a 20  t = reqHeight;. 
1460: 20 20 20 69 66 20 28 28 77 69 6e 50 74 72 2d 3e     if ((winPtr->
1470: 67 65 6f 6d 4d 67 72 50 74 72 20 21 3d 20 4e 55  geomMgrPtr != NU
1480: 4c 4c 29 0a 09 20 20 20 20 26 26 20 28 77 69 6e  LL)..    && (win
1490: 50 74 72 2d 3e 67 65 6f 6d 4d 67 72 50 74 72 2d  Ptr->geomMgrPtr-
14a0: 3e 72 65 71 75 65 73 74 50 72 6f 63 20 21 3d 20  >requestProc != 
14b0: 4e 55 4c 4c 29 29 20 7b 0a 09 28 2a 77 69 6e 50  NULL)) {..(*winP
14c0: 74 72 2d 3e 67 65 6f 6d 4d 67 72 50 74 72 2d 3e  tr->geomMgrPtr->
14d0: 72 65 71 75 65 73 74 50 72 6f 63 29 28 77 69 6e  requestProc)(win
14e0: 50 74 72 2d 3e 67 65 6f 6d 44 61 74 61 2c 20 74  Ptr->geomData, t
14f0: 6b 77 69 6e 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0c  kwin);.    }.}..
1500: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ./*. *----------
1510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a  ------------. *.
1550: 20 2a 20 54 6b 5f 4d 61 69 6e 74 61 69 6e 47 65   * Tk_MaintainGe
1560: 6f 6d 65 74 72 79 20 2d 2d 0a 20 2a 0a 20 2a 09  ometry --. *. *.
1570: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69  This procedure i
1580: 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 67 65 6f  s invoked by geo
1590: 6d 65 74 72 79 20 6d 61 6e 61 67 65 72 73 20 74  metry managers t
15a0: 6f 20 68 61 6e 64 6c 65 20 73 6c 61 76 65 73 0a  o handle slaves.
15b0: 20 2a 09 77 68 6f 73 65 20 6d 61 73 74 65 72 27   *.whose master'
15c0: 73 20 61 72 65 20 6e 6f 74 20 74 68 65 69 72 20  s are not their 
15d0: 70 61 72 65 6e 74 73 2e 20 20 49 74 20 74 72 61  parents.  It tra
15e0: 6e 73 6c 61 74 65 73 20 74 68 65 20 64 65 73 69  nslates the desi
15f0: 72 65 64 0a 20 2a 09 67 65 6f 6d 65 74 72 79 20  red. *.geometry 
1600: 66 6f 72 20 74 68 65 20 73 6c 61 76 65 20 69 6e  for the slave in
1610: 74 6f 20 74 68 65 20 63 6f 6f 72 64 69 6e 61 74  to the coordinat
1620: 65 20 73 79 73 74 65 6d 20 6f 66 20 74 68 65 20  e system of the 
1630: 70 61 72 65 6e 74 0a 20 2a 09 61 6e 64 20 72 65  parent. *.and re
1640: 73 70 6f 73 69 74 69 6f 6e 73 20 74 68 65 20 73  spositions the s
1650: 6c 61 76 65 20 69 66 20 69 74 20 69 73 6e 27 74  lave if it isn't
1660: 20 61 6c 72 65 61 64 79 20 61 74 20 74 68 65 20   already at the 
1670: 72 69 67 68 74 20 70 6c 61 63 65 2e 0a 20 2a 09  right place.. *.
1680: 46 75 72 74 68 65 72 6d 6f 72 65 2c 20 69 74 20  Furthermore, it 
1690: 73 65 74 73 20 75 70 20 65 76 65 6e 74 20 68 61  sets up event ha
16a0: 6e 64 6c 65 72 73 20 73 6f 20 74 68 61 74 20 69  ndlers so that i
16b0: 66 20 74 68 65 20 6d 61 73 74 65 72 20 28 6f 72  f the master (or
16c0: 0a 20 2a 09 61 6e 79 20 6f 66 20 69 74 73 20 61  . *.any of its a
16d0: 6e 63 65 73 74 6f 72 73 20 75 70 20 74 6f 20 74  ncestors up to t
16e0: 68 65 20 73 6c 61 76 65 27 73 20 70 61 72 65 6e  he slave's paren
16f0: 74 29 20 69 73 20 6d 61 70 70 65 64 2c 20 75 6e  t) is mapped, un
1700: 6d 61 70 70 65 64 2c 0a 20 2a 09 6f 72 20 6d 6f  mapped,. *.or mo
1710: 76 65 64 2c 20 74 68 65 6e 20 74 68 65 20 73 6c  ved, then the sl
1720: 61 76 65 20 77 69 6c 6c 20 62 65 20 61 64 6a 75  ave will be adju
1730: 73 74 65 64 20 74 6f 20 6d 61 74 63 68 2e 0a 20  sted to match.. 
1740: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a  *. * Results:. *
1750: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64  .None.. *. * Sid
1760: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 45 76  e effects:. *.Ev
1770: 65 6e 74 20 68 61 6e 64 6c 65 72 73 20 61 72 65  ent handlers are
1780: 20 63 72 65 61 74 65 64 20 61 6e 64 20 73 74 61   created and sta
1790: 74 65 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 20  te is allocated 
17a0: 74 6f 20 6b 65 65 70 20 74 72 61 63 6b 0a 20 2a  to keep track. *
17b0: 09 6f 66 20 73 6c 61 76 65 2e 20 20 4e 6f 74 65  .of slave.  Note
17c0: 3a 20 20 69 66 20 73 6c 61 76 65 20 77 61 73 20  :  if slave was 
17d0: 61 6c 72 65 61 64 79 20 6d 61 6e 61 67 65 64 20  already managed 
17e0: 66 6f 72 20 6d 61 73 74 65 72 20 62 79 0a 20 2a  for master by. *
17f0: 09 54 6b 5f 4d 61 69 6e 74 61 69 6e 47 65 6f 6d  .Tk_MaintainGeom
1800: 65 74 72 79 2c 20 74 68 65 6e 20 74 68 65 20 70  etry, then the p
1810: 72 65 76 69 6f 75 73 20 69 6e 66 6f 72 6d 61 74  revious informat
1820: 69 6f 6e 20 69 73 20 72 65 70 6c 61 63 65 64 0a  ion is replaced.
1830: 20 2a 09 77 69 74 68 20 74 68 65 20 6e 65 77 20   *.with the new 
1840: 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 20 20 54 68  information.  Th
1850: 65 20 63 61 6c 6c 65 72 20 6d 75 73 74 20 65 76  e caller must ev
1860: 65 6e 74 75 61 6c 6c 79 20 63 61 6c 6c 0a 20 2a  entually call. *
1870: 09 54 6b 5f 55 6e 6d 61 69 6e 74 61 69 6e 47 65  .Tk_UnmaintainGe
1880: 6f 6d 65 74 72 79 20 74 6f 20 65 6c 69 6d 69 6e  ometry to elimin
1890: 61 74 65 20 74 68 65 20 63 6f 72 72 65 73 70 6f  ate the correspo
18a0: 6e 64 65 6e 63 65 20 28 6f 72 2c 20 74 68 65 0a  ndence (or, the.
18b0: 20 2a 09 73 74 61 74 65 20 69 73 20 61 75 74 6f   *.state is auto
18c0: 6d 61 74 69 63 61 6c 6c 79 20 66 72 65 65 64 20  matically freed 
18d0: 77 68 65 6e 20 65 69 74 68 65 72 20 77 69 6e 64  when either wind
18e0: 6f 77 20 69 73 20 64 65 73 74 72 6f 79 65 64 29  ow is destroyed)
18f0: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  .. *. *---------
1900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
1940: 2f 0a 0a 76 6f 69 64 0a 54 6b 5f 4d 61 69 6e 74  /..void.Tk_Maint
1950: 61 69 6e 47 65 6f 6d 65 74 72 79 28 73 6c 61 76  ainGeometry(slav
1960: 65 2c 20 6d 61 73 74 65 72 2c 20 78 2c 20 79 2c  e, master, x, y,
1970: 20 77 69 64 74 68 2c 20 68 65 69 67 68 74 29 0a   width, height).
1980: 20 20 20 20 54 6b 5f 57 69 6e 64 6f 77 20 73 6c      Tk_Window sl
1990: 61 76 65 3b 09 09 2f 2a 20 53 6c 61 76 65 20 66  ave;../* Slave f
19a0: 6f 72 20 67 65 6f 6d 65 74 72 79 20 6d 61 6e 61  or geometry mana
19b0: 67 65 6d 65 6e 74 2e 20 2a 2f 0a 20 20 20 20 54  gement. */.    T
19c0: 6b 5f 57 69 6e 64 6f 77 20 6d 61 73 74 65 72 3b  k_Window master;
19d0: 09 09 2f 2a 20 4d 61 73 74 65 72 20 66 6f 72 20  ../* Master for 
19e0: 73 6c 61 76 65 3b 20 6d 75 73 74 20 62 65 20 61  slave; must be a
19f0: 20 64 65 73 63 65 6e 64 61 6e 74 0a 09 09 09 09   descendant.....
1a00: 20 2a 20 6f 66 20 73 6c 61 76 65 27 73 20 70 61   * of slave's pa
1a10: 72 65 6e 74 2e 20 2a 2f 0a 20 20 20 20 69 6e 74  rent. */.    int
1a20: 20 78 2c 20 79 3b 09 09 09 2f 2a 20 44 65 73 69   x, y;.../* Desi
1a30: 72 65 64 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20  red position of 
1a40: 73 6c 61 76 65 20 77 69 74 68 69 6e 20 6d 61 73  slave within mas
1a50: 74 65 72 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20  ter. */.    int 
1a60: 77 69 64 74 68 2c 20 68 65 69 67 68 74 3b 09 09  width, height;..
1a70: 2f 2a 20 44 65 73 69 72 65 64 20 64 69 6d 65 6e  /* Desired dimen
1a80: 73 69 6f 6e 73 20 66 6f 72 20 73 6c 61 76 65 2e  sions for slave.
1a90: 20 2a 2f 0a 7b 0a 20 20 20 20 54 63 6c 5f 48 61   */.{.    Tcl_Ha
1aa0: 73 68 45 6e 74 72 79 20 2a 68 50 74 72 3b 0a 20  shEntry *hPtr;. 
1ab0: 20 20 20 4d 61 69 6e 74 61 69 6e 4d 61 73 74 65     MaintainMaste
1ac0: 72 20 2a 6d 61 73 74 65 72 50 74 72 3b 0a 20 20  r *masterPtr;.  
1ad0: 20 20 72 65 67 69 73 74 65 72 20 4d 61 69 6e 74    register Maint
1ae0: 61 69 6e 53 6c 61 76 65 20 2a 73 6c 61 76 65 50  ainSlave *slaveP
1af0: 74 72 3b 0a 20 20 20 20 69 6e 74 20 6e 65 77 2c  tr;.    int new,
1b00: 20 6d 61 70 3b 0a 20 20 20 20 54 6b 5f 57 69 6e   map;.    Tk_Win
1b10: 64 6f 77 20 61 6e 63 65 73 74 6f 72 2c 20 70 61  dow ancestor, pa
1b20: 72 65 6e 74 3b 0a 0a 20 20 20 20 69 66 20 28 21  rent;..    if (!
1b30: 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09  initialized) {..
1b40: 69 6e 69 74 69 61 6c 69 7a 65 64 20 3d 20 31 3b  initialized = 1;
1b50: 0a 09 54 63 6c 5f 49 6e 69 74 48 61 73 68 54 61  ..Tcl_InitHashTa
1b60: 62 6c 65 28 26 6d 61 69 6e 74 61 69 6e 48 61 73  ble(&maintainHas
1b70: 68 54 61 62 6c 65 2c 20 54 43 4c 5f 4f 4e 45 5f  hTable, TCL_ONE_
1b80: 57 4f 52 44 5f 4b 45 59 53 29 3b 0a 20 20 20 20  WORD_KEYS);.    
1b90: 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a  }..    /*.     *
1ba0: 20 53 65 65 20 69 66 20 74 68 65 72 65 20 69 73   See if there is
1bb0: 20 61 6c 72 65 61 64 79 20 61 20 4d 61 69 6e 74   already a Maint
1bc0: 61 69 6e 4d 61 73 74 65 72 20 73 74 72 75 63 74  ainMaster struct
1bd0: 75 72 65 20 66 6f 72 20 74 68 65 20 6d 61 73 74  ure for the mast
1be0: 65 72 3b 0a 20 20 20 20 20 2a 20 69 66 20 6e 6f  er;.     * if no
1bf0: 74 2c 20 74 68 65 6e 20 63 72 65 61 74 65 20 6f  t, then create o
1c00: 6e 65 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20  ne..     */..   
1c10: 20 70 61 72 65 6e 74 20 3d 20 54 6b 5f 50 61 72   parent = Tk_Par
1c20: 65 6e 74 28 73 6c 61 76 65 29 3b 0a 20 20 20 20  ent(slave);.    
1c30: 68 50 74 72 20 3d 20 54 63 6c 5f 43 72 65 61 74  hPtr = Tcl_Creat
1c40: 65 48 61 73 68 45 6e 74 72 79 28 26 6d 61 69 6e  eHashEntry(&main
1c50: 74 61 69 6e 48 61 73 68 54 61 62 6c 65 2c 20 28  tainHashTable, (
1c60: 63 68 61 72 20 2a 29 20 6d 61 73 74 65 72 2c 20  char *) master, 
1c70: 26 6e 65 77 29 3b 0a 20 20 20 20 69 66 20 28 21  &new);.    if (!
1c80: 6e 65 77 29 20 7b 0a 09 6d 61 73 74 65 72 50 74  new) {..masterPt
1c90: 72 20 3d 20 28 4d 61 69 6e 74 61 69 6e 4d 61 73  r = (MaintainMas
1ca0: 74 65 72 20 2a 29 20 54 63 6c 5f 47 65 74 48 61  ter *) Tcl_GetHa
1cb0: 73 68 56 61 6c 75 65 28 68 50 74 72 29 3b 0a 20  shValue(hPtr);. 
1cc0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 6d 61 73     } else {..mas
1cd0: 74 65 72 50 74 72 20 3d 20 28 4d 61 69 6e 74 61  terPtr = (Mainta
1ce0: 69 6e 4d 61 73 74 65 72 20 2a 29 20 63 6b 61 6c  inMaster *) ckal
1cf0: 6c 6f 63 28 73 69 7a 65 6f 66 28 4d 61 69 6e 74  loc(sizeof(Maint
1d00: 61 69 6e 4d 61 73 74 65 72 29 29 3b 0a 09 6d 61  ainMaster));..ma
1d10: 73 74 65 72 50 74 72 2d 3e 61 6e 63 65 73 74 6f  sterPtr->ancesto
1d20: 72 20 3d 20 6d 61 73 74 65 72 3b 0a 09 6d 61 73  r = master;..mas
1d30: 74 65 72 50 74 72 2d 3e 63 68 65 63 6b 53 63 68  terPtr->checkSch
1d40: 65 64 75 6c 65 64 20 3d 20 30 3b 0a 09 6d 61 73  eduled = 0;..mas
1d50: 74 65 72 50 74 72 2d 3e 73 6c 61 76 65 50 74 72  terPtr->slavePtr
1d60: 20 3d 20 4e 55 4c 4c 3b 0a 09 54 63 6c 5f 53 65   = NULL;..Tcl_Se
1d70: 74 48 61 73 68 56 61 6c 75 65 28 68 50 74 72 2c  tHashValue(hPtr,
1d80: 20 6d 61 73 74 65 72 50 74 72 29 3b 0a 20 20 20   masterPtr);.   
1d90: 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20   }..    /*.     
1da0: 2a 20 43 72 65 61 74 65 20 61 20 4d 61 69 6e 74  * Create a Maint
1db0: 61 69 6e 53 6c 61 76 65 20 73 74 72 75 63 74 75  ainSlave structu
1dc0: 72 65 20 66 6f 72 20 74 68 65 20 73 6c 61 76 65  re for the slave
1dd0: 20 69 66 20 74 68 65 72 65 20 69 73 6e 27 74 0a   if there isn't.
1de0: 20 20 20 20 20 2a 20 61 6c 72 65 61 64 79 20 6f       * already o
1df0: 6e 65 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20  ne..     */..   
1e00: 20 66 6f 72 20 28 73 6c 61 76 65 50 74 72 20 3d   for (slavePtr =
1e10: 20 6d 61 73 74 65 72 50 74 72 2d 3e 73 6c 61 76   masterPtr->slav
1e20: 65 50 74 72 3b 20 73 6c 61 76 65 50 74 72 20 21  ePtr; slavePtr !
1e30: 3d 20 4e 55 4c 4c 3b 0a 09 20 20 20 20 73 6c 61  = NULL;..    sla
1e40: 76 65 50 74 72 20 3d 20 73 6c 61 76 65 50 74 72  vePtr = slavePtr
1e50: 2d 3e 6e 65 78 74 50 74 72 29 20 7b 0a 09 69 66  ->nextPtr) {..if
1e60: 20 28 73 6c 61 76 65 50 74 72 2d 3e 73 6c 61 76   (slavePtr->slav
1e70: 65 20 3d 3d 20 73 6c 61 76 65 29 20 7b 0a 09 20  e == slave) {.. 
1e80: 20 20 20 67 6f 74 6f 20 67 6f 74 53 6c 61 76 65     goto gotSlave
1e90: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 73  ;..}.    }.    s
1ea0: 6c 61 76 65 50 74 72 20 3d 20 28 4d 61 69 6e 74  lavePtr = (Maint
1eb0: 61 69 6e 53 6c 61 76 65 20 2a 29 20 63 6b 61 6c  ainSlave *) ckal
1ec0: 6c 6f 63 28 73 69 7a 65 6f 66 28 4d 61 69 6e 74  loc(sizeof(Maint
1ed0: 61 69 6e 53 6c 61 76 65 29 29 3b 0a 20 20 20 20  ainSlave));.    
1ee0: 73 6c 61 76 65 50 74 72 2d 3e 73 6c 61 76 65 20  slavePtr->slave 
1ef0: 3d 20 73 6c 61 76 65 3b 0a 20 20 20 20 73 6c 61  = slave;.    sla
1f00: 76 65 50 74 72 2d 3e 6d 61 73 74 65 72 20 3d 20  vePtr->master = 
1f10: 6d 61 73 74 65 72 3b 0a 20 20 20 20 73 6c 61 76  master;.    slav
1f20: 65 50 74 72 2d 3e 6e 65 78 74 50 74 72 20 3d 20  ePtr->nextPtr = 
1f30: 6d 61 73 74 65 72 50 74 72 2d 3e 73 6c 61 76 65  masterPtr->slave
1f40: 50 74 72 3b 0a 20 20 20 20 6d 61 73 74 65 72 50  Ptr;.    masterP
1f50: 74 72 2d 3e 73 6c 61 76 65 50 74 72 20 3d 20 73  tr->slavePtr = s
1f60: 6c 61 76 65 50 74 72 3b 0a 20 20 20 20 54 6b 5f  lavePtr;.    Tk_
1f70: 43 72 65 61 74 65 45 76 65 6e 74 48 61 6e 64 6c  CreateEventHandl
1f80: 65 72 28 73 6c 61 76 65 2c 20 43 54 4b 5f 44 45  er(slave, CTK_DE
1f90: 53 54 52 4f 59 5f 45 56 45 4e 54 5f 4d 41 53 4b  STROY_EVENT_MASK
1fa0: 2c 20 4d 61 69 6e 74 61 69 6e 53 6c 61 76 65 50  , MaintainSlaveP
1fb0: 72 6f 63 2c 0a 09 20 20 20 20 28 43 6c 69 65 6e  roc,..    (Clien
1fc0: 74 44 61 74 61 29 20 73 6c 61 76 65 50 74 72 29  tData) slavePtr)
1fd0: 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a  ;..    /*.     *
1fe0: 20 4d 61 6b 65 20 73 75 72 65 20 74 68 61 74 20   Make sure that 
1ff0: 74 68 65 72 65 20 61 72 65 20 65 76 65 6e 74 20  there are event 
2000: 68 61 6e 64 6c 65 72 73 20 72 65 67 69 73 74 65  handlers registe
2010: 72 65 64 20 66 6f 72 20 61 6c 6c 0a 20 20 20 20  red for all.    
2020: 20 2a 20 74 68 65 20 77 69 6e 64 6f 77 73 20 62   * the windows b
2030: 65 74 77 65 65 6e 20 6d 61 73 74 65 72 20 61 6e  etween master an
2040: 64 20 73 6c 61 76 65 27 73 20 70 61 72 65 6e 74  d slave's parent
2050: 20 28 69 6e 63 6c 75 64 69 6e 67 20 6d 61 73 74   (including mast
2060: 65 72 0a 20 20 20 20 20 2a 20 62 75 74 20 6e 6f  er.     * but no
2070: 74 20 73 6c 61 76 65 27 73 20 70 61 72 65 6e 74  t slave's parent
2080: 29 2e 20 20 54 68 65 72 65 20 6d 61 79 20 61 6c  ).  There may al
2090: 72 65 61 64 79 20 62 65 20 68 61 6e 64 6c 65 72  ready be handler
20a0: 73 20 66 6f 72 20 6d 61 73 74 65 72 0a 20 20 20  s for master.   
20b0: 20 20 2a 20 61 6e 64 20 73 6f 6d 65 20 6f 66 20    * and some of 
20c0: 69 74 73 20 61 6e 63 65 73 74 6f 72 73 20 28 6d  its ancestors (m
20d0: 61 73 74 65 72 50 74 72 2d 3e 61 6e 63 65 73 74  asterPtr->ancest
20e0: 6f 72 20 74 65 6c 6c 73 20 68 6f 77 20 6d 61 6e  or tells how man
20f0: 79 29 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20  y)..     */..   
2100: 20 66 6f 72 20 28 61 6e 63 65 73 74 6f 72 20 3d   for (ancestor =
2110: 20 6d 61 73 74 65 72 3b 20 61 6e 63 65 73 74 6f   master; ancesto
2120: 72 20 21 3d 20 70 61 72 65 6e 74 3b 0a 09 20 20  r != parent;..  
2130: 20 20 61 6e 63 65 73 74 6f 72 20 3d 20 54 6b 5f    ancestor = Tk_
2140: 50 61 72 65 6e 74 28 61 6e 63 65 73 74 6f 72 29  Parent(ancestor)
2150: 29 20 7b 0a 09 69 66 20 28 61 6e 63 65 73 74 6f  ) {..if (ancesto
2160: 72 20 3d 3d 20 6d 61 73 74 65 72 50 74 72 2d 3e  r == masterPtr->
2170: 61 6e 63 65 73 74 6f 72 29 20 7b 0a 09 20 20 20  ancestor) {..   
2180: 20 54 6b 5f 43 72 65 61 74 65 45 76 65 6e 74 48   Tk_CreateEventH
2190: 61 6e 64 6c 65 72 28 61 6e 63 65 73 74 6f 72 2c  andler(ancestor,
21a0: 0a 09 20 20 20 20 09 20 20 20 20 43 54 4b 5f 4d  ..    .    CTK_M
21b0: 41 50 5f 45 56 45 4e 54 5f 4d 41 53 4b 7c 43 54  AP_EVENT_MASK|CT
21c0: 4b 5f 44 45 53 54 52 4f 59 5f 45 56 45 4e 54 5f  K_DESTROY_EVENT_
21d0: 4d 41 53 4b 2c 0a 09 09 20 20 20 20 4d 61 69 6e  MASK,...    Main
21e0: 74 61 69 6e 4d 61 73 74 65 72 50 72 6f 63 2c 20  tainMasterProc, 
21f0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 6d 61 73  (ClientData) mas
2200: 74 65 72 50 74 72 29 3b 0a 09 20 20 20 20 6d 61  terPtr);..    ma
2210: 73 74 65 72 50 74 72 2d 3e 61 6e 63 65 73 74 6f  sterPtr->ancesto
2220: 72 20 3d 20 54 6b 5f 50 61 72 65 6e 74 28 61 6e  r = Tk_Parent(an
2230: 63 65 73 74 6f 72 29 3b 0a 09 7d 0a 20 20 20 20  cestor);..}.    
2240: 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a  }..    /*.     *
2250: 20 46 69 6c 6c 20 69 6e 20 75 70 2d 74 6f 2d 64   Fill in up-to-d
2260: 61 74 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20  ate information 
2270: 69 6e 20 74 68 65 20 73 74 72 75 63 74 75 72 65  in the structure
2280: 2c 20 74 68 65 6e 20 75 70 64 61 74 65 20 74 68  , then update th
2290: 65 0a 20 20 20 20 20 2a 20 77 69 6e 64 6f 77 20  e.     * window 
22a0: 69 66 20 69 74 27 73 20 6e 6f 74 20 63 75 72 72  if it's not curr
22b0: 65 6e 74 6c 79 20 69 6e 20 74 68 65 20 72 69 67  ently in the rig
22c0: 68 74 20 70 6c 61 63 65 20 6f 72 20 73 74 61 74  ht place or stat
22d0: 65 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20  e..     */..    
22e0: 67 6f 74 53 6c 61 76 65 3a 0a 20 20 20 20 73 6c  gotSlave:.    sl
22f0: 61 76 65 50 74 72 2d 3e 78 20 3d 20 78 3b 0a 20  avePtr->x = x;. 
2300: 20 20 20 73 6c 61 76 65 50 74 72 2d 3e 79 20 3d     slavePtr->y =
2310: 20 79 3b 0a 20 20 20 20 73 6c 61 76 65 50 74 72   y;.    slavePtr
2320: 2d 3e 77 69 64 74 68 20 3d 20 77 69 64 74 68 3b  ->width = width;
2330: 0a 20 20 20 20 73 6c 61 76 65 50 74 72 2d 3e 68  .    slavePtr->h
2340: 65 69 67 68 74 20 3d 20 68 65 69 67 68 74 3b 0a  eight = height;.
2350: 20 20 20 20 6d 61 70 20 3d 20 31 3b 0a 20 20 20      map = 1;.   
2360: 20 66 6f 72 20 28 61 6e 63 65 73 74 6f 72 20 3d   for (ancestor =
2370: 20 73 6c 61 76 65 50 74 72 2d 3e 6d 61 73 74 65   slavePtr->maste
2380: 72 3b 20 3b 20 61 6e 63 65 73 74 6f 72 20 3d 20  r; ; ancestor = 
2390: 54 6b 5f 50 61 72 65 6e 74 28 61 6e 63 65 73 74  Tk_Parent(ancest
23a0: 6f 72 29 29 20 7b 0a 09 69 66 20 28 21 54 6b 5f  or)) {..if (!Tk_
23b0: 49 73 4d 61 70 70 65 64 28 61 6e 63 65 73 74 6f  IsMapped(ancesto
23c0: 72 29 20 26 26 20 28 61 6e 63 65 73 74 6f 72 20  r) && (ancestor 
23d0: 21 3d 20 70 61 72 65 6e 74 29 29 20 7b 0a 09 20  != parent)) {.. 
23e0: 20 20 20 6d 61 70 20 3d 20 30 3b 0a 09 7d 0a 09     map = 0;..}..
23f0: 69 66 20 28 61 6e 63 65 73 74 6f 72 20 3d 3d 20  if (ancestor == 
2400: 70 61 72 65 6e 74 29 20 7b 0a 09 20 20 20 20 69  parent) {..    i
2410: 66 20 28 6d 61 70 29 20 7b 0a 09 09 69 66 20 28  f (map) {...if (
2420: 21 54 6b 5f 49 73 4d 61 70 70 65 64 28 73 6c 61  !Tk_IsMapped(sla
2430: 76 65 50 74 72 2d 3e 73 6c 61 76 65 29 0a 09 09  vePtr->slave)...
2440: 09 7c 7c 20 28 78 20 21 3d 20 54 6b 5f 58 28 73  .|| (x != Tk_X(s
2450: 6c 61 76 65 50 74 72 2d 3e 73 6c 61 76 65 29 29  lavePtr->slave))
2460: 0a 09 09 09 7c 7c 20 28 79 20 21 3d 20 54 6b 5f  ....|| (y != Tk_
2470: 59 28 73 6c 61 76 65 50 74 72 2d 3e 73 6c 61 76  Y(slavePtr->slav
2480: 65 29 29 0a 09 09 09 7c 7c 20 28 77 69 64 74 68  e))....|| (width
2490: 20 21 3d 20 54 6b 5f 57 69 64 74 68 28 73 6c 61   != Tk_Width(sla
24a0: 76 65 50 74 72 2d 3e 73 6c 61 76 65 29 29 0a 09  vePtr->slave))..
24b0: 09 09 7c 7c 20 28 68 65 69 67 68 74 20 21 3d 20  ..|| (height != 
24c0: 54 6b 5f 48 65 69 67 68 74 28 73 6c 61 76 65 50  Tk_Height(slaveP
24d0: 74 72 2d 3e 73 6c 61 76 65 29 29 29 20 7b 0a 09  tr->slave))) {..
24e0: 09 20 20 20 20 43 74 6b 5f 4d 61 70 28 73 6c 61  .    Ctk_Map(sla
24f0: 76 65 50 74 72 2d 3e 73 6c 61 76 65 2c 20 78 2c  vePtr->slave, x,
2500: 20 79 2c 20 78 20 2b 20 77 69 64 74 68 2c 20 79   y, x + width, y
2510: 20 2b 20 68 65 69 67 68 74 29 3b 0a 09 09 7d 0a   + height);...}.
2520: 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09  .    } else {...
2530: 54 6b 5f 55 6e 6d 61 70 57 69 6e 64 6f 77 28 73  Tk_UnmapWindow(s
2540: 6c 61 76 65 50 74 72 2d 3e 73 6c 61 76 65 29 3b  lavePtr->slave);
2550: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 62 72 65  ..    }..    bre
2560: 61 6b 3b 0a 09 7d 0a 09 78 20 2b 3d 20 54 6b 5f  ak;..}..x += Tk_
2570: 58 28 61 6e 63 65 73 74 6f 72 29 3b 0a 09 79 20  X(ancestor);..y 
2580: 2b 3d 20 54 6b 5f 59 28 61 6e 63 65 73 74 6f 72  += Tk_Y(ancestor
2590: 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a  );.    }.}.../*.
25a0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
25b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
25c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
25d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
25e0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54  --------. *. * T
25f0: 6b 5f 55 6e 6d 61 69 6e 74 61 69 6e 47 65 6f 6d  k_UnmaintainGeom
2600: 65 74 72 79 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68  etry --. *. *.Th
2610: 69 73 20 70 72 6f 63 65 64 75 72 65 20 63 61 6e  is procedure can
2620: 63 65 6c 73 20 61 20 70 72 65 76 69 6f 75 73 20  cels a previous 
2630: 54 6b 5f 4d 61 69 6e 74 61 69 6e 47 65 6f 6d 65  Tk_MaintainGeome
2640: 74 72 79 20 63 61 6c 6c 2c 0a 20 2a 09 73 6f 20  try call,. *.so 
2650: 74 68 61 74 20 74 68 65 20 72 65 6c 61 74 69 6f  that the relatio
2660: 6e 73 68 69 70 20 62 65 74 77 65 65 6e 20 73 6c  nship between sl
2670: 61 76 65 20 61 6e 64 20 6d 61 73 74 65 72 20 69  ave and master i
2680: 73 20 6e 6f 20 6c 6f 6e 67 65 72 0a 20 2a 09 6d  s no longer. *.m
2690: 61 69 6e 74 61 69 6e 65 64 2e 0a 20 2a 0a 20 2a  aintained.. *. *
26a0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e   Results:. *.Non
26b0: 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66  e.. *. * Side ef
26c0: 66 65 63 74 73 3a 0a 20 2a 09 54 68 65 20 73 6c  fects:. *.The sl
26d0: 61 76 65 20 69 73 20 75 6e 6d 61 70 70 65 64 20  ave is unmapped 
26e0: 61 6e 64 20 73 74 61 74 65 20 69 73 20 72 65 6c  and state is rel
26f0: 65 61 73 65 64 2c 20 73 6f 20 74 68 61 74 20 73  eased, so that s
2700: 6c 61 76 65 20 77 6f 6e 27 74 0a 20 2a 09 74 72  lave won't. *.tr
2710: 61 63 6b 20 6d 61 73 74 65 72 20 61 6e 79 20 6d  ack master any m
2720: 6f 72 65 2e 20 20 49 66 20 77 65 20 77 65 72 65  ore.  If we were
2730: 6e 27 74 20 70 72 65 76 69 6f 75 73 6c 79 20 6d  n't previously m
2740: 61 6e 61 67 69 6e 67 20 73 6c 61 76 65 0a 20 2a  anaging slave. *
2750: 09 72 65 6c 61 74 69 76 65 20 74 6f 20 6d 61 73  .relative to mas
2760: 74 65 72 2c 20 74 68 65 6e 20 74 68 69 73 20 70  ter, then this p
2770: 72 6f 63 65 64 75 72 65 20 68 61 73 20 6e 6f 20  rocedure has no 
2780: 65 66 66 65 63 74 2e 0a 20 2a 0a 20 2a 2d 2d 2d  effect.. *. *---
2790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
27a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
27b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
27c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
27d0: 2d 2d 2d 0a 20 2a 2f 0a 0a 76 6f 69 64 0a 54 6b  ---. */..void.Tk
27e0: 5f 55 6e 6d 61 69 6e 74 61 69 6e 47 65 6f 6d 65  _UnmaintainGeome
27f0: 74 72 79 28 73 6c 61 76 65 2c 20 6d 61 73 74 65  try(slave, maste
2800: 72 29 0a 20 20 20 20 54 6b 5f 57 69 6e 64 6f 77  r).    Tk_Window
2810: 20 73 6c 61 76 65 3b 09 09 2f 2a 20 53 6c 61 76   slave;../* Slav
2820: 65 20 66 6f 72 20 67 65 6f 6d 65 74 72 79 20 6d  e for geometry m
2830: 61 6e 61 67 65 6d 65 6e 74 2e 20 2a 2f 0a 20 20  anagement. */.  
2840: 20 20 54 6b 5f 57 69 6e 64 6f 77 20 6d 61 73 74    Tk_Window mast
2850: 65 72 3b 09 09 2f 2a 20 4d 61 73 74 65 72 20 66  er;../* Master f
2860: 6f 72 20 73 6c 61 76 65 3b 20 6d 75 73 74 20 62  or slave; must b
2870: 65 20 61 20 64 65 73 63 65 6e 64 61 6e 74 0a 09  e a descendant..
2880: 09 09 09 20 2a 20 6f 66 20 73 6c 61 76 65 27 73  ... * of slave's
2890: 20 70 61 72 65 6e 74 2e 20 2a 2f 0a 7b 0a 20 20   parent. */.{.  
28a0: 20 20 54 63 6c 5f 48 61 73 68 45 6e 74 72 79 20    Tcl_HashEntry 
28b0: 2a 68 50 74 72 3b 0a 20 20 20 20 4d 61 69 6e 74  *hPtr;.    Maint
28c0: 61 69 6e 4d 61 73 74 65 72 20 2a 6d 61 73 74 65  ainMaster *maste
28d0: 72 50 74 72 3b 0a 20 20 20 20 72 65 67 69 73 74  rPtr;.    regist
28e0: 65 72 20 4d 61 69 6e 74 61 69 6e 53 6c 61 76 65  er MaintainSlave
28f0: 20 2a 73 6c 61 76 65 50 74 72 2c 20 2a 70 72 65   *slavePtr, *pre
2900: 76 50 74 72 3b 0a 20 20 20 20 54 6b 5f 57 69 6e  vPtr;.    Tk_Win
2910: 64 6f 77 20 61 6e 63 65 73 74 6f 72 3b 0a 0a 20  dow ancestor;.. 
2920: 20 20 20 69 66 20 28 21 69 6e 69 74 69 61 6c 69     if (!initiali
2930: 7a 65 64 29 20 7b 0a 09 69 6e 69 74 69 61 6c 69  zed) {..initiali
2940: 7a 65 64 20 3d 20 31 3b 0a 09 54 63 6c 5f 49 6e  zed = 1;..Tcl_In
2950: 69 74 48 61 73 68 54 61 62 6c 65 28 26 6d 61 69  itHashTable(&mai
2960: 6e 74 61 69 6e 48 61 73 68 54 61 62 6c 65 2c 20  ntainHashTable, 
2970: 54 43 4c 5f 4f 4e 45 5f 57 4f 52 44 5f 4b 45 59  TCL_ONE_WORD_KEY
2980: 53 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69  S);.    }..    i
2990: 66 20 28 21 28 28 28 54 6b 57 69 6e 64 6f 77 20  f (!(((TkWindow 
29a0: 2a 29 20 73 6c 61 76 65 29 2d 3e 66 6c 61 67 73  *) slave)->flags
29b0: 20 26 20 54 4b 5f 41 4c 52 45 41 44 59 5f 44 45   & TK_ALREADY_DE
29c0: 41 44 29 29 20 7b 0a 09 54 6b 5f 55 6e 6d 61 70  AD)) {..Tk_Unmap
29d0: 57 69 6e 64 6f 77 28 73 6c 61 76 65 29 3b 0a 20  Window(slave);. 
29e0: 20 20 20 7d 0a 20 20 20 20 68 50 74 72 20 3d 20     }.    hPtr = 
29f0: 54 63 6c 5f 46 69 6e 64 48 61 73 68 45 6e 74 72  Tcl_FindHashEntr
2a00: 79 28 26 6d 61 69 6e 74 61 69 6e 48 61 73 68 54  y(&maintainHashT
2a10: 61 62 6c 65 2c 20 28 63 68 61 72 20 2a 29 20 6d  able, (char *) m
2a20: 61 73 74 65 72 29 3b 0a 20 20 20 20 69 66 20 28  aster);.    if (
2a30: 68 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  hPtr == NULL) {.
2a40: 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 20  .return;.    }. 
2a50: 20 20 20 6d 61 73 74 65 72 50 74 72 20 3d 20 28     masterPtr = (
2a60: 4d 61 69 6e 74 61 69 6e 4d 61 73 74 65 72 20 2a  MaintainMaster *
2a70: 29 20 54 63 6c 5f 47 65 74 48 61 73 68 56 61 6c  ) Tcl_GetHashVal
2a80: 75 65 28 68 50 74 72 29 3b 0a 20 20 20 20 73 6c  ue(hPtr);.    sl
2a90: 61 76 65 50 74 72 20 3d 20 6d 61 73 74 65 72 50  avePtr = masterP
2aa0: 74 72 2d 3e 73 6c 61 76 65 50 74 72 3b 0a 20 20  tr->slavePtr;.  
2ab0: 20 20 69 66 20 28 73 6c 61 76 65 50 74 72 2d 3e    if (slavePtr->
2ac0: 73 6c 61 76 65 20 3d 3d 20 73 6c 61 76 65 29 20  slave == slave) 
2ad0: 7b 0a 09 6d 61 73 74 65 72 50 74 72 2d 3e 73 6c  {..masterPtr->sl
2ae0: 61 76 65 50 74 72 20 3d 20 73 6c 61 76 65 50 74  avePtr = slavePt
2af0: 72 2d 3e 6e 65 78 74 50 74 72 3b 0a 20 20 20 20  r->nextPtr;.    
2b00: 7d 20 65 6c 73 65 20 7b 0a 09 66 6f 72 20 28 70  } else {..for (p
2b10: 72 65 76 50 74 72 20 3d 20 73 6c 61 76 65 50 74  revPtr = slavePt
2b20: 72 2c 20 73 6c 61 76 65 50 74 72 20 3d 20 73 6c  r, slavePtr = sl
2b30: 61 76 65 50 74 72 2d 3e 6e 65 78 74 50 74 72 3b  avePtr->nextPtr;
2b40: 20 3b 0a 09 09 70 72 65 76 50 74 72 20 3d 20 73   ;...prevPtr = s
2b50: 6c 61 76 65 50 74 72 2c 20 73 6c 61 76 65 50 74  lavePtr, slavePt
2b60: 72 20 3d 20 73 6c 61 76 65 50 74 72 2d 3e 6e 65  r = slavePtr->ne
2b70: 78 74 50 74 72 29 20 7b 0a 09 20 20 20 20 69 66  xtPtr) {..    if
2b80: 20 28 73 6c 61 76 65 50 74 72 20 3d 3d 20 4e 55   (slavePtr == NU
2b90: 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 3b 0a  LL) {...return;.
2ba0: 09 20 20 20 20 7d 0a 09 20 20 20 20 69 66 20 28  .    }..    if (
2bb0: 73 6c 61 76 65 50 74 72 2d 3e 73 6c 61 76 65 20  slavePtr->slave 
2bc0: 3d 3d 20 73 6c 61 76 65 29 20 7b 0a 09 09 70 72  == slave) {...pr
2bd0: 65 76 50 74 72 2d 3e 6e 65 78 74 50 74 72 20 3d  evPtr->nextPtr =
2be0: 20 73 6c 61 76 65 50 74 72 2d 3e 6e 65 78 74 50   slavePtr->nextP
2bf0: 74 72 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 20 20  tr;...break;..  
2c00: 20 20 7d 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20    }..}.    }.   
2c10: 20 54 6b 5f 44 65 6c 65 74 65 45 76 65 6e 74 48   Tk_DeleteEventH
2c20: 61 6e 64 6c 65 72 28 73 6c 61 76 65 50 74 72 2d  andler(slavePtr-
2c30: 3e 73 6c 61 76 65 2c 20 43 54 4b 5f 44 45 53 54  >slave, CTK_DEST
2c40: 52 4f 59 5f 45 56 45 4e 54 5f 4d 41 53 4b 2c 0a  ROY_EVENT_MASK,.
2c50: 09 20 20 20 20 4d 61 69 6e 74 61 69 6e 53 6c 61  .    MaintainSla
2c60: 76 65 50 72 6f 63 2c 20 28 43 6c 69 65 6e 74 44  veProc, (ClientD
2c70: 61 74 61 29 20 73 6c 61 76 65 50 74 72 29 3b 0a  ata) slavePtr);.
2c80: 20 20 20 20 63 6b 66 72 65 65 28 28 63 68 61 72      ckfree((char
2c90: 20 2a 29 20 73 6c 61 76 65 50 74 72 29 3b 0a 20   *) slavePtr);. 
2ca0: 20 20 20 69 66 20 28 6d 61 73 74 65 72 50 74 72     if (masterPtr
2cb0: 2d 3e 73 6c 61 76 65 50 74 72 20 3d 3d 20 4e 55  ->slavePtr == NU
2cc0: 4c 4c 29 20 7b 0a 09 69 66 20 28 6d 61 73 74 65  LL) {..if (maste
2cd0: 72 50 74 72 2d 3e 61 6e 63 65 73 74 6f 72 20 21  rPtr->ancestor !
2ce0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 66  = NULL) {..    f
2cf0: 6f 72 20 28 61 6e 63 65 73 74 6f 72 20 3d 20 6d  or (ancestor = m
2d00: 61 73 74 65 72 3b 20 3b 20 61 6e 63 65 73 74 6f  aster; ; ancesto
2d10: 72 20 3d 20 54 6b 5f 50 61 72 65 6e 74 28 61 6e  r = Tk_Parent(an
2d20: 63 65 73 74 6f 72 29 29 20 7b 0a 09 09 54 6b 5f  cestor)) {...Tk_
2d30: 44 65 6c 65 74 65 45 76 65 6e 74 48 61 6e 64 6c  DeleteEventHandl
2d40: 65 72 28 61 6e 63 65 73 74 6f 72 2c 0a 09 09 09  er(ancestor,....
2d50: 43 54 4b 5f 4d 41 50 5f 45 56 45 4e 54 5f 4d 41  CTK_MAP_EVENT_MA
2d60: 53 4b 7c 43 54 4b 5f 44 45 53 54 52 4f 59 5f 45  SK|CTK_DESTROY_E
2d70: 56 45 4e 54 5f 4d 41 53 4b 2c 0a 09 09 09 4d 61  VENT_MASK,....Ma
2d80: 69 6e 74 61 69 6e 4d 61 73 74 65 72 50 72 6f 63  intainMasterProc
2d90: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 6d  , (ClientData) m
2da0: 61 73 74 65 72 50 74 72 29 3b 0a 09 09 69 66 20  asterPtr);...if 
2db0: 28 61 6e 63 65 73 74 6f 72 20 3d 3d 20 6d 61 73  (ancestor == mas
2dc0: 74 65 72 50 74 72 2d 3e 61 6e 63 65 73 74 6f 72  terPtr->ancestor
2dd0: 29 20 7b 0a 09 09 20 20 20 20 62 72 65 61 6b 3b  ) {...    break;
2de0: 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 7d 0a 09  ...}..    }..}..
2df0: 69 66 20 28 6d 61 73 74 65 72 50 74 72 2d 3e 63  if (masterPtr->c
2e00: 68 65 63 6b 53 63 68 65 64 75 6c 65 64 29 20 7b  heckScheduled) {
2e10: 0a 09 20 20 20 20 54 63 6c 5f 43 61 6e 63 65 6c  ..    Tcl_Cancel
2e20: 49 64 6c 65 43 61 6c 6c 28 4d 61 69 6e 74 61 69  IdleCall(Maintai
2e30: 6e 43 68 65 63 6b 50 72 6f 63 2c 20 28 43 6c 69  nCheckProc, (Cli
2e40: 65 6e 74 44 61 74 61 29 20 6d 61 73 74 65 72 50  entData) masterP
2e50: 74 72 29 3b 0a 09 7d 0a 09 54 63 6c 5f 44 65 6c  tr);..}..Tcl_Del
2e60: 65 74 65 48 61 73 68 45 6e 74 72 79 28 68 50 74  eteHashEntry(hPt
2e70: 72 29 3b 0a 09 63 6b 66 72 65 65 28 28 63 68 61  r);..ckfree((cha
2e80: 72 20 2a 29 20 6d 61 73 74 65 72 50 74 72 29 3b  r *) masterPtr);
2e90: 0a 20 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a  .    }.}.../*. *
2ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2ee0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 69  ------. *. * Mai
2ef0: 6e 74 61 69 6e 4d 61 73 74 65 72 50 72 6f 63 20  ntainMasterProc 
2f00: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72  --. *. *.This pr
2f10: 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b  ocedure is invok
2f20: 65 64 20 62 79 20 74 68 65 20 54 6b 20 65 76 65  ed by the Tk eve
2f30: 6e 74 20 64 69 73 70 61 74 63 68 65 72 20 69 6e  nt dispatcher in
2f40: 0a 20 2a 09 72 65 73 70 6f 6e 73 65 20 74 6f 20  . *.response to 
2f50: 53 74 72 75 63 74 75 72 65 4e 6f 74 69 66 79 20  StructureNotify 
2f60: 65 76 65 6e 74 73 20 6f 6e 20 74 68 65 20 6d 61  events on the ma
2f70: 73 74 65 72 20 6f 72 20 6f 6e 65 0a 20 2a 09 6f  ster or one. *.o
2f80: 66 20 69 74 73 20 61 6e 63 65 73 74 6f 72 73 2c  f its ancestors,
2f90: 20 6f 6e 20 62 65 68 61 6c 66 20 6f 66 20 54 6b   on behalf of Tk
2fa0: 5f 4d 61 69 6e 74 61 69 6e 47 65 6f 6d 65 74 72  _MaintainGeometr
2fb0: 79 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73  y.. *. * Results
2fc0: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a  :. *.None.. *. *
2fd0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20   Side effects:. 
2fe0: 2a 09 49 74 20 73 63 68 65 64 75 6c 65 73 20 61  *.It schedules a
2ff0: 20 63 61 6c 6c 20 74 6f 20 4d 61 69 6e 74 61 69   call to Maintai
3000: 6e 43 68 65 63 6b 50 72 6f 63 2c 20 77 68 69 63  nCheckProc, whic
3010: 68 20 77 69 6c 6c 20 65 76 65 6e 74 75 61 6c 6c  h will eventuall
3020: 79 0a 20 2a 09 63 61 75 73 65 64 20 74 68 65 20  y. *.caused the 
3030: 70 6f 73 74 69 6f 6e 73 20 61 6e 64 20 6d 61 70  postions and map
3040: 70 65 64 20 73 74 61 74 65 73 20 74 6f 20 62 65  ped states to be
3050: 20 72 65 63 61 6c 63 75 6c 61 74 65 64 20 66 6f   recalculated fo
3060: 72 20 61 6c 6c 0a 20 2a 09 74 68 65 20 6d 61 69  r all. *.the mai
3070: 6e 74 61 69 6e 65 64 20 73 6c 61 76 65 73 20 6f  ntained slaves o
3080: 66 20 74 68 65 20 6d 61 73 74 65 72 2e 20 20 4f  f the master.  O
3090: 72 2c 20 69 66 20 74 68 65 20 6d 61 73 74 65 72  r, if the master
30a0: 20 77 69 6e 64 6f 77 20 69 73 0a 20 2a 09 62 65   window is. *.be
30b0: 69 6e 67 20 64 65 6c 65 74 65 64 20 74 68 65 6e  ing deleted then
30c0: 20 73 74 61 74 65 20 69 73 20 63 6c 65 61 6e 65   state is cleane
30d0: 64 20 75 70 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d  d up.. *. *-----
30e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
30f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3120: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f  -. */..static vo
3130: 69 64 0a 4d 61 69 6e 74 61 69 6e 4d 61 73 74 65  id.MaintainMaste
3140: 72 50 72 6f 63 28 63 6c 69 65 6e 74 44 61 74 61  rProc(clientData
3150: 2c 20 65 76 65 6e 74 50 74 72 29 0a 20 20 20 20  , eventPtr).    
3160: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e  ClientData clien
3170: 74 44 61 74 61 3b 09 09 2f 2a 20 50 6f 69 6e 74  tData;../* Point
3180: 65 72 20 74 6f 20 4d 61 69 6e 74 61 69 6e 4d 61  er to MaintainMa
3190: 73 74 65 72 20 73 74 72 75 63 74 75 72 65 0a 09  ster structure..
31a0: 09 09 09 09 20 2a 20 66 6f 72 20 74 68 65 20 6d  .... * for the m
31b0: 61 73 74 65 72 20 77 69 6e 64 6f 77 2e 20 2a 2f  aster window. */
31c0: 0a 20 20 20 20 58 45 76 65 6e 74 20 2a 65 76 65  .    XEvent *eve
31d0: 6e 74 50 74 72 3b 09 09 09 2f 2a 20 44 65 73 63  ntPtr;.../* Desc
31e0: 72 69 62 65 73 20 77 68 61 74 20 6a 75 73 74 20  ribes what just 
31f0: 68 61 70 70 65 6e 65 64 2e 20 2a 2f 0a 7b 0a 20  happened. */.{. 
3200: 20 20 20 4d 61 69 6e 74 61 69 6e 4d 61 73 74 65     MaintainMaste
3210: 72 20 2a 6d 61 73 74 65 72 50 74 72 20 3d 20 28  r *masterPtr = (
3220: 4d 61 69 6e 74 61 69 6e 4d 61 73 74 65 72 20 2a  MaintainMaster *
3230: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20  ) clientData;.  
3240: 20 20 4d 61 69 6e 74 61 69 6e 53 6c 61 76 65 20    MaintainSlave 
3250: 2a 73 6c 61 76 65 50 74 72 3b 0a 20 20 20 20 69  *slavePtr;.    i
3260: 6e 74 20 64 6f 6e 65 3b 0a 0a 20 20 20 20 69 66  nt done;..    if
3270: 20 28 28 65 76 65 6e 74 50 74 72 2d 3e 74 79 70   ((eventPtr->typ
3280: 65 20 3d 3d 20 43 54 4b 5f 4d 41 50 5f 45 56 45  e == CTK_MAP_EVE
3290: 4e 54 29 0a 09 20 20 20 20 7c 7c 20 28 65 76 65  NT)..    || (eve
32a0: 6e 74 50 74 72 2d 3e 74 79 70 65 20 3d 3d 20 43  ntPtr->type == C
32b0: 54 4b 5f 55 4e 4d 41 50 5f 45 56 45 4e 54 29 29  TK_UNMAP_EVENT))
32c0: 20 7b 0a 09 69 66 20 28 21 6d 61 73 74 65 72 50   {..if (!masterP
32d0: 74 72 2d 3e 63 68 65 63 6b 53 63 68 65 64 75 6c  tr->checkSchedul
32e0: 65 64 29 20 7b 0a 09 20 20 20 20 6d 61 73 74 65  ed) {..    maste
32f0: 72 50 74 72 2d 3e 63 68 65 63 6b 53 63 68 65 64  rPtr->checkSched
3300: 75 6c 65 64 20 3d 20 31 3b 0a 09 20 20 20 20 54  uled = 1;..    T
3310: 63 6c 5f 44 6f 57 68 65 6e 49 64 6c 65 28 4d 61  cl_DoWhenIdle(Ma
3320: 69 6e 74 61 69 6e 43 68 65 63 6b 50 72 6f 63 2c  intainCheckProc,
3330: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 6d 61   (ClientData) ma
3340: 73 74 65 72 50 74 72 29 3b 0a 09 7d 0a 20 20 20  sterPtr);..}.   
3350: 20 7d 20 65 6c 73 65 20 69 66 20 28 65 76 65 6e   } else if (even
3360: 74 50 74 72 2d 3e 74 79 70 65 20 3d 3d 20 43 54  tPtr->type == CT
3370: 4b 5f 44 45 53 54 52 4f 59 5f 45 56 45 4e 54 29  K_DESTROY_EVENT)
3380: 20 7b 0a 09 2f 2a 0a 09 20 2a 20 44 65 6c 65 74   {../*.. * Delet
3390: 65 20 61 6c 6c 20 6f 66 20 74 68 65 20 73 74 61  e all of the sta
33a0: 74 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69  te associated wi
33b0: 74 68 20 74 68 69 73 20 6d 61 73 74 65 72 2c 20  th this master, 
33c0: 62 75 74 0a 09 20 2a 20 62 65 20 63 61 72 65 66  but.. * be caref
33d0: 75 6c 20 6e 6f 74 20 74 6f 20 75 73 65 20 6d 61  ul not to use ma
33e0: 73 74 65 72 50 74 72 20 61 66 74 65 72 20 74 68  sterPtr after th
33f0: 65 20 6c 61 73 74 20 73 6c 61 76 65 20 69 73 0a  e last slave is.
3400: 09 20 2a 20 64 65 6c 65 74 65 64 2c 20 73 69 6e  . * deleted, sin
3410: 63 65 20 69 74 73 20 6d 65 6d 6f 72 79 20 77 69  ce its memory wi
3420: 6c 6c 20 68 61 76 65 20 62 65 65 6e 20 66 72 65  ll have been fre
3430: 65 64 2e 0a 09 20 2a 2f 0a 0a 09 64 6f 6e 65 20  ed... */...done 
3440: 3d 20 30 3b 0a 09 64 6f 20 7b 0a 09 20 20 20 20  = 0;..do {..    
3450: 73 6c 61 76 65 50 74 72 20 3d 20 6d 61 73 74 65  slavePtr = maste
3460: 72 50 74 72 2d 3e 73 6c 61 76 65 50 74 72 3b 0a  rPtr->slavePtr;.
3470: 09 20 20 20 20 69 66 20 28 73 6c 61 76 65 50 74  .    if (slavePt
3480: 72 2d 3e 6e 65 78 74 50 74 72 20 3d 3d 20 4e 55  r->nextPtr == NU
3490: 4c 4c 29 20 7b 0a 09 09 64 6f 6e 65 20 3d 20 31  LL) {...done = 1
34a0: 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 54 6b  ;..    }..    Tk
34b0: 5f 55 6e 6d 61 69 6e 74 61 69 6e 47 65 6f 6d 65  _UnmaintainGeome
34c0: 74 72 79 28 73 6c 61 76 65 50 74 72 2d 3e 73 6c  try(slavePtr->sl
34d0: 61 76 65 2c 20 73 6c 61 76 65 50 74 72 2d 3e 6d  ave, slavePtr->m
34e0: 61 73 74 65 72 29 3b 0a 09 7d 20 77 68 69 6c 65  aster);..} while
34f0: 20 28 21 64 6f 6e 65 29 3b 0a 20 20 20 20 7d 0a   (!done);.    }.
3500: 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  }.../*. *-------
3510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
3550: 20 2a 0a 20 2a 20 4d 61 69 6e 74 61 69 6e 53 6c   *. * MaintainSl
3560: 61 76 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a  aveProc --. *. *
3570: 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20  .This procedure 
3580: 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68  is invoked by th
3590: 65 20 54 6b 20 65 76 65 6e 74 20 64 69 73 70 61  e Tk event dispa
35a0: 74 63 68 65 72 20 69 6e 0a 20 2a 09 72 65 73 70  tcher in. *.resp
35b0: 6f 6e 73 65 20 74 6f 20 53 74 72 75 63 74 75 72  onse to Structur
35c0: 65 4e 6f 74 69 66 79 20 65 76 65 6e 74 73 20 6f  eNotify events o
35d0: 6e 20 61 20 73 6c 61 76 65 20 62 65 69 6e 67 20  n a slave being 
35e0: 6d 61 6e 61 67 65 64 0a 20 2a 09 62 79 20 54 6b  managed. *.by Tk
35f0: 5f 4d 61 69 6e 74 61 69 6e 47 65 6f 6d 65 74 72  _MaintainGeometr
3600: 79 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73  y.. *. * Results
3610: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a  :. *.None.. *. *
3620: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20   Side effects:. 
3630: 2a 09 49 66 20 74 68 65 20 65 76 65 6e 74 20 69  *.If the event i
3640: 73 20 61 20 44 65 73 74 72 6f 79 4e 6f 74 69 66  s a DestroyNotif
3650: 79 20 65 76 65 6e 74 20 74 68 65 6e 20 74 68 65  y event then the
3660: 20 4d 61 69 6e 74 61 69 6e 20 73 74 61 74 65 0a   Maintain state.
3670: 20 2a 09 61 6e 64 20 65 76 65 6e 74 20 68 61 6e   *.and event han
3680: 64 6c 65 72 73 20 66 6f 72 20 74 68 69 73 20 73  dlers for this s
3690: 6c 61 76 65 20 61 72 65 20 64 65 6c 65 74 65 64  lave are deleted
36a0: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  .. *. *---------
36b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
36c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
36d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
36e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
36f0: 2f 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 4d  /..static void.M
3700: 61 69 6e 74 61 69 6e 53 6c 61 76 65 50 72 6f 63  aintainSlaveProc
3710: 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 65 76 65  (clientData, eve
3720: 6e 74 50 74 72 29 0a 20 20 20 20 43 6c 69 65 6e  ntPtr).    Clien
3730: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61  tData clientData
3740: 3b 09 09 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f  ;../* Pointer to
3750: 20 4d 61 69 6e 74 61 69 6e 53 6c 61 76 65 20 73   MaintainSlave s
3760: 74 72 75 63 74 75 72 65 0a 09 09 09 09 09 20 2a  tructure...... *
3770: 20 66 6f 72 20 6d 61 73 74 65 72 2d 73 6c 61 76   for master-slav
3780: 65 20 70 61 69 72 2e 20 2a 2f 0a 20 20 20 20 58  e pair. */.    X
3790: 45 76 65 6e 74 20 2a 65 76 65 6e 74 50 74 72 3b  Event *eventPtr;
37a0: 09 09 09 2f 2a 20 44 65 73 63 72 69 62 65 73 20  .../* Describes 
37b0: 77 68 61 74 20 6a 75 73 74 20 68 61 70 70 65 6e  what just happen
37c0: 65 64 2e 20 2a 2f 0a 7b 0a 20 20 20 20 4d 61 69  ed. */.{.    Mai
37d0: 6e 74 61 69 6e 53 6c 61 76 65 20 2a 73 6c 61 76  ntainSlave *slav
37e0: 65 50 74 72 20 3d 20 28 4d 61 69 6e 74 61 69 6e  ePtr = (Maintain
37f0: 53 6c 61 76 65 20 2a 29 20 63 6c 69 65 6e 74 44  Slave *) clientD
3800: 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 65 76  ata;..    if (ev
3810: 65 6e 74 50 74 72 2d 3e 74 79 70 65 20 3d 3d 20  entPtr->type == 
3820: 43 54 4b 5f 44 45 53 54 52 4f 59 5f 45 56 45 4e  CTK_DESTROY_EVEN
3830: 54 29 20 7b 0a 09 54 6b 5f 55 6e 6d 61 69 6e 74  T) {..Tk_Unmaint
3840: 61 69 6e 47 65 6f 6d 65 74 72 79 28 73 6c 61 76  ainGeometry(slav
3850: 65 50 74 72 2d 3e 73 6c 61 76 65 2c 20 73 6c 61  ePtr->slave, sla
3860: 76 65 50 74 72 2d 3e 6d 61 73 74 65 72 29 3b 0a  vePtr->master);.
3870: 20 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d      }.}.../*. *-
3880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
38a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
38b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
38c0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 69 6e  -----. *. * Main
38d0: 74 61 69 6e 43 68 65 63 6b 50 72 6f 63 20 2d 2d  tainCheckProc --
38e0: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63  . *. *.This proc
38f0: 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64  edure is invoked
3900: 20 62 79 20 74 68 65 20 54 6b 20 65 76 65 6e 74   by the Tk event
3910: 20 64 69 73 70 61 74 63 68 65 72 20 61 73 20 61   dispatcher as a
3920: 6e 0a 20 2a 09 69 64 6c 65 20 68 61 6e 64 6c 65  n. *.idle handle
3930: 72 2c 20 77 68 65 6e 20 61 20 6d 61 73 74 65 72  r, when a master
3940: 20 6f 72 20 6f 6e 65 20 6f 66 20 69 74 73 20 61   or one of its a
3950: 6e 63 65 73 74 6f 72 73 20 68 61 73 20 62 65 65  ncestors has bee
3960: 6e 0a 20 2a 09 72 65 63 6f 6e 66 69 67 75 72 65  n. *.reconfigure
3970: 64 2c 20 6d 61 70 70 65 64 2c 20 6f 72 20 75 6e  d, mapped, or un
3980: 6d 61 70 70 65 64 2e 20 20 49 74 73 20 6a 6f 62  mapped.  Its job
3990: 20 69 73 20 74 6f 20 73 63 61 6e 20 61 6c 6c 20   is to scan all 
39a0: 6f 66 0a 20 2a 09 74 68 65 20 73 6c 61 76 65 73  of. *.the slaves
39b0: 20 66 6f 72 20 74 68 65 20 6d 61 73 74 65 72 20   for the master 
39c0: 61 6e 64 20 72 65 70 6f 73 69 74 69 6f 6e 20 74  and reposition t
39d0: 68 65 6d 2c 20 6d 61 70 20 74 68 65 6d 2c 20 6f  hem, map them, o
39e0: 72 0a 20 2a 09 75 6e 6d 61 70 20 74 68 65 6d 20  r. *.unmap them 
39f0: 61 73 20 6e 65 65 64 65 64 20 74 6f 20 6d 61 69  as needed to mai
3a00: 6e 74 61 69 6e 20 74 68 65 69 72 20 67 65 6f 6d  ntain their geom
3a10: 65 74 72 79 20 72 65 6c 61 74 69 76 65 20 74 6f  etry relative to
3a20: 0a 20 2a 09 74 68 65 20 6d 61 73 74 65 72 2e 0a  . *.the master..
3a30: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20   *. * Results:. 
3a40: 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69  *.None.. *. * Si
3a50: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53  de effects:. *.S
3a60: 6c 61 76 65 73 20 63 61 6e 20 67 65 74 20 72 65  laves can get re
3a70: 70 6f 73 69 74 69 6f 6e 65 64 2c 20 6d 61 70 70  positioned, mapp
3a80: 65 64 2c 20 6f 72 20 75 6e 6d 61 70 70 65 64 2e  ed, or unmapped.
3a90: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *. *----------
3aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
3ae0: 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 4d 61  ..static void.Ma
3af0: 69 6e 74 61 69 6e 43 68 65 63 6b 50 72 6f 63 28  intainCheckProc(
3b00: 63 6c 69 65 6e 74 44 61 74 61 29 0a 20 20 20 20  clientData).    
3b10: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e  ClientData clien
3b20: 74 44 61 74 61 3b 09 09 2f 2a 20 50 6f 69 6e 74  tData;../* Point
3b30: 65 72 20 74 6f 20 4d 61 69 6e 74 61 69 6e 4d 61  er to MaintainMa
3b40: 73 74 65 72 20 73 74 72 75 63 74 75 72 65 0a 09  ster structure..
3b50: 09 09 09 09 20 2a 20 66 6f 72 20 74 68 65 20 6d  .... * for the m
3b60: 61 73 74 65 72 20 77 69 6e 64 6f 77 2e 20 2a 2f  aster window. */
3b70: 0a 7b 0a 20 20 20 20 4d 61 69 6e 74 61 69 6e 4d  .{.    MaintainM
3b80: 61 73 74 65 72 20 2a 6d 61 73 74 65 72 50 74 72  aster *masterPtr
3b90: 20 3d 20 28 4d 61 69 6e 74 61 69 6e 4d 61 73 74   = (MaintainMast
3ba0: 65 72 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61  er *) clientData
3bb0: 3b 0a 20 20 20 20 4d 61 69 6e 74 61 69 6e 53 6c  ;.    MaintainSl
3bc0: 61 76 65 20 2a 73 6c 61 76 65 50 74 72 3b 0a 20  ave *slavePtr;. 
3bd0: 20 20 20 54 6b 5f 57 69 6e 64 6f 77 20 61 6e 63     Tk_Window anc
3be0: 65 73 74 6f 72 2c 20 70 61 72 65 6e 74 3b 0a 20  estor, parent;. 
3bf0: 20 20 20 69 6e 74 20 78 2c 20 79 2c 20 6d 61 70     int x, y, map
3c00: 3b 0a 0a 20 20 20 20 6d 61 73 74 65 72 50 74 72  ;..    masterPtr
3c10: 2d 3e 63 68 65 63 6b 53 63 68 65 64 75 6c 65 64  ->checkScheduled
3c20: 20 3d 20 30 3b 0a 20 20 20 20 66 6f 72 20 28 73   = 0;.    for (s
3c30: 6c 61 76 65 50 74 72 20 3d 20 6d 61 73 74 65 72  lavePtr = master
3c40: 50 74 72 2d 3e 73 6c 61 76 65 50 74 72 3b 20 73  Ptr->slavePtr; s
3c50: 6c 61 76 65 50 74 72 20 21 3d 20 4e 55 4c 4c 3b  lavePtr != NULL;
3c60: 0a 09 20 20 20 20 73 6c 61 76 65 50 74 72 20 3d  ..    slavePtr =
3c70: 20 73 6c 61 76 65 50 74 72 2d 3e 6e 65 78 74 50   slavePtr->nextP
3c80: 74 72 29 20 7b 0a 09 70 61 72 65 6e 74 20 3d 20  tr) {..parent = 
3c90: 54 6b 5f 50 61 72 65 6e 74 28 73 6c 61 76 65 50  Tk_Parent(slaveP
3ca0: 74 72 2d 3e 73 6c 61 76 65 29 3b 0a 09 78 20 3d  tr->slave);..x =
3cb0: 20 73 6c 61 76 65 50 74 72 2d 3e 78 3b 0a 09 79   slavePtr->x;..y
3cc0: 20 3d 20 73 6c 61 76 65 50 74 72 2d 3e 79 3b 0a   = slavePtr->y;.
3cd0: 09 6d 61 70 20 3d 20 31 3b 0a 09 66 6f 72 20 28  .map = 1;..for (
3ce0: 61 6e 63 65 73 74 6f 72 20 3d 20 73 6c 61 76 65  ancestor = slave
3cf0: 50 74 72 2d 3e 6d 61 73 74 65 72 3b 20 3b 20 61  Ptr->master; ; a
3d00: 6e 63 65 73 74 6f 72 20 3d 20 54 6b 5f 50 61 72  ncestor = Tk_Par
3d10: 65 6e 74 28 61 6e 63 65 73 74 6f 72 29 29 20 7b  ent(ancestor)) {
3d20: 0a 09 20 20 20 20 69 66 20 28 21 54 6b 5f 49 73  ..    if (!Tk_Is
3d30: 4d 61 70 70 65 64 28 61 6e 63 65 73 74 6f 72 29  Mapped(ancestor)
3d40: 20 26 26 20 28 61 6e 63 65 73 74 6f 72 20 21 3d   && (ancestor !=
3d50: 20 70 61 72 65 6e 74 29 29 20 7b 0a 09 09 6d 61   parent)) {...ma
3d60: 70 20 3d 20 30 3b 0a 09 20 20 20 20 7d 0a 09 20  p = 0;..    }.. 
3d70: 20 20 20 69 66 20 28 61 6e 63 65 73 74 6f 72 20     if (ancestor 
3d80: 3d 3d 20 70 61 72 65 6e 74 29 20 7b 0a 09 09 69  == parent) {...i
3d90: 66 20 28 6d 61 70 29 20 7b 0a 09 09 20 20 20 20  f (map) {...    
3da0: 69 66 20 28 21 54 6b 5f 49 73 4d 61 70 70 65 64  if (!Tk_IsMapped
3db0: 28 73 6c 61 76 65 50 74 72 2d 3e 73 6c 61 76 65  (slavePtr->slave
3dc0: 29 0a 09 09 20 20 20 20 09 20 20 20 20 7c 7c 20  )...    .    || 
3dd0: 28 78 20 21 3d 20 54 6b 5f 58 28 73 6c 61 76 65  (x != Tk_X(slave
3de0: 50 74 72 2d 3e 73 6c 61 76 65 29 29 0a 09 09 09  Ptr->slave))....
3df0: 20 20 20 20 7c 7c 20 28 79 20 21 3d 20 54 6b 5f      || (y != Tk_
3e00: 59 28 73 6c 61 76 65 50 74 72 2d 3e 73 6c 61 76  Y(slavePtr->slav
3e10: 65 29 29 29 20 7b 0a 09 09 09 43 74 6b 5f 4d 61  e))) {....Ctk_Ma
3e20: 70 28 73 6c 61 76 65 50 74 72 2d 3e 73 6c 61 76  p(slavePtr->slav
3e30: 65 2c 20 78 2c 20 79 2c 0a 09 09 09 09 78 20 2b  e, x, y,.....x +
3e40: 20 54 6b 5f 57 69 64 74 68 28 73 6c 61 76 65 50   Tk_Width(slaveP
3e50: 74 72 2d 3e 73 6c 61 76 65 29 2c 0a 09 09 09 09  tr->slave),.....
3e60: 79 20 2b 20 54 6b 5f 48 65 69 67 68 74 28 73 6c  y + Tk_Height(sl
3e70: 61 76 65 50 74 72 2d 3e 73 6c 61 76 65 29 29 3b  avePtr->slave));
3e80: 0a 09 09 20 20 20 20 7d 0a 09 09 7d 20 65 6c 73  ...    }...} els
3e90: 65 20 7b 0a 09 09 20 20 20 20 54 6b 5f 55 6e 6d  e {...    Tk_Unm
3ea0: 61 70 57 69 6e 64 6f 77 28 73 6c 61 76 65 50 74  apWindow(slavePt
3eb0: 72 2d 3e 73 6c 61 76 65 29 3b 0a 09 09 7d 0a 09  r->slave);...}..
3ec0: 09 62 72 65 61 6b 3b 0a 09 20 20 20 20 7d 0a 09  .break;..    }..
3ed0: 20 20 20 20 78 20 2b 3d 20 54 6b 5f 58 28 61 6e      x += Tk_X(an
3ee0: 63 65 73 74 6f 72 29 3b 0a 09 20 20 20 20 79 20  cestor);..    y 
3ef0: 2b 3d 20 54 6b 5f 59 28 61 6e 63 65 73 74 6f 72  += Tk_Y(ancestor
3f00: 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 7d 0a        );..}.    }.}.