Hex Artifact Content

Artifact bd197c1c3663e543410fe9fdc94779835e459d78:


0000: 2f 2a 20 0a 20 2a 20 74 6b 50 6c 61 63 65 2e 63  /* . * tkPlace.c
0010: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66   --. *. *.This f
0020: 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20 63 6f 64  ile contains cod
0030: 65 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 61  e to implement a
0040: 20 73 69 6d 70 6c 65 20 67 65 6f 6d 65 74 72 79   simple geometry
0050: 20 6d 61 6e 61 67 65 72 0a 20 2a 09 66 6f 72 20   manager. *.for 
0060: 54 6b 20 62 61 73 65 64 20 6f 6e 20 61 62 73 6f  Tk based on abso
0070: 6c 75 74 65 20 70 6c 61 63 65 6d 65 6e 74 20 6f  lute placement o
0080: 72 20 22 72 75 62 62 65 72 2d 73 68 65 65 74 22  r "rubber-sheet"
0090: 20 70 6c 61 63 65 6d 65 6e 74 2e 0a 20 2a 0a 20   placement.. *. 
00a0: 2a 20 43 6f 70 79 72 69 67 68 74 20 28 63 29 20  * Copyright (c) 
00b0: 31 39 39 32 2d 31 39 39 34 20 54 68 65 20 52 65  1992-1994 The Re
00c0: 67 65 6e 74 73 20 6f 66 20 74 68 65 20 55 6e 69  gents of the Uni
00d0: 76 65 72 73 69 74 79 20 6f 66 20 43 61 6c 69 66  versity of Calif
00e0: 6f 72 6e 69 61 2e 0a 20 2a 20 43 6f 70 79 72 69  ornia.. * Copyri
00f0: 67 68 74 20 28 63 29 20 31 39 39 34 2d 31 39 39  ght (c) 1994-199
0100: 35 20 53 75 6e 20 4d 69 63 72 6f 73 79 73 74 65  5 Sun Microsyste
0110: 6d 73 2c 20 49 6e 63 2e 0a 20 2a 0a 20 2a 20 53  ms, Inc.. *. * S
0120: 65 65 20 74 68 65 20 66 69 6c 65 20 22 6c 69 63  ee the file "lic
0130: 65 6e 73 65 2e 74 65 72 6d 73 22 20 66 6f 72 20  ense.terms" for 
0140: 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 75  information on u
0150: 73 61 67 65 20 61 6e 64 20 72 65 64 69 73 74 72  sage and redistr
0160: 69 62 75 74 69 6f 6e 0a 20 2a 20 6f 66 20 74 68  ibution. * of th
0170: 69 73 20 66 69 6c 65 2c 20 61 6e 64 20 66 6f 72  is file, and for
0180: 20 61 20 44 49 53 43 4c 41 49 4d 45 52 20 4f 46   a DISCLAIMER OF
0190: 20 41 4c 4c 20 57 41 52 52 41 4e 54 49 45 53 2e   ALL WARRANTIES.
01a0: 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 63 68 61  . */..static cha
01b0: 72 20 73 63 63 73 69 64 5b 5d 20 3d 20 22 25 5a  r sccsid[] = "%Z
01c0: 25 20 25 4d 25 20 25 49 25 20 25 45 25 20 25 55  % %M% %I% %E% %U
01d0: 25 22 3b 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74  %";..#include "t
01e0: 6b 50 6f 72 74 2e 68 22 0a 23 69 6e 63 6c 75 64  kPort.h".#includ
01f0: 65 20 22 74 6b 49 6e 74 2e 68 22 0a 0a 2f 2a 0a  e "tkInt.h"../*.
0200: 20 2a 20 42 6f 72 64 65 72 20 6d 6f 64 65 73 20   * Border modes 
0210: 66 6f 72 20 72 65 6c 61 74 69 76 65 20 70 6c 61  for relative pla
0220: 63 65 6d 65 6e 74 3a 0a 20 2a 0a 20 2a 20 42 4d  cement:. *. * BM
0230: 5f 49 4e 53 49 44 45 3a 09 09 72 65 6c 61 74 69  _INSIDE:..relati
0240: 76 65 20 64 69 73 74 61 6e 63 65 73 20 63 6f 6d  ve distances com
0250: 70 75 74 65 64 20 75 73 69 6e 67 20 61 72 65 61  puted using area
0260: 20 69 6e 73 69 64 65 0a 20 2a 09 09 09 61 6c 6c   inside. *...all
0270: 20 62 6f 72 64 65 72 73 20 6f 66 20 6d 61 73 74   borders of mast
0280: 65 72 20 77 69 6e 64 6f 77 2e 0a 20 2a 20 42 4d  er window.. * BM
0290: 5f 4f 55 54 53 49 44 45 3a 09 09 72 65 6c 61 74  _OUTSIDE:..relat
02a0: 69 76 65 20 64 69 73 74 61 6e 63 65 73 20 63 6f  ive distances co
02b0: 6d 70 75 74 65 64 20 75 73 69 6e 67 20 6f 75 74  mputed using out
02c0: 73 69 64 65 20 61 72 65 61 0a 20 2a 09 09 09 74  side area. *...t
02d0: 68 61 74 20 69 6e 63 6c 75 64 65 73 20 61 6c 6c  hat includes all
02e0: 20 62 6f 72 64 65 72 73 20 6f 66 20 6d 61 73 74   borders of mast
02f0: 65 72 2e 0a 20 2a 20 42 4d 5f 49 47 4e 4f 52 45  er.. * BM_IGNORE
0300: 3a 09 09 62 6f 72 64 65 72 20 69 73 73 75 65 73  :..border issues
0310: 20 61 72 65 20 69 67 6e 6f 72 65 64 3a 20 20 70   are ignored:  p
0320: 6c 61 63 65 20 72 65 6c 61 74 69 76 65 20 74 6f  lace relative to
0330: 0a 20 2a 09 09 09 6d 61 73 74 65 72 27 73 20 61  . *...master's a
0340: 63 74 75 61 6c 20 77 69 6e 64 6f 77 20 73 69 7a  ctual window siz
0350: 65 2e 0a 20 2a 2f 0a 0a 74 79 70 65 64 65 66 20  e.. */..typedef 
0360: 65 6e 75 6d 20 7b 42 4d 5f 49 4e 53 49 44 45 2c  enum {BM_INSIDE,
0370: 20 42 4d 5f 4f 55 54 53 49 44 45 2c 20 42 4d 5f   BM_OUTSIDE, BM_
0380: 49 47 4e 4f 52 45 7d 20 42 6f 72 64 65 72 4d 6f  IGNORE} BorderMo
0390: 64 65 3b 0a 0a 2f 2a 0a 20 2a 20 46 6f 72 20 65  de;../*. * For e
03a0: 61 63 68 20 77 69 6e 64 6f 77 20 77 68 6f 73 65  ach window whose
03b0: 20 67 65 6f 6d 65 74 72 79 20 69 73 20 6d 61 6e   geometry is man
03c0: 61 67 65 64 20 62 79 20 74 68 65 20 70 6c 61 63  aged by the plac
03d0: 65 72 20 74 68 65 72 65 20 69 73 0a 20 2a 20 61  er there is. * a
03e0: 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 74 68   structure of th
03f0: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 79 70 65  e following type
0400: 3a 0a 20 2a 2f 0a 0a 74 79 70 65 64 65 66 20 73  :. */..typedef s
0410: 74 72 75 63 74 20 53 6c 61 76 65 20 7b 0a 20 20  truct Slave {.  
0420: 20 20 54 6b 5f 57 69 6e 64 6f 77 20 74 6b 77 69    Tk_Window tkwi
0430: 6e 3b 09 09 2f 2a 20 54 6b 27 73 20 74 6f 6b 65  n;../* Tk's toke
0440: 6e 20 66 6f 72 20 77 69 6e 64 6f 77 2e 20 2a 2f  n for window. */
0450: 0a 20 20 20 20 73 74 72 75 63 74 20 4d 61 73 74  .    struct Mast
0460: 65 72 20 2a 6d 61 73 74 65 72 50 74 72 3b 09 2f  er *masterPtr;./
0470: 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 69 6e 66  * Pointer to inf
0480: 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 20 77 69 6e  ormation for win
0490: 64 6f 77 0a 09 09 09 09 20 2a 20 72 65 6c 61 74  dow..... * relat
04a0: 69 76 65 20 74 6f 20 77 68 69 63 68 20 74 6b 77  ive to which tkw
04b0: 69 6e 20 69 73 20 70 6c 61 63 65 64 2e 0a 09 09  in is placed....
04c0: 09 09 20 2a 20 54 68 69 73 20 69 73 6e 27 74 20  .. * This isn't 
04d0: 6e 65 63 65 73 73 61 72 69 6c 79 20 74 68 65 20  necessarily the 
04e0: 6c 6f 67 69 63 61 6c 0a 09 09 09 09 20 2a 20 70  logical..... * p
04f0: 61 72 65 6e 74 20 6f 66 20 74 6b 77 69 6e 2e 20  arent of tkwin. 
0500: 20 4e 55 4c 4c 20 6d 65 61 6e 73 20 74 68 65 0a   NULL means the.
0510: 09 09 09 09 20 2a 20 6d 61 73 74 65 72 20 77 61  .... * master wa
0520: 73 20 64 65 6c 65 74 65 64 20 6f 72 20 6e 65 76  s deleted or nev
0530: 65 72 20 61 73 73 69 67 6e 65 64 2e 20 2a 2f 0a  er assigned. */.
0540: 20 20 20 20 73 74 72 75 63 74 20 53 6c 61 76 65      struct Slave
0550: 20 2a 6e 65 78 74 50 74 72 3b 09 2f 2a 20 4e 65   *nextPtr;./* Ne
0560: 78 74 20 69 6e 20 6c 69 73 74 20 6f 66 20 77 69  xt in list of wi
0570: 6e 64 6f 77 73 20 70 6c 61 63 65 64 20 72 65 6c  ndows placed rel
0580: 61 74 69 76 65 0a 09 09 09 09 20 2a 20 74 6f 20  ative..... * to 
0590: 73 61 6d 65 20 6d 61 73 74 65 72 20 28 4e 55 4c  same master (NUL
05a0: 4c 20 66 6f 72 20 65 6e 64 20 6f 66 20 6c 69 73  L for end of lis
05b0: 74 29 2e 20 2a 2f 0a 0a 20 20 20 20 2f 2a 0a 20  t). */..    /*. 
05c0: 20 20 20 20 2a 20 47 65 6f 6d 65 74 72 79 20 69      * Geometry i
05d0: 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 20 77  nformation for w
05e0: 69 6e 64 6f 77 3b 20 20 77 68 65 72 65 20 74 68  indow;  where th
05f0: 65 72 65 20 61 72 65 20 62 6f 74 68 20 72 65 6c  ere are both rel
0600: 61 74 69 76 65 0a 20 20 20 20 20 2a 20 61 6e 64  ative.     * and
0610: 20 61 62 73 6f 6c 75 74 65 20 76 61 6c 75 65 73   absolute values
0620: 20 66 6f 72 20 74 68 65 20 73 61 6d 65 20 61 74   for the same at
0630: 74 72 69 62 75 74 65 20 28 65 2e 67 2e 20 78 20  tribute (e.g. x 
0640: 61 6e 64 20 72 65 6c 58 29 20 6f 6e 6c 79 0a 20  and relX) only. 
0650: 20 20 20 20 2a 20 6f 6e 65 20 6f 66 20 74 68 65      * one of the
0660: 6d 20 69 73 20 61 63 74 75 61 6c 6c 79 20 75 73  m is actually us
0670: 65 64 2c 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e  ed, depending on
0680: 20 66 6c 61 67 73 2e 0a 20 20 20 20 20 2a 2f 0a   flags..     */.
0690: 0a 20 20 20 20 69 6e 74 20 78 2c 20 79 3b 09 09  .    int x, y;..
06a0: 09 2f 2a 20 58 20 61 6e 64 20 59 20 70 69 78 65  ./* X and Y pixe
06b0: 6c 20 63 6f 6f 72 64 69 6e 61 74 65 73 20 66 6f  l coordinates fo
06c0: 72 20 74 6b 77 69 6e 2e 20 2a 2f 0a 20 20 20 20  r tkwin. */.    
06d0: 66 6c 6f 61 74 20 72 65 6c 58 2c 20 72 65 6c 59  float relX, relY
06e0: 3b 09 09 2f 2a 20 58 20 61 6e 64 20 59 20 63 6f  ;../* X and Y co
06f0: 6f 72 64 69 6e 61 74 65 73 20 72 65 6c 61 74 69  ordinates relati
0700: 76 65 20 74 6f 20 73 69 7a 65 20 6f 66 0a 09 09  ve to size of...
0710: 09 09 20 2a 20 6d 61 73 74 65 72 2e 20 2a 2f 0a  .. * master. */.
0720: 20 20 20 20 69 6e 74 20 77 69 64 74 68 2c 20 68      int width, h
0730: 65 69 67 68 74 3b 09 09 2f 2a 20 41 62 73 6f 6c  eight;../* Absol
0740: 75 74 65 20 64 69 6d 65 6e 73 69 6f 6e 73 20 66  ute dimensions f
0750: 6f 72 20 74 6b 77 69 6e 2e 20 2a 2f 0a 20 20 20  or tkwin. */.   
0760: 20 66 6c 6f 61 74 20 72 65 6c 57 69 64 74 68 2c   float relWidth,
0770: 20 72 65 6c 48 65 69 67 68 74 3b 09 2f 2a 20 44   relHeight;./* D
0780: 69 6d 65 6e 73 69 6f 6e 73 20 66 6f 72 20 74 6b  imensions for tk
0790: 77 69 6e 20 72 65 6c 61 74 69 76 65 20 74 6f 20  win relative to 
07a0: 73 69 7a 65 20 6f 66 0a 09 09 09 09 20 2a 20 6d  size of..... * m
07b0: 61 73 74 65 72 2e 20 2a 2f 0a 20 20 20 20 54 6b  aster. */.    Tk
07c0: 5f 41 6e 63 68 6f 72 20 61 6e 63 68 6f 72 3b 09  _Anchor anchor;.
07d0: 09 2f 2a 20 57 68 69 63 68 20 70 6f 69 6e 74 20  ./* Which point 
07e0: 6f 6e 20 74 6b 77 69 6e 20 69 73 20 70 6c 61 63  on tkwin is plac
07f0: 65 64 20 61 74 20 74 68 65 0a 09 09 09 09 20 2a  ed at the..... *
0800: 20 67 69 76 65 6e 20 70 6f 73 69 74 69 6f 6e 2e   given position.
0810: 20 2a 2f 0a 20 20 20 20 42 6f 72 64 65 72 4d 6f   */.    BorderMo
0820: 64 65 20 62 6f 72 64 65 72 4d 6f 64 65 3b 09 2f  de borderMode;./
0830: 2a 20 48 6f 77 20 74 6f 20 74 72 65 61 74 20 62  * How to treat b
0840: 6f 72 64 65 72 73 20 6f 66 20 6d 61 73 74 65 72  orders of master
0850: 20 77 69 6e 64 6f 77 2e 20 2a 2f 0a 20 20 20 20   window. */.    
0860: 69 6e 74 20 66 6c 61 67 73 3b 09 09 09 2f 2a 20  int flags;.../* 
0870: 56 61 72 69 6f 75 73 20 66 6c 61 67 73 3b 20 20  Various flags;  
0880: 73 65 65 20 62 65 6c 6f 77 20 66 6f 72 20 62 69  see below for bi
0890: 74 0a 09 09 09 09 20 2a 20 64 65 66 69 6e 69 74  t..... * definit
08a0: 69 6f 6e 73 2e 20 2a 2f 0a 7d 20 53 6c 61 76 65  ions. */.} Slave
08b0: 3b 0a 0a 2f 2a 0a 20 2a 20 46 6c 61 67 20 64 65  ;../*. * Flag de
08c0: 66 69 6e 69 74 69 6f 6e 73 20 66 6f 72 20 53 6c  finitions for Sl
08d0: 61 76 65 20 73 74 72 75 63 74 75 72 65 73 3a 0a  ave structures:.
08e0: 20 2a 0a 20 2a 20 43 48 49 4c 44 5f 57 49 44 54   *. * CHILD_WIDT
08f0: 48 20 2d 09 09 31 20 6d 65 61 6e 73 20 2d 77 69  H -..1 means -wi
0900: 64 74 68 20 77 61 73 20 73 70 65 63 69 66 69 65  dth was specifie
0910: 64 3b 0a 20 2a 20 43 48 49 4c 44 5f 52 45 4c 5f  d;. * CHILD_REL_
0920: 57 49 44 54 48 20 2d 09 09 31 20 6d 65 61 6e 73  WIDTH -..1 means
0930: 20 2d 72 65 6c 77 69 64 74 68 20 77 61 73 20 73   -relwidth was s
0940: 70 65 63 69 66 69 65 64 2e 0a 20 2a 20 43 48 49  pecified.. * CHI
0950: 4c 44 5f 48 45 49 47 48 54 20 2d 09 09 31 20 6d  LD_HEIGHT -..1 m
0960: 65 61 6e 73 20 2d 68 65 69 67 68 74 20 77 61 73  eans -height was
0970: 20 73 70 65 63 69 66 69 65 64 3b 0a 20 2a 20 43   specified;. * C
0980: 48 49 4c 44 5f 52 45 4c 5f 48 45 49 47 48 54 20  HILD_REL_HEIGHT 
0990: 2d 09 09 31 20 6d 65 61 6e 73 20 2d 72 65 6c 68  -..1 means -relh
09a0: 65 69 67 68 74 20 77 61 73 20 73 70 65 63 69 66  eight was specif
09b0: 69 65 64 2e 0a 20 2a 2f 0a 0a 23 64 65 66 69 6e  ied.. */..#defin
09c0: 65 20 43 48 49 4c 44 5f 57 49 44 54 48 09 09 31  e CHILD_WIDTH..1
09d0: 0a 23 64 65 66 69 6e 65 20 43 48 49 4c 44 5f 52  .#define CHILD_R
09e0: 45 4c 5f 57 49 44 54 48 09 09 32 0a 23 64 65 66  EL_WIDTH..2.#def
09f0: 69 6e 65 20 43 48 49 4c 44 5f 48 45 49 47 48 54  ine CHILD_HEIGHT
0a00: 09 09 34 0a 23 64 65 66 69 6e 65 20 43 48 49 4c  ..4.#define CHIL
0a10: 44 5f 52 45 4c 5f 48 45 49 47 48 54 09 38 0a 0a  D_REL_HEIGHT.8..
0a20: 2f 2a 0a 20 2a 20 46 6f 72 20 65 61 63 68 20 6d  /*. * For each m
0a30: 61 73 74 65 72 20 77 69 6e 64 6f 77 20 74 68 61  aster window tha
0a40: 74 20 68 61 73 20 61 20 73 6c 61 76 65 20 6d 61  t has a slave ma
0a50: 6e 61 67 65 64 20 62 79 20 74 68 65 20 70 6c 61  naged by the pla
0a60: 63 65 72 20 74 68 65 72 65 0a 20 2a 20 69 73 20  cer there. * is 
0a70: 61 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 74  a structure of t
0a80: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 6f 72  he following for
0a90: 6d 3a 0a 20 2a 2f 0a 0a 74 79 70 65 64 65 66 20  m:. */..typedef 
0aa0: 73 74 72 75 63 74 20 4d 61 73 74 65 72 20 7b 0a  struct Master {.
0ab0: 20 20 20 20 54 6b 5f 57 69 6e 64 6f 77 20 74 6b      Tk_Window tk
0ac0: 77 69 6e 3b 09 09 2f 2a 20 54 6b 27 73 20 74 6f  win;../* Tk's to
0ad0: 6b 65 6e 20 66 6f 72 20 6d 61 73 74 65 72 20 77  ken for master w
0ae0: 69 6e 64 6f 77 2e 20 2a 2f 0a 20 20 20 20 73 74  indow. */.    st
0af0: 72 75 63 74 20 53 6c 61 76 65 20 2a 73 6c 61 76  ruct Slave *slav
0b00: 65 50 74 72 3b 09 2f 2a 20 46 69 72 73 74 20 69  ePtr;./* First i
0b10: 6e 20 6c 69 6e 6b 65 64 20 6c 69 73 74 20 6f 66  n linked list of
0b20: 20 73 6c 61 76 65 73 0a 09 09 09 09 20 2a 20 70   slaves..... * p
0b30: 6c 61 63 65 64 20 72 65 6c 61 74 69 76 65 20 74  laced relative t
0b40: 6f 20 74 68 69 73 20 6d 61 73 74 65 72 2e 20 2a  o this master. *
0b50: 2f 0a 20 20 20 20 69 6e 74 20 66 6c 61 67 73 3b  /.    int flags;
0b60: 09 09 09 2f 2a 20 53 65 65 20 62 65 6c 6f 77 20  .../* See below 
0b70: 66 6f 72 20 62 69 74 20 64 65 66 69 6e 69 74 69  for bit definiti
0b80: 6f 6e 73 2e 20 2a 2f 0a 7d 20 4d 61 73 74 65 72  ons. */.} Master
0b90: 3b 0a 0a 2f 2a 0a 20 2a 20 46 6c 61 67 20 64 65  ;../*. * Flag de
0ba0: 66 69 6e 69 74 69 6f 6e 73 20 66 6f 72 20 6d 61  finitions for ma
0bb0: 73 74 65 72 73 3a 0a 20 2a 0a 20 2a 20 50 41 52  sters:. *. * PAR
0bc0: 45 4e 54 5f 52 45 43 4f 4e 46 49 47 5f 50 45 4e  ENT_RECONFIG_PEN
0bd0: 44 49 4e 47 20 2d 09 31 20 6d 65 61 6e 73 20 74  DING -.1 means t
0be0: 68 61 74 20 61 20 63 61 6c 6c 20 74 6f 20 52 65  hat a call to Re
0bf0: 63 6f 6d 70 75 74 65 50 6c 61 63 65 6d 65 6e 74  computePlacement
0c00: 0a 20 2a 09 09 09 09 69 73 20 61 6c 72 65 61 64  . *....is alread
0c10: 79 20 70 65 6e 64 69 6e 67 20 76 69 61 20 61 20  y pending via a 
0c20: 44 6f 5f 57 68 65 6e 5f 49 64 6c 65 20 68 61 6e  Do_When_Idle han
0c30: 64 6c 65 72 2e 0a 20 2a 2f 0a 0a 23 64 65 66 69  dler.. */..#defi
0c40: 6e 65 20 50 41 52 45 4e 54 5f 52 45 43 4f 4e 46  ne PARENT_RECONF
0c50: 49 47 5f 50 45 4e 44 49 4e 47 09 31 0a 0a 2f 2a  IG_PENDING.1../*
0c60: 0a 20 2a 20 54 68 65 20 68 61 73 68 20 74 61 62  . * The hash tab
0c70: 6c 65 73 20 62 65 6c 6f 77 20 62 6f 74 68 20 75  les below both u
0c80: 73 65 20 54 6b 5f 57 69 6e 64 6f 77 20 74 6f 6b  se Tk_Window tok
0c90: 65 6e 73 20 61 73 20 6b 65 79 73 2e 20 20 54 68  ens as keys.  Th
0ca0: 65 79 20 6d 61 70 0a 20 2a 20 66 72 6f 6d 20 54  ey map. * from T
0cb0: 6b 5f 57 69 6e 64 6f 77 73 20 74 6f 20 53 6c 61  k_Windows to Sla
0cc0: 76 65 20 61 6e 64 20 4d 61 73 74 65 72 20 73 74  ve and Master st
0cd0: 72 75 63 74 75 72 65 73 20 66 6f 72 20 77 69 6e  ructures for win
0ce0: 64 6f 77 73 2c 20 69 66 20 74 68 65 79 0a 20 2a  dows, if they. *
0cf0: 20 65 78 69 73 74 2e 0a 20 2a 2f 0a 0a 73 74 61   exist.. */..sta
0d00: 74 69 63 20 69 6e 74 20 69 6e 69 74 69 61 6c 69  tic int initiali
0d10: 7a 65 64 20 3d 20 30 3b 0a 73 74 61 74 69 63 20  zed = 0;.static 
0d20: 54 63 6c 5f 48 61 73 68 54 61 62 6c 65 20 6d 61  Tcl_HashTable ma
0d30: 73 74 65 72 54 61 62 6c 65 3b 0a 73 74 61 74 69  sterTable;.stati
0d40: 63 20 54 63 6c 5f 48 61 73 68 54 61 62 6c 65 20  c Tcl_HashTable 
0d50: 73 6c 61 76 65 54 61 62 6c 65 3b 0a 2f 2a 0a 20  slaveTable;./*. 
0d60: 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20  * The following 
0d70: 73 74 72 75 63 74 75 72 65 20 69 73 20 74 68 65  structure is the
0d80: 20 6f 66 66 69 63 69 61 6c 20 74 79 70 65 20 72   official type r
0d90: 65 63 6f 72 64 20 66 6f 72 20 74 68 65 0a 20 2a  ecord for the. *
0da0: 20 70 6c 61 63 65 72 3a 0a 20 2a 2f 0a 0a 73 74   placer:. */..st
0db0: 61 74 69 63 20 76 6f 69 64 09 09 50 6c 61 63 65  atic void..Place
0dc0: 52 65 71 75 65 73 74 50 72 6f 63 20 5f 41 4e 53  RequestProc _ANS
0dd0: 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e 74 44  I_ARGS_((ClientD
0de0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a  ata clientData,.
0df0: 09 09 09 20 20 20 20 54 6b 5f 57 69 6e 64 6f 77  ...    Tk_Window
0e00: 20 74 6b 77 69 6e 29 29 3b 0a 73 74 61 74 69 63   tkwin));.static
0e10: 20 76 6f 69 64 09 09 50 6c 61 63 65 4c 6f 73 74   void..PlaceLost
0e20: 53 6c 61 76 65 50 72 6f 63 20 5f 41 4e 53 49 5f  SlaveProc _ANSI_
0e30: 41 52 47 53 5f 28 28 43 6c 69 65 6e 74 44 61 74  ARGS_((ClientDat
0e40: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09  a clientData,...
0e50: 09 20 20 20 20 54 6b 5f 57 69 6e 64 6f 77 20 74  .    Tk_Window t
0e60: 6b 77 69 6e 29 29 3b 0a 0a 73 74 61 74 69 63 20  kwin));..static 
0e70: 54 6b 5f 47 65 6f 6d 4d 67 72 20 70 6c 61 63 65  Tk_GeomMgr place
0e80: 72 54 79 70 65 20 3d 20 7b 0a 20 20 20 20 22 70  rType = {.    "p
0e90: 6c 61 63 65 22 2c 09 09 09 09 2f 2a 20 6e 61 6d  lace",..../* nam
0ea0: 65 20 2a 2f 0a 20 20 20 20 50 6c 61 63 65 52 65  e */.    PlaceRe
0eb0: 71 75 65 73 74 50 72 6f 63 2c 09 09 09 2f 2a 20  questProc,.../* 
0ec0: 72 65 71 75 65 73 74 50 72 6f 63 20 2a 2f 0a 20  requestProc */. 
0ed0: 20 20 20 50 6c 61 63 65 4c 6f 73 74 53 6c 61 76     PlaceLostSlav
0ee0: 65 50 72 6f 63 2c 09 09 09 2f 2a 20 6c 6f 73 74  eProc,.../* lost
0ef0: 53 6c 61 76 65 50 72 6f 63 20 2a 2f 0a 7d 3b 0a  SlaveProc */.};.
0f00: 0a 2f 2a 0a 20 2a 20 46 6f 72 77 61 72 64 20 64  ./*. * Forward d
0f10: 65 63 6c 61 72 61 74 69 6f 6e 73 20 66 6f 72 20  eclarations for 
0f20: 70 72 6f 63 65 64 75 72 65 73 20 64 65 66 69 6e  procedures defin
0f30: 65 64 20 6c 61 74 65 72 20 69 6e 20 74 68 69 73  ed later in this
0f40: 20 66 69 6c 65 3a 0a 20 2a 2f 0a 0a 73 74 61 74   file:. */..stat
0f50: 69 63 20 76 6f 69 64 09 09 53 6c 61 76 65 53 74  ic void..SlaveSt
0f60: 72 75 63 74 75 72 65 50 72 6f 63 20 5f 41 4e 53  ructureProc _ANS
0f70: 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e 74 44  I_ARGS_((ClientD
0f80: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a  ata clientData,.
0f90: 09 09 09 20 20 20 20 58 45 76 65 6e 74 20 2a 65  ...    XEvent *e
0fa0: 76 65 6e 74 50 74 72 29 29 3b 0a 73 74 61 74 69  ventPtr));.stati
0fb0: 63 20 69 6e 74 09 09 43 6f 6e 66 69 67 75 72 65  c int..Configure
0fc0: 53 6c 61 76 65 20 5f 41 4e 53 49 5f 41 52 47 53  Slave _ANSI_ARGS
0fd0: 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  _((Tcl_Interp *i
0fe0: 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20 53 6c  nterp,....    Sl
0ff0: 61 76 65 20 2a 73 6c 61 76 65 50 74 72 2c 20 69  ave *slavePtr, i
1000: 6e 74 20 61 72 67 63 2c 20 63 68 61 72 20 2a 2a  nt argc, char **
1010: 61 72 67 76 29 29 3b 0a 73 74 61 74 69 63 20 53  argv));.static S
1020: 6c 61 76 65 20 2a 09 09 46 69 6e 64 53 6c 61 76  lave *..FindSlav
1030: 65 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54  e _ANSI_ARGS_((T
1040: 6b 5f 57 69 6e 64 6f 77 20 74 6b 77 69 6e 29 29  k_Window tkwin))
1050: 3b 0a 73 74 61 74 69 63 20 4d 61 73 74 65 72 20  ;.static Master 
1060: 2a 09 09 46 69 6e 64 4d 61 73 74 65 72 20 5f 41  *..FindMaster _A
1070: 4e 53 49 5f 41 52 47 53 5f 28 28 54 6b 5f 57 69  NSI_ARGS_((Tk_Wi
1080: 6e 64 6f 77 20 74 6b 77 69 6e 29 29 3b 0a 73 74  ndow tkwin));.st
1090: 61 74 69 63 20 76 6f 69 64 09 09 4d 61 73 74 65  atic void..Maste
10a0: 72 53 74 72 75 63 74 75 72 65 50 72 6f 63 20 5f  rStructureProc _
10b0: 41 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 65  ANSI_ARGS_((Clie
10c0: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74  ntData clientDat
10d0: 61 2c 0a 09 09 09 20 20 20 20 58 45 76 65 6e 74  a,....    XEvent
10e0: 20 2a 65 76 65 6e 74 50 74 72 29 29 3b 0a 73 74   *eventPtr));.st
10f0: 61 74 69 63 20 76 6f 69 64 09 09 52 65 63 6f 6d  atic void..Recom
1100: 70 75 74 65 50 6c 61 63 65 6d 65 6e 74 20 5f 41  putePlacement _A
1110: 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e  NSI_ARGS_((Clien
1120: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61  tData clientData
1130: 29 29 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 09  ));.static void.
1140: 09 55 6e 6c 69 6e 6b 53 6c 61 76 65 20 5f 41 4e  .UnlinkSlave _AN
1150: 53 49 5f 41 52 47 53 5f 28 28 53 6c 61 76 65 20  SI_ARGS_((Slave 
1160: 2a 73 6c 61 76 65 50 74 72 29 29 3b 0a 0c 0a 2f  *slavePtr));.../
1170: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
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 0a 20 2a 0a 20 2a 20 54 6b 5f 50 6c 61 63  --. *. * Tk_Plac
11c0: 65 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68  eCmd --. *. *.Th
11d0: 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20  is procedure is 
11e0: 69 6e 76 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65  invoked to proce
11f0: 73 73 20 74 68 65 20 22 70 6c 61 63 65 22 20 54  ss the "place" T
1200: 63 6c 0a 20 2a 09 63 6f 6d 6d 61 6e 64 73 2e 20  cl. *.commands. 
1210: 20 53 65 65 20 74 68 65 20 75 73 65 72 20 64 6f   See the user do
1220: 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20  cumentation for 
1230: 64 65 74 61 69 6c 73 20 6f 6e 0a 20 2a 09 77 68  details on. *.wh
1240: 61 74 20 69 74 20 64 6f 65 73 2e 0a 20 2a 0a 20  at it does.. *. 
1250: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20  * Results:. *.A 
1260: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73  standard Tcl res
1270: 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20  ult.. *. * Side 
1280: 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 65 20  effects:. *.See 
1290: 74 68 65 20 75 73 65 72 20 64 6f 63 75 6d 65 6e  the user documen
12a0: 74 61 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 2d 2d 2d  tation.. *. *---
12b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
12c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
12d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
12e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a  -----------. */.
12f0: 0a 69 6e 74 0a 54 6b 5f 50 6c 61 63 65 43 6d 64  .int.Tk_PlaceCmd
1300: 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74  (clientData, int
1310: 65 72 70 2c 20 61 72 67 63 2c 20 61 72 67 76 29  erp, argc, argv)
1320: 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20  .    ClientData 
1330: 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4d  clientData;./* M
1340: 61 69 6e 20 77 69 6e 64 6f 77 20 61 73 73 6f 63  ain window assoc
1350: 69 61 74 65 64 20 77 69 74 68 20 69 6e 74 65 72  iated with inter
1360: 70 72 65 74 65 72 2e 20 2a 2f 0a 20 20 20 20 54  preter. */.    T
1370: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
1380: 70 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 69  p;../* Current i
1390: 6e 74 65 72 70 72 65 74 65 72 2e 20 2a 2f 0a 20  nterpreter. */. 
13a0: 20 20 20 69 6e 74 20 61 72 67 63 3b 09 09 09 2f     int argc;.../
13b0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75  * Number of argu
13c0: 6d 65 6e 74 73 2e 20 2a 2f 0a 20 20 20 20 63 68  ments. */.    ch
13d0: 61 72 20 2a 2a 61 72 67 76 3b 09 09 2f 2a 20 41  ar **argv;../* A
13e0: 72 67 75 6d 65 6e 74 20 73 74 72 69 6e 67 73 2e  rgument strings.
13f0: 20 2a 2f 0a 7b 0a 20 20 20 20 54 6b 5f 57 69 6e   */.{.    Tk_Win
1400: 64 6f 77 20 74 6b 77 69 6e 3b 0a 20 20 20 20 53  dow tkwin;.    S
1410: 6c 61 76 65 20 2a 73 6c 61 76 65 50 74 72 3b 0a  lave *slavePtr;.
1420: 20 20 20 20 54 63 6c 5f 48 61 73 68 45 6e 74 72      Tcl_HashEntr
1430: 79 20 2a 68 50 74 72 3b 0a 20 20 20 20 73 69 7a  y *hPtr;.    siz
1440: 65 5f 74 20 6c 65 6e 67 74 68 3b 0a 20 20 20 20  e_t length;.    
1450: 69 6e 74 20 63 3b 0a 0a 20 20 20 20 2f 2a 0a 20  int c;..    /*. 
1460: 20 20 20 20 2a 20 49 6e 69 74 69 61 6c 69 7a 65      * Initialize
1470: 2c 20 69 66 20 74 68 61 74 20 68 61 73 6e 27 74  , if that hasn't
1480: 20 62 65 65 6e 20 64 6f 6e 65 20 79 65 74 2e 0a   been done yet..
1490: 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20       */..    if 
14a0: 28 21 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b  (!initialized) {
14b0: 0a 09 54 63 6c 5f 49 6e 69 74 48 61 73 68 54 61  ..Tcl_InitHashTa
14c0: 62 6c 65 28 26 6d 61 73 74 65 72 54 61 62 6c 65  ble(&masterTable
14d0: 2c 20 54 43 4c 5f 4f 4e 45 5f 57 4f 52 44 5f 4b  , TCL_ONE_WORD_K
14e0: 45 59 53 29 3b 0a 09 54 63 6c 5f 49 6e 69 74 48  EYS);..Tcl_InitH
14f0: 61 73 68 54 61 62 6c 65 28 26 73 6c 61 76 65 54  ashTable(&slaveT
1500: 61 62 6c 65 2c 20 54 43 4c 5f 4f 4e 45 5f 57 4f  able, TCL_ONE_WO
1510: 52 44 5f 4b 45 59 53 29 3b 0a 09 69 6e 69 74 69  RD_KEYS);..initi
1520: 61 6c 69 7a 65 64 20 3d 20 31 3b 0a 20 20 20 20  alized = 1;.    
1530: 7d 0a 0a 20 20 20 20 69 66 20 28 61 72 67 63 20  }..    if (argc 
1540: 3c 20 33 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65  < 3) {..Tcl_Appe
1550: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
1560: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20   "wrong # args: 
1570: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 09  should be \"",..
1580: 09 61 72 67 76 5b 30 5d 2c 20 22 20 6f 70 74 69  .argv[0], " opti
1590: 6f 6e 7c 70 61 74 68 4e 61 6d 65 20 61 72 67 73  on|pathName args
15a0: 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c  ", (char *) NULL
15b0: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45  );..return TCL_E
15c0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20  RROR;.    }.    
15d0: 63 20 3d 20 61 72 67 76 5b 31 5d 5b 30 5d 3b 0a  c = argv[1][0];.
15e0: 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 73 74 72      length = str
15f0: 6c 65 6e 28 61 72 67 76 5b 31 5d 29 3b 0a 0a 20  len(argv[1]);.. 
1600: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 48 61 6e     /*.     * Han
1610: 64 6c 65 20 73 70 65 63 69 61 6c 20 73 68 6f 72  dle special shor
1620: 74 63 75 74 20 77 68 65 72 65 20 77 69 6e 64 6f  tcut where windo
1630: 77 20 6e 61 6d 65 20 69 73 20 66 69 72 73 74 20  w name is first 
1640: 61 72 67 75 6d 65 6e 74 2e 0a 20 20 20 20 20 2a  argument..     *
1650: 2f 0a 0a 20 20 20 20 69 66 20 28 63 20 3d 3d 20  /..    if (c == 
1660: 27 2e 27 29 20 7b 0a 09 74 6b 77 69 6e 20 3d 20  '.') {..tkwin = 
1670: 54 6b 5f 4e 61 6d 65 54 6f 57 69 6e 64 6f 77 28  Tk_NameToWindow(
1680: 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c  interp, argv[1],
1690: 20 28 54 6b 5f 57 69 6e 64 6f 77 29 20 63 6c 69   (Tk_Window) cli
16a0: 65 6e 74 44 61 74 61 29 3b 0a 09 69 66 20 28 74  entData);..if (t
16b0: 6b 77 69 6e 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  kwin == NULL) {.
16c0: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
16d0: 45 52 52 4f 52 3b 0a 09 7d 0a 09 73 6c 61 76 65  ERROR;..}..slave
16e0: 50 74 72 20 3d 20 46 69 6e 64 53 6c 61 76 65 28  Ptr = FindSlave(
16f0: 74 6b 77 69 6e 29 3b 0a 09 72 65 74 75 72 6e 20  tkwin);..return 
1700: 43 6f 6e 66 69 67 75 72 65 53 6c 61 76 65 28 69  ConfigureSlave(i
1710: 6e 74 65 72 70 2c 20 73 6c 61 76 65 50 74 72 2c  nterp, slavePtr,
1720: 20 61 72 67 63 2d 32 2c 20 61 72 67 76 2b 32 29   argc-2, argv+2)
1730: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a  ;.    }..    /*.
1740: 20 20 20 20 20 2a 20 48 61 6e 64 6c 65 20 6d 6f       * Handle mo
1750: 72 65 20 67 65 6e 65 72 61 6c 20 63 61 73 65 20  re general case 
1760: 6f 66 20 6f 70 74 69 6f 6e 20 66 6f 6c 6c 6f 77  of option follow
1770: 65 64 20 62 79 20 77 69 6e 64 6f 77 20 6e 61 6d  ed by window nam
1780: 65 20 66 6f 6c 6c 6f 77 65 64 0a 20 20 20 20 20  e followed.     
1790: 2a 20 62 79 20 70 6f 73 73 69 62 6c 65 20 61 64  * by possible ad
17a0: 64 69 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e  ditional argumen
17b0: 74 73 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20  ts..     */..   
17c0: 20 74 6b 77 69 6e 20 3d 20 54 6b 5f 4e 61 6d 65   tkwin = Tk_Name
17d0: 54 6f 57 69 6e 64 6f 77 28 69 6e 74 65 72 70 2c  ToWindow(interp,
17e0: 20 61 72 67 76 5b 32 5d 2c 20 28 54 6b 5f 57 69   argv[2], (Tk_Wi
17f0: 6e 64 6f 77 29 20 63 6c 69 65 6e 74 44 61 74 61  ndow) clientData
1800: 29 3b 0a 20 20 20 20 69 66 20 28 74 6b 77 69 6e  );.    if (tkwin
1810: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74   == NULL) {..ret
1820: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
1830: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 28 63 20     }.    if ((c 
1840: 3d 3d 20 27 63 27 29 20 26 26 20 28 73 74 72 6e  == 'c') && (strn
1850: 63 6d 70 28 61 72 67 76 5b 31 5d 2c 20 22 63 6f  cmp(argv[1], "co
1860: 6e 66 69 67 75 72 65 22 2c 20 6c 65 6e 67 74 68  nfigure", length
1870: 29 20 3d 3d 20 30 29 29 20 7b 0a 09 69 66 20 28  ) == 0)) {..if (
1880: 61 72 67 63 20 3c 20 35 29 20 7b 0a 09 20 20 20  argc < 5) {..   
1890: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
18a0: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67  t(interp, "wrong
18b0: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20   # args: should 
18c0: 62 65 20 5c 22 22 2c 0a 09 09 20 20 20 20 61 72  be \"",...    ar
18d0: 67 76 5b 30 5d 2c 0a 09 09 20 20 20 20 22 20 63  gv[0],...    " c
18e0: 6f 6e 66 69 67 75 72 65 20 70 61 74 68 4e 61 6d  onfigure pathNam
18f0: 65 20 6f 70 74 69 6f 6e 20 76 61 6c 75 65 20 3f  e option value ?
1900: 6f 70 74 69 6f 6e 20 76 61 6c 75 65 20 2e 2e 2e  option value ...
1910: 3f 5c 22 22 2c 0a 09 09 20 20 20 20 28 63 68 61  ?\"",...    (cha
1920: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20  r *) NULL);..   
1930: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
1940: 52 3b 0a 09 7d 0a 09 73 6c 61 76 65 50 74 72 20  R;..}..slavePtr 
1950: 3d 20 46 69 6e 64 53 6c 61 76 65 28 74 6b 77 69  = FindSlave(tkwi
1960: 6e 29 3b 0a 09 72 65 74 75 72 6e 20 43 6f 6e 66  n);..return Conf
1970: 69 67 75 72 65 53 6c 61 76 65 28 69 6e 74 65 72  igureSlave(inter
1980: 70 2c 20 73 6c 61 76 65 50 74 72 2c 20 61 72 67  p, slavePtr, arg
1990: 63 2d 33 2c 20 61 72 67 76 2b 33 29 3b 0a 20 20  c-3, argv+3);.  
19a0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 28 63 20    } else if ((c 
19b0: 3d 3d 20 27 66 27 29 20 26 26 20 28 73 74 72 6e  == 'f') && (strn
19c0: 63 6d 70 28 61 72 67 76 5b 31 5d 2c 20 22 66 6f  cmp(argv[1], "fo
19d0: 72 67 65 74 22 2c 20 6c 65 6e 67 74 68 29 20 3d  rget", length) =
19e0: 3d 20 30 29 29 20 7b 0a 09 69 66 20 28 61 72 67  = 0)) {..if (arg
19f0: 63 20 21 3d 20 33 29 20 7b 0a 09 20 20 20 20 54  c != 3) {..    T
1a00: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
1a10: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23  interp, "wrong #
1a20: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65   args: should be
1a30: 20 5c 22 22 2c 0a 09 09 20 20 20 20 61 72 67 76   \"",...    argv
1a40: 5b 30 5d 2c 20 22 20 66 6f 72 67 65 74 20 70 61  [0], " forget pa
1a50: 74 68 4e 61 6d 65 5c 22 22 2c 20 28 63 68 61 72  thName\"", (char
1a60: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20   *) NULL);..    
1a70: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
1a80: 3b 0a 09 7d 0a 09 68 50 74 72 20 3d 20 54 63 6c  ;..}..hPtr = Tcl
1a90: 5f 46 69 6e 64 48 61 73 68 45 6e 74 72 79 28 26  _FindHashEntry(&
1aa0: 73 6c 61 76 65 54 61 62 6c 65 2c 20 28 63 68 61  slaveTable, (cha
1ab0: 72 20 2a 29 20 74 6b 77 69 6e 29 3b 0a 09 69 66  r *) tkwin);..if
1ac0: 20 28 68 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20   (hPtr == NULL) 
1ad0: 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43  {..    return TC
1ae0: 4c 5f 4f 4b 3b 0a 09 7d 0a 09 73 6c 61 76 65 50  L_OK;..}..slaveP
1af0: 74 72 20 3d 20 28 53 6c 61 76 65 20 2a 29 20 54  tr = (Slave *) T
1b00: 63 6c 5f 47 65 74 48 61 73 68 56 61 6c 75 65 28  cl_GetHashValue(
1b10: 68 50 74 72 29 3b 0a 09 69 66 20 28 28 73 6c 61  hPtr);..if ((sla
1b20: 76 65 50 74 72 2d 3e 6d 61 73 74 65 72 50 74 72  vePtr->masterPtr
1b30: 20 21 3d 20 4e 55 4c 4c 29 20 26 26 0a 09 09 28   != NULL) &&...(
1b40: 73 6c 61 76 65 50 74 72 2d 3e 6d 61 73 74 65 72  slavePtr->master
1b50: 50 74 72 2d 3e 74 6b 77 69 6e 20 21 3d 20 54 6b  Ptr->tkwin != Tk
1b60: 5f 50 61 72 65 6e 74 28 73 6c 61 76 65 50 74 72  _Parent(slavePtr
1b70: 2d 3e 74 6b 77 69 6e 29 29 29 20 7b 0a 09 20 20  ->tkwin))) {..  
1b80: 20 20 54 6b 5f 55 6e 6d 61 69 6e 74 61 69 6e 47    Tk_UnmaintainG
1b90: 65 6f 6d 65 74 72 79 28 73 6c 61 76 65 50 74 72  eometry(slavePtr
1ba0: 2d 3e 74 6b 77 69 6e 2c 0a 09 09 20 20 20 20 73  ->tkwin,...    s
1bb0: 6c 61 76 65 50 74 72 2d 3e 6d 61 73 74 65 72 50  lavePtr->masterP
1bc0: 74 72 2d 3e 74 6b 77 69 6e 29 3b 0a 09 7d 0a 09  tr->tkwin);..}..
1bd0: 55 6e 6c 69 6e 6b 53 6c 61 76 65 28 73 6c 61 76  UnlinkSlave(slav
1be0: 65 50 74 72 29 3b 0a 09 54 63 6c 5f 44 65 6c 65  ePtr);..Tcl_Dele
1bf0: 74 65 48 61 73 68 45 6e 74 72 79 28 68 50 74 72  teHashEntry(hPtr
1c00: 29 3b 0a 09 54 6b 5f 44 65 6c 65 74 65 45 76 65  );..Tk_DeleteEve
1c10: 6e 74 48 61 6e 64 6c 65 72 28 74 6b 77 69 6e 2c  ntHandler(tkwin,
1c20: 20 53 74 72 75 63 74 75 72 65 4e 6f 74 69 66 79   StructureNotify
1c30: 4d 61 73 6b 2c 20 53 6c 61 76 65 53 74 72 75 63  Mask, SlaveStruc
1c40: 74 75 72 65 50 72 6f 63 2c 0a 09 09 28 43 6c 69  tureProc,...(Cli
1c50: 65 6e 74 44 61 74 61 29 20 73 6c 61 76 65 50 74  entData) slavePt
1c60: 72 29 3b 0a 09 54 6b 5f 4d 61 6e 61 67 65 47 65  r);..Tk_ManageGe
1c70: 6f 6d 65 74 72 79 28 74 6b 77 69 6e 2c 20 28 54  ometry(tkwin, (T
1c80: 6b 5f 47 65 6f 6d 4d 67 72 20 2a 29 20 4e 55 4c  k_GeomMgr *) NUL
1c90: 4c 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20  L, (ClientData) 
1ca0: 4e 55 4c 4c 29 3b 0a 09 54 6b 5f 55 6e 6d 61 70  NULL);..Tk_Unmap
1cb0: 57 69 6e 64 6f 77 28 74 6b 77 69 6e 29 3b 0a 09  Window(tkwin);..
1cc0: 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29 20  ckfree((char *) 
1cd0: 73 6c 61 76 65 50 74 72 29 3b 0a 20 20 20 20 7d  slavePtr);.    }
1ce0: 20 65 6c 73 65 20 69 66 20 28 28 63 20 3d 3d 20   else if ((c == 
1cf0: 27 69 27 29 20 26 26 20 28 73 74 72 6e 63 6d 70  'i') && (strncmp
1d00: 28 61 72 67 76 5b 31 5d 2c 20 22 69 6e 66 6f 22  (argv[1], "info"
1d10: 2c 20 6c 65 6e 67 74 68 29 20 3d 3d 20 30 29 29  , length) == 0))
1d20: 20 7b 0a 09 63 68 61 72 20 62 75 66 66 65 72 5b   {..char buffer[
1d30: 35 30 5d 3b 0a 0a 09 69 66 20 28 61 72 67 63 20  50];...if (argc 
1d40: 21 3d 20 33 29 20 7b 0a 09 20 20 20 20 54 63 6c  != 3) {..    Tcl
1d50: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
1d60: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61  terp, "wrong # a
1d70: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c  rgs: should be \
1d80: 22 22 2c 0a 09 09 20 20 20 20 61 72 67 76 5b 30  "",...    argv[0
1d90: 5d 2c 20 22 20 69 6e 66 6f 20 70 61 74 68 4e 61  ], " info pathNa
1da0: 6d 65 5c 22 22 2c 20 28 63 68 61 72 20 2a 29 20  me\"", (char *) 
1db0: 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 75  NULL);..    retu
1dc0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d  rn TCL_ERROR;..}
1dd0: 0a 09 68 50 74 72 20 3d 20 54 63 6c 5f 46 69 6e  ..hPtr = Tcl_Fin
1de0: 64 48 61 73 68 45 6e 74 72 79 28 26 73 6c 61 76  dHashEntry(&slav
1df0: 65 54 61 62 6c 65 2c 20 28 63 68 61 72 20 2a 29  eTable, (char *)
1e00: 20 74 6b 77 69 6e 29 3b 0a 09 69 66 20 28 68 50   tkwin);..if (hP
1e10: 74 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20  tr == NULL) {.. 
1e20: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b     return TCL_OK
1e30: 3b 0a 09 7d 0a 09 73 6c 61 76 65 50 74 72 20 3d  ;..}..slavePtr =
1e40: 20 28 53 6c 61 76 65 20 2a 29 20 54 63 6c 5f 47   (Slave *) Tcl_G
1e50: 65 74 48 61 73 68 56 61 6c 75 65 28 68 50 74 72  etHashValue(hPtr
1e60: 29 3b 0a 09 73 70 72 69 6e 74 66 28 62 75 66 66  );..sprintf(buff
1e70: 65 72 2c 20 22 2d 78 20 25 64 22 2c 20 73 6c 61  er, "-x %d", sla
1e80: 76 65 50 74 72 2d 3e 78 29 3b 0a 09 54 63 6c 5f  vePtr->x);..Tcl_
1e90: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
1ea0: 65 72 70 2c 20 62 75 66 66 65 72 2c 20 28 63 68  erp, buffer, (ch
1eb0: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 73 70  ar *) NULL);..sp
1ec0: 72 69 6e 74 66 28 62 75 66 66 65 72 2c 20 22 20  rintf(buffer, " 
1ed0: 2d 72 65 6c 78 20 25 2e 34 67 22 2c 20 73 6c 61  -relx %.4g", sla
1ee0: 76 65 50 74 72 2d 3e 72 65 6c 58 29 3b 0a 09 54  vePtr->relX);..T
1ef0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
1f00: 69 6e 74 65 72 70 2c 20 62 75 66 66 65 72 2c 20  interp, buffer, 
1f10: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a  (char *) NULL);.
1f20: 09 73 70 72 69 6e 74 66 28 62 75 66 66 65 72 2c  .sprintf(buffer,
1f30: 20 22 20 2d 79 20 25 64 22 2c 20 73 6c 61 76 65   " -y %d", slave
1f40: 50 74 72 2d 3e 79 29 3b 0a 09 54 63 6c 5f 41 70  Ptr->y);..Tcl_Ap
1f50: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
1f60: 70 2c 20 62 75 66 66 65 72 2c 20 28 63 68 61 72  p, buffer, (char
1f70: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 73 70 72 69   *) NULL);..spri
1f80: 6e 74 66 28 62 75 66 66 65 72 2c 20 22 20 2d 72  ntf(buffer, " -r
1f90: 65 6c 79 20 25 2e 34 67 22 2c 20 73 6c 61 76 65  ely %.4g", slave
1fa0: 50 74 72 2d 3e 72 65 6c 59 29 3b 0a 09 54 63 6c  Ptr->relY);..Tcl
1fb0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
1fc0: 74 65 72 70 2c 20 62 75 66 66 65 72 2c 20 28 63  terp, buffer, (c
1fd0: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 69  har *) NULL);..i
1fe0: 66 20 28 73 6c 61 76 65 50 74 72 2d 3e 66 6c 61  f (slavePtr->fla
1ff0: 67 73 20 26 20 43 48 49 4c 44 5f 57 49 44 54 48  gs & CHILD_WIDTH
2000: 29 20 7b 0a 09 20 20 20 20 73 70 72 69 6e 74 66  ) {..    sprintf
2010: 28 62 75 66 66 65 72 2c 20 22 20 2d 77 69 64 74  (buffer, " -widt
2020: 68 20 25 64 22 2c 20 73 6c 61 76 65 50 74 72 2d  h %d", slavePtr-
2030: 3e 77 69 64 74 68 29 3b 0a 09 20 20 20 20 54 63  >width);..    Tc
2040: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
2050: 6e 74 65 72 70 2c 20 62 75 66 66 65 72 2c 20 28  nterp, buffer, (
2060: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09  char *) NULL);..
2070: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 54 63  } else {..    Tc
2080: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
2090: 6e 74 65 72 70 2c 20 22 20 2d 77 69 64 74 68 20  nterp, " -width 
20a0: 7b 7d 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55  {}", (char *) NU
20b0: 4c 4c 29 3b 0a 09 7d 0a 09 69 66 20 28 73 6c 61  LL);..}..if (sla
20c0: 76 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 43  vePtr->flags & C
20d0: 48 49 4c 44 5f 52 45 4c 5f 57 49 44 54 48 29 20  HILD_REL_WIDTH) 
20e0: 7b 0a 09 20 20 20 20 73 70 72 69 6e 74 66 28 62  {..    sprintf(b
20f0: 75 66 66 65 72 2c 20 22 20 2d 72 65 6c 77 69 64  uffer, " -relwid
2100: 74 68 20 25 2e 34 67 22 2c 20 73 6c 61 76 65 50  th %.4g", slaveP
2110: 74 72 2d 3e 72 65 6c 57 69 64 74 68 29 3b 0a 09  tr->relWidth);..
2120: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
2130: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 62 75 66  sult(interp, buf
2140: 66 65 72 2c 20 28 63 68 61 72 20 2a 29 20 4e 55  fer, (char *) NU
2150: 4c 4c 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09  LL);..} else {..
2160: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
2170: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 20 2d  sult(interp, " -
2180: 72 65 6c 77 69 64 74 68 20 7b 7d 22 2c 20 28 63  relwidth {}", (c
2190: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 7d  har *) NULL);..}
21a0: 0a 09 69 66 20 28 73 6c 61 76 65 50 74 72 2d 3e  ..if (slavePtr->
21b0: 66 6c 61 67 73 20 26 20 43 48 49 4c 44 5f 48 45  flags & CHILD_HE
21c0: 49 47 48 54 29 20 7b 0a 09 20 20 20 20 73 70 72  IGHT) {..    spr
21d0: 69 6e 74 66 28 62 75 66 66 65 72 2c 20 22 20 2d  intf(buffer, " -
21e0: 68 65 69 67 68 74 20 25 64 22 2c 20 73 6c 61 76  height %d", slav
21f0: 65 50 74 72 2d 3e 68 65 69 67 68 74 29 3b 0a 09  ePtr->height);..
2200: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
2210: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 62 75 66  sult(interp, buf
2220: 66 65 72 2c 20 28 63 68 61 72 20 2a 29 20 4e 55  fer, (char *) NU
2230: 4c 4c 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09  LL);..} else {..
2240: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
2250: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 20 2d  sult(interp, " -
2260: 68 65 69 67 68 74 20 7b 7d 22 2c 20 28 63 68 61  height {}", (cha
2270: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 7d 0a 09  r *) NULL);..}..
2280: 69 66 20 28 73 6c 61 76 65 50 74 72 2d 3e 66 6c  if (slavePtr->fl
2290: 61 67 73 20 26 20 43 48 49 4c 44 5f 52 45 4c 5f  ags & CHILD_REL_
22a0: 48 45 49 47 48 54 29 20 7b 0a 09 20 20 20 20 73  HEIGHT) {..    s
22b0: 70 72 69 6e 74 66 28 62 75 66 66 65 72 2c 20 22  printf(buffer, "
22c0: 20 2d 72 65 6c 68 65 69 67 68 74 20 25 2e 34 67   -relheight %.4g
22d0: 22 2c 20 73 6c 61 76 65 50 74 72 2d 3e 72 65 6c  ", slavePtr->rel
22e0: 48 65 69 67 68 74 29 3b 0a 09 20 20 20 20 54 63  Height);..    Tc
22f0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
2300: 6e 74 65 72 70 2c 20 62 75 66 66 65 72 2c 20 28  nterp, buffer, (
2310: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09  char *) NULL);..
2320: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 54 63  } else {..    Tc
2330: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
2340: 6e 74 65 72 70 2c 20 22 20 2d 72 65 6c 68 65 69  nterp, " -relhei
2350: 67 68 74 20 7b 7d 22 2c 20 28 63 68 61 72 20 2a  ght {}", (char *
2360: 29 20 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 54 63  ) NULL);..}...Tc
2370: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
2380: 6e 74 65 72 70 2c 20 22 20 2d 61 6e 63 68 6f 72  nterp, " -anchor
2390: 20 22 2c 20 54 6b 5f 4e 61 6d 65 4f 66 41 6e 63   ", Tk_NameOfAnc
23a0: 68 6f 72 28 73 6c 61 76 65 50 74 72 2d 3e 61 6e  hor(slavePtr->an
23b0: 63 68 6f 72 29 2c 0a 09 09 28 63 68 61 72 20 2a  chor),...(char *
23c0: 29 20 4e 55 4c 4c 29 3b 0a 09 69 66 20 28 73 6c  ) NULL);..if (sl
23d0: 61 76 65 50 74 72 2d 3e 62 6f 72 64 65 72 4d 6f  avePtr->borderMo
23e0: 64 65 20 3d 3d 20 42 4d 5f 4f 55 54 53 49 44 45  de == BM_OUTSIDE
23f0: 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70  ) {..    Tcl_App
2400: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
2410: 2c 20 22 20 2d 62 6f 72 64 65 72 6d 6f 64 65 20  , " -bordermode 
2420: 6f 75 74 73 69 64 65 22 2c 20 28 63 68 61 72 20  outside", (char 
2430: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 7d 20 65 6c 73  *) NULL);..} els
2440: 65 20 69 66 20 28 73 6c 61 76 65 50 74 72 2d 3e  e if (slavePtr->
2450: 62 6f 72 64 65 72 4d 6f 64 65 20 3d 3d 20 42 4d  borderMode == BM
2460: 5f 49 47 4e 4f 52 45 29 20 7b 0a 09 20 20 20 20  _IGNORE) {..    
2470: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
2480: 28 69 6e 74 65 72 70 2c 20 22 20 2d 62 6f 72 64  (interp, " -bord
2490: 65 72 6d 6f 64 65 20 69 67 6e 6f 72 65 22 2c 20  ermode ignore", 
24a0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a  (char *) NULL);.
24b0: 09 7d 0a 09 69 66 20 28 28 73 6c 61 76 65 50 74  .}..if ((slavePt
24c0: 72 2d 3e 6d 61 73 74 65 72 50 74 72 20 21 3d 20  r->masterPtr != 
24d0: 4e 55 4c 4c 29 0a 09 09 26 26 20 28 73 6c 61 76  NULL)...&& (slav
24e0: 65 50 74 72 2d 3e 6d 61 73 74 65 72 50 74 72 2d  ePtr->masterPtr-
24f0: 3e 74 6b 77 69 6e 20 21 3d 20 54 6b 5f 50 61 72  >tkwin != Tk_Par
2500: 65 6e 74 28 73 6c 61 76 65 50 74 72 2d 3e 74 6b  ent(slavePtr->tk
2510: 77 69 6e 29 29 29 20 7b 0a 09 20 20 20 20 54 63  win))) {..    Tc
2520: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
2530: 6e 74 65 72 70 2c 20 22 20 2d 69 6e 20 22 2c 0a  nterp, " -in ",.
2540: 09 09 20 20 20 20 54 6b 5f 50 61 74 68 4e 61 6d  ..    Tk_PathNam
2550: 65 28 73 6c 61 76 65 50 74 72 2d 3e 6d 61 73 74  e(slavePtr->mast
2560: 65 72 50 74 72 2d 3e 74 6b 77 69 6e 29 2c 20 28  erPtr->tkwin), (
2570: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09  char *) NULL);..
2580: 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20  }.    } else if 
2590: 28 28 63 20 3d 3d 20 27 73 27 29 20 26 26 20 28  ((c == 's') && (
25a0: 73 74 72 6e 63 6d 70 28 61 72 67 76 5b 31 5d 2c  strncmp(argv[1],
25b0: 20 22 73 6c 61 76 65 73 22 2c 20 6c 65 6e 67 74   "slaves", lengt
25c0: 68 29 20 3d 3d 20 30 29 29 20 7b 0a 09 69 66 20  h) == 0)) {..if 
25d0: 28 61 72 67 63 20 21 3d 20 33 29 20 7b 0a 09 20  (argc != 3) {.. 
25e0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
25f0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f  ult(interp, "wro
2600: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c  ng # args: shoul
2610: 64 20 62 65 20 5c 22 22 2c 0a 09 09 20 20 20 20  d be \"",...    
2620: 61 72 67 76 5b 30 5d 2c 20 22 20 73 6c 61 76 65  argv[0], " slave
2630: 73 20 70 61 74 68 4e 61 6d 65 5c 22 22 2c 20 28  s pathName\"", (
2640: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09  char *) NULL);..
2650: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
2660: 52 52 4f 52 3b 0a 09 7d 0a 09 68 50 74 72 20 3d  RROR;..}..hPtr =
2670: 20 54 63 6c 5f 46 69 6e 64 48 61 73 68 45 6e 74   Tcl_FindHashEnt
2680: 72 79 28 26 6d 61 73 74 65 72 54 61 62 6c 65 2c  ry(&masterTable,
2690: 20 28 63 68 61 72 20 2a 29 20 74 6b 77 69 6e 29   (char *) tkwin)
26a0: 3b 0a 09 69 66 20 28 68 50 74 72 20 21 3d 20 4e  ;..if (hPtr != N
26b0: 55 4c 4c 29 20 7b 0a 09 20 20 20 20 4d 61 73 74  ULL) {..    Mast
26c0: 65 72 20 2a 6d 61 73 74 65 72 50 74 72 3b 0a 09  er *masterPtr;..
26d0: 20 20 20 20 6d 61 73 74 65 72 50 74 72 20 3d 20      masterPtr = 
26e0: 28 4d 61 73 74 65 72 20 2a 29 20 54 63 6c 5f 47  (Master *) Tcl_G
26f0: 65 74 48 61 73 68 56 61 6c 75 65 28 68 50 74 72  etHashValue(hPtr
2700: 29 3b 0a 09 20 20 20 20 66 6f 72 20 28 73 6c 61  );..    for (sla
2710: 76 65 50 74 72 20 3d 20 6d 61 73 74 65 72 50 74  vePtr = masterPt
2720: 72 2d 3e 73 6c 61 76 65 50 74 72 3b 20 73 6c 61  r->slavePtr; sla
2730: 76 65 50 74 72 20 21 3d 20 4e 55 4c 4c 3b 0a 09  vePtr != NULL;..
2740: 09 20 20 20 20 73 6c 61 76 65 50 74 72 20 3d 20  .    slavePtr = 
2750: 73 6c 61 76 65 50 74 72 2d 3e 6e 65 78 74 50 74  slavePtr->nextPt
2760: 72 29 20 7b 0a 09 09 54 63 6c 5f 41 70 70 65 6e  r) {...Tcl_Appen
2770: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c  dElement(interp,
2780: 20 54 6b 5f 50 61 74 68 4e 61 6d 65 28 73 6c 61   Tk_PathName(sla
2790: 76 65 50 74 72 2d 3e 74 6b 77 69 6e 29 29 3b 0a  vePtr->tkwin));.
27a0: 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 20 7d 20  .    }..}.    } 
27b0: 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 70 70 65  else {..Tcl_Appe
27c0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
27d0: 20 22 75 6e 6b 6e 6f 77 6e 20 6f 72 20 61 6d 62   "unknown or amb
27e0: 69 67 75 6f 75 73 20 6f 70 74 69 6f 6e 20 5c 22  iguous option \"
27f0: 22 2c 20 61 72 67 76 5b 31 5d 2c 0a 09 09 22 5c  ", argv[1],..."\
2800: 22 3a 20 6d 75 73 74 20 62 65 20 63 6f 6e 66 69  ": must be confi
2810: 67 75 72 65 2c 20 66 6f 72 67 65 74 2c 20 69 6e  gure, forget, in
2820: 66 6f 2c 20 6f 72 20 73 6c 61 76 65 73 22 2c 0a  fo, or slaves",.
2830: 09 09 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29  ..(char *) NULL)
2840: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52  ;..return TCL_ER
2850: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72  ROR;.    }.    r
2860: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a  eturn TCL_OK;.}.
2870: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  ../*. *---------
2880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
28a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
28b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
28c0: 0a 20 2a 20 46 69 6e 64 53 6c 61 76 65 20 2d 2d  . * FindSlave --
28d0: 0a 20 2a 0a 20 2a 09 47 69 76 65 6e 20 61 20 54  . *. *.Given a T
28e0: 6b 5f 57 69 6e 64 6f 77 20 74 6f 6b 65 6e 2c 20  k_Window token, 
28f0: 66 69 6e 64 20 74 68 65 20 53 6c 61 76 65 20 73  find the Slave s
2900: 74 72 75 63 74 75 72 65 20 63 6f 72 72 65 73 70  tructure corresp
2910: 6f 6e 64 69 6e 67 0a 20 2a 09 74 6f 20 74 68 61  onding. *.to tha
2920: 74 20 74 6f 6b 65 6e 20 28 6d 61 6b 69 6e 67 20  t token (making 
2930: 61 20 6e 65 77 20 6f 6e 65 20 69 66 20 6e 65 63  a new one if nec
2940: 65 73 73 61 72 79 29 2e 0a 20 2a 0a 20 2a 20 52  essary).. *. * R
2950: 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e  esults:. *.None.
2960: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65  . *. * Side effe
2970: 63 74 73 3a 0a 20 2a 09 41 20 6e 65 77 20 53 6c  cts:. *.A new Sl
2980: 61 76 65 20 73 74 72 75 63 74 75 72 65 20 6d 61  ave structure ma
2990: 79 20 62 65 20 63 72 65 61 74 65 64 2e 0a 20 2a  y be created.. *
29a0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
29b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
29c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
29d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
29e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73  ---------. */..s
29f0: 74 61 74 69 63 20 53 6c 61 76 65 20 2a 0a 46 69  tatic Slave *.Fi
2a00: 6e 64 53 6c 61 76 65 28 74 6b 77 69 6e 29 0a 20  ndSlave(tkwin). 
2a10: 20 20 20 54 6b 5f 57 69 6e 64 6f 77 20 74 6b 77     Tk_Window tkw
2a20: 69 6e 3b 09 09 2f 2a 20 54 6f 6b 65 6e 20 66 6f  in;../* Token fo
2a30: 72 20 64 65 73 69 72 65 64 20 73 6c 61 76 65 2e  r desired slave.
2a40: 20 2a 2f 0a 7b 0a 20 20 20 20 54 63 6c 5f 48 61   */.{.    Tcl_Ha
2a50: 73 68 45 6e 74 72 79 20 2a 68 50 74 72 3b 0a 20  shEntry *hPtr;. 
2a60: 20 20 20 72 65 67 69 73 74 65 72 20 53 6c 61 76     register Slav
2a70: 65 20 2a 73 6c 61 76 65 50 74 72 3b 0a 20 20 20  e *slavePtr;.   
2a80: 20 69 6e 74 20 6e 65 77 3b 0a 0a 20 20 20 20 68   int new;..    h
2a90: 50 74 72 20 3d 20 54 63 6c 5f 43 72 65 61 74 65  Ptr = Tcl_Create
2aa0: 48 61 73 68 45 6e 74 72 79 28 26 73 6c 61 76 65  HashEntry(&slave
2ab0: 54 61 62 6c 65 2c 20 28 63 68 61 72 20 2a 29 20  Table, (char *) 
2ac0: 74 6b 77 69 6e 2c 20 26 6e 65 77 29 3b 0a 20 20  tkwin, &new);.  
2ad0: 20 20 69 66 20 28 6e 65 77 29 20 7b 0a 09 73 6c    if (new) {..sl
2ae0: 61 76 65 50 74 72 20 3d 20 28 53 6c 61 76 65 20  avePtr = (Slave 
2af0: 2a 29 20 63 6b 61 6c 6c 6f 63 28 73 69 7a 65 6f  *) ckalloc(sizeo
2b00: 66 28 53 6c 61 76 65 29 29 3b 0a 09 73 6c 61 76  f(Slave));..slav
2b10: 65 50 74 72 2d 3e 74 6b 77 69 6e 20 3d 20 74 6b  ePtr->tkwin = tk
2b20: 77 69 6e 3b 0a 09 73 6c 61 76 65 50 74 72 2d 3e  win;..slavePtr->
2b30: 6d 61 73 74 65 72 50 74 72 20 3d 20 4e 55 4c 4c  masterPtr = NULL
2b40: 3b 0a 09 73 6c 61 76 65 50 74 72 2d 3e 6e 65 78  ;..slavePtr->nex
2b50: 74 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 09 73 6c  tPtr = NULL;..sl
2b60: 61 76 65 50 74 72 2d 3e 78 20 3d 20 73 6c 61 76  avePtr->x = slav
2b70: 65 50 74 72 2d 3e 79 20 3d 20 30 3b 0a 09 73 6c  ePtr->y = 0;..sl
2b80: 61 76 65 50 74 72 2d 3e 72 65 6c 58 20 3d 20 73  avePtr->relX = s
2b90: 6c 61 76 65 50 74 72 2d 3e 72 65 6c 59 20 3d 20  lavePtr->relY = 
2ba0: 30 2e 30 3b 0a 09 73 6c 61 76 65 50 74 72 2d 3e  0.0;..slavePtr->
2bb0: 77 69 64 74 68 20 3d 20 73 6c 61 76 65 50 74 72  width = slavePtr
2bc0: 2d 3e 68 65 69 67 68 74 20 3d 20 30 3b 0a 09 73  ->height = 0;..s
2bd0: 6c 61 76 65 50 74 72 2d 3e 72 65 6c 57 69 64 74  lavePtr->relWidt
2be0: 68 20 3d 20 73 6c 61 76 65 50 74 72 2d 3e 72 65  h = slavePtr->re
2bf0: 6c 48 65 69 67 68 74 20 3d 20 30 2e 30 3b 0a 09  lHeight = 0.0;..
2c00: 73 6c 61 76 65 50 74 72 2d 3e 61 6e 63 68 6f 72  slavePtr->anchor
2c10: 20 3d 20 54 4b 5f 41 4e 43 48 4f 52 5f 4e 57 3b   = TK_ANCHOR_NW;
2c20: 0a 09 73 6c 61 76 65 50 74 72 2d 3e 62 6f 72 64  ..slavePtr->bord
2c30: 65 72 4d 6f 64 65 20 3d 20 42 4d 5f 49 4e 53 49  erMode = BM_INSI
2c40: 44 45 3b 0a 09 73 6c 61 76 65 50 74 72 2d 3e 66  DE;..slavePtr->f
2c50: 6c 61 67 73 20 3d 20 30 3b 0a 09 54 63 6c 5f 53  lags = 0;..Tcl_S
2c60: 65 74 48 61 73 68 56 61 6c 75 65 28 68 50 74 72  etHashValue(hPtr
2c70: 2c 20 73 6c 61 76 65 50 74 72 29 3b 0a 09 54 6b  , slavePtr);..Tk
2c80: 5f 43 72 65 61 74 65 45 76 65 6e 74 48 61 6e 64  _CreateEventHand
2c90: 6c 65 72 28 74 6b 77 69 6e 2c 20 53 74 72 75 63  ler(tkwin, Struc
2ca0: 74 75 72 65 4e 6f 74 69 66 79 4d 61 73 6b 2c 20  tureNotifyMask, 
2cb0: 53 6c 61 76 65 53 74 72 75 63 74 75 72 65 50 72  SlaveStructurePr
2cc0: 6f 63 2c 0a 09 09 28 43 6c 69 65 6e 74 44 61 74  oc,...(ClientDat
2cd0: 61 29 20 73 6c 61 76 65 50 74 72 29 3b 0a 09 54  a) slavePtr);..T
2ce0: 6b 5f 4d 61 6e 61 67 65 47 65 6f 6d 65 74 72 79  k_ManageGeometry
2cf0: 28 74 6b 77 69 6e 2c 20 26 70 6c 61 63 65 72 54  (tkwin, &placerT
2d00: 79 70 65 2c 20 28 43 6c 69 65 6e 74 44 61 74 61  ype, (ClientData
2d10: 29 20 73 6c 61 76 65 50 74 72 29 3b 0a 20 20 20  ) slavePtr);.   
2d20: 20 7d 20 65 6c 73 65 20 7b 0a 09 73 6c 61 76 65   } else {..slave
2d30: 50 74 72 20 3d 20 28 53 6c 61 76 65 20 2a 29 20  Ptr = (Slave *) 
2d40: 54 63 6c 5f 47 65 74 48 61 73 68 56 61 6c 75 65  Tcl_GetHashValue
2d50: 28 68 50 74 72 29 3b 0a 20 20 20 20 7d 0a 20 20  (hPtr);.    }.  
2d60: 20 20 72 65 74 75 72 6e 20 73 6c 61 76 65 50 74    return slavePt
2d70: 72 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d  r;.}.../*. *----
2d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2dc0: 2d 2d 0a 20 2a 0a 20 2a 20 55 6e 6c 69 6e 6b 53  --. *. * UnlinkS
2dd0: 6c 61 76 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68  lave --. *. *.Th
2de0: 69 73 20 70 72 6f 63 65 64 75 72 65 20 72 65 6d  is procedure rem
2df0: 6f 76 65 73 20 61 20 73 6c 61 76 65 20 77 69 6e  oves a slave win
2e00: 64 6f 77 20 66 72 6f 6d 20 74 68 65 20 63 68 61  dow from the cha
2e10: 69 6e 20 6f 66 20 73 6c 61 76 65 73 0a 20 2a 09  in of slaves. *.
2e20: 69 6e 20 69 74 73 20 6d 61 73 74 65 72 2e 0a 20  in its master.. 
2e30: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a  *. * Results:. *
2e40: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64  .None.. *. * Sid
2e50: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 54 68  e effects:. *.Th
2e60: 65 20 73 6c 61 76 65 20 6c 69 73 74 20 6f 66 20  e slave list of 
2e70: 73 6c 61 76 65 50 74 72 27 73 20 6d 61 73 74 65  slavePtr's maste
2e80: 72 20 63 68 61 6e 67 65 73 2e 0a 20 2a 0a 20 2a  r changes.. *. *
2e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
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 0a 20 2a 2f 0a 0a 73 74 61 74  ------. */..stat
2ee0: 69 63 20 76 6f 69 64 0a 55 6e 6c 69 6e 6b 53 6c  ic void.UnlinkSl
2ef0: 61 76 65 28 73 6c 61 76 65 50 74 72 29 0a 20 20  ave(slavePtr).  
2f00: 20 20 53 6c 61 76 65 20 2a 73 6c 61 76 65 50 74    Slave *slavePt
2f10: 72 3b 09 09 2f 2a 20 53 6c 61 76 65 20 73 74 72  r;../* Slave str
2f20: 75 63 74 75 72 65 20 74 6f 20 62 65 20 75 6e 6c  ucture to be unl
2f30: 69 6e 6b 65 64 2e 20 2a 2f 0a 7b 0a 20 20 20 20  inked. */.{.    
2f40: 72 65 67 69 73 74 65 72 20 4d 61 73 74 65 72 20  register Master 
2f50: 2a 6d 61 73 74 65 72 50 74 72 3b 0a 20 20 20 20  *masterPtr;.    
2f60: 72 65 67 69 73 74 65 72 20 53 6c 61 76 65 20 2a  register Slave *
2f70: 70 72 65 76 50 74 72 3b 0a 0a 20 20 20 20 6d 61  prevPtr;..    ma
2f80: 73 74 65 72 50 74 72 20 3d 20 73 6c 61 76 65 50  sterPtr = slaveP
2f90: 74 72 2d 3e 6d 61 73 74 65 72 50 74 72 3b 0a 20  tr->masterPtr;. 
2fa0: 20 20 20 69 66 20 28 6d 61 73 74 65 72 50 74 72     if (masterPtr
2fb0: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74   == NULL) {..ret
2fc0: 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69  urn;.    }.    i
2fd0: 66 20 28 6d 61 73 74 65 72 50 74 72 2d 3e 73 6c  f (masterPtr->sl
2fe0: 61 76 65 50 74 72 20 3d 3d 20 73 6c 61 76 65 50  avePtr == slaveP
2ff0: 74 72 29 20 7b 0a 09 6d 61 73 74 65 72 50 74 72  tr) {..masterPtr
3000: 2d 3e 73 6c 61 76 65 50 74 72 20 3d 20 73 6c 61  ->slavePtr = sla
3010: 76 65 50 74 72 2d 3e 6e 65 78 74 50 74 72 3b 0a  vePtr->nextPtr;.
3020: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 66 6f      } else {..fo
3030: 72 20 28 70 72 65 76 50 74 72 20 3d 20 6d 61 73  r (prevPtr = mas
3040: 74 65 72 50 74 72 2d 3e 73 6c 61 76 65 50 74 72  terPtr->slavePtr
3050: 3b 20 3b 0a 09 09 70 72 65 76 50 74 72 20 3d 20  ; ;...prevPtr = 
3060: 70 72 65 76 50 74 72 2d 3e 6e 65 78 74 50 74 72  prevPtr->nextPtr
3070: 29 20 7b 0a 09 20 20 20 20 69 66 20 28 70 72 65  ) {..    if (pre
3080: 76 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  vPtr == NULL) {.
3090: 09 09 70 61 6e 69 63 28 22 55 6e 6c 69 6e 6b 53  ..panic("UnlinkS
30a0: 6c 61 76 65 20 63 6f 75 6c 64 6e 27 74 20 66 69  lave couldn't fi
30b0: 6e 64 20 73 6c 61 76 65 20 74 6f 20 75 6e 6c 69  nd slave to unli
30c0: 6e 6b 22 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20  nk");..    }..  
30d0: 20 20 69 66 20 28 70 72 65 76 50 74 72 2d 3e 6e    if (prevPtr->n
30e0: 65 78 74 50 74 72 20 3d 3d 20 73 6c 61 76 65 50  extPtr == slaveP
30f0: 74 72 29 20 7b 0a 09 09 70 72 65 76 50 74 72 2d  tr) {...prevPtr-
3100: 3e 6e 65 78 74 50 74 72 20 3d 20 73 6c 61 76 65  >nextPtr = slave
3110: 50 74 72 2d 3e 6e 65 78 74 50 74 72 3b 0a 09 09  Ptr->nextPtr;...
3120: 62 72 65 61 6b 3b 0a 09 20 20 20 20 7d 0a 09 7d  break;..    }..}
3130: 0a 20 20 20 20 7d 0a 20 20 20 20 73 6c 61 76 65  .    }.    slave
3140: 50 74 72 2d 3e 6d 61 73 74 65 72 50 74 72 20 3d  Ptr->masterPtr =
3150: 20 4e 55 4c 4c 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a   NULL;.}.../*. *
3160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
31a0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 46 69 6e  ------. *. * Fin
31b0: 64 4d 61 73 74 65 72 20 2d 2d 0a 20 2a 0a 20 2a  dMaster --. *. *
31c0: 09 47 69 76 65 6e 20 61 20 54 6b 5f 57 69 6e 64  .Given a Tk_Wind
31d0: 6f 77 20 74 6f 6b 65 6e 2c 20 66 69 6e 64 20 74  ow token, find t
31e0: 68 65 20 4d 61 73 74 65 72 20 73 74 72 75 63 74  he Master struct
31f0: 75 72 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e  ure correspondin
3200: 67 0a 20 2a 09 74 6f 20 74 68 61 74 20 74 6f 6b  g. *.to that tok
3210: 65 6e 20 28 6d 61 6b 69 6e 67 20 61 20 6e 65 77  en (making a new
3220: 20 6f 6e 65 20 69 66 20 6e 65 63 65 73 73 61 72   one if necessar
3230: 79 29 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74  y).. *. * Result
3240: 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20  s:. *.None.. *. 
3250: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
3260: 20 2a 09 41 20 6e 65 77 20 4d 61 73 74 65 72 20   *.A new Master 
3270: 73 74 72 75 63 74 75 72 65 20 6d 61 79 20 62 65  structure may be
3280: 20 63 72 65 61 74 65 64 2e 0a 20 2a 0a 20 2a 2d   created.. *. *-
3290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
32a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
32b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
32c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
32d0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69  -----. */..stati
32e0: 63 20 4d 61 73 74 65 72 20 2a 0a 46 69 6e 64 4d  c Master *.FindM
32f0: 61 73 74 65 72 28 74 6b 77 69 6e 29 0a 20 20 20  aster(tkwin).   
3300: 20 54 6b 5f 57 69 6e 64 6f 77 20 74 6b 77 69 6e   Tk_Window tkwin
3310: 3b 09 09 2f 2a 20 54 6f 6b 65 6e 20 66 6f 72 20  ;../* Token for 
3320: 64 65 73 69 72 65 64 20 6d 61 73 74 65 72 2e 20  desired master. 
3330: 2a 2f 0a 7b 0a 20 20 20 20 54 63 6c 5f 48 61 73  */.{.    Tcl_Has
3340: 68 45 6e 74 72 79 20 2a 68 50 74 72 3b 0a 20 20  hEntry *hPtr;.  
3350: 20 20 72 65 67 69 73 74 65 72 20 4d 61 73 74 65    register Maste
3360: 72 20 2a 6d 61 73 74 65 72 50 74 72 3b 0a 20 20  r *masterPtr;.  
3370: 20 20 69 6e 74 20 6e 65 77 3b 0a 0a 20 20 20 20    int new;..    
3380: 68 50 74 72 20 3d 20 54 63 6c 5f 43 72 65 61 74  hPtr = Tcl_Creat
3390: 65 48 61 73 68 45 6e 74 72 79 28 26 6d 61 73 74  eHashEntry(&mast
33a0: 65 72 54 61 62 6c 65 2c 20 28 63 68 61 72 20 2a  erTable, (char *
33b0: 29 20 74 6b 77 69 6e 2c 20 26 6e 65 77 29 3b 0a  ) tkwin, &new);.
33c0: 20 20 20 20 69 66 20 28 6e 65 77 29 20 7b 0a 09      if (new) {..
33d0: 6d 61 73 74 65 72 50 74 72 20 3d 20 28 4d 61 73  masterPtr = (Mas
33e0: 74 65 72 20 2a 29 20 63 6b 61 6c 6c 6f 63 28 73  ter *) ckalloc(s
33f0: 69 7a 65 6f 66 28 4d 61 73 74 65 72 29 29 3b 0a  izeof(Master));.
3400: 09 6d 61 73 74 65 72 50 74 72 2d 3e 74 6b 77 69  .masterPtr->tkwi
3410: 6e 20 3d 20 74 6b 77 69 6e 3b 0a 09 6d 61 73 74  n = tkwin;..mast
3420: 65 72 50 74 72 2d 3e 73 6c 61 76 65 50 74 72 20  erPtr->slavePtr 
3430: 3d 20 4e 55 4c 4c 3b 0a 09 6d 61 73 74 65 72 50  = NULL;..masterP
3440: 74 72 2d 3e 66 6c 61 67 73 20 3d 20 30 3b 0a 09  tr->flags = 0;..
3450: 54 63 6c 5f 53 65 74 48 61 73 68 56 61 6c 75 65  Tcl_SetHashValue
3460: 28 68 50 74 72 2c 20 6d 61 73 74 65 72 50 74 72  (hPtr, masterPtr
3470: 29 3b 0a 09 54 6b 5f 43 72 65 61 74 65 45 76 65  );..Tk_CreateEve
3480: 6e 74 48 61 6e 64 6c 65 72 28 6d 61 73 74 65 72  ntHandler(master
3490: 50 74 72 2d 3e 74 6b 77 69 6e 2c 20 53 74 72 75  Ptr->tkwin, Stru
34a0: 63 74 75 72 65 4e 6f 74 69 66 79 4d 61 73 6b 2c  ctureNotifyMask,
34b0: 0a 09 09 4d 61 73 74 65 72 53 74 72 75 63 74 75  ...MasterStructu
34c0: 72 65 50 72 6f 63 2c 20 28 43 6c 69 65 6e 74 44  reProc, (ClientD
34d0: 61 74 61 29 20 6d 61 73 74 65 72 50 74 72 29 3b  ata) masterPtr);
34e0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 6d  .    } else {..m
34f0: 61 73 74 65 72 50 74 72 20 3d 20 28 4d 61 73 74  asterPtr = (Mast
3500: 65 72 20 2a 29 20 54 63 6c 5f 47 65 74 48 61 73  er *) Tcl_GetHas
3510: 68 56 61 6c 75 65 28 68 50 74 72 29 3b 0a 20 20  hValue(hPtr);.  
3520: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 6d    }.    return m
3530: 61 73 74 65 72 50 74 72 3b 0a 7d 0a 0c 0a 2f 2a  asterPtr;.}.../*
3540: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
3550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20  ---------. *. * 
3590: 43 6f 6e 66 69 67 75 72 65 53 6c 61 76 65 20 2d  ConfigureSlave -
35a0: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f  -. *. *.This pro
35b0: 63 65 64 75 72 65 20 69 73 20 63 61 6c 6c 65 64  cedure is called
35c0: 20 74 6f 20 70 72 6f 63 65 73 73 20 61 6e 20 61   to process an a
35d0: 72 67 76 2f 61 72 67 63 20 6c 69 73 74 20 74 6f  rgv/argc list to
35e0: 0a 20 2a 09 72 65 63 6f 6e 66 69 67 75 72 65 20  . *.reconfigure 
35f0: 74 68 65 20 70 6c 61 63 65 6d 65 6e 74 20 6f 66  the placement of
3600: 20 61 20 77 69 6e 64 6f 77 2e 0a 20 2a 0a 20 2a   a window.. *. *
3610: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73   Results:. *.A s
3620: 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75  tandard Tcl resu
3630: 6c 74 2e 20 20 49 66 20 61 6e 20 65 72 72 6f 72  lt.  If an error
3640: 20 6f 63 63 75 72 73 20 74 68 65 6e 20 61 20 6d   occurs then a m
3650: 65 73 73 61 67 65 20 69 73 0a 20 2a 09 6c 65 66  essage is. *.lef
3660: 74 20 69 6e 20 69 6e 74 65 72 70 2d 3e 72 65 73  t in interp->res
3670: 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20  ult.. *. * Side 
3680: 65 66 66 65 63 74 73 3a 0a 20 2a 09 49 6e 66 6f  effects:. *.Info
3690: 72 6d 61 74 69 6f 6e 20 69 6e 20 73 6c 61 76 65  rmation in slave
36a0: 50 74 72 20 6d 61 79 20 63 68 61 6e 67 65 2c 20  Ptr may change, 
36b0: 61 6e 64 20 73 6c 61 76 65 50 74 72 27 73 20 6d  and slavePtr's m
36c0: 61 73 74 65 72 20 69 73 0a 20 2a 09 73 63 68 65  aster is. *.sche
36d0: 64 75 6c 65 64 20 66 6f 72 20 72 65 63 6f 6e 66  duled for reconf
36e0: 69 67 75 72 61 74 69 6f 6e 2e 0a 20 2a 0a 20 2a  iguration.. *. *
36f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3730: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74  ------. */..stat
3740: 69 63 20 69 6e 74 0a 43 6f 6e 66 69 67 75 72 65  ic int.Configure
3750: 53 6c 61 76 65 28 69 6e 74 65 72 70 2c 20 73 6c  Slave(interp, sl
3760: 61 76 65 50 74 72 2c 20 61 72 67 63 2c 20 61 72  avePtr, argc, ar
3770: 67 76 29 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65  gv).    Tcl_Inte
3780: 72 70 20 2a 69 6e 74 65 72 70 3b 09 09 2f 2a 20  rp *interp;../* 
3790: 55 73 65 64 20 66 6f 72 20 65 72 72 6f 72 20 72  Used for error r
37a0: 65 70 6f 72 74 69 6e 67 2e 20 2a 2f 0a 20 20 20  eporting. */.   
37b0: 20 53 6c 61 76 65 20 2a 73 6c 61 76 65 50 74 72   Slave *slavePtr
37c0: 3b 09 09 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f  ;../* Pointer to
37d0: 20 63 75 72 72 65 6e 74 20 69 6e 66 6f 72 6d 61   current informa
37e0: 74 69 6f 6e 0a 09 09 09 09 20 2a 20 61 62 6f 75  tion..... * abou
37f0: 74 20 73 6c 61 76 65 2e 20 2a 2f 0a 20 20 20 20  t slave. */.    
3800: 69 6e 74 20 61 72 67 63 3b 09 09 09 2f 2a 20 4e  int argc;.../* N
3810: 75 6d 62 65 72 20 6f 66 20 63 6f 6e 66 69 67 20  umber of config 
3820: 61 72 67 75 6d 65 6e 74 73 2e 20 2a 2f 0a 20 20  arguments. */.  
3830: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 3b 09 09    char **argv;..
3840: 2f 2a 20 53 74 72 69 6e 67 20 76 61 6c 75 65 73  /* String values
3850: 20 66 6f 72 20 61 72 67 75 6d 65 6e 74 73 2e 20   for arguments. 
3860: 2a 2f 0a 7b 0a 20 20 20 20 72 65 67 69 73 74 65  */.{.    registe
3870: 72 20 4d 61 73 74 65 72 20 2a 6d 61 73 74 65 72  r Master *master
3880: 50 74 72 3b 0a 20 20 20 20 69 6e 74 20 63 2c 20  Ptr;.    int c, 
3890: 72 65 73 75 6c 74 3b 0a 20 20 20 20 73 69 7a 65  result;.    size
38a0: 5f 74 20 6c 65 6e 67 74 68 3b 0a 20 20 20 20 64  _t length;.    d
38b0: 6f 75 62 6c 65 20 64 3b 0a 0a 20 20 20 20 72 65  ouble d;..    re
38c0: 73 75 6c 74 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20  sult = TCL_OK;. 
38d0: 20 20 20 66 6f 72 20 28 20 3b 20 61 72 67 63 20     for ( ; argc 
38e0: 3e 20 30 3b 20 61 72 67 63 20 2d 3d 20 32 2c 20  > 0; argc -= 2, 
38f0: 61 72 67 76 20 2b 3d 20 32 29 20 7b 0a 09 69 66  argv += 2) {..if
3900: 20 28 61 72 67 63 20 3c 20 32 29 20 7b 0a 09 20   (argc < 2) {.. 
3910: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
3920: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 65 78 74  ult(interp, "ext
3930: 72 61 20 6f 70 74 69 6f 6e 20 5c 22 22 2c 20 61  ra option \"", a
3940: 72 67 76 5b 30 5d 2c 0a 09 09 20 20 20 20 22 5c  rgv[0],...    "\
3950: 22 20 28 6f 70 74 69 6f 6e 20 77 69 74 68 20 6e  " (option with n
3960: 6f 20 76 61 6c 75 65 3f 29 22 2c 20 28 63 68 61  o value?)", (cha
3970: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20  r *) NULL);..   
3980: 20 72 65 73 75 6c 74 20 3d 20 54 43 4c 5f 45 52   result = TCL_ER
3990: 52 4f 52 3b 0a 09 20 20 20 20 67 6f 74 6f 20 64  ROR;..    goto d
39a0: 6f 6e 65 3b 0a 09 7d 0a 09 6c 65 6e 67 74 68 20  one;..}..length 
39b0: 3d 20 73 74 72 6c 65 6e 28 61 72 67 76 5b 30 5d  = strlen(argv[0]
39c0: 29 3b 0a 09 63 20 3d 20 61 72 67 76 5b 30 5d 5b  );..c = argv[0][
39d0: 31 5d 3b 0a 09 69 66 20 28 28 63 20 3d 3d 20 27  1];..if ((c == '
39e0: 61 27 29 20 26 26 20 28 73 74 72 6e 63 6d 70 28  a') && (strncmp(
39f0: 61 72 67 76 5b 30 5d 2c 20 22 2d 61 6e 63 68 6f  argv[0], "-ancho
3a00: 72 22 2c 20 6c 65 6e 67 74 68 29 20 3d 3d 20 30  r", length) == 0
3a10: 29 29 20 7b 0a 09 20 20 20 20 69 66 20 28 54 6b  )) {..    if (Tk
3a20: 5f 47 65 74 41 6e 63 68 6f 72 28 69 6e 74 65 72  _GetAnchor(inter
3a30: 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26 73 6c 61  p, argv[1], &sla
3a40: 76 65 50 74 72 2d 3e 61 6e 63 68 6f 72 29 20 21  vePtr->anchor) !
3a50: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 72 65  = TCL_OK) {...re
3a60: 73 75 6c 74 20 3d 20 54 43 4c 5f 45 52 52 4f 52  sult = TCL_ERROR
3a70: 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09  ;...goto done;..
3a80: 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65 20 69 66      }..} else if
3a90: 20 28 28 63 20 3d 3d 20 27 62 27 29 0a 09 09 26   ((c == 'b')...&
3aa0: 26 20 28 73 74 72 6e 63 6d 70 28 61 72 67 76 5b  & (strncmp(argv[
3ab0: 30 5d 2c 20 22 2d 62 6f 72 64 65 72 6d 6f 64 65  0], "-bordermode
3ac0: 22 2c 20 6c 65 6e 67 74 68 29 20 3d 3d 20 30 29  ", length) == 0)
3ad0: 29 20 7b 0a 09 20 20 20 20 63 20 3d 20 61 72 67  ) {..    c = arg
3ae0: 76 5b 31 5d 5b 30 5d 3b 0a 09 20 20 20 20 6c 65  v[1][0];..    le
3af0: 6e 67 74 68 20 3d 20 73 74 72 6c 65 6e 28 61 72  ngth = strlen(ar
3b00: 67 76 5b 31 5d 29 3b 0a 09 20 20 20 20 69 66 20  gv[1]);..    if 
3b10: 28 28 63 20 3d 3d 20 27 69 27 29 20 26 26 20 28  ((c == 'i') && (
3b20: 73 74 72 6e 63 6d 70 28 61 72 67 76 5b 31 5d 2c  strncmp(argv[1],
3b30: 20 22 69 67 6e 6f 72 65 22 2c 20 6c 65 6e 67 74   "ignore", lengt
3b40: 68 29 20 3d 3d 20 30 29 0a 09 09 20 20 20 20 26  h) == 0)...    &
3b50: 26 20 28 6c 65 6e 67 74 68 20 3e 3d 20 32 29 29  & (length >= 2))
3b60: 20 7b 0a 09 09 73 6c 61 76 65 50 74 72 2d 3e 62   {...slavePtr->b
3b70: 6f 72 64 65 72 4d 6f 64 65 20 3d 20 42 4d 5f 49  orderMode = BM_I
3b80: 47 4e 4f 52 45 3b 0a 09 20 20 20 20 7d 20 65 6c  GNORE;..    } el
3b90: 73 65 20 69 66 20 28 28 63 20 3d 3d 20 27 69 27  se if ((c == 'i'
3ba0: 29 20 26 26 20 28 73 74 72 6e 63 6d 70 28 61 72  ) && (strncmp(ar
3bb0: 67 76 5b 31 5d 2c 20 22 69 6e 73 69 64 65 22 2c  gv[1], "inside",
3bc0: 20 6c 65 6e 67 74 68 29 20 3d 3d 20 30 29 0a 09   length) == 0)..
3bd0: 09 20 20 20 20 26 26 20 28 6c 65 6e 67 74 68 20  .    && (length 
3be0: 3e 3d 20 32 29 29 20 7b 0a 09 09 73 6c 61 76 65  >= 2)) {...slave
3bf0: 50 74 72 2d 3e 62 6f 72 64 65 72 4d 6f 64 65 20  Ptr->borderMode 
3c00: 3d 20 42 4d 5f 49 4e 53 49 44 45 3b 0a 09 20 20  = BM_INSIDE;..  
3c10: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 28 63 20    } else if ((c 
3c20: 3d 3d 20 27 6f 27 29 0a 09 09 20 20 20 20 26 26  == 'o')...    &&
3c30: 20 28 73 74 72 6e 63 6d 70 28 61 72 67 76 5b 31   (strncmp(argv[1
3c40: 5d 2c 20 22 6f 75 74 73 69 64 65 22 2c 20 6c 65  ], "outside", le
3c50: 6e 67 74 68 29 20 3d 3d 20 30 29 29 20 7b 0a 09  ngth) == 0)) {..
3c60: 09 73 6c 61 76 65 50 74 72 2d 3e 62 6f 72 64 65  .slavePtr->borde
3c70: 72 4d 6f 64 65 20 3d 20 42 4d 5f 4f 55 54 53 49  rMode = BM_OUTSI
3c80: 44 45 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20  DE;..    } else 
3c90: 7b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65  {...Tcl_AppendRe
3ca0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61  sult(interp, "ba
3cb0: 64 20 62 6f 72 64 65 72 20 6d 6f 64 65 20 5c 22  d border mode \"
3cc0: 22 2c 20 61 72 67 76 5b 31 5d 2c 0a 09 09 09 22  ", argv[1],...."
3cd0: 5c 22 3a 20 6d 75 73 74 20 62 65 20 69 67 6e 6f  \": must be igno
3ce0: 72 65 2c 20 69 6e 73 69 64 65 2c 20 6f 72 20 6f  re, inside, or o
3cf0: 75 74 73 69 64 65 22 2c 0a 09 09 09 28 63 68 61  utside",....(cha
3d00: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09 72 65  r *) NULL);...re
3d10: 73 75 6c 74 20 3d 20 54 43 4c 5f 45 52 52 4f 52  sult = TCL_ERROR
3d20: 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09  ;...goto done;..
3d30: 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65 20 69 66      }..} else if
3d40: 20 28 28 63 20 3d 3d 20 27 68 27 29 20 26 26 20   ((c == 'h') && 
3d50: 28 73 74 72 6e 63 6d 70 28 61 72 67 76 5b 30 5d  (strncmp(argv[0]
3d60: 2c 20 22 2d 68 65 69 67 68 74 22 2c 20 6c 65 6e  , "-height", len
3d70: 67 74 68 29 20 3d 3d 20 30 29 29 20 7b 0a 09 20  gth) == 0)) {.. 
3d80: 20 20 20 69 66 20 28 61 72 67 76 5b 31 5d 5b 30     if (argv[1][0
3d90: 5d 20 3d 3d 20 30 29 20 7b 0a 09 09 73 6c 61 76  ] == 0) {...slav
3da0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e  ePtr->flags &= ~
3db0: 43 48 49 4c 44 5f 48 45 49 47 48 54 3b 0a 09 20  CHILD_HEIGHT;.. 
3dc0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 69 66     } else {...if
3dd0: 20 28 54 6b 5f 47 65 74 50 69 78 65 6c 73 28 69   (Tk_GetPixels(i
3de0: 6e 74 65 72 70 2c 20 73 6c 61 76 65 50 74 72 2d  nterp, slavePtr-
3df0: 3e 74 6b 77 69 6e 2c 20 61 72 67 76 5b 31 5d 2c  >tkwin, argv[1],
3e00: 0a 09 09 09 26 73 6c 61 76 65 50 74 72 2d 3e 68  ....&slavePtr->h
3e10: 65 69 67 68 74 29 20 21 3d 20 54 43 4c 5f 4f 4b  eight) != TCL_OK
3e20: 29 20 7b 0a 09 09 20 20 20 20 72 65 73 75 6c 74  ) {...    result
3e30: 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09   = TCL_ERROR;...
3e40: 20 20 20 20 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09      goto done;..
3e50: 09 7d 0a 09 09 73 6c 61 76 65 50 74 72 2d 3e 66  .}...slavePtr->f
3e60: 6c 61 67 73 20 7c 3d 20 43 48 49 4c 44 5f 48 45  lags |= CHILD_HE
3e70: 49 47 48 54 3b 0a 09 20 20 20 20 7d 0a 09 7d 20  IGHT;..    }..} 
3e80: 65 6c 73 65 20 69 66 20 28 28 63 20 3d 3d 20 27  else if ((c == '
3e90: 69 27 29 20 26 26 20 28 73 74 72 6e 63 6d 70 28  i') && (strncmp(
3ea0: 61 72 67 76 5b 30 5d 2c 20 22 2d 69 6e 22 2c 20  argv[0], "-in", 
3eb0: 6c 65 6e 67 74 68 29 20 3d 3d 20 30 29 29 20 7b  length) == 0)) {
3ec0: 0a 09 20 20 20 20 54 6b 5f 57 69 6e 64 6f 77 20  ..    Tk_Window 
3ed0: 74 6b 77 69 6e 3b 0a 09 20 20 20 20 54 6b 5f 57  tkwin;..    Tk_W
3ee0: 69 6e 64 6f 77 20 61 6e 63 65 73 74 6f 72 3b 0a  indow ancestor;.
3ef0: 0a 09 20 20 20 20 74 6b 77 69 6e 20 3d 20 54 6b  ..    tkwin = Tk
3f00: 5f 4e 61 6d 65 54 6f 57 69 6e 64 6f 77 28 69 6e  _NameToWindow(in
3f10: 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 73  terp, argv[1], s
3f20: 6c 61 76 65 50 74 72 2d 3e 74 6b 77 69 6e 29 3b  lavePtr->tkwin);
3f30: 0a 09 20 20 20 20 69 66 20 28 74 6b 77 69 6e 20  ..    if (tkwin 
3f40: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 73  == NULL) {...res
3f50: 75 6c 74 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b  ult = TCL_ERROR;
3f60: 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 20  ...goto done;.. 
3f70: 20 20 20 7d 0a 0a 09 20 20 20 20 2f 2a 0a 09 20     }...    /*.. 
3f80: 20 20 20 20 2a 20 4d 61 6b 65 20 73 75 72 65 20      * Make sure 
3f90: 74 68 61 74 20 74 68 65 20 6e 65 77 20 6d 61 73  that the new mas
3fa0: 74 65 72 20 69 73 20 65 69 74 68 65 72 20 74 68  ter is either th
3fb0: 65 20 6c 6f 67 69 63 61 6c 20 70 61 72 65 6e 74  e logical parent
3fc0: 0a 09 20 20 20 20 20 2a 20 6f 66 20 74 68 65 20  ..     * of the 
3fd0: 73 6c 61 76 65 20 6f 72 20 61 20 64 65 73 63 65  slave or a desce
3fe0: 6e 64 61 6e 74 20 6f 66 20 74 68 61 74 20 77 69  ndant of that wi
3ff0: 6e 64 6f 77 2c 20 61 6e 64 20 74 68 61 74 20 74  ndow, and that t
4000: 68 65 0a 09 20 20 20 20 20 2a 20 6d 61 73 74 65  he..     * maste
4010: 72 20 61 6e 64 20 73 6c 61 76 65 20 61 72 65 6e  r and slave aren
4020: 27 74 20 74 68 65 20 73 61 6d 65 2e 0a 09 20 20  't the same...  
4030: 20 20 20 2a 2f 0a 0a 09 20 20 20 20 66 6f 72 20     */...    for 
4040: 28 61 6e 63 65 73 74 6f 72 20 3d 20 74 6b 77 69  (ancestor = tkwi
4050: 6e 3b 20 3b 20 61 6e 63 65 73 74 6f 72 20 3d 20  n; ; ancestor = 
4060: 54 6b 5f 50 61 72 65 6e 74 28 61 6e 63 65 73 74  Tk_Parent(ancest
4070: 6f 72 29 29 20 7b 0a 09 09 69 66 20 28 61 6e 63  or)) {...if (anc
4080: 65 73 74 6f 72 20 3d 3d 20 54 6b 5f 50 61 72 65  estor == Tk_Pare
4090: 6e 74 28 73 6c 61 76 65 50 74 72 2d 3e 74 6b 77  nt(slavePtr->tkw
40a0: 69 6e 29 29 20 7b 0a 09 09 20 20 20 20 62 72 65  in)) {...    bre
40b0: 61 6b 3b 0a 09 09 7d 0a 09 09 69 66 20 28 54 6b  ak;...}...if (Tk
40c0: 5f 49 73 54 6f 70 4c 65 76 65 6c 28 61 6e 63 65  _IsTopLevel(ance
40d0: 73 74 6f 72 29 29 20 7b 0a 09 09 20 20 20 20 54  stor)) {...    T
40e0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
40f0: 69 6e 74 65 72 70 2c 20 22 63 61 6e 27 74 20 70  interp, "can't p
4100: 6c 61 63 65 20 22 2c 0a 09 09 09 20 20 20 20 54  lace ",....    T
4110: 6b 5f 50 61 74 68 4e 61 6d 65 28 73 6c 61 76 65  k_PathName(slave
4120: 50 74 72 2d 3e 74 6b 77 69 6e 29 2c 20 22 20 72  Ptr->tkwin), " r
4130: 65 6c 61 74 69 76 65 20 74 6f 20 22 2c 0a 09 09  elative to ",...
4140: 09 20 20 20 20 54 6b 5f 50 61 74 68 4e 61 6d 65  .    Tk_PathName
4150: 28 74 6b 77 69 6e 29 2c 20 28 63 68 61 72 20 2a  (tkwin), (char *
4160: 29 20 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 72  ) NULL);...    r
4170: 65 73 75 6c 74 20 3d 20 54 43 4c 5f 45 52 52 4f  esult = TCL_ERRO
4180: 52 3b 0a 09 09 20 20 20 20 67 6f 74 6f 20 64 6f  R;...    goto do
4190: 6e 65 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09  ne;...}..    }..
41a0: 20 20 20 20 69 66 20 28 73 6c 61 76 65 50 74 72      if (slavePtr
41b0: 2d 3e 74 6b 77 69 6e 20 3d 3d 20 74 6b 77 69 6e  ->tkwin == tkwin
41c0: 29 20 7b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64  ) {...Tcl_Append
41d0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22  Result(interp, "
41e0: 63 61 6e 27 74 20 70 6c 61 63 65 20 22 2c 0a 09  can't place ",..
41f0: 09 09 54 6b 5f 50 61 74 68 4e 61 6d 65 28 73 6c  ..Tk_PathName(sl
4200: 61 76 65 50 74 72 2d 3e 74 6b 77 69 6e 29 2c 20  avePtr->tkwin), 
4210: 22 20 72 65 6c 61 74 69 76 65 20 74 6f 20 69 74  " relative to it
4220: 73 65 6c 66 22 2c 0a 09 09 09 28 63 68 61 72 20  self",....(char 
4230: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 73 75  *) NULL);...resu
4240: 6c 74 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  lt = TCL_ERROR;.
4250: 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 20 20  ..goto done;..  
4260: 20 20 7d 0a 09 20 20 20 20 69 66 20 28 28 73 6c    }..    if ((sl
4270: 61 76 65 50 74 72 2d 3e 6d 61 73 74 65 72 50 74  avePtr->masterPt
4280: 72 20 21 3d 20 4e 55 4c 4c 29 0a 09 09 20 20 20  r != NULL)...   
4290: 20 26 26 20 28 73 6c 61 76 65 50 74 72 2d 3e 6d   && (slavePtr->m
42a0: 61 73 74 65 72 50 74 72 2d 3e 74 6b 77 69 6e 20  asterPtr->tkwin 
42b0: 3d 3d 20 74 6b 77 69 6e 29 29 20 7b 0a 09 09 2f  == tkwin)) {.../
42c0: 2a 0a 09 09 20 2a 20 52 65 2d 75 73 69 6e 67 20  *... * Re-using 
42d0: 73 61 6d 65 20 6f 6c 64 20 6d 61 73 74 65 72 2e  same old master.
42e0: 20 20 4e 6f 74 68 69 6e 67 20 74 6f 20 64 6f 2e    Nothing to do.
42f0: 0a 09 09 20 2a 2f 0a 09 20 20 20 20 7d 20 65 6c  ... */..    } el
4300: 73 65 20 7b 0a 09 09 69 66 20 28 28 73 6c 61 76  se {...if ((slav
4310: 65 50 74 72 2d 3e 6d 61 73 74 65 72 50 74 72 20  ePtr->masterPtr 
4320: 21 3d 20 4e 55 4c 4c 29 0a 09 09 09 26 26 20 28  != NULL)....&& (
4330: 73 6c 61 76 65 50 74 72 2d 3e 6d 61 73 74 65 72  slavePtr->master
4340: 50 74 72 2d 3e 74 6b 77 69 6e 0a 09 09 09 21 3d  Ptr->tkwin....!=
4350: 20 54 6b 5f 50 61 72 65 6e 74 28 73 6c 61 76 65   Tk_Parent(slave
4360: 50 74 72 2d 3e 74 6b 77 69 6e 29 29 29 20 7b 0a  Ptr->tkwin))) {.
4370: 09 09 20 20 20 20 54 6b 5f 55 6e 6d 61 69 6e 74  ..    Tk_Unmaint
4380: 61 69 6e 47 65 6f 6d 65 74 72 79 28 73 6c 61 76  ainGeometry(slav
4390: 65 50 74 72 2d 3e 74 6b 77 69 6e 2c 0a 09 09 09  ePtr->tkwin,....
43a0: 20 20 20 20 73 6c 61 76 65 50 74 72 2d 3e 6d 61      slavePtr->ma
43b0: 73 74 65 72 50 74 72 2d 3e 74 6b 77 69 6e 29 3b  sterPtr->tkwin);
43c0: 0a 09 09 7d 0a 09 09 55 6e 6c 69 6e 6b 53 6c 61  ...}...UnlinkSla
43d0: 76 65 28 73 6c 61 76 65 50 74 72 29 3b 0a 09 09  ve(slavePtr);...
43e0: 73 6c 61 76 65 50 74 72 2d 3e 6d 61 73 74 65 72  slavePtr->master
43f0: 50 74 72 20 3d 20 46 69 6e 64 4d 61 73 74 65 72  Ptr = FindMaster
4400: 28 74 6b 77 69 6e 29 3b 0a 09 09 73 6c 61 76 65  (tkwin);...slave
4410: 50 74 72 2d 3e 6e 65 78 74 50 74 72 20 3d 20 73  Ptr->nextPtr = s
4420: 6c 61 76 65 50 74 72 2d 3e 6d 61 73 74 65 72 50  lavePtr->masterP
4430: 74 72 2d 3e 73 6c 61 76 65 50 74 72 3b 0a 09 09  tr->slavePtr;...
4440: 73 6c 61 76 65 50 74 72 2d 3e 6d 61 73 74 65 72  slavePtr->master
4450: 50 74 72 2d 3e 73 6c 61 76 65 50 74 72 20 3d 20  Ptr->slavePtr = 
4460: 73 6c 61 76 65 50 74 72 3b 0a 09 20 20 20 20 7d  slavePtr;..    }
4470: 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 28 63 20  ..} else if ((c 
4480: 3d 3d 20 27 72 27 29 20 26 26 20 28 73 74 72 6e  == 'r') && (strn
4490: 63 6d 70 28 61 72 67 76 5b 30 5d 2c 20 22 2d 72  cmp(argv[0], "-r
44a0: 65 6c 68 65 69 67 68 74 22 2c 20 6c 65 6e 67 74  elheight", lengt
44b0: 68 29 20 3d 3d 20 30 29 0a 09 09 26 26 20 28 6c  h) == 0)...&& (l
44c0: 65 6e 67 74 68 20 3e 3d 20 35 29 29 20 7b 0a 09  ength >= 5)) {..
44d0: 20 20 20 20 69 66 20 28 61 72 67 76 5b 31 5d 5b      if (argv[1][
44e0: 30 5d 20 3d 3d 20 30 29 20 7b 0a 09 09 73 6c 61  0] == 0) {...sla
44f0: 76 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 3d 20  vePtr->flags &= 
4500: 7e 43 48 49 4c 44 5f 52 45 4c 5f 48 45 49 47 48  ~CHILD_REL_HEIGH
4510: 54 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b  T;..    } else {
4520: 0a 09 09 69 66 20 28 54 63 6c 5f 47 65 74 44 6f  ...if (Tcl_GetDo
4530: 75 62 6c 65 28 69 6e 74 65 72 70 2c 20 61 72 67  uble(interp, arg
4540: 76 5b 31 5d 2c 20 26 64 29 20 21 3d 20 54 43 4c  v[1], &d) != TCL
4550: 5f 4f 4b 29 20 7b 0a 09 09 20 20 20 20 72 65 73  _OK) {...    res
4560: 75 6c 74 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b  ult = TCL_ERROR;
4570: 0a 09 09 20 20 20 20 67 6f 74 6f 20 64 6f 6e 65  ...    goto done
4580: 3b 0a 09 09 7d 0a 09 09 73 6c 61 76 65 50 74 72  ;...}...slavePtr
4590: 2d 3e 72 65 6c 48 65 69 67 68 74 20 3d 20 64 3b  ->relHeight = d;
45a0: 0a 09 09 73 6c 61 76 65 50 74 72 2d 3e 66 6c 61  ...slavePtr->fla
45b0: 67 73 20 7c 3d 20 43 48 49 4c 44 5f 52 45 4c 5f  gs |= CHILD_REL_
45c0: 48 45 49 47 48 54 3b 0a 09 20 20 20 20 7d 0a 09  HEIGHT;..    }..
45d0: 7d 20 65 6c 73 65 20 69 66 20 28 28 63 20 3d 3d  } else if ((c ==
45e0: 20 27 72 27 29 20 26 26 20 28 73 74 72 6e 63 6d   'r') && (strncm
45f0: 70 28 61 72 67 76 5b 30 5d 2c 20 22 2d 72 65 6c  p(argv[0], "-rel
4600: 77 69 64 74 68 22 2c 20 6c 65 6e 67 74 68 29 20  width", length) 
4610: 3d 3d 20 30 29 0a 09 09 26 26 20 28 6c 65 6e 67  == 0)...&& (leng
4620: 74 68 20 3e 3d 20 35 29 29 20 7b 0a 09 20 20 20  th >= 5)) {..   
4630: 20 69 66 20 28 61 72 67 76 5b 31 5d 5b 30 5d 20   if (argv[1][0] 
4640: 3d 3d 20 30 29 20 7b 0a 09 09 73 6c 61 76 65 50  == 0) {...slaveP
4650: 74 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 43 48  tr->flags &= ~CH
4660: 49 4c 44 5f 52 45 4c 5f 57 49 44 54 48 3b 0a 09  ILD_REL_WIDTH;..
4670: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 69      } else {...i
4680: 66 20 28 54 63 6c 5f 47 65 74 44 6f 75 62 6c 65  f (Tcl_GetDouble
4690: 28 69 6e 74 65 72 70 2c 20 61 72 67 76 5b 31 5d  (interp, argv[1]
46a0: 2c 20 26 64 29 20 21 3d 20 54 43 4c 5f 4f 4b 29  , &d) != TCL_OK)
46b0: 20 7b 0a 09 09 20 20 20 20 72 65 73 75 6c 74 20   {...    result 
46c0: 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 20  = TCL_ERROR;... 
46d0: 20 20 20 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 09     goto done;...
46e0: 7d 0a 09 09 73 6c 61 76 65 50 74 72 2d 3e 72 65  }...slavePtr->re
46f0: 6c 57 69 64 74 68 20 3d 20 64 3b 0a 09 09 73 6c  lWidth = d;...sl
4700: 61 76 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d  avePtr->flags |=
4710: 20 43 48 49 4c 44 5f 52 45 4c 5f 57 49 44 54 48   CHILD_REL_WIDTH
4720: 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65  ;..    }..} else
4730: 20 69 66 20 28 28 63 20 3d 3d 20 27 72 27 29 20   if ((c == 'r') 
4740: 26 26 20 28 73 74 72 6e 63 6d 70 28 61 72 67 76  && (strncmp(argv
4750: 5b 30 5d 2c 20 22 2d 72 65 6c 78 22 2c 20 6c 65  [0], "-relx", le
4760: 6e 67 74 68 29 20 3d 3d 20 30 29 0a 09 09 26 26  ngth) == 0)...&&
4770: 20 28 6c 65 6e 67 74 68 20 3e 3d 20 35 29 29 20   (length >= 5)) 
4780: 7b 0a 09 20 20 20 20 69 66 20 28 54 63 6c 5f 47  {..    if (Tcl_G
4790: 65 74 44 6f 75 62 6c 65 28 69 6e 74 65 72 70 2c  etDouble(interp,
47a0: 20 61 72 67 76 5b 31 5d 2c 20 26 64 29 20 21 3d   argv[1], &d) !=
47b0: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 72 65 73   TCL_OK) {...res
47c0: 75 6c 74 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b  ult = TCL_ERROR;
47d0: 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 20  ...goto done;.. 
47e0: 20 20 20 7d 0a 09 20 20 20 20 73 6c 61 76 65 50     }..    slaveP
47f0: 74 72 2d 3e 72 65 6c 58 20 3d 20 64 3b 0a 09 7d  tr->relX = d;..}
4800: 20 65 6c 73 65 20 69 66 20 28 28 63 20 3d 3d 20   else if ((c == 
4810: 27 72 27 29 20 26 26 20 28 73 74 72 6e 63 6d 70  'r') && (strncmp
4820: 28 61 72 67 76 5b 30 5d 2c 20 22 2d 72 65 6c 79  (argv[0], "-rely
4830: 22 2c 20 6c 65 6e 67 74 68 29 20 3d 3d 20 30 29  ", length) == 0)
4840: 0a 09 09 26 26 20 28 6c 65 6e 67 74 68 20 3e 3d  ...&& (length >=
4850: 20 35 29 29 20 7b 0a 09 20 20 20 20 69 66 20 28   5)) {..    if (
4860: 54 63 6c 5f 47 65 74 44 6f 75 62 6c 65 28 69 6e  Tcl_GetDouble(in
4870: 74 65 72 70 2c 20 61 72 67 76 5b 31 5d 2c 20 26  terp, argv[1], &
4880: 64 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a  d) != TCL_OK) {.
4890: 09 09 72 65 73 75 6c 74 20 3d 20 54 43 4c 5f 45  ..result = TCL_E
48a0: 52 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e  RROR;...goto don
48b0: 65 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 73  e;..    }..    s
48c0: 6c 61 76 65 50 74 72 2d 3e 72 65 6c 59 20 3d 20  lavePtr->relY = 
48d0: 64 3b 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 28  d;..} else if ((
48e0: 63 20 3d 3d 20 27 77 27 29 20 26 26 20 28 73 74  c == 'w') && (st
48f0: 72 6e 63 6d 70 28 61 72 67 76 5b 30 5d 2c 20 22  rncmp(argv[0], "
4900: 2d 77 69 64 74 68 22 2c 20 6c 65 6e 67 74 68 29  -width", length)
4910: 20 3d 3d 20 30 29 29 20 7b 0a 09 20 20 20 20 69   == 0)) {..    i
4920: 66 20 28 61 72 67 76 5b 31 5d 5b 30 5d 20 3d 3d  f (argv[1][0] ==
4930: 20 30 29 20 7b 0a 09 09 73 6c 61 76 65 50 74 72   0) {...slavePtr
4940: 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 43 48 49 4c  ->flags &= ~CHIL
4950: 44 5f 57 49 44 54 48 3b 0a 09 20 20 20 20 7d 20  D_WIDTH;..    } 
4960: 65 6c 73 65 20 7b 0a 09 09 69 66 20 28 54 6b 5f  else {...if (Tk_
4970: 47 65 74 50 69 78 65 6c 73 28 69 6e 74 65 72 70  GetPixels(interp
4980: 2c 20 73 6c 61 76 65 50 74 72 2d 3e 74 6b 77 69  , slavePtr->tkwi
4990: 6e 2c 20 61 72 67 76 5b 31 5d 2c 0a 09 09 09 26  n, argv[1],....&
49a0: 73 6c 61 76 65 50 74 72 2d 3e 77 69 64 74 68 29  slavePtr->width)
49b0: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09   != TCL_OK) {...
49c0: 20 20 20 20 72 65 73 75 6c 74 20 3d 20 54 43 4c      result = TCL
49d0: 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 67 6f  _ERROR;...    go
49e0: 74 6f 20 64 6f 6e 65 3b 0a 09 09 7d 0a 09 09 73  to done;...}...s
49f0: 6c 61 76 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c  lavePtr->flags |
4a00: 3d 20 43 48 49 4c 44 5f 57 49 44 54 48 3b 0a 09  = CHILD_WIDTH;..
4a10: 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65 20 69 66      }..} else if
4a20: 20 28 28 63 20 3d 3d 20 27 78 27 29 20 26 26 20   ((c == 'x') && 
4a30: 28 73 74 72 6e 63 6d 70 28 61 72 67 76 5b 30 5d  (strncmp(argv[0]
4a40: 2c 20 22 2d 78 22 2c 20 6c 65 6e 67 74 68 29 20  , "-x", length) 
4a50: 3d 3d 20 30 29 29 20 7b 0a 09 20 20 20 20 69 66  == 0)) {..    if
4a60: 20 28 54 6b 5f 47 65 74 50 69 78 65 6c 73 28 69   (Tk_GetPixels(i
4a70: 6e 74 65 72 70 2c 20 73 6c 61 76 65 50 74 72 2d  nterp, slavePtr-
4a80: 3e 74 6b 77 69 6e 2c 20 61 72 67 76 5b 31 5d 2c  >tkwin, argv[1],
4a90: 0a 09 09 20 20 20 20 26 73 6c 61 76 65 50 74 72  ...    &slavePtr
4aa0: 2d 3e 78 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20  ->x) != TCL_OK) 
4ab0: 7b 0a 09 09 72 65 73 75 6c 74 20 3d 20 54 43 4c  {...result = TCL
4ac0: 5f 45 52 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 64  _ERROR;...goto d
4ad0: 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65  one;..    }..} e
4ae0: 6c 73 65 20 69 66 20 28 28 63 20 3d 3d 20 27 79  lse if ((c == 'y
4af0: 27 29 20 26 26 20 28 73 74 72 6e 63 6d 70 28 61  ') && (strncmp(a
4b00: 72 67 76 5b 30 5d 2c 20 22 2d 79 22 2c 20 6c 65  rgv[0], "-y", le
4b10: 6e 67 74 68 29 20 3d 3d 20 30 29 29 20 7b 0a 09  ngth) == 0)) {..
4b20: 20 20 20 20 69 66 20 28 54 6b 5f 47 65 74 50 69      if (Tk_GetPi
4b30: 78 65 6c 73 28 69 6e 74 65 72 70 2c 20 73 6c 61  xels(interp, sla
4b40: 76 65 50 74 72 2d 3e 74 6b 77 69 6e 2c 20 61 72  vePtr->tkwin, ar
4b50: 67 76 5b 31 5d 2c 0a 09 09 20 20 20 20 26 73 6c  gv[1],...    &sl
4b60: 61 76 65 50 74 72 2d 3e 79 29 20 21 3d 20 54 43  avePtr->y) != TC
4b70: 4c 5f 4f 4b 29 20 7b 0a 09 09 72 65 73 75 6c 74  L_OK) {...result
4b80: 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09   = TCL_ERROR;...
4b90: 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 20  goto done;..    
4ba0: 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20  }..} else {..   
4bb0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
4bc0: 74 28 69 6e 74 65 72 70 2c 20 22 75 6e 6b 6e 6f  t(interp, "unkno
4bd0: 77 6e 20 6f 72 20 61 6d 62 69 67 75 6f 75 73 20  wn or ambiguous 
4be0: 6f 70 74 69 6f 6e 20 5c 22 22 2c 0a 09 09 20 20  option \"",...  
4bf0: 20 20 61 72 67 76 5b 30 5d 2c 20 22 5c 22 3a 20    argv[0], "\": 
4c00: 6d 75 73 74 20 62 65 20 2d 61 6e 63 68 6f 72 2c  must be -anchor,
4c10: 20 2d 62 6f 72 64 65 72 6d 6f 64 65 2c 20 2d 68   -bordermode, -h
4c20: 65 69 67 68 74 2c 20 22 2c 0a 09 09 20 20 20 20  eight, ",...    
4c30: 22 2d 69 6e 2c 20 2d 72 65 6c 68 65 69 67 68 74  "-in, -relheight
4c40: 2c 20 2d 72 65 6c 77 69 64 74 68 2c 20 2d 72 65  , -relwidth, -re
4c50: 6c 78 2c 20 2d 72 65 6c 79 2c 20 2d 77 69 64 74  lx, -rely, -widt
4c60: 68 2c 20 22 2c 0a 09 09 20 20 20 20 22 2d 78 2c  h, ",...    "-x,
4c70: 20 6f 72 20 2d 79 22 2c 20 28 63 68 61 72 20 2a   or -y", (char *
4c80: 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65  ) NULL);..    re
4c90: 73 75 6c 74 20 3d 20 54 43 4c 5f 45 52 52 4f 52  sult = TCL_ERROR
4ca0: 3b 0a 09 20 20 20 20 67 6f 74 6f 20 64 6f 6e 65  ;..    goto done
4cb0: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20  ;..}.    }..    
4cc0: 2f 2a 0a 20 20 20 20 20 2a 20 49 66 20 74 68 65  /*.     * If the
4cd0: 72 65 27 73 20 6e 6f 20 6d 61 73 74 65 72 20 73  re's no master s
4ce0: 70 65 63 69 66 69 65 64 20 66 6f 72 20 74 68 69  pecified for thi
4cf0: 73 20 73 6c 61 76 65 2c 20 75 73 65 20 69 74 73  s slave, use its
4d00: 20 54 6b 5f 50 61 72 65 6e 74 2e 0a 20 20 20 20   Tk_Parent..    
4d10: 20 2a 20 54 68 65 6e 20 61 72 72 61 6e 67 65 20   * Then arrange 
4d20: 66 6f 72 20 61 20 70 6c 61 63 65 6d 65 6e 74 20  for a placement 
4d30: 72 65 63 61 6c 63 75 6c 61 74 69 6f 6e 20 69 6e  recalculation in
4d40: 20 74 68 65 20 6d 61 73 74 65 72 2e 0a 20 20 20   the master..   
4d50: 20 20 2a 2f 0a 0a 20 20 20 20 64 6f 6e 65 3a 0a    */..    done:.
4d60: 20 20 20 20 6d 61 73 74 65 72 50 74 72 20 3d 20      masterPtr = 
4d70: 73 6c 61 76 65 50 74 72 2d 3e 6d 61 73 74 65 72  slavePtr->master
4d80: 50 74 72 3b 0a 20 20 20 20 69 66 20 28 6d 61 73  Ptr;.    if (mas
4d90: 74 65 72 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20  terPtr == NULL) 
4da0: 7b 0a 09 6d 61 73 74 65 72 50 74 72 20 3d 20 46  {..masterPtr = F
4db0: 69 6e 64 4d 61 73 74 65 72 28 54 6b 5f 50 61 72  indMaster(Tk_Par
4dc0: 65 6e 74 28 73 6c 61 76 65 50 74 72 2d 3e 74 6b  ent(slavePtr->tk
4dd0: 77 69 6e 29 29 3b 0a 09 73 6c 61 76 65 50 74 72  win));..slavePtr
4de0: 2d 3e 6d 61 73 74 65 72 50 74 72 20 3d 20 6d 61  ->masterPtr = ma
4df0: 73 74 65 72 50 74 72 3b 0a 09 73 6c 61 76 65 50  sterPtr;..slaveP
4e00: 74 72 2d 3e 6e 65 78 74 50 74 72 20 3d 20 6d 61  tr->nextPtr = ma
4e10: 73 74 65 72 50 74 72 2d 3e 73 6c 61 76 65 50 74  sterPtr->slavePt
4e20: 72 3b 0a 09 6d 61 73 74 65 72 50 74 72 2d 3e 73  r;..masterPtr->s
4e30: 6c 61 76 65 50 74 72 20 3d 20 73 6c 61 76 65 50  lavePtr = slaveP
4e40: 74 72 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66  tr;.    }.    if
4e50: 20 28 21 28 6d 61 73 74 65 72 50 74 72 2d 3e 66   (!(masterPtr->f
4e60: 6c 61 67 73 20 26 20 50 41 52 45 4e 54 5f 52 45  lags & PARENT_RE
4e70: 43 4f 4e 46 49 47 5f 50 45 4e 44 49 4e 47 29 29  CONFIG_PENDING))
4e80: 20 7b 0a 09 6d 61 73 74 65 72 50 74 72 2d 3e 66   {..masterPtr->f
4e90: 6c 61 67 73 20 7c 3d 20 50 41 52 45 4e 54 5f 52  lags |= PARENT_R
4ea0: 45 43 4f 4e 46 49 47 5f 50 45 4e 44 49 4e 47 3b  ECONFIG_PENDING;
4eb0: 0a 09 54 63 6c 5f 44 6f 57 68 65 6e 49 64 6c 65  ..Tcl_DoWhenIdle
4ec0: 28 52 65 63 6f 6d 70 75 74 65 50 6c 61 63 65 6d  (RecomputePlacem
4ed0: 65 6e 74 2c 20 28 43 6c 69 65 6e 74 44 61 74 61  ent, (ClientData
4ee0: 29 20 6d 61 73 74 65 72 50 74 72 29 3b 0a 20 20  ) masterPtr);.  
4ef0: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 72    }.    return r
4f00: 65 73 75 6c 74 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a  esult;.}.../*. *
4f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4f50: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 52 65 63  ------. *. * Rec
4f60: 6f 6d 70 75 74 65 50 6c 61 63 65 6d 65 6e 74 20  omputePlacement 
4f70: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72  --. *. *.This pr
4f80: 6f 63 65 64 75 72 65 20 69 73 20 63 61 6c 6c 65  ocedure is calle
4f90: 64 20 61 73 20 61 20 77 68 65 6e 2d 69 64 6c 65  d as a when-idle
4fa0: 20 68 61 6e 64 6c 65 72 2e 20 20 49 74 20 72 65   handler.  It re
4fb0: 63 6f 6d 70 75 74 65 73 0a 20 2a 09 74 68 65 20  computes. *.the 
4fc0: 67 65 6f 6d 65 74 72 69 65 73 20 6f 66 20 61 6c  geometries of al
4fd0: 6c 20 74 68 65 20 73 6c 61 76 65 73 20 6f 66 20  l the slaves of 
4fe0: 61 20 67 69 76 65 6e 20 6d 61 73 74 65 72 2e 0a  a given master..
4ff0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20   *. * Results:. 
5000: 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69  *.None.. *. * Si
5010: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 57  de effects:. *.W
5020: 69 6e 64 6f 77 73 20 6d 61 79 20 63 68 61 6e 67  indows may chang
5030: 65 20 73 69 7a 65 20 6f 72 20 73 68 61 70 65 2e  e size or shape.
5040: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *. *----------
5050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
5090: 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 52 65  ..static void.Re
50a0: 63 6f 6d 70 75 74 65 50 6c 61 63 65 6d 65 6e 74  computePlacement
50b0: 28 63 6c 69 65 6e 74 44 61 74 61 29 0a 20 20 20  (clientData).   
50c0: 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65   ClientData clie
50d0: 6e 74 44 61 74 61 3b 09 2f 2a 20 50 6f 69 6e 74  ntData;./* Point
50e0: 65 72 20 74 6f 20 4d 61 73 74 65 72 20 72 65 63  er to Master rec
50f0: 6f 72 64 2e 20 2a 2f 0a 7b 0a 20 20 20 20 72 65  ord. */.{.    re
5100: 67 69 73 74 65 72 20 4d 61 73 74 65 72 20 2a 6d  gister Master *m
5110: 61 73 74 65 72 50 74 72 20 3d 20 28 4d 61 73 74  asterPtr = (Mast
5120: 65 72 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61  er *) clientData
5130: 3b 0a 20 20 20 20 72 65 67 69 73 74 65 72 20 53  ;.    register S
5140: 6c 61 76 65 20 2a 73 6c 61 76 65 50 74 72 3b 0a  lave *slavePtr;.
5150: 20 20 20 20 69 6e 74 20 78 2c 20 79 2c 20 77 69      int x, y, wi
5160: 64 74 68 2c 20 68 65 69 67 68 74 2c 20 74 6d 70  dth, height, tmp
5170: 3b 0a 20 20 20 20 69 6e 74 20 6d 61 73 74 65 72  ;.    int master
5180: 57 69 64 74 68 2c 20 6d 61 73 74 65 72 48 65 69  Width, masterHei
5190: 67 68 74 2c 20 6d 61 73 74 65 72 42 57 3b 0a 20  ght, masterBW;. 
51a0: 20 20 20 64 6f 75 62 6c 65 20 78 31 2c 20 79 31     double x1, y1
51b0: 2c 20 78 32 2c 20 79 32 3b 0a 0a 20 20 20 20 6d  , x2, y2;..    m
51c0: 61 73 74 65 72 50 74 72 2d 3e 66 6c 61 67 73 20  asterPtr->flags 
51d0: 26 3d 20 7e 50 41 52 45 4e 54 5f 52 45 43 4f 4e  &= ~PARENT_RECON
51e0: 46 49 47 5f 50 45 4e 44 49 4e 47 3b 0a 0a 20 20  FIG_PENDING;..  
51f0: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 49 74 65 72    /*.     * Iter
5200: 61 74 65 20 6f 76 65 72 20 61 6c 6c 20 74 68 65  ate over all the
5210: 20 73 6c 61 76 65 73 20 66 6f 72 20 74 68 65 20   slaves for the 
5220: 6d 61 73 74 65 72 2e 20 20 45 61 63 68 20 73 6c  master.  Each sl
5230: 61 76 65 27 73 0a 20 20 20 20 20 2a 20 67 65 6f  ave's.     * geo
5240: 6d 65 74 72 79 20 63 61 6e 20 62 65 20 63 6f 6d  metry can be com
5250: 70 75 74 65 64 20 69 6e 64 65 70 65 6e 64 65 6e  puted independen
5260: 74 6c 79 20 6f 66 20 74 68 65 20 6f 74 68 65 72  tly of the other
5270: 20 73 6c 61 76 65 73 2e 0a 20 20 20 20 20 2a 2f   slaves..     */
5280: 0a 0a 20 20 20 20 66 6f 72 20 28 73 6c 61 76 65  ..    for (slave
5290: 50 74 72 20 3d 20 6d 61 73 74 65 72 50 74 72 2d  Ptr = masterPtr-
52a0: 3e 73 6c 61 76 65 50 74 72 3b 20 73 6c 61 76 65  >slavePtr; slave
52b0: 50 74 72 20 21 3d 20 4e 55 4c 4c 3b 0a 09 20 20  Ptr != NULL;..  
52c0: 20 20 73 6c 61 76 65 50 74 72 20 3d 20 73 6c 61    slavePtr = sla
52d0: 76 65 50 74 72 2d 3e 6e 65 78 74 50 74 72 29 20  vePtr->nextPtr) 
52e0: 7b 0a 09 2f 2a 0a 09 20 2a 20 53 74 65 70 20 31  {../*.. * Step 1
52f0: 3a 20 63 6f 6d 70 75 74 65 20 73 69 7a 65 20 61  : compute size a
5300: 6e 64 20 62 6f 72 64 65 72 77 69 64 74 68 20 6f  nd borderwidth o
5310: 66 20 6d 61 73 74 65 72 2c 20 74 61 6b 69 6e 67  f master, taking
5320: 20 69 6e 74 6f 0a 09 20 2a 20 61 63 63 6f 75 6e   into.. * accoun
5330: 74 20 64 65 73 69 72 65 64 20 62 6f 72 64 65 72  t desired border
5340: 20 6d 6f 64 65 2e 0a 09 20 2a 2f 0a 0a 09 6d 61   mode... */...ma
5350: 73 74 65 72 42 57 20 3d 20 30 3b 0a 09 6d 61 73  sterBW = 0;..mas
5360: 74 65 72 57 69 64 74 68 20 3d 20 54 6b 5f 57 69  terWidth = Tk_Wi
5370: 64 74 68 28 6d 61 73 74 65 72 50 74 72 2d 3e 74  dth(masterPtr->t
5380: 6b 77 69 6e 29 3b 0a 09 6d 61 73 74 65 72 48 65  kwin);..masterHe
5390: 69 67 68 74 20 3d 20 54 6b 5f 48 65 69 67 68 74  ight = Tk_Height
53a0: 28 6d 61 73 74 65 72 50 74 72 2d 3e 74 6b 77 69  (masterPtr->tkwi
53b0: 6e 29 3b 0a 09 69 66 20 28 73 6c 61 76 65 50 74  n);..if (slavePt
53c0: 72 2d 3e 62 6f 72 64 65 72 4d 6f 64 65 20 3d 3d  r->borderMode ==
53d0: 20 42 4d 5f 49 4e 53 49 44 45 29 20 7b 0a 09 20   BM_INSIDE) {.. 
53e0: 20 20 20 6d 61 73 74 65 72 42 57 20 3d 20 54 6b     masterBW = Tk
53f0: 5f 49 6e 74 65 72 6e 61 6c 42 6f 72 64 65 72 57  _InternalBorderW
5400: 69 64 74 68 28 6d 61 73 74 65 72 50 74 72 2d 3e  idth(masterPtr->
5410: 74 6b 77 69 6e 29 3b 0a 09 7d 20 65 6c 73 65 20  tkwin);..} else 
5420: 69 66 20 28 73 6c 61 76 65 50 74 72 2d 3e 62 6f  if (slavePtr->bo
5430: 72 64 65 72 4d 6f 64 65 20 3d 3d 20 42 4d 5f 4f  rderMode == BM_O
5440: 55 54 53 49 44 45 29 20 7b 0a 09 20 20 20 20 6d  UTSIDE) {..    m
5450: 61 73 74 65 72 42 57 20 3d 20 2d 54 6b 5f 42 6f  asterBW = -Tk_Bo
5460: 72 64 65 72 57 69 64 74 68 28 6d 61 73 74 65 72  rderWidth(master
5470: 50 74 72 2d 3e 74 6b 77 69 6e 29 3b 0a 09 7d 0a  Ptr->tkwin);..}.
5480: 09 6d 61 73 74 65 72 57 69 64 74 68 20 2d 3d 20  .masterWidth -= 
5490: 32 2a 6d 61 73 74 65 72 42 57 3b 0a 09 6d 61 73  2*masterBW;..mas
54a0: 74 65 72 48 65 69 67 68 74 20 2d 3d 20 32 2a 6d  terHeight -= 2*m
54b0: 61 73 74 65 72 42 57 3b 0a 0a 09 2f 2a 0a 09 20  asterBW;.../*.. 
54c0: 2a 20 53 74 65 70 20 32 3a 20 20 63 6f 6d 70 75  * Step 2:  compu
54d0: 74 65 20 73 69 7a 65 20 6f 66 20 73 6c 61 76 65  te size of slave
54e0: 20 28 6f 75 74 73 69 64 65 20 64 69 6d 65 6e 73   (outside dimens
54f0: 69 6f 6e 73 20 69 6e 63 6c 75 64 69 6e 67 0a 09  ions including..
5500: 20 2a 20 62 6f 72 64 65 72 29 20 61 6e 64 20 6c   * border) and l
5510: 6f 63 61 74 69 6f 6e 20 6f 66 20 61 6e 63 68 6f  ocation of ancho
5520: 72 20 70 6f 69 6e 74 20 77 69 74 68 69 6e 20 6d  r point within m
5530: 61 73 74 65 72 2e 0a 09 20 2a 2f 0a 0a 09 78 31  aster... */...x1
5540: 20 3d 20 73 6c 61 76 65 50 74 72 2d 3e 78 20 2b   = slavePtr->x +
5550: 20 6d 61 73 74 65 72 42 57 20 2b 20 28 73 6c 61   masterBW + (sla
5560: 76 65 50 74 72 2d 3e 72 65 6c 58 2a 6d 61 73 74  vePtr->relX*mast
5570: 65 72 57 69 64 74 68 29 3b 0a 09 78 20 3d 20 78  erWidth);..x = x
5580: 31 20 2b 20 28 28 78 31 20 3e 20 30 29 20 3f 20  1 + ((x1 > 0) ? 
5590: 30 2e 35 20 3a 20 2d 30 2e 35 29 3b 0a 09 79 31  0.5 : -0.5);..y1
55a0: 20 3d 20 73 6c 61 76 65 50 74 72 2d 3e 79 20 2b   = slavePtr->y +
55b0: 20 6d 61 73 74 65 72 42 57 20 2b 20 28 73 6c 61   masterBW + (sla
55c0: 76 65 50 74 72 2d 3e 72 65 6c 59 2a 6d 61 73 74  vePtr->relY*mast
55d0: 65 72 48 65 69 67 68 74 29 3b 0a 09 79 20 3d 20  erHeight);..y = 
55e0: 79 31 20 2b 20 28 28 79 31 20 3e 20 30 29 20 3f  y1 + ((y1 > 0) ?
55f0: 20 30 2e 35 20 3a 20 2d 30 2e 35 29 3b 0a 09 69   0.5 : -0.5);..i
5600: 66 20 28 73 6c 61 76 65 50 74 72 2d 3e 66 6c 61  f (slavePtr->fla
5610: 67 73 20 26 20 28 43 48 49 4c 44 5f 57 49 44 54  gs & (CHILD_WIDT
5620: 48 7c 43 48 49 4c 44 5f 52 45 4c 5f 57 49 44 54  H|CHILD_REL_WIDT
5630: 48 29 29 20 7b 0a 09 20 20 20 20 77 69 64 74 68  H)) {..    width
5640: 20 3d 20 30 3b 0a 09 20 20 20 20 69 66 20 28 73   = 0;..    if (s
5650: 6c 61 76 65 50 74 72 2d 3e 66 6c 61 67 73 20 26  lavePtr->flags &
5660: 20 43 48 49 4c 44 5f 57 49 44 54 48 29 20 7b 0a   CHILD_WIDTH) {.
5670: 09 09 77 69 64 74 68 20 2b 3d 20 73 6c 61 76 65  ..width += slave
5680: 50 74 72 2d 3e 77 69 64 74 68 3b 0a 09 20 20 20  Ptr->width;..   
5690: 20 7d 0a 09 20 20 20 20 69 66 20 28 73 6c 61 76   }..    if (slav
56a0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 43 48  ePtr->flags & CH
56b0: 49 4c 44 5f 52 45 4c 5f 57 49 44 54 48 29 20 7b  ILD_REL_WIDTH) {
56c0: 0a 09 09 2f 2a 0a 09 09 20 2a 20 54 68 65 20 63  .../*... * The c
56d0: 6f 64 65 20 62 65 6c 6f 77 20 69 73 20 61 20 62  ode below is a b
56e0: 69 74 20 74 72 69 63 6b 79 2e 20 20 49 6e 20 6f  it tricky.  In o
56f0: 72 64 65 72 20 74 6f 20 72 6f 75 6e 64 0a 09 09  rder to round...
5700: 20 2a 20 63 6f 72 72 65 63 74 6c 79 20 77 68 65   * correctly whe
5710: 6e 20 62 6f 74 68 20 72 65 6c 58 20 61 6e 64 20  n both relX and 
5720: 72 65 6c 57 69 64 74 68 20 61 72 65 20 73 70 65  relWidth are spe
5730: 63 69 66 69 65 64 2c 0a 09 09 20 2a 20 63 6f 6d  cified,... * com
5740: 70 75 74 65 20 74 68 65 20 6c 6f 63 61 74 69 6f  pute the locatio
5750: 6e 20 6f 66 20 74 68 65 20 72 69 67 68 74 20 65  n of the right e
5760: 64 67 65 20 61 6e 64 20 72 6f 75 6e 64 20 74 68  dge and round th
5770: 61 74 2c 0a 09 09 20 2a 20 74 68 65 6e 20 63 6f  at,... * then co
5780: 6d 70 75 74 65 20 77 69 64 74 68 2e 20 20 49 66  mpute width.  If
5790: 20 77 65 20 63 6f 6d 70 75 74 65 20 74 68 65 20   we compute the 
57a0: 77 69 64 74 68 20 61 6e 64 20 72 6f 75 6e 64 0a  width and round.
57b0: 09 09 20 2a 20 69 74 2c 20 72 6f 75 6e 64 69 6e  .. * it, roundin
57c0: 67 20 65 72 72 6f 72 73 20 69 6e 20 72 65 6c 58  g errors in relX
57d0: 20 61 6e 64 20 72 65 6c 57 69 64 74 68 20 61 63   and relWidth ac
57e0: 63 75 6d 75 6c 61 74 65 2e 0a 09 09 20 2a 2f 0a  cumulate.... */.
57f0: 0a 09 09 78 32 20 3d 20 78 31 20 2b 20 28 73 6c  ...x2 = x1 + (sl
5800: 61 76 65 50 74 72 2d 3e 72 65 6c 57 69 64 74 68  avePtr->relWidth
5810: 2a 6d 61 73 74 65 72 57 69 64 74 68 29 3b 0a 09  *masterWidth);..
5820: 09 74 6d 70 20 3d 20 78 32 20 2b 20 28 28 78 32  .tmp = x2 + ((x2
5830: 20 3e 20 30 29 20 3f 20 30 2e 35 20 3a 20 2d 30   > 0) ? 0.5 : -0
5840: 2e 35 29 3b 0a 09 09 77 69 64 74 68 20 2b 3d 20  .5);...width += 
5850: 74 6d 70 20 2d 20 78 3b 0a 09 20 20 20 20 7d 0a  tmp - x;..    }.
5860: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 77  .} else {..    w
5870: 69 64 74 68 20 3d 20 54 6b 5f 52 65 71 57 69 64  idth = Tk_ReqWid
5880: 74 68 28 73 6c 61 76 65 50 74 72 2d 3e 74 6b 77  th(slavePtr->tkw
5890: 69 6e 29 0a 09 09 20 20 20 20 2b 20 32 2a 54 6b  in)...    + 2*Tk
58a0: 5f 42 6f 72 64 65 72 57 69 64 74 68 28 73 6c 61  _BorderWidth(sla
58b0: 76 65 50 74 72 2d 3e 74 6b 77 69 6e 29 3b 0a 09  vePtr->tkwin);..
58c0: 7d 0a 09 69 66 20 28 73 6c 61 76 65 50 74 72 2d  }..if (slavePtr-
58d0: 3e 66 6c 61 67 73 20 26 20 28 43 48 49 4c 44 5f  >flags & (CHILD_
58e0: 48 45 49 47 48 54 7c 43 48 49 4c 44 5f 52 45 4c  HEIGHT|CHILD_REL
58f0: 5f 48 45 49 47 48 54 29 29 20 7b 0a 09 20 20 20  _HEIGHT)) {..   
5900: 20 68 65 69 67 68 74 20 3d 20 30 3b 0a 09 20 20   height = 0;..  
5910: 20 20 69 66 20 28 73 6c 61 76 65 50 74 72 2d 3e    if (slavePtr->
5920: 66 6c 61 67 73 20 26 20 43 48 49 4c 44 5f 48 45  flags & CHILD_HE
5930: 49 47 48 54 29 20 7b 0a 09 09 68 65 69 67 68 74  IGHT) {...height
5940: 20 2b 3d 20 73 6c 61 76 65 50 74 72 2d 3e 68 65   += slavePtr->he
5950: 69 67 68 74 3b 0a 09 20 20 20 20 7d 0a 09 20 20  ight;..    }..  
5960: 20 20 69 66 20 28 73 6c 61 76 65 50 74 72 2d 3e    if (slavePtr->
5970: 66 6c 61 67 73 20 26 20 43 48 49 4c 44 5f 52 45  flags & CHILD_RE
5980: 4c 5f 48 45 49 47 48 54 29 20 7b 0a 09 09 2f 2a  L_HEIGHT) {.../*
5990: 20 0a 09 09 20 2a 20 53 65 65 20 6e 6f 74 65 20   ... * See note 
59a0: 61 62 6f 76 65 20 66 6f 72 20 72 6f 75 6e 64 69  above for roundi
59b0: 6e 67 20 65 72 72 6f 72 73 20 69 6e 20 77 69 64  ng errors in wid
59c0: 74 68 20 63 6f 6d 70 75 74 61 74 69 6f 6e 2e 0a  th computation..
59d0: 09 09 20 2a 2f 0a 0a 09 09 79 32 20 3d 20 79 31  .. */....y2 = y1
59e0: 20 2b 20 28 73 6c 61 76 65 50 74 72 2d 3e 72 65   + (slavePtr->re
59f0: 6c 48 65 69 67 68 74 2a 6d 61 73 74 65 72 48 65  lHeight*masterHe
5a00: 69 67 68 74 29 3b 0a 09 09 74 6d 70 20 3d 20 79  ight);...tmp = y
5a10: 32 20 2b 20 28 28 79 32 20 3e 20 30 29 20 3f 20  2 + ((y2 > 0) ? 
5a20: 30 2e 35 20 3a 20 2d 30 2e 35 29 3b 0a 09 09 68  0.5 : -0.5);...h
5a30: 65 69 67 68 74 20 2b 3d 20 74 6d 70 20 2d 20 79  eight += tmp - y
5a40: 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65  ;..    }..} else
5a50: 20 7b 0a 09 20 20 20 20 68 65 69 67 68 74 20 3d   {..    height =
5a60: 20 54 6b 5f 52 65 71 48 65 69 67 68 74 28 73 6c   Tk_ReqHeight(sl
5a70: 61 76 65 50 74 72 2d 3e 74 6b 77 69 6e 29 0a 09  avePtr->tkwin)..
5a80: 09 20 20 20 20 2b 20 32 2a 54 6b 5f 42 6f 72 64  .    + 2*Tk_Bord
5a90: 65 72 57 69 64 74 68 28 73 6c 61 76 65 50 74 72  erWidth(slavePtr
5aa0: 2d 3e 74 6b 77 69 6e 29 3b 0a 09 7d 0a 0a 09 2f  ->tkwin);..}.../
5ab0: 2a 0a 09 20 2a 20 53 74 65 70 20 33 3a 20 61 64  *.. * Step 3: ad
5ac0: 6a 75 73 74 20 74 68 65 20 78 20 61 6e 64 20 79  just the x and y
5ad0: 20 70 6f 73 69 74 69 6f 6e 73 20 73 6f 20 74 68   positions so th
5ae0: 61 74 20 74 68 65 20 64 65 73 69 72 65 64 0a 09  at the desired..
5af0: 20 2a 20 61 6e 63 68 6f 72 20 70 6f 69 6e 74 20   * anchor point 
5b00: 6f 6e 20 74 68 65 20 73 6c 61 76 65 20 61 70 70  on the slave app
5b10: 65 61 72 73 20 61 74 20 74 68 61 74 20 70 6f 73  ears at that pos
5b20: 69 74 69 6f 6e 2e 20 20 41 6c 73 6f 0a 09 20 2a  ition.  Also.. *
5b30: 20 61 64 6a 75 73 74 20 66 6f 72 20 74 68 65 20   adjust for the 
5b40: 62 6f 72 64 65 72 20 6d 6f 64 65 20 61 6e 64 20  border mode and 
5b50: 6d 61 73 74 65 72 27 73 20 62 6f 72 64 65 72 2e  master's border.
5b60: 0a 09 20 2a 2f 0a 0a 09 73 77 69 74 63 68 20 28  .. */...switch (
5b70: 73 6c 61 76 65 50 74 72 2d 3e 61 6e 63 68 6f 72  slavePtr->anchor
5b80: 29 20 7b 0a 09 20 20 20 20 63 61 73 65 20 54 4b  ) {..    case TK
5b90: 5f 41 4e 43 48 4f 52 5f 4e 3a 0a 09 09 78 20 2d  _ANCHOR_N:...x -
5ba0: 3d 20 77 69 64 74 68 2f 32 3b 0a 09 09 62 72 65  = width/2;...bre
5bb0: 61 6b 3b 0a 09 20 20 20 20 63 61 73 65 20 54 4b  ak;..    case TK
5bc0: 5f 41 4e 43 48 4f 52 5f 4e 45 3a 0a 09 09 78 20  _ANCHOR_NE:...x 
5bd0: 2d 3d 20 77 69 64 74 68 3b 0a 09 09 62 72 65 61  -= width;...brea
5be0: 6b 3b 0a 09 20 20 20 20 63 61 73 65 20 54 4b 5f  k;..    case TK_
5bf0: 41 4e 43 48 4f 52 5f 45 3a 0a 09 09 78 20 2d 3d  ANCHOR_E:...x -=
5c00: 20 77 69 64 74 68 3b 0a 09 09 79 20 2d 3d 20 68   width;...y -= h
5c10: 65 69 67 68 74 2f 32 3b 0a 09 09 62 72 65 61 6b  eight/2;...break
5c20: 3b 0a 09 20 20 20 20 63 61 73 65 20 54 4b 5f 41  ;..    case TK_A
5c30: 4e 43 48 4f 52 5f 53 45 3a 0a 09 09 78 20 2d 3d  NCHOR_SE:...x -=
5c40: 20 77 69 64 74 68 3b 0a 09 09 79 20 2d 3d 20 68   width;...y -= h
5c50: 65 69 67 68 74 3b 0a 09 09 62 72 65 61 6b 3b 0a  eight;...break;.
5c60: 09 20 20 20 20 63 61 73 65 20 54 4b 5f 41 4e 43  .    case TK_ANC
5c70: 48 4f 52 5f 53 3a 0a 09 09 78 20 2d 3d 20 77 69  HOR_S:...x -= wi
5c80: 64 74 68 2f 32 3b 0a 09 09 79 20 2d 3d 20 68 65  dth/2;...y -= he
5c90: 69 67 68 74 3b 0a 09 09 62 72 65 61 6b 3b 0a 09  ight;...break;..
5ca0: 20 20 20 20 63 61 73 65 20 54 4b 5f 41 4e 43 48      case TK_ANCH
5cb0: 4f 52 5f 53 57 3a 0a 09 09 79 20 2d 3d 20 68 65  OR_SW:...y -= he
5cc0: 69 67 68 74 3b 0a 09 09 62 72 65 61 6b 3b 0a 09  ight;...break;..
5cd0: 20 20 20 20 63 61 73 65 20 54 4b 5f 41 4e 43 48      case TK_ANCH
5ce0: 4f 52 5f 57 3a 0a 09 09 79 20 2d 3d 20 68 65 69  OR_W:...y -= hei
5cf0: 67 68 74 2f 32 3b 0a 09 09 62 72 65 61 6b 3b 0a  ght/2;...break;.
5d00: 09 20 20 20 20 63 61 73 65 20 54 4b 5f 41 4e 43  .    case TK_ANC
5d10: 48 4f 52 5f 4e 57 3a 0a 09 09 62 72 65 61 6b 3b  HOR_NW:...break;
5d20: 0a 09 20 20 20 20 63 61 73 65 20 54 4b 5f 41 4e  ..    case TK_AN
5d30: 43 48 4f 52 5f 43 45 4e 54 45 52 3a 0a 09 09 78  CHOR_CENTER:...x
5d40: 20 2d 3d 20 77 69 64 74 68 2f 32 3b 0a 09 09 79   -= width/2;...y
5d50: 20 2d 3d 20 68 65 69 67 68 74 2f 32 3b 0a 09 09   -= height/2;...
5d60: 62 72 65 61 6b 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09  break;..}.../*..
5d70: 20 2a 20 53 74 65 70 20 34 3a 20 61 64 6a 75 73   * Step 4: adjus
5d80: 74 20 77 69 64 74 68 20 61 6e 64 20 68 65 69 67  t width and heig
5d90: 68 74 20 61 67 61 69 6e 20 74 6f 20 72 65 66 6c  ht again to refl
5da0: 65 63 74 20 69 6e 73 69 64 65 20 64 69 6d 65 6e  ect inside dimen
5db0: 73 69 6f 6e 73 0a 09 20 2a 20 6f 66 20 77 69 6e  sions.. * of win
5dc0: 64 6f 77 20 72 61 74 68 65 72 20 74 68 61 6e 20  dow rather than 
5dd0: 6f 75 74 73 69 64 65 2e 20 20 41 6c 73 6f 20 6d  outside.  Also m
5de0: 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 74 68  ake sure that th
5df0: 65 20 77 69 64 74 68 20 61 6e 64 0a 09 20 2a 20  e width and.. * 
5e00: 68 65 69 67 68 74 20 61 72 65 6e 27 74 20 7a 65  height aren't ze
5e10: 72 6f 2e 0a 09 20 2a 2f 0a 0a 09 77 69 64 74 68  ro... */...width
5e20: 20 2d 3d 20 32 2a 54 6b 5f 42 6f 72 64 65 72 57   -= 2*Tk_BorderW
5e30: 69 64 74 68 28 73 6c 61 76 65 50 74 72 2d 3e 74  idth(slavePtr->t
5e40: 6b 77 69 6e 29 3b 0a 09 68 65 69 67 68 74 20 2d  kwin);..height -
5e50: 3d 20 32 2a 54 6b 5f 42 6f 72 64 65 72 57 69 64  = 2*Tk_BorderWid
5e60: 74 68 28 73 6c 61 76 65 50 74 72 2d 3e 74 6b 77  th(slavePtr->tkw
5e70: 69 6e 29 3b 0a 09 69 66 20 28 77 69 64 74 68 20  in);..if (width 
5e80: 3c 3d 20 30 29 20 7b 0a 09 20 20 20 20 77 69 64  <= 0) {..    wid
5e90: 74 68 20 3d 20 31 3b 0a 09 7d 0a 09 69 66 20 28  th = 1;..}..if (
5ea0: 68 65 69 67 68 74 20 3c 3d 20 30 29 20 7b 0a 09  height <= 0) {..
5eb0: 20 20 20 20 68 65 69 67 68 74 20 3d 20 31 3b 0a      height = 1;.
5ec0: 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 53 74 65 70  .}.../*.. * Step
5ed0: 20 35 3a 20 72 65 63 6f 6e 66 69 67 75 72 65 20   5: reconfigure 
5ee0: 74 68 65 20 77 69 6e 64 6f 77 20 61 6e 64 20 6d  the window and m
5ef0: 61 70 20 69 74 20 69 66 20 6e 65 65 64 65 64 2e  ap it if needed.
5f00: 20 20 49 66 20 74 68 65 0a 09 20 2a 20 73 6c 61    If the.. * sla
5f10: 76 65 20 69 73 20 61 20 63 68 69 6c 64 20 6f 66  ve is a child of
5f20: 20 74 68 65 20 6d 61 73 74 65 72 2c 20 77 65 20   the master, we 
5f30: 64 6f 20 74 68 69 73 20 6f 75 72 73 65 6c 76 65  do this ourselve
5f40: 73 2e 20 20 49 66 20 74 68 65 0a 09 20 2a 20 73  s.  If the.. * s
5f50: 6c 61 76 65 20 69 73 6e 27 74 20 61 20 63 68 69  lave isn't a chi
5f60: 6c 64 20 6f 66 20 74 68 65 20 6d 61 73 74 65 72  ld of the master
5f70: 2c 20 6c 65 74 20 54 6b 5f 4d 61 69 6e 74 61 69  , let Tk_Maintai
5f80: 6e 57 69 6e 64 6f 77 20 64 6f 0a 09 20 2a 20 74  nWindow do.. * t
5f90: 68 65 20 77 6f 72 6b 20 28 69 74 20 77 69 6c 6c  he work (it will
5fa0: 20 72 65 2d 61 64 6a 75 73 74 20 74 68 69 6e 67   re-adjust thing
5fb0: 73 20 61 73 20 72 65 6c 65 76 61 6e 74 20 77 69  s as relevant wi
5fc0: 6e 64 6f 77 73 20 6d 61 70 2c 0a 09 20 2a 20 75  ndows map,.. * u
5fd0: 6e 6d 61 70 2c 20 61 6e 64 20 6d 6f 76 65 29 2e  nmap, and move).
5fe0: 0a 09 20 2a 2f 0a 0a 09 69 66 20 28 6d 61 73 74  .. */...if (mast
5ff0: 65 72 50 74 72 2d 3e 74 6b 77 69 6e 20 3d 3d 20  erPtr->tkwin == 
6000: 54 6b 5f 50 61 72 65 6e 74 28 73 6c 61 76 65 50  Tk_Parent(slaveP
6010: 74 72 2d 3e 74 6b 77 69 6e 29 29 20 7b 0a 09 20  tr->tkwin)) {.. 
6020: 20 20 20 69 66 20 28 28 78 20 21 3d 20 54 6b 5f     if ((x != Tk_
6030: 58 28 73 6c 61 76 65 50 74 72 2d 3e 74 6b 77 69  X(slavePtr->tkwi
6040: 6e 29 29 0a 09 09 20 20 20 20 7c 7c 20 28 79 20  n))...    || (y 
6050: 21 3d 20 54 6b 5f 59 28 73 6c 61 76 65 50 74 72  != Tk_Y(slavePtr
6060: 2d 3e 74 6b 77 69 6e 29 29 0a 09 09 20 20 20 20  ->tkwin))...    
6070: 7c 7c 20 28 77 69 64 74 68 20 21 3d 20 54 6b 5f  || (width != Tk_
6080: 57 69 64 74 68 28 73 6c 61 76 65 50 74 72 2d 3e  Width(slavePtr->
6090: 74 6b 77 69 6e 29 29 0a 09 09 20 20 20 20 7c 7c  tkwin))...    ||
60a0: 20 28 68 65 69 67 68 74 20 21 3d 20 54 6b 5f 48   (height != Tk_H
60b0: 65 69 67 68 74 28 73 6c 61 76 65 50 74 72 2d 3e  eight(slavePtr->
60c0: 74 6b 77 69 6e 29 29 29 20 7b 0a 09 09 54 6b 5f  tkwin))) {...Tk_
60d0: 4d 6f 76 65 52 65 73 69 7a 65 57 69 6e 64 6f 77  MoveResizeWindow
60e0: 28 73 6c 61 76 65 50 74 72 2d 3e 74 6b 77 69 6e  (slavePtr->tkwin
60f0: 2c 20 78 2c 20 79 2c 20 77 69 64 74 68 2c 20 68  , x, y, width, h
6100: 65 69 67 68 74 29 3b 0a 09 20 20 20 20 7d 0a 0a  eight);..    }..
6110: 09 20 20 20 20 2f 2a 0a 09 20 20 20 20 20 2a 20  .    /*..     * 
6120: 44 6f 6e 27 74 20 6d 61 70 20 74 68 65 20 73 6c  Don't map the sl
6130: 61 76 65 20 75 6e 6c 65 73 73 20 74 68 65 20 6d  ave unless the m
6140: 61 73 74 65 72 20 69 73 20 6d 61 70 70 65 64 3a  aster is mapped:
6150: 20 74 68 65 20 73 6c 61 76 65 0a 09 20 20 20 20   the slave..    
6160: 20 2a 20 77 69 6c 6c 20 67 65 74 20 6d 61 70 70   * will get mapp
6170: 65 64 20 6c 61 74 65 72 2c 20 77 68 65 6e 20 74  ed later, when t
6180: 68 65 20 6d 61 73 74 65 72 20 69 73 20 6d 61 70  he master is map
6190: 70 65 64 2e 0a 09 20 20 20 20 20 2a 2f 0a 0a 09  ped...     */...
61a0: 20 20 20 20 69 66 20 28 54 6b 5f 49 73 4d 61 70      if (Tk_IsMap
61b0: 70 65 64 28 6d 61 73 74 65 72 50 74 72 2d 3e 74  ped(masterPtr->t
61c0: 6b 77 69 6e 29 29 20 7b 0a 09 09 54 6b 5f 4d 61  kwin)) {...Tk_Ma
61d0: 70 57 69 6e 64 6f 77 28 73 6c 61 76 65 50 74 72  pWindow(slavePtr
61e0: 2d 3e 74 6b 77 69 6e 29 3b 0a 09 20 20 20 20 7d  ->tkwin);..    }
61f0: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20  ..} else {..    
6200: 69 66 20 28 28 77 69 64 74 68 20 3c 3d 20 30 29  if ((width <= 0)
6210: 20 7c 7c 20 28 68 65 69 67 68 74 20 3c 3d 20 30   || (height <= 0
6220: 29 29 20 7b 0a 09 09 54 6b 5f 55 6e 6d 61 69 6e  )) {...Tk_Unmain
6230: 74 61 69 6e 47 65 6f 6d 65 74 72 79 28 73 6c 61  tainGeometry(sla
6240: 76 65 50 74 72 2d 3e 74 6b 77 69 6e 2c 20 6d 61  vePtr->tkwin, ma
6250: 73 74 65 72 50 74 72 2d 3e 74 6b 77 69 6e 29 3b  sterPtr->tkwin);
6260: 0a 09 09 54 6b 5f 55 6e 6d 61 70 57 69 6e 64 6f  ...Tk_UnmapWindo
6270: 77 28 73 6c 61 76 65 50 74 72 2d 3e 74 6b 77 69  w(slavePtr->tkwi
6280: 6e 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20  n);..    } else 
6290: 7b 0a 09 09 54 6b 5f 4d 61 69 6e 74 61 69 6e 47  {...Tk_MaintainG
62a0: 65 6f 6d 65 74 72 79 28 73 6c 61 76 65 50 74 72  eometry(slavePtr
62b0: 2d 3e 74 6b 77 69 6e 2c 20 6d 61 73 74 65 72 50  ->tkwin, masterP
62c0: 74 72 2d 3e 74 6b 77 69 6e 2c 0a 09 09 09 78 2c  tr->tkwin,....x,
62d0: 20 79 2c 20 77 69 64 74 68 2c 20 68 65 69 67 68   y, width, heigh
62e0: 74 29 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20  t);..    }..}.  
62f0: 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d    }.}.../*. *---
6300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6340: 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 73 74 65 72  ---. *. * Master
6350: 53 74 72 75 63 74 75 72 65 50 72 6f 63 20 2d 2d  StructureProc --
6360: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63  . *. *.This proc
6370: 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64  edure is invoked
6380: 20 62 79 20 74 68 65 20 54 6b 20 65 76 65 6e 74   by the Tk event
6390: 20 68 61 6e 64 6c 65 72 20 77 68 65 6e 0a 20 2a   handler when. *
63a0: 09 53 74 72 75 63 74 75 72 65 4e 6f 74 69 66 79  .StructureNotify
63b0: 20 65 76 65 6e 74 73 20 6f 63 63 75 72 20 66 6f   events occur fo
63c0: 72 20 61 20 6d 61 73 74 65 72 20 77 69 6e 64 6f  r a master windo
63d0: 77 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73  w.. *. * Results
63e0: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a  :. *.None.. *. *
63f0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20   Side effects:. 
6400: 2a 09 53 74 72 75 63 74 75 72 65 73 20 67 65 74  *.Structures get
6410: 20 63 6c 65 61 6e 65 64 20 75 70 20 69 66 20 74   cleaned up if t
6420: 68 65 20 77 69 6e 64 6f 77 20 77 61 73 20 64 65  he window was de
6430: 6c 65 74 65 64 2e 20 20 49 66 20 74 68 65 0a 20  leted.  If the. 
6440: 2a 09 77 69 6e 64 6f 77 20 77 61 73 20 72 65 73  *.window was res
6450: 69 7a 65 64 20 74 68 65 6e 20 73 6c 61 76 65 20  ized then slave 
6460: 67 65 6f 6d 65 74 72 69 65 73 20 67 65 74 20 72  geometries get r
6470: 65 63 6f 6d 70 75 74 65 64 2e 0a 20 2a 0a 20 2a  ecomputed.. *. *
6480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64c0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74  ------. */..stat
64d0: 69 63 20 76 6f 69 64 0a 4d 61 73 74 65 72 53 74  ic void.MasterSt
64e0: 72 75 63 74 75 72 65 50 72 6f 63 28 63 6c 69 65  ructureProc(clie
64f0: 6e 74 44 61 74 61 2c 20 65 76 65 6e 74 50 74 72  ntData, eventPtr
6500: 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61  ).    ClientData
6510: 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20   clientData;./* 
6520: 50 6f 69 6e 74 65 72 20 74 6f 20 4d 61 73 74 65  Pointer to Maste
6530: 72 20 73 74 72 75 63 74 75 72 65 20 66 6f 72 20  r structure for 
6540: 77 69 6e 64 6f 77 0a 09 09 09 09 20 2a 20 72 65  window..... * re
6550: 66 65 72 72 65 64 20 74 6f 20 62 79 20 65 76 65  ferred to by eve
6560: 6e 74 50 74 72 2e 20 2a 2f 0a 20 20 20 20 58 45  ntPtr. */.    XE
6570: 76 65 6e 74 20 2a 65 76 65 6e 74 50 74 72 3b 09  vent *eventPtr;.
6580: 09 2f 2a 20 44 65 73 63 72 69 62 65 73 20 77 68  ./* Describes wh
6590: 61 74 20 6a 75 73 74 20 68 61 70 70 65 6e 65 64  at just happened
65a0: 2e 20 2a 2f 0a 7b 0a 20 20 20 20 72 65 67 69 73  . */.{.    regis
65b0: 74 65 72 20 4d 61 73 74 65 72 20 2a 6d 61 73 74  ter Master *mast
65c0: 65 72 50 74 72 20 3d 20 28 4d 61 73 74 65 72 20  erPtr = (Master 
65d0: 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20  *) clientData;. 
65e0: 20 20 20 72 65 67 69 73 74 65 72 20 53 6c 61 76     register Slav
65f0: 65 20 2a 73 6c 61 76 65 50 74 72 2c 20 2a 6e 65  e *slavePtr, *ne
6600: 78 74 50 74 72 3b 0a 0a 20 20 20 20 69 66 20 28  xtPtr;..    if (
6610: 65 76 65 6e 74 50 74 72 2d 3e 74 79 70 65 20 3d  eventPtr->type =
6620: 3d 20 43 6f 6e 66 69 67 75 72 65 4e 6f 74 69 66  = ConfigureNotif
6630: 79 29 20 7b 0a 09 69 66 20 28 28 6d 61 73 74 65  y) {..if ((maste
6640: 72 50 74 72 2d 3e 73 6c 61 76 65 50 74 72 20 21  rPtr->slavePtr !
6650: 3d 20 4e 55 4c 4c 29 0a 09 09 26 26 20 21 28 6d  = NULL)...&& !(m
6660: 61 73 74 65 72 50 74 72 2d 3e 66 6c 61 67 73 20  asterPtr->flags 
6670: 26 20 50 41 52 45 4e 54 5f 52 45 43 4f 4e 46 49  & PARENT_RECONFI
6680: 47 5f 50 45 4e 44 49 4e 47 29 29 20 7b 0a 09 20  G_PENDING)) {.. 
6690: 20 20 20 6d 61 73 74 65 72 50 74 72 2d 3e 66 6c     masterPtr->fl
66a0: 61 67 73 20 7c 3d 20 50 41 52 45 4e 54 5f 52 45  ags |= PARENT_RE
66b0: 43 4f 4e 46 49 47 5f 50 45 4e 44 49 4e 47 3b 0a  CONFIG_PENDING;.
66c0: 09 20 20 20 20 54 63 6c 5f 44 6f 57 68 65 6e 49  .    Tcl_DoWhenI
66d0: 64 6c 65 28 52 65 63 6f 6d 70 75 74 65 50 6c 61  dle(RecomputePla
66e0: 63 65 6d 65 6e 74 2c 20 28 43 6c 69 65 6e 74 44  cement, (ClientD
66f0: 61 74 61 29 20 6d 61 73 74 65 72 50 74 72 29 3b  ata) masterPtr);
6700: 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 69  ..}.    } else i
6710: 66 20 28 65 76 65 6e 74 50 74 72 2d 3e 74 79 70  f (eventPtr->typ
6720: 65 20 3d 3d 20 44 65 73 74 72 6f 79 4e 6f 74 69  e == DestroyNoti
6730: 66 79 29 20 7b 0a 09 66 6f 72 20 28 73 6c 61 76  fy) {..for (slav
6740: 65 50 74 72 20 3d 20 6d 61 73 74 65 72 50 74 72  ePtr = masterPtr
6750: 2d 3e 73 6c 61 76 65 50 74 72 3b 20 73 6c 61 76  ->slavePtr; slav
6760: 65 50 74 72 20 21 3d 20 4e 55 4c 4c 3b 0a 09 09  ePtr != NULL;...
6770: 73 6c 61 76 65 50 74 72 20 3d 20 6e 65 78 74 50  slavePtr = nextP
6780: 74 72 29 20 7b 0a 09 20 20 20 20 73 6c 61 76 65  tr) {..    slave
6790: 50 74 72 2d 3e 6d 61 73 74 65 72 50 74 72 20 3d  Ptr->masterPtr =
67a0: 20 4e 55 4c 4c 3b 0a 09 20 20 20 20 6e 65 78 74   NULL;..    next
67b0: 50 74 72 20 3d 20 73 6c 61 76 65 50 74 72 2d 3e  Ptr = slavePtr->
67c0: 6e 65 78 74 50 74 72 3b 0a 09 20 20 20 20 73 6c  nextPtr;..    sl
67d0: 61 76 65 50 74 72 2d 3e 6e 65 78 74 50 74 72 20  avePtr->nextPtr 
67e0: 3d 20 4e 55 4c 4c 3b 0a 09 7d 0a 09 54 63 6c 5f  = NULL;..}..Tcl_
67f0: 44 65 6c 65 74 65 48 61 73 68 45 6e 74 72 79 28  DeleteHashEntry(
6800: 54 63 6c 5f 46 69 6e 64 48 61 73 68 45 6e 74 72  Tcl_FindHashEntr
6810: 79 28 26 6d 61 73 74 65 72 54 61 62 6c 65 2c 0a  y(&masterTable,.
6820: 09 09 28 63 68 61 72 20 2a 29 20 6d 61 73 74 65  ..(char *) maste
6830: 72 50 74 72 2d 3e 74 6b 77 69 6e 29 29 3b 0a 09  rPtr->tkwin));..
6840: 69 66 20 28 6d 61 73 74 65 72 50 74 72 2d 3e 66  if (masterPtr->f
6850: 6c 61 67 73 20 26 20 50 41 52 45 4e 54 5f 52 45  lags & PARENT_RE
6860: 43 4f 4e 46 49 47 5f 50 45 4e 44 49 4e 47 29 20  CONFIG_PENDING) 
6870: 7b 0a 09 20 20 20 20 54 63 6c 5f 43 61 6e 63 65  {..    Tcl_Cance
6880: 6c 49 64 6c 65 43 61 6c 6c 28 52 65 63 6f 6d 70  lIdleCall(Recomp
6890: 75 74 65 50 6c 61 63 65 6d 65 6e 74 2c 20 28 43  utePlacement, (C
68a0: 6c 69 65 6e 74 44 61 74 61 29 20 6d 61 73 74 65  lientData) maste
68b0: 72 50 74 72 29 3b 0a 09 7d 0a 09 6d 61 73 74 65  rPtr);..}..maste
68c0: 72 50 74 72 2d 3e 74 6b 77 69 6e 20 3d 20 4e 55  rPtr->tkwin = NU
68d0: 4c 4c 3b 0a 09 63 6b 66 72 65 65 28 28 63 68 61  LL;..ckfree((cha
68e0: 72 20 2a 29 20 6d 61 73 74 65 72 50 74 72 29 3b  r *) masterPtr);
68f0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28  .    } else if (
6900: 65 76 65 6e 74 50 74 72 2d 3e 74 79 70 65 20 3d  eventPtr->type =
6910: 3d 20 4d 61 70 4e 6f 74 69 66 79 29 20 7b 0a 09  = MapNotify) {..
6920: 2f 2a 0a 09 20 2a 20 57 68 65 6e 20 61 20 6d 61  /*.. * When a ma
6930: 73 74 65 72 20 67 65 74 73 20 6d 61 70 70 65 64  ster gets mapped
6940: 2c 20 6d 75 73 74 20 72 65 64 6f 20 74 68 65 20  , must redo the 
6950: 67 65 6f 6d 65 74 72 79 20 63 6f 6d 70 75 74 61  geometry computa
6960: 74 69 6f 6e 0a 09 20 2a 20 73 6f 20 74 68 61 74  tion.. * so that
6970: 20 61 6c 6c 20 6f 66 20 69 74 73 20 73 6c 61 76   all of its slav
6980: 65 73 20 67 65 74 20 72 65 6d 61 70 70 65 64 2e  es get remapped.
6990: 0a 09 20 2a 2f 0a 0a 09 69 66 20 28 28 6d 61 73  .. */...if ((mas
69a0: 74 65 72 50 74 72 2d 3e 73 6c 61 76 65 50 74 72  terPtr->slavePtr
69b0: 20 21 3d 20 4e 55 4c 4c 29 0a 09 09 26 26 20 21   != NULL)...&& !
69c0: 28 6d 61 73 74 65 72 50 74 72 2d 3e 66 6c 61 67  (masterPtr->flag
69d0: 73 20 26 20 50 41 52 45 4e 54 5f 52 45 43 4f 4e  s & PARENT_RECON
69e0: 46 49 47 5f 50 45 4e 44 49 4e 47 29 29 20 7b 0a  FIG_PENDING)) {.
69f0: 09 20 20 20 20 6d 61 73 74 65 72 50 74 72 2d 3e  .    masterPtr->
6a00: 66 6c 61 67 73 20 7c 3d 20 50 41 52 45 4e 54 5f  flags |= PARENT_
6a10: 52 45 43 4f 4e 46 49 47 5f 50 45 4e 44 49 4e 47  RECONFIG_PENDING
6a20: 3b 0a 09 20 20 20 20 54 63 6c 5f 44 6f 57 68 65  ;..    Tcl_DoWhe
6a30: 6e 49 64 6c 65 28 52 65 63 6f 6d 70 75 74 65 50  nIdle(RecomputeP
6a40: 6c 61 63 65 6d 65 6e 74 2c 20 28 43 6c 69 65 6e  lacement, (Clien
6a50: 74 44 61 74 61 29 20 6d 61 73 74 65 72 50 74 72  tData) masterPtr
6a60: 29 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65  );..}.    } else
6a70: 20 69 66 20 28 65 76 65 6e 74 50 74 72 2d 3e 74   if (eventPtr->t
6a80: 79 70 65 20 3d 3d 20 55 6e 6d 61 70 4e 6f 74 69  ype == UnmapNoti
6a90: 66 79 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 55 6e  fy) {../*.. * Un
6aa0: 6d 61 70 20 61 6c 6c 20 6f 66 20 74 68 65 20 73  map all of the s
6ab0: 6c 61 76 65 73 20 77 68 65 6e 20 74 68 65 20 6d  laves when the m
6ac0: 61 73 74 65 72 20 67 65 74 73 20 75 6e 6d 61 70  aster gets unmap
6ad0: 70 65 64 2c 0a 09 20 2a 20 73 6f 20 74 68 61 74  ped,.. * so that
6ae0: 20 74 68 65 79 20 64 6f 6e 27 74 20 6b 65 65 70   they don't keep
6af0: 20 72 65 64 69 73 70 6c 61 79 69 6e 67 20 74 68   redisplaying th
6b00: 65 6d 73 65 6c 76 65 73 2e 0a 09 20 2a 2f 0a 0a  emselves... */..
6b10: 09 66 6f 72 20 28 73 6c 61 76 65 50 74 72 20 3d  .for (slavePtr =
6b20: 20 6d 61 73 74 65 72 50 74 72 2d 3e 73 6c 61 76   masterPtr->slav
6b30: 65 50 74 72 3b 20 73 6c 61 76 65 50 74 72 20 21  ePtr; slavePtr !
6b40: 3d 20 4e 55 4c 4c 3b 0a 09 09 73 6c 61 76 65 50  = NULL;...slaveP
6b50: 74 72 20 3d 20 73 6c 61 76 65 50 74 72 2d 3e 6e  tr = slavePtr->n
6b60: 65 78 74 50 74 72 29 20 7b 0a 09 20 20 20 20 54  extPtr) {..    T
6b70: 6b 5f 55 6e 6d 61 70 57 69 6e 64 6f 77 28 73 6c  k_UnmapWindow(sl
6b80: 61 76 65 50 74 72 2d 3e 74 6b 77 69 6e 29 3b 0a  avePtr->tkwin);.
6b90: 09 7d 0a 20 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a  .}.    }.}.../*.
6ba0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
6bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6be0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 53  --------. *. * S
6bf0: 6c 61 76 65 53 74 72 75 63 74 75 72 65 50 72 6f  laveStructurePro
6c00: 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20  c --. *. *.This 
6c10: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76  procedure is inv
6c20: 6f 6b 65 64 20 62 79 20 74 68 65 20 54 6b 20 65  oked by the Tk e
6c30: 76 65 6e 74 20 68 61 6e 64 6c 65 72 20 77 68 65  vent handler whe
6c40: 6e 0a 20 2a 09 53 74 72 75 63 74 75 72 65 4e 6f  n. *.StructureNo
6c50: 74 69 66 79 20 65 76 65 6e 74 73 20 6f 63 63 75  tify events occu
6c60: 72 20 66 6f 72 20 61 20 73 6c 61 76 65 20 77 69  r for a slave wi
6c70: 6e 64 6f 77 2e 0a 20 2a 0a 20 2a 20 52 65 73 75  ndow.. *. * Resu
6c80: 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a  lts:. *.None.. *
6c90: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73  . * Side effects
6ca0: 3a 0a 20 2a 09 53 74 72 75 63 74 75 72 65 73 20  :. *.Structures 
6cb0: 67 65 74 20 63 6c 65 61 6e 65 64 20 75 70 20 69  get cleaned up i
6cc0: 66 20 74 68 65 20 77 69 6e 64 6f 77 20 77 61 73  f the window was
6cd0: 20 64 65 6c 65 74 65 64 2e 0a 20 2a 0a 20 2a 2d   deleted.. *. *-
6ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6d20: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69  -----. */..stati
6d30: 63 20 76 6f 69 64 0a 53 6c 61 76 65 53 74 72 75  c void.SlaveStru
6d40: 63 74 75 72 65 50 72 6f 63 28 63 6c 69 65 6e 74  ctureProc(client
6d50: 44 61 74 61 2c 20 65 76 65 6e 74 50 74 72 29 0a  Data, eventPtr).
6d60: 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63      ClientData c
6d70: 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 50 6f  lientData;./* Po
6d80: 69 6e 74 65 72 20 74 6f 20 53 6c 61 76 65 20 73  inter to Slave s
6d90: 74 72 75 63 74 75 72 65 20 66 6f 72 20 77 69 6e  tructure for win
6da0: 64 6f 77 0a 09 09 09 09 20 2a 20 72 65 66 65 72  dow..... * refer
6db0: 72 65 64 20 74 6f 20 62 79 20 65 76 65 6e 74 50  red to by eventP
6dc0: 74 72 2e 20 2a 2f 0a 20 20 20 20 58 45 76 65 6e  tr. */.    XEven
6dd0: 74 20 2a 65 76 65 6e 74 50 74 72 3b 09 09 2f 2a  t *eventPtr;../*
6de0: 20 44 65 73 63 72 69 62 65 73 20 77 68 61 74 20   Describes what 
6df0: 6a 75 73 74 20 68 61 70 70 65 6e 65 64 2e 20 2a  just happened. *
6e00: 2f 0a 7b 0a 20 20 20 20 72 65 67 69 73 74 65 72  /.{.    register
6e10: 20 53 6c 61 76 65 20 2a 73 6c 61 76 65 50 74 72   Slave *slavePtr
6e20: 20 3d 20 28 53 6c 61 76 65 20 2a 29 20 63 6c 69   = (Slave *) cli
6e30: 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 69 66  entData;..    if
6e40: 20 28 65 76 65 6e 74 50 74 72 2d 3e 74 79 70 65   (eventPtr->type
6e50: 20 3d 3d 20 44 65 73 74 72 6f 79 4e 6f 74 69 66   == DestroyNotif
6e60: 79 29 20 7b 0a 09 55 6e 6c 69 6e 6b 53 6c 61 76  y) {..UnlinkSlav
6e70: 65 28 73 6c 61 76 65 50 74 72 29 3b 0a 09 54 63  e(slavePtr);..Tc
6e80: 6c 5f 44 65 6c 65 74 65 48 61 73 68 45 6e 74 72  l_DeleteHashEntr
6e90: 79 28 54 63 6c 5f 46 69 6e 64 48 61 73 68 45 6e  y(Tcl_FindHashEn
6ea0: 74 72 79 28 26 73 6c 61 76 65 54 61 62 6c 65 2c  try(&slaveTable,
6eb0: 0a 09 09 28 63 68 61 72 20 2a 29 20 73 6c 61 76  ...(char *) slav
6ec0: 65 50 74 72 2d 3e 74 6b 77 69 6e 29 29 3b 0a 09  ePtr->tkwin));..
6ed0: 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29 20  ckfree((char *) 
6ee0: 73 6c 61 76 65 50 74 72 29 3b 0a 20 20 20 20 7d  slavePtr);.    }
6ef0: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  .}.../*. *------
6f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6f40: 0a 20 2a 0a 20 2a 20 50 6c 61 63 65 52 65 71 75  . *. * PlaceRequ
6f50: 65 73 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a  estProc --. *. *
6f60: 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20  .This procedure 
6f70: 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 54 6b  is invoked by Tk
6f80: 20 77 68 65 6e 65 76 65 72 20 61 20 73 6c 61 76   whenever a slav
6f90: 65 20 6d 61 6e 61 67 65 64 20 62 79 20 75 73 0a  e managed by us.
6fa0: 20 2a 09 63 68 61 6e 67 65 73 20 69 74 73 20 72   *.changes its r
6fb0: 65 71 75 65 73 74 65 64 20 67 65 6f 6d 65 74 72  equested geometr
6fc0: 79 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73  y.. *. * Results
6fd0: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a  :. *.None.. *. *
6fe0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20   Side effects:. 
6ff0: 2a 09 54 68 65 20 77 69 6e 64 6f 77 20 77 69 6c  *.The window wil
7000: 6c 20 67 65 74 20 72 65 6c 61 79 65 64 20 6f 75  l get relayed ou
7010: 74 2c 20 69 66 20 69 74 73 20 72 65 71 75 65 73  t, if its reques
7020: 74 65 64 20 73 69 7a 65 20 68 61 73 0a 20 2a 09  ted size has. *.
7030: 61 6e 79 74 68 69 6e 67 20 74 6f 20 64 6f 20 77  anything to do w
7040: 69 74 68 20 69 74 73 20 61 63 74 75 61 6c 20 73  ith its actual s
7050: 69 7a 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  ize.. *. *------
7060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
70a0: 0a 20 2a 2f 0a 0a 09 2f 2a 20 41 52 47 53 55 53  . */.../* ARGSUS
70b0: 45 44 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69  ED */.static voi
70c0: 64 0a 50 6c 61 63 65 52 65 71 75 65 73 74 50 72  d.PlaceRequestPr
70d0: 6f 63 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 74  oc(clientData, t
70e0: 6b 77 69 6e 29 0a 20 20 20 20 43 6c 69 65 6e 74  kwin).    Client
70f0: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b  Data clientData;
7100: 09 09 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20  ../* Pointer to 
7110: 6f 75 72 20 72 65 63 6f 72 64 20 66 6f 72 20 73  our record for s
7120: 6c 61 76 65 2e 20 2a 2f 0a 20 20 20 20 54 6b 5f  lave. */.    Tk_
7130: 57 69 6e 64 6f 77 20 74 6b 77 69 6e 3b 09 09 09  Window tkwin;...
7140: 2f 2a 20 57 69 6e 64 6f 77 20 74 68 61 74 20 63  /* Window that c
7150: 68 61 6e 67 65 64 20 69 74 73 20 64 65 73 69 72  hanged its desir
7160: 65 64 0a 09 09 09 09 09 20 2a 20 73 69 7a 65 2e  ed...... * size.
7170: 20 2a 2f 0a 7b 0a 20 20 20 20 53 6c 61 76 65 20   */.{.    Slave 
7180: 2a 73 6c 61 76 65 50 74 72 20 3d 20 28 53 6c 61  *slavePtr = (Sla
7190: 76 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61  ve *) clientData
71a0: 3b 0a 20 20 20 20 4d 61 73 74 65 72 20 2a 6d 61  ;.    Master *ma
71b0: 73 74 65 72 50 74 72 3b 0a 0a 20 20 20 20 69 66  sterPtr;..    if
71c0: 20 28 28 28 73 6c 61 76 65 50 74 72 2d 3e 66 6c   (((slavePtr->fl
71d0: 61 67 73 20 26 20 28 43 48 49 4c 44 5f 57 49 44  ags & (CHILD_WID
71e0: 54 48 7c 43 48 49 4c 44 5f 52 45 4c 5f 57 49 44  TH|CHILD_REL_WID
71f0: 54 48 29 29 20 21 3d 20 30 29 0a 09 20 20 20 20  TH)) != 0)..    
7200: 26 26 20 28 28 73 6c 61 76 65 50 74 72 2d 3e 66  && ((slavePtr->f
7210: 6c 61 67 73 20 26 20 28 43 48 49 4c 44 5f 48 45  lags & (CHILD_HE
7220: 49 47 48 54 7c 43 48 49 4c 44 5f 52 45 4c 5f 48  IGHT|CHILD_REL_H
7230: 45 49 47 48 54 29 29 20 21 3d 20 30 29 29 20 7b  EIGHT)) != 0)) {
7240: 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a  ..return;.    }.
7250: 20 20 20 20 6d 61 73 74 65 72 50 74 72 20 3d 20      masterPtr = 
7260: 73 6c 61 76 65 50 74 72 2d 3e 6d 61 73 74 65 72  slavePtr->master
7270: 50 74 72 3b 0a 20 20 20 20 69 66 20 28 6d 61 73  Ptr;.    if (mas
7280: 74 65 72 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20  terPtr == NULL) 
7290: 7b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d  {..return;.    }
72a0: 0a 20 20 20 20 69 66 20 28 21 28 6d 61 73 74 65  .    if (!(maste
72b0: 72 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 50 41  rPtr->flags & PA
72c0: 52 45 4e 54 5f 52 45 43 4f 4e 46 49 47 5f 50 45  RENT_RECONFIG_PE
72d0: 4e 44 49 4e 47 29 29 20 7b 0a 09 6d 61 73 74 65  NDING)) {..maste
72e0: 72 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 50  rPtr->flags |= P
72f0: 41 52 45 4e 54 5f 52 45 43 4f 4e 46 49 47 5f 50  ARENT_RECONFIG_P
7300: 45 4e 44 49 4e 47 3b 0a 09 54 63 6c 5f 44 6f 57  ENDING;..Tcl_DoW
7310: 68 65 6e 49 64 6c 65 28 52 65 63 6f 6d 70 75 74  henIdle(Recomput
7320: 65 50 6c 61 63 65 6d 65 6e 74 2c 20 28 43 6c 69  ePlacement, (Cli
7330: 65 6e 74 44 61 74 61 29 20 6d 61 73 74 65 72 50  entData) masterP
7340: 74 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0c 0a 2f  tr);.    }.}.../
7350: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
7360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7390: 2d 2d 0a 20 2a 0a 20 2a 20 50 6c 61 63 65 4c 6f  --. *. * PlaceLo
73a0: 73 74 53 6c 61 76 65 50 72 6f 63 20 2d 2d 0a 20  stSlaveProc --. 
73b0: 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64  *. *.This proced
73c0: 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62  ure is invoked b
73d0: 79 20 54 6b 20 77 68 65 6e 65 76 65 72 20 73 6f  y Tk whenever so
73e0: 6d 65 20 6f 74 68 65 72 20 67 65 6f 6d 65 74 72  me other geometr
73f0: 79 0a 20 2a 09 63 6c 61 69 6d 73 20 63 6f 6e 74  y. *.claims cont
7400: 72 6f 6c 20 6f 76 65 72 20 61 20 73 6c 61 76 65  rol over a slave
7410: 20 74 68 61 74 20 75 73 65 64 20 74 6f 20 62 65   that used to be
7420: 20 6d 61 6e 61 67 65 64 20 62 79 20 75 73 2e 0a   managed by us..
7430: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20   *. * Results:. 
7440: 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69  *.None.. *. * Si
7450: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 46  de effects:. *.F
7460: 6f 72 67 65 74 73 20 61 6c 6c 20 70 6c 61 63 65  orgets all place
7470: 72 2d 72 65 6c 61 74 65 64 20 69 6e 66 6f 72 6d  r-related inform
7480: 61 74 69 6f 6e 20 61 62 6f 75 74 20 74 68 65 20  ation about the 
7490: 73 6c 61 76 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d  slave.. *. *----
74a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
74b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
74c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
74d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a  ----------. */..
74e0: 09 2f 2a 20 41 52 47 53 55 53 45 44 20 2a 2f 0a  ./* ARGSUSED */.
74f0: 73 74 61 74 69 63 20 76 6f 69 64 0a 50 6c 61 63  static void.Plac
7500: 65 4c 6f 73 74 53 6c 61 76 65 50 72 6f 63 28 63  eLostSlaveProc(c
7510: 6c 69 65 6e 74 44 61 74 61 2c 20 74 6b 77 69 6e  lientData, tkwin
7520: 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61  ).    ClientData
7530: 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20   clientData;./* 
7540: 53 6c 61 76 65 20 73 74 72 75 63 74 75 72 65 20  Slave structure 
7550: 66 6f 72 20 73 6c 61 76 65 20 77 69 6e 64 6f 77  for slave window
7560: 20 74 68 61 74 0a 09 09 09 09 20 2a 20 77 61 73   that..... * was
7570: 20 73 74 6f 6c 65 6e 20 61 77 61 79 2e 20 2a 2f   stolen away. */
7580: 0a 20 20 20 20 54 6b 5f 57 69 6e 64 6f 77 20 74  .    Tk_Window t
7590: 6b 77 69 6e 3b 09 09 2f 2a 20 54 6b 27 73 20 68  kwin;../* Tk's h
75a0: 61 6e 64 6c 65 20 66 6f 72 20 74 68 65 20 73 6c  andle for the sl
75b0: 61 76 65 20 77 69 6e 64 6f 77 2e 20 2a 2f 0a 7b  ave window. */.{
75c0: 0a 20 20 20 20 72 65 67 69 73 74 65 72 20 53 6c  .    register Sl
75d0: 61 76 65 20 2a 73 6c 61 76 65 50 74 72 20 3d 20  ave *slavePtr = 
75e0: 28 53 6c 61 76 65 20 2a 29 20 63 6c 69 65 6e 74  (Slave *) client
75f0: 44 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 73  Data;..    if (s
7600: 6c 61 76 65 50 74 72 2d 3e 6d 61 73 74 65 72 50  lavePtr->masterP
7610: 74 72 2d 3e 74 6b 77 69 6e 20 21 3d 20 54 6b 5f  tr->tkwin != Tk_
7620: 50 61 72 65 6e 74 28 73 6c 61 76 65 50 74 72 2d  Parent(slavePtr-
7630: 3e 74 6b 77 69 6e 29 29 20 7b 0a 09 54 6b 5f 55  >tkwin)) {..Tk_U
7640: 6e 6d 61 69 6e 74 61 69 6e 47 65 6f 6d 65 74 72  nmaintainGeometr
7650: 79 28 73 6c 61 76 65 50 74 72 2d 3e 74 6b 77 69  y(slavePtr->tkwi
7660: 6e 2c 20 73 6c 61 76 65 50 74 72 2d 3e 6d 61 73  n, slavePtr->mas
7670: 74 65 72 50 74 72 2d 3e 74 6b 77 69 6e 29 3b 0a  terPtr->tkwin);.
7680: 20 20 20 20 7d 0a 20 20 20 20 54 6b 5f 55 6e 6d      }.    Tk_Unm
7690: 61 70 57 69 6e 64 6f 77 28 74 6b 77 69 6e 29 3b  apWindow(tkwin);
76a0: 0a 20 20 20 20 55 6e 6c 69 6e 6b 53 6c 61 76 65  .    UnlinkSlave
76b0: 28 73 6c 61 76 65 50 74 72 29 3b 0a 20 20 20 20  (slavePtr);.    
76c0: 54 63 6c 5f 44 65 6c 65 74 65 48 61 73 68 45 6e  Tcl_DeleteHashEn
76d0: 74 72 79 28 54 63 6c 5f 46 69 6e 64 48 61 73 68  try(Tcl_FindHash
76e0: 45 6e 74 72 79 28 26 73 6c 61 76 65 54 61 62 6c  Entry(&slaveTabl
76f0: 65 2c 20 28 63 68 61 72 20 2a 29 20 74 6b 77 69  e, (char *) tkwi
7700: 6e 29 29 3b 0a 20 20 20 20 54 6b 5f 44 65 6c 65  n));.    Tk_Dele
7710: 74 65 45 76 65 6e 74 48 61 6e 64 6c 65 72 28 74  teEventHandler(t
7720: 6b 77 69 6e 2c 20 53 74 72 75 63 74 75 72 65 4e  kwin, StructureN
7730: 6f 74 69 66 79 4d 61 73 6b 2c 20 53 6c 61 76 65  otifyMask, Slave
7740: 53 74 72 75 63 74 75 72 65 50 72 6f 63 2c 0a 09  StructureProc,..
7750: 20 20 20 20 28 43 6c 69 65 6e 74 44 61 74 61 29      (ClientData)
7760: 20 73 6c 61 76 65 50 74 72 29 3b 0a 20 20 20 20   slavePtr);.    
7770: 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29 20  ckfree((char *) 
7780: 73 6c 61 76 65 50 74 72 29 3b 0a 7d 0a           slavePtr);.}.