Hex Artifact Content

Artifact 8d485493854f59ceba8ac2578cd24a13400bb565:


0000: 2f 2a 20 0a 20 2a 20 74 6b 4f 70 74 69 6f 6e 2e  /* . * tkOption.
0010: 63 20 28 43 74 6b 29 20 2d 2d 0a 20 2a 0a 20 2a  c (Ctk) --. *. *
0020: 09 54 68 69 73 20 6d 6f 64 75 6c 65 20 63 6f 6e  .This module con
0030: 74 61 69 6e 73 20 70 72 6f 63 65 64 75 72 65 73  tains procedures
0040: 20 74 6f 20 6d 61 6e 61 67 65 20 74 68 65 20 6f   to manage the o
0050: 70 74 69 6f 6e 0a 20 2a 09 64 61 74 61 62 61 73  ption. *.databas
0060: 65 2c 20 77 68 69 63 68 20 61 6c 6c 6f 77 73 20  e, which allows 
0070: 76 61 72 69 6f 75 73 20 73 74 72 69 6e 67 73 20  various strings 
0080: 74 6f 20 62 65 20 61 73 73 6f 63 69 61 74 65 64  to be associated
0090: 0a 20 2a 09 77 69 74 68 20 77 69 6e 64 6f 77 73  . *.with windows
00a0: 20 65 69 74 68 65 72 20 62 79 20 6e 61 6d 65 20   either by name 
00b0: 6f 72 20 62 79 20 63 6c 61 73 73 20 6f 72 20 62  or by class or b
00c0: 6f 74 68 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 72  oth.. *. * Copyr
00d0: 69 67 68 74 20 28 63 29 20 31 39 39 30 2d 31 39  ight (c) 1990-19
00e0: 39 34 20 54 68 65 20 52 65 67 65 6e 74 73 20 6f  94 The Regents o
00f0: 66 20 74 68 65 20 55 6e 69 76 65 72 73 69 74 79  f the University
0100: 20 6f 66 20 43 61 6c 69 66 6f 72 6e 69 61 2e 0a   of California..
0110: 20 2a 20 43 6f 70 79 72 69 67 68 74 20 28 63 29   * Copyright (c)
0120: 20 31 39 39 34 2d 31 39 39 35 20 53 75 6e 20 4d   1994-1995 Sun M
0130: 69 63 72 6f 73 79 73 74 65 6d 73 2c 20 49 6e 63  icrosystems, Inc
0140: 2e 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 28  .. * Copyright (
0150: 63 29 20 31 39 39 35 20 43 6c 65 76 65 6c 61 6e  c) 1995 Clevelan
0160: 64 20 43 6c 69 6e 69 63 20 46 6f 75 6e 64 61 74  d Clinic Foundat
0170: 69 6f 6e 0a 20 2a 09 61 64 61 70 74 65 64 20 66  ion. *.adapted f
0180: 72 6f 6d 20 74 6b 34 2e 32 62 31 20 62 79 20 4a  rom tk4.2b1 by J
0190: 75 61 6e 4a 6f 20 3c 6a 6a 63 69 61 72 6c 61 40  uanJo <jjciarla@
01a0: 72 61 69 7a 2e 75 6e 63 75 2e 65 64 75 2e 61 72  raiz.uncu.edu.ar
01b0: 3e 0a 20 2a 0a 20 2a 20 53 65 65 20 74 68 65 20  >. *. * See the 
01c0: 66 69 6c 65 20 22 6c 69 63 65 6e 73 65 2e 74 65  file "license.te
01d0: 72 6d 73 22 20 66 6f 72 20 69 6e 66 6f 72 6d 61  rms" for informa
01e0: 74 69 6f 6e 20 6f 6e 20 75 73 61 67 65 20 61 6e  tion on usage an
01f0: 64 20 72 65 64 69 73 74 72 69 62 75 74 69 6f 6e  d redistribution
0200: 0a 20 2a 20 6f 66 20 74 68 69 73 20 66 69 6c 65  . * of this file
0210: 2c 20 61 6e 64 20 66 6f 72 20 61 20 44 49 53 43  , and for a DISC
0220: 4c 41 49 4d 45 52 20 4f 46 20 41 4c 4c 20 57 41  LAIMER OF ALL WA
0230: 52 52 41 4e 54 49 45 53 2e 0a 20 2a 0a 20 2a 20  RRANTIES.. *. * 
0240: 40 28 23 29 20 24 49 64 3a 20 63 74 6b 2e 73 68  @(#) $Id: ctk.sh
0250: 61 72 2c 76 20 31 2e 35 30 20 31 39 39 36 2f 30  ar,v 1.50 1996/0
0260: 31 2f 31 35 20 31 34 3a 34 37 3a 31 36 20 61 6e  1/15 14:47:16 an
0270: 64 72 65 77 6d 20 45 78 70 20 61 6e 64 72 65 77  drewm Exp andrew
0280: 6d 20 24 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64  m $. */..#includ
0290: 65 20 22 74 6b 50 6f 72 74 2e 68 22 0a 23 69 6e  e "tkPort.h".#in
02a0: 63 6c 75 64 65 20 22 74 6b 49 6e 74 2e 68 22 0a  clude "tkInt.h".
02b0: 0a 2f 2a 0a 20 2a 20 54 68 65 20 6f 70 74 69 6f  ./*. * The optio
02c0: 6e 20 64 61 74 61 62 61 73 65 20 69 73 20 73 74  n database is st
02d0: 6f 72 65 64 20 61 73 20 6f 6e 65 20 74 72 65 65  ored as one tree
02e0: 20 66 6f 72 20 65 61 63 68 20 6d 61 69 6e 20 77   for each main w
02f0: 69 6e 64 6f 77 2e 0a 20 2a 20 45 61 63 68 20 6e  indow.. * Each n
0300: 61 6d 65 20 6f 72 20 63 6c 61 73 73 20 66 69 65  ame or class fie
0310: 6c 64 20 69 6e 20 61 6e 20 6f 70 74 69 6f 6e 20  ld in an option 
0320: 69 73 20 61 73 73 6f 63 69 61 74 65 64 20 77 69  is associated wi
0330: 74 68 20 61 20 6e 6f 64 65 20 6f 72 0a 20 2a 20  th a node or. * 
0340: 6c 65 61 66 20 6f 66 20 74 68 65 20 74 72 65 65  leaf of the tree
0350: 2e 20 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20  .  For example, 
0360: 74 68 65 20 6f 70 74 69 6f 6e 73 20 22 78 2e 79  the options "x.y
0370: 2e 7a 22 20 61 6e 64 20 22 78 2e 79 2a 61 22 0a  .z" and "x.y*a".
0380: 20 2a 20 65 61 63 68 20 63 6f 72 72 65 73 70 6f   * each correspo
0390: 6e 64 20 74 6f 20 74 68 72 65 65 20 6e 6f 64 65  nd to three node
03a0: 73 20 69 6e 20 74 68 65 20 74 72 65 65 3b 20 20  s in the tree;  
03b0: 74 68 65 79 20 73 68 61 72 65 20 74 68 65 20 6e  they share the n
03c0: 6f 64 65 73 0a 20 2a 20 22 78 22 20 61 6e 64 20  odes. * "x" and 
03d0: 22 78 2e 79 22 2c 20 62 75 74 20 68 61 76 65 20  "x.y", but have 
03e0: 64 69 66 66 65 72 65 6e 74 20 6c 65 61 66 20 6e  different leaf n
03f0: 6f 64 65 73 2e 20 20 4f 6e 65 20 6f 66 20 74 68  odes.  One of th
0400: 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a 20 2a 20 73  e following. * s
0410: 74 72 75 63 74 75 72 65 73 20 65 78 69 73 74 73  tructures exists
0420: 20 66 6f 72 20 65 61 63 68 20 6e 6f 64 65 20 6f   for each node o
0430: 72 20 6c 65 61 66 20 69 6e 20 74 68 65 20 6f 70  r leaf in the op
0440: 74 69 6f 6e 20 74 72 65 65 2e 20 20 49 74 20 69  tion tree.  It i
0450: 73 0a 20 2a 20 61 63 74 75 61 6c 6c 79 20 73 74  s. * actually st
0460: 6f 72 65 64 20 61 73 20 70 61 72 74 20 6f 66 20  ored as part of 
0470: 74 68 65 20 70 61 72 65 6e 74 20 6e 6f 64 65 2c  the parent node,
0480: 20 61 6e 64 20 64 65 73 63 72 69 62 65 73 20 61   and describes a
0490: 20 70 61 72 74 69 63 75 6c 61 72 0a 20 2a 20 63   particular. * c
04a0: 68 69 6c 64 20 6f 66 20 74 68 65 20 70 61 72 65  hild of the pare
04b0: 6e 74 2e 0a 20 2a 2f 0a 0a 74 79 70 65 64 65 66  nt.. */..typedef
04c0: 20 73 74 72 75 63 74 20 45 6c 65 6d 65 6e 74 20   struct Element 
04d0: 7b 0a 20 20 20 20 54 6b 5f 55 69 64 20 6e 61 6d  {.    Tk_Uid nam
04e0: 65 55 69 64 3b 09 09 09 2f 2a 20 4e 61 6d 65 20  eUid;.../* Name 
04f0: 6f 72 20 63 6c 61 73 73 20 66 72 6f 6d 20 6f 6e  or class from on
0500: 65 20 65 6c 65 6d 65 6e 74 20 6f 66 0a 09 09 09  e element of....
0510: 09 09 20 2a 20 61 6e 20 6f 70 74 69 6f 6e 20 73  .. * an option s
0520: 70 65 63 2e 20 2a 2f 0a 20 20 20 20 75 6e 69 6f  pec. */.    unio
0530: 6e 20 7b 0a 09 73 74 72 75 63 74 20 45 6c 41 72  n {..struct ElAr
0540: 72 61 79 20 2a 61 72 72 61 79 50 74 72 3b 09 2f  ray *arrayPtr;./
0550: 2a 20 49 66 20 74 68 69 73 20 69 73 20 61 6e 20  * If this is an 
0560: 69 6e 74 65 72 6d 65 64 69 61 74 65 20 6e 6f 64  intermediate nod
0570: 65 2c 0a 09 09 09 09 09 20 2a 20 61 20 70 6f 69  e,...... * a poi
0580: 6e 74 65 72 20 74 6f 20 61 20 73 74 72 75 63 74  nter to a struct
0590: 75 72 65 20 64 65 73 63 72 69 62 69 6e 67 0a 09  ure describing..
05a0: 09 09 09 09 20 2a 20 74 68 65 20 72 65 6d 61 69  .... * the remai
05b0: 6e 69 6e 67 20 65 6c 65 6d 65 6e 74 73 20 6f 66  ning elements of
05c0: 20 61 6c 6c 0a 09 09 09 09 09 20 2a 20 6f 70 74   all...... * opt
05d0: 69 6f 6e 73 20 77 68 6f 73 65 20 70 72 65 66 69  ions whose prefi
05e0: 78 65 73 20 61 72 65 20 74 68 65 0a 09 09 09 09  xes are the.....
05f0: 09 20 2a 20 73 61 6d 65 20 75 70 20 74 68 72 6f  . * same up thro
0600: 75 67 68 20 74 68 69 73 20 65 6c 65 6d 65 6e 74  ugh this element
0610: 2e 20 2a 2f 0a 09 54 6b 5f 55 69 64 20 76 61 6c  . */..Tk_Uid val
0620: 75 65 55 69 64 3b 09 09 2f 2a 20 46 6f 72 20 6c  ueUid;../* For l
0630: 65 61 66 20 6e 6f 64 65 73 2c 20 74 68 69 73 20  eaf nodes, this 
0640: 69 73 20 74 68 65 20 73 74 72 69 6e 67 0a 09 09  is the string...
0650: 09 09 09 20 2a 20 76 61 6c 75 65 20 6f 66 20 74  ... * value of t
0660: 68 65 20 6f 70 74 69 6f 6e 2e 20 2a 2f 0a 20 20  he option. */.  
0670: 20 20 7d 20 63 68 69 6c 64 3b 0a 20 20 20 20 69    } child;.    i
0680: 6e 74 20 70 72 69 6f 72 69 74 79 3b 09 09 09 2f  nt priority;.../
0690: 2a 20 55 73 65 64 20 74 6f 20 73 65 6c 65 63 74  * Used to select
06a0: 20 61 6d 6f 6e 67 20 6d 61 74 63 68 69 6e 67 0a   among matching.
06b0: 09 09 09 09 09 20 2a 20 6f 70 74 69 6f 6e 73 2e  ..... * options.
06c0: 20 20 49 6e 63 6c 75 64 65 73 20 62 6f 74 68 20    Includes both 
06d0: 74 68 65 0a 09 09 09 09 09 20 2a 20 70 72 69 6f  the...... * prio
06e0: 72 69 74 79 20 6c 65 76 65 6c 20 61 6e 64 20 61  rity level and a
06f0: 20 73 65 72 69 61 6c 20 23 2e 0a 09 09 09 09 09   serial #.......
0700: 20 2a 20 47 72 65 61 74 65 72 20 76 61 6c 75 65   * Greater value
0710: 20 6d 65 61 6e 73 20 68 69 67 68 65 72 0a 09 09   means higher...
0720: 09 09 09 20 2a 20 70 72 69 6f 72 69 74 79 2e 20  ... * priority. 
0730: 20 49 72 72 65 6c 65 76 61 6e 74 20 65 78 63 65   Irrelevant exce
0740: 70 74 20 69 6e 0a 09 09 09 09 09 20 2a 20 6c 65  pt in...... * le
0750: 61 66 20 6e 6f 64 65 73 2e 20 2a 2f 0a 20 20 20  af nodes. */.   
0760: 20 69 6e 74 20 66 6c 61 67 73 3b 09 09 09 09 2f   int flags;..../
0770: 2a 20 4f 52 2d 65 64 20 63 6f 6d 62 69 6e 61 74  * OR-ed combinat
0780: 69 6f 6e 20 6f 66 20 62 69 74 73 2e 20 20 53 65  ion of bits.  Se
0790: 65 0a 09 09 09 09 09 20 2a 20 62 65 6c 6f 77 20  e...... * below 
07a0: 66 6f 72 20 76 61 6c 75 65 73 2e 20 2a 2f 0a 7d  for values. */.}
07b0: 20 45 6c 65 6d 65 6e 74 3b 0a 0a 2f 2a 0a 20 2a   Element;../*. *
07c0: 20 46 6c 61 67 73 20 69 6e 20 45 6c 65 6d 65 6e   Flags in Elemen
07d0: 74 20 73 74 72 75 63 74 75 72 65 73 3a 0a 20 2a  t structures:. *
07e0: 0a 20 2a 20 43 4c 41 53 53 20 2d 09 09 4e 6f 6e  . * CLASS -..Non
07f0: 2d 7a 65 72 6f 20 6d 65 61 6e 73 20 74 68 69 73  -zero means this
0800: 20 65 6c 65 6d 65 6e 74 20 72 65 66 65 72 73 20   element refers 
0810: 74 6f 20 61 20 63 6c 61 73 73 2c 0a 20 2a 09 09  to a class,. *..
0820: 09 5a 65 72 6f 20 6d 65 61 6e 73 20 74 68 69 73  .Zero means this
0830: 20 65 6c 65 6d 65 6e 74 20 72 65 66 65 72 73 20   element refers 
0840: 74 6f 20 61 20 6e 61 6d 65 2e 0a 20 2a 20 4e 4f  to a name.. * NO
0850: 44 45 20 2d 09 09 5a 65 72 6f 20 6d 65 61 6e 73  DE -..Zero means
0860: 20 74 68 69 73 20 69 73 20 61 20 6c 65 61 66 20   this is a leaf 
0870: 65 6c 65 6d 65 6e 74 20 28 74 68 65 20 63 68 69  element (the chi
0880: 6c 64 0a 20 2a 09 09 09 66 69 65 6c 64 20 69 73  ld. *...field is
0890: 20 61 20 76 61 6c 75 65 2c 20 6e 6f 74 20 61 20   a value, not a 
08a0: 70 6f 69 6e 74 65 72 20 74 6f 20 61 6e 6f 74 68  pointer to anoth
08b0: 65 72 20 6e 6f 64 65 29 2e 0a 20 2a 09 09 09 4f  er node).. *...O
08c0: 6e 65 20 6d 65 61 6e 73 20 74 68 69 73 20 69 73  ne means this is
08d0: 20 61 20 6e 6f 64 65 20 65 6c 65 6d 65 6e 74 2e   a node element.
08e0: 0a 20 2a 20 57 49 4c 44 43 41 52 44 20 2d 09 09  . * WILDCARD -..
08f0: 4e 6f 6e 2d 7a 65 72 6f 20 6d 65 61 6e 73 20 74  Non-zero means t
0900: 68 69 73 20 74 68 65 72 65 20 77 61 73 20 61 20  his there was a 
0910: 73 74 61 72 20 69 6e 20 74 68 65 0a 20 2a 09 09  star in the. *..
0920: 09 6f 72 69 67 69 6e 61 6c 20 73 70 65 63 69 66  .original specif
0930: 69 63 61 74 69 6f 6e 20 6a 75 73 74 20 62 65 66  ication just bef
0940: 6f 72 65 20 74 68 69 73 20 65 6c 65 6d 65 6e 74  ore this element
0950: 2e 0a 20 2a 09 09 09 5a 65 72 6f 20 6d 65 61 6e  .. *...Zero mean
0960: 73 20 74 68 65 72 65 20 77 61 73 20 61 20 64 6f  s there was a do
0970: 74 2e 0a 20 2a 2f 0a 0a 23 64 65 66 69 6e 65 20  t.. */..#define 
0980: 54 59 50 45 5f 4d 41 53 4b 09 09 30 78 37 0a 0a  TYPE_MASK..0x7..
0990: 23 64 65 66 69 6e 65 20 43 4c 41 53 53 09 09 09  #define CLASS...
09a0: 30 78 31 0a 23 64 65 66 69 6e 65 20 4e 4f 44 45  0x1.#define NODE
09b0: 09 09 09 30 78 32 0a 23 64 65 66 69 6e 65 20 57  ...0x2.#define W
09c0: 49 4c 44 43 41 52 44 09 09 30 78 34 0a 0a 23 64  ILDCARD..0x4..#d
09d0: 65 66 69 6e 65 20 45 58 41 43 54 5f 4c 45 41 46  efine EXACT_LEAF
09e0: 5f 4e 41 4d 45 09 09 30 78 30 0a 23 64 65 66 69  _NAME..0x0.#defi
09f0: 6e 65 20 45 58 41 43 54 5f 4c 45 41 46 5f 43 4c  ne EXACT_LEAF_CL
0a00: 41 53 53 09 30 78 31 0a 23 64 65 66 69 6e 65 20  ASS.0x1.#define 
0a10: 45 58 41 43 54 5f 4e 4f 44 45 5f 4e 41 4d 45 09  EXACT_NODE_NAME.
0a20: 09 30 78 32 0a 23 64 65 66 69 6e 65 20 45 58 41  .0x2.#define EXA
0a30: 43 54 5f 4e 4f 44 45 5f 43 4c 41 53 53 09 30 78  CT_NODE_CLASS.0x
0a40: 33 0a 23 64 65 66 69 6e 65 20 57 49 4c 44 43 41  3.#define WILDCA
0a50: 52 44 5f 4c 45 41 46 5f 4e 41 4d 45 09 30 78 34  RD_LEAF_NAME.0x4
0a60: 0a 23 64 65 66 69 6e 65 20 57 49 4c 44 43 41 52  .#define WILDCAR
0a70: 44 5f 4c 45 41 46 5f 43 4c 41 53 53 09 30 78 35  D_LEAF_CLASS.0x5
0a80: 0a 23 64 65 66 69 6e 65 20 57 49 4c 44 43 41 52  .#define WILDCAR
0a90: 44 5f 4e 4f 44 45 5f 4e 41 4d 45 09 30 78 36 0a  D_NODE_NAME.0x6.
0aa0: 23 64 65 66 69 6e 65 20 57 49 4c 44 43 41 52 44  #define WILDCARD
0ab0: 5f 4e 4f 44 45 5f 43 4c 41 53 53 09 30 78 37 0a  _NODE_CLASS.0x7.
0ac0: 0a 2f 2a 0a 20 2a 20 54 68 65 20 66 6f 6c 6c 6f  ./*. * The follo
0ad0: 77 69 6e 67 20 73 74 72 75 63 74 75 72 65 20 69  wing structure i
0ae0: 73 20 75 73 65 64 20 74 6f 20 6d 61 6e 61 67 65  s used to manage
0af0: 20 61 20 64 79 6e 61 6d 69 63 20 61 72 72 61 79   a dynamic array
0b00: 20 6f 66 0a 20 2a 20 45 6c 65 6d 65 6e 74 73 2e   of. * Elements.
0b10: 20 20 54 68 65 73 65 20 73 74 72 75 63 74 75 72    These structur
0b20: 65 73 20 61 72 65 20 75 73 65 64 20 66 6f 72 20  es are used for 
0b30: 74 77 6f 20 70 75 72 70 6f 73 65 73 3a 20 20 74  two purposes:  t
0b40: 6f 20 73 74 6f 72 65 0a 20 2a 20 74 68 65 20 63  o store. * the c
0b50: 6f 6e 74 65 6e 74 73 20 6f 66 20 61 20 6e 6f 64  ontents of a nod
0b60: 65 20 69 6e 20 74 68 65 20 6f 70 74 69 6f 6e 20  e in the option 
0b70: 74 72 65 65 2c 20 61 6e 64 20 66 6f 72 20 74 68  tree, and for th
0b80: 65 20 6f 70 74 69 6f 6e 0a 20 2a 20 73 74 61 63  e option. * stac
0b90: 6b 73 20 64 65 73 63 72 69 62 65 64 20 62 65 6c  ks described bel
0ba0: 6f 77 2e 0a 20 2a 2f 0a 0a 74 79 70 65 64 65 66  ow.. */..typedef
0bb0: 20 73 74 72 75 63 74 20 45 6c 41 72 72 61 79 20   struct ElArray 
0bc0: 7b 0a 20 20 20 20 69 6e 74 20 61 72 72 61 79 53  {.    int arrayS
0bd0: 69 7a 65 3b 09 09 2f 2a 20 4e 75 6d 62 65 72 20  ize;../* Number 
0be0: 6f 66 20 65 6c 65 6d 65 6e 74 73 20 61 63 74 75  of elements actu
0bf0: 61 6c 6c 79 0a 09 09 09 09 20 2a 20 61 6c 6c 6f  ally..... * allo
0c00: 63 61 74 65 64 20 69 6e 20 74 68 65 20 22 65 6c  cated in the "el
0c10: 73 22 20 61 72 72 61 79 2e 20 2a 2f 0a 20 20 20  s" array. */.   
0c20: 20 69 6e 74 20 6e 75 6d 55 73 65 64 3b 09 09 2f   int numUsed;../
0c30: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 65 6c 65 6d  * Number of elem
0c40: 65 6e 74 73 20 63 75 72 72 65 6e 74 6c 79 20 69  ents currently i
0c50: 6e 0a 09 09 09 09 20 2a 20 75 73 65 20 6f 75 74  n..... * use out
0c60: 20 6f 66 20 65 6c 73 2e 20 2a 2f 0a 20 20 20 20   of els. */.    
0c70: 45 6c 65 6d 65 6e 74 20 2a 6e 65 78 74 54 6f 55  Element *nextToU
0c80: 73 65 3b 09 09 2f 2a 20 50 6f 69 6e 74 65 72 20  se;../* Pointer 
0c90: 74 6f 20 26 65 6c 73 5b 6e 75 6d 55 73 65 64 5d  to &els[numUsed]
0ca0: 2e 20 2a 2f 0a 20 20 20 20 45 6c 65 6d 65 6e 74  . */.    Element
0cb0: 20 65 6c 73 5b 31 5d 3b 09 09 2f 2a 20 41 72 72   els[1];../* Arr
0cc0: 61 79 20 6f 66 20 73 74 72 75 63 74 75 72 65 73  ay of structures
0cd0: 20 64 65 73 63 72 69 62 69 6e 67 0a 09 09 09 09   describing.....
0ce0: 20 2a 20 63 68 69 6c 64 72 65 6e 20 6f 66 20 74   * children of t
0cf0: 68 69 73 20 6e 6f 64 65 2e 20 20 54 68 65 0a 09  his node.  The..
0d00: 09 09 09 20 2a 20 61 72 72 61 79 20 77 69 6c 6c  ... * array will
0d10: 20 61 63 74 75 61 6c 6c 79 20 63 6f 6e 74 61 69   actually contai
0d20: 6e 20 65 6e 6f 75 67 68 0a 09 09 09 09 20 2a 20  n enough..... * 
0d30: 65 6c 65 6d 65 6e 74 73 20 66 6f 72 20 61 6c 6c  elements for all
0d40: 20 6f 66 20 74 68 65 20 63 68 69 6c 64 72 65 6e   of the children
0d50: 0a 09 09 09 09 20 2a 20 28 61 6e 64 20 65 76 65  ..... * (and eve
0d60: 6e 20 61 20 66 65 77 20 65 78 74 72 61 73 2c 20  n a few extras, 
0d70: 70 65 72 68 61 70 73 29 2e 0a 09 09 09 09 20 2a  perhaps)...... *
0d80: 20 54 68 69 73 20 6d 75 73 74 20 62 65 20 74 68   This must be th
0d90: 65 20 6c 61 73 74 20 66 69 65 6c 64 20 69 6e 0a  e last field in.
0da0: 09 09 09 09 20 2a 20 74 68 65 20 73 74 72 75 63  .... * the struc
0db0: 74 75 72 65 2e 20 2a 2f 0a 7d 20 45 6c 41 72 72  ture. */.} ElArr
0dc0: 61 79 3b 0a 0a 23 64 65 66 69 6e 65 20 45 4c 5f  ay;..#define EL_
0dd0: 41 52 52 41 59 5f 53 49 5a 45 28 6e 75 6d 45 6c  ARRAY_SIZE(numEl
0de0: 73 29 20 28 28 75 6e 73 69 67 6e 65 64 29 20 28  s) ((unsigned) (
0df0: 73 69 7a 65 6f 66 28 45 6c 41 72 72 61 79 29 20  sizeof(ElArray) 
0e00: 5c 0a 09 2b 20 28 28 6e 75 6d 45 6c 73 29 2d 31  \..+ ((numEls)-1
0e10: 29 2a 73 69 7a 65 6f 66 28 45 6c 65 6d 65 6e 74  )*sizeof(Element
0e20: 29 29 29 0a 23 64 65 66 69 6e 65 20 49 4e 49 54  ))).#define INIT
0e30: 49 41 4c 5f 53 49 5a 45 20 35 0a 0a 2f 2a 0a 20  IAL_SIZE 5../*. 
0e40: 2a 20 49 6e 20 61 64 64 69 74 69 6f 6e 20 74 6f  * In addition to
0e50: 20 74 68 65 20 6f 70 74 69 6f 6e 20 74 72 65 65   the option tree
0e60: 2c 20 77 68 69 63 68 20 69 73 20 61 20 72 65 6c  , which is a rel
0e70: 61 74 69 76 65 6c 79 20 73 74 61 74 69 63 20 73  atively static s
0e80: 74 72 75 63 74 75 72 65 2c 0a 20 2a 20 74 68 65  tructure,. * the
0e90: 72 65 20 61 72 65 20 65 69 67 68 74 20 61 64 64  re are eight add
0ea0: 69 74 69 6f 6e 61 6c 20 73 74 72 75 63 74 75 72  itional structur
0eb0: 65 73 20 63 61 6c 6c 65 64 20 22 73 74 61 63 6b  es called "stack
0ec0: 73 22 2c 20 77 68 69 63 68 20 61 72 65 20 75 73  s", which are us
0ed0: 65 64 0a 20 2a 20 74 6f 20 73 70 65 65 64 20 75  ed. * to speed u
0ee0: 70 20 71 75 65 72 69 65 73 20 69 6e 74 6f 20 74  p queries into t
0ef0: 68 65 20 6f 70 74 69 6f 6e 20 64 61 74 61 62 61  he option databa
0f00: 73 65 2e 20 20 54 68 65 20 73 74 61 63 6b 20 73  se.  The stack s
0f10: 74 72 75 63 74 75 72 65 73 0a 20 2a 20 61 72 65  tructures. * are
0f20: 20 64 65 73 69 67 6e 65 64 20 66 6f 72 20 74 68   designed for th
0f30: 65 20 73 69 74 75 61 74 69 6f 6e 20 77 68 65 72  e situation wher
0f40: 65 20 61 6e 20 69 6e 64 69 76 69 64 75 61 6c 20  e an individual 
0f50: 77 69 64 67 65 74 20 6d 61 6b 65 73 20 72 65 70  widget makes rep
0f60: 65 61 74 65 64 0a 20 2a 20 72 65 71 75 65 73 74  eated. * request
0f70: 73 20 66 6f 72 20 69 74 73 20 70 61 72 74 69 63  s for its partic
0f80: 75 6c 61 72 20 6f 70 74 69 6f 6e 73 2e 20 20 54  ular options.  T
0f90: 68 65 20 72 65 71 75 65 73 74 73 20 64 69 66 66  he requests diff
0fa0: 65 72 20 6f 6e 6c 79 20 69 6e 0a 20 2a 20 74 68  er only in. * th
0fb0: 65 69 72 20 6c 61 73 74 20 6e 61 6d 65 2f 63 6c  eir last name/cl
0fc0: 61 73 73 2c 20 73 6f 20 64 75 72 69 6e 67 20 74  ass, so during t
0fd0: 68 65 20 66 69 72 73 74 20 72 65 71 75 65 73 74  he first request
0fe0: 20 77 65 20 65 78 74 72 61 63 74 20 61 6c 6c 0a   we extract all.
0ff0: 20 2a 20 74 68 65 20 6f 70 74 69 6f 6e 73 20 70   * the options p
1000: 65 72 74 61 69 6e 69 6e 67 20 74 6f 20 74 68 65  ertaining to the
1010: 20 70 61 72 74 69 63 75 6c 61 72 20 77 69 64 67   particular widg
1020: 65 74 20 61 6e 64 20 73 61 76 65 20 74 68 65 6d  et and save them
1030: 20 69 6e 20 61 0a 20 2a 20 73 74 61 63 6b 2d 6c   in a. * stack-l
1040: 69 6b 65 20 63 61 63 68 65 3b 20 20 73 75 62 73  ike cache;  subs
1050: 65 71 75 65 6e 74 20 72 65 71 75 65 73 74 73 20  equent requests 
1060: 66 6f 72 20 74 68 65 20 73 61 6d 65 20 77 69 64  for the same wid
1070: 67 65 74 20 63 61 6e 20 73 65 61 72 63 68 0a 20  get can search. 
1080: 2a 20 74 68 65 20 63 61 63 68 65 20 72 65 6c 61  * the cache rela
1090: 74 69 76 65 6c 79 20 71 75 69 63 6b 6c 79 2e 20  tively quickly. 
10a0: 20 49 6e 20 66 61 63 74 2c 20 74 68 65 20 63 61   In fact, the ca
10b0: 63 68 65 20 69 73 20 61 20 68 69 65 72 61 72 63  che is a hierarc
10c0: 68 69 63 61 6c 0a 20 2a 20 6f 6e 65 2c 20 73 74  hical. * one, st
10d0: 6f 72 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 20  oring a list of 
10e0: 72 65 6c 65 76 61 6e 74 20 6f 70 74 69 6f 6e 73  relevant options
10f0: 20 66 6f 72 20 74 68 69 73 20 77 69 64 67 65 74   for this widget
1100: 20 61 6e 64 20 61 6c 6c 20 6f 66 0a 20 2a 20 69   and all of. * i
1110: 74 73 20 61 6e 63 65 73 74 6f 72 73 20 75 70 20  ts ancestors up 
1120: 74 6f 20 74 68 65 20 61 70 70 6c 69 63 61 74 69  to the applicati
1130: 6f 6e 20 72 6f 6f 74 3b 20 20 68 65 6e 63 65 20  on root;  hence 
1140: 74 68 65 20 6e 61 6d 65 20 22 73 74 61 63 6b 22  the name "stack"
1150: 2e 0a 20 2a 0a 20 2a 20 45 61 63 68 20 6f 66 20  .. *. * Each of 
1160: 74 68 65 20 65 69 67 68 74 20 73 74 61 63 6b 73  the eight stacks
1170: 20 63 6f 6e 73 69 73 74 73 20 6f 66 20 61 6e 20   consists of an 
1180: 61 72 72 61 79 20 6f 66 20 45 6c 65 6d 65 6e 74  array of Element
1190: 73 2c 20 6f 72 64 65 72 65 64 20 69 6e 0a 20 2a  s, ordered in. *
11a0: 20 74 65 72 6d 73 20 6f 66 20 6c 65 76 65 6c 73   terms of levels
11b0: 20 69 6e 20 74 68 65 20 77 69 6e 64 6f 77 20 68   in the window h
11c0: 69 65 72 61 72 63 68 79 2e 20 20 41 6c 6c 20 74  ierarchy.  All t
11d0: 68 65 20 65 6c 65 6d 65 6e 74 73 20 72 65 6c 65  he elements rele
11e0: 76 61 6e 74 0a 20 2a 20 66 6f 72 20 74 68 65 20  vant. * for the 
11f0: 74 6f 70 2d 6c 65 76 65 6c 20 77 69 64 67 65 74  top-level widget
1200: 20 61 70 70 65 61 72 20 66 69 72 73 74 20 69 6e   appear first in
1210: 20 74 68 65 20 61 72 72 61 79 2c 20 66 6f 6c 6c   the array, foll
1220: 6f 77 65 64 20 62 79 20 61 6c 6c 0a 20 2a 20 74  owed by all. * t
1230: 68 6f 73 65 20 66 72 6f 6d 20 74 68 65 20 6e 65  hose from the ne
1240: 78 74 2d 6c 65 76 65 6c 20 77 69 64 67 65 74 20  xt-level widget 
1250: 6f 6e 20 74 68 65 20 70 61 74 68 20 74 6f 20 74  on the path to t
1260: 68 65 20 63 75 72 72 65 6e 74 20 77 69 64 67 65  he current widge
1270: 74 2c 0a 20 2a 20 65 74 63 2e 20 64 6f 77 6e 20  t,. * etc. down 
1280: 74 6f 20 74 68 6f 73 65 20 66 6f 72 20 74 68 65  to those for the
1290: 20 63 75 72 72 65 6e 74 20 77 69 64 67 65 74 2e   current widget.
12a0: 0a 20 2a 0a 20 2a 20 43 61 63 68 65 64 20 69 6e  . *. * Cached in
12b0: 66 6f 72 6d 61 74 69 6f 6e 20 69 73 20 64 69 76  formation is div
12c0: 69 64 65 64 20 69 6e 74 6f 20 65 69 67 68 74 20  ided into eight 
12d0: 73 74 61 63 6b 73 20 61 63 63 6f 72 64 69 6e 67  stacks according
12e0: 20 74 6f 20 74 68 65 0a 20 2a 20 43 4c 41 53 53   to the. * CLASS
12f0: 2c 20 4e 4f 44 45 2c 20 61 6e 64 20 57 49 4c 44  , NODE, and WILD
1300: 43 41 52 44 20 66 6c 61 67 73 2e 20 20 4c 65 61  CARD flags.  Lea
1310: 66 20 61 6e 64 20 6e 6f 6e 2d 6c 65 61 66 20 69  f and non-leaf i
1320: 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 73 0a 20 2a  nformation is. *
1330: 20 6b 65 70 74 20 73 65 70 61 72 61 74 65 20 74   kept separate t
1340: 6f 20 73 70 65 65 64 20 75 70 20 69 6e 64 69 76  o speed up indiv
1350: 69 64 75 61 6c 20 70 72 6f 62 65 73 20 28 6e 6f  idual probes (no
1360: 6e 2d 6c 65 61 66 20 69 6e 66 6f 72 6d 61 74 69  n-leaf informati
1370: 6f 6e 20 69 73 0a 20 2a 20 6f 6e 6c 79 20 72 65  on is. * only re
1380: 6c 65 76 61 6e 74 20 77 68 65 6e 20 62 75 69 6c  levant when buil
1390: 64 69 6e 67 20 74 68 65 20 73 74 61 63 6b 73 2c  ding the stacks,
13a0: 20 62 75 74 20 69 73 6e 27 74 20 72 65 6c 65 76   but isn't relev
13b0: 61 6e 74 20 77 68 65 6e 0a 20 2a 20 6d 61 6b 69  ant when. * maki
13c0: 6e 67 20 70 72 6f 62 65 73 3b 20 20 73 69 6d 69  ng probes;  simi
13d0: 6c 61 72 6c 79 2c 20 6f 6e 6c 79 20 6e 6f 6e 2d  larly, only non-
13e0: 6c 65 61 66 20 69 6e 66 6f 72 6d 61 74 69 6f 6e  leaf information
13f0: 20 69 73 20 72 65 6c 65 76 61 6e 74 0a 20 2a 20   is relevant. * 
1400: 77 68 65 6e 20 74 68 65 20 73 74 61 63 6b 73 20  when the stacks 
1410: 61 72 65 20 62 65 69 6e 67 20 65 78 74 65 6e 64  are being extend
1420: 65 64 20 74 6f 20 74 68 65 20 6e 65 78 74 20 77  ed to the next w
1430: 69 64 67 65 74 20 64 6f 77 6e 20 69 6e 20 74 68  idget down in th
1440: 65 0a 20 2a 20 77 69 64 67 65 74 20 68 69 65 72  e. * widget hier
1450: 61 72 63 68 79 29 2e 20 20 57 69 6c 64 63 61 72  archy).  Wildcar
1460: 64 20 65 6c 65 6d 65 6e 74 73 20 61 72 65 20 68  d elements are h
1470: 61 6e 64 6c 65 64 20 73 65 70 61 72 61 74 65 6c  andled separatel
1480: 79 20 66 72 6f 6d 0a 20 2a 20 22 65 78 61 63 74  y from. * "exact
1490: 22 20 65 6c 65 6d 65 6e 74 73 20 62 65 63 61 75  " elements becau
14a0: 73 65 20 6f 6e 63 65 20 74 68 65 79 20 61 70 70  se once they app
14b0: 65 61 72 20 61 74 20 61 20 70 61 72 74 69 63 75  ear at a particu
14c0: 6c 61 72 20 6c 65 76 65 6c 20 69 6e 0a 20 2a 20  lar level in. * 
14d0: 74 68 65 20 73 74 61 63 6b 20 74 68 65 79 20 72  the stack they r
14e0: 65 6d 61 69 6e 20 61 63 74 69 76 65 20 66 6f 72  emain active for
14f0: 20 61 6c 6c 20 64 65 65 70 65 72 20 6c 65 76 65   all deeper leve
1500: 6c 73 3b 20 20 65 78 61 63 74 20 65 6c 65 6d 65  ls;  exact eleme
1510: 6e 74 73 0a 20 2a 20 61 72 65 20 6f 6e 6c 79 20  nts. * are only 
1520: 72 65 6c 65 76 61 6e 74 20 61 74 20 61 20 70 61  relevant at a pa
1530: 72 74 69 63 75 6c 61 72 20 6c 65 76 65 6c 2e 20  rticular level. 
1540: 20 46 6f 72 20 65 78 61 6d 70 6c 65 2c 20 77 68   For example, wh
1550: 65 6e 20 73 65 61 72 63 68 69 6e 67 0a 20 2a 20  en searching. * 
1560: 66 6f 72 20 6f 70 74 69 6f 6e 73 20 72 65 6c 65  for options rele
1570: 76 61 6e 74 20 69 6e 20 61 20 70 61 72 74 69 63  vant in a partic
1580: 75 6c 61 72 20 77 69 6e 64 6f 77 2c 20 74 68 65  ular window, the
1590: 20 65 6e 74 69 72 65 20 77 69 6c 64 63 61 72 64   entire wildcard
15a0: 0a 20 2a 20 73 74 61 63 6b 73 20 67 65 74 20 63  . * stacks get c
15b0: 68 65 63 6b 65 64 2c 20 62 75 74 20 6f 6e 6c 79  hecked, but only
15c0: 20 74 68 65 20 70 6f 72 74 69 6f 6e 73 20 6f 66   the portions of
15d0: 20 74 68 65 20 65 78 61 63 74 20 73 74 61 63 6b   the exact stack
15e0: 73 20 74 68 61 74 0a 20 2a 20 70 65 72 74 61 69  s that. * pertai
15f0: 6e 20 74 6f 20 74 68 65 20 77 69 6e 64 6f 77 27  n to the window'
1600: 73 20 70 61 72 65 6e 74 2e 20 20 4c 61 73 74 6c  s parent.  Lastl
1610: 79 2c 20 6e 61 6d 65 20 61 6e 64 20 63 6c 61 73  y, name and clas
1620: 73 20 73 74 61 63 6b 73 20 61 72 65 0a 20 2a 20  s stacks are. * 
1630: 6b 65 70 74 20 73 65 70 61 72 61 74 65 20 62 65  kept separate be
1640: 63 61 75 73 65 20 64 69 66 66 65 72 65 6e 74 20  cause different 
1650: 73 65 61 72 63 68 20 6b 65 79 73 20 61 72 65 20  search keys are 
1660: 75 73 65 64 20 77 68 65 6e 20 73 65 61 72 63 68  used when search
1670: 69 6e 67 0a 20 2a 20 74 68 65 6d 3b 20 20 6b 65  ing. * them;  ke
1680: 65 70 69 6e 67 20 74 68 65 6d 20 73 65 70 61 72  eping them separ
1690: 61 74 65 20 73 70 65 65 64 73 20 75 70 20 74 68  ate speeds up th
16a0: 65 20 73 65 61 72 63 68 65 73 2e 0a 20 2a 2f 0a  e searches.. */.
16b0: 0a 23 64 65 66 69 6e 65 20 4e 55 4d 5f 53 54 41  .#define NUM_STA
16c0: 43 4b 53 20 38 0a 73 74 61 74 69 63 20 45 6c 41  CKS 8.static ElA
16d0: 72 72 61 79 20 2a 73 74 61 63 6b 73 5b 4e 55 4d  rray *stacks[NUM
16e0: 5f 53 54 41 43 4b 53 5d 3b 0a 73 74 61 74 69 63  _STACKS];.static
16f0: 20 54 6b 57 69 6e 64 6f 77 20 2a 63 61 63 68 65   TkWindow *cache
1700: 64 57 69 6e 64 6f 77 20 3d 20 4e 55 4c 4c 3b 09  dWindow = NULL;.
1710: 2f 2a 20 4c 6f 77 65 73 74 2d 6c 65 76 65 6c 20  /* Lowest-level 
1720: 77 69 6e 64 6f 77 20 63 75 72 72 65 6e 74 6c 79  window currently
1730: 0a 09 09 09 09 09 20 2a 20 6c 6f 61 64 65 64 20  ...... * loaded 
1740: 69 6e 20 73 74 61 63 6b 73 20 61 74 20 70 72 65  in stacks at pre
1750: 73 65 6e 74 2e 20 0a 09 09 09 09 09 20 2a 20 4e  sent. ...... * N
1760: 55 4c 4c 20 6d 65 61 6e 73 20 73 74 61 63 6b 73  ULL means stacks
1770: 20 68 61 76 65 20 6e 65 76 65 72 0a 09 09 09 09   have never.....
1780: 09 20 2a 20 62 65 65 6e 20 75 73 65 64 2c 20 6f  . * been used, o
1790: 72 20 68 61 76 65 20 62 65 65 6e 0a 09 09 09 09  r have been.....
17a0: 09 20 2a 20 69 6e 76 61 6c 69 64 61 74 65 64 20  . * invalidated 
17b0: 62 65 63 61 75 73 65 20 6f 66 20 61 20 63 68 61  because of a cha
17c0: 6e 67 65 0a 09 09 09 09 09 20 2a 20 74 6f 20 74  nge...... * to t
17d0: 68 65 20 64 61 74 61 62 61 73 65 2e 20 2a 2f 0a  he database. */.
17e0: 0a 2f 2a 0a 20 2a 20 4f 6e 65 20 6f 66 20 74 68  ./*. * One of th
17f0: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 72 75  e following stru
1800: 63 74 75 72 65 73 20 69 73 20 75 73 65 64 20 74  ctures is used t
1810: 6f 20 6b 65 65 70 20 74 72 61 63 6b 20 6f 66 20  o keep track of 
1820: 65 61 63 68 0a 20 2a 20 6c 65 76 65 6c 20 69 6e  each. * level in
1830: 20 74 68 65 20 73 74 61 63 6b 73 2e 0a 20 2a 2f   the stacks.. */
1840: 0a 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 74  ..typedef struct
1850: 20 53 74 61 63 6b 4c 65 76 65 6c 20 7b 0a 20 20   StackLevel {.  
1860: 20 20 54 6b 57 69 6e 64 6f 77 20 2a 77 69 6e 50    TkWindow *winP
1870: 74 72 3b 09 09 2f 2a 20 57 69 6e 64 6f 77 20 63  tr;../* Window c
1880: 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20  orresponding to 
1890: 74 68 69 73 20 73 74 61 63 6b 0a 09 09 09 09 20  this stack..... 
18a0: 2a 20 6c 65 76 65 6c 2e 20 2a 2f 0a 20 20 20 20  * level. */.    
18b0: 69 6e 74 20 62 61 73 65 73 5b 4e 55 4d 5f 53 54  int bases[NUM_ST
18c0: 41 43 4b 53 5d 3b 09 2f 2a 20 46 6f 72 20 65 61  ACKS];./* For ea
18d0: 63 68 20 73 74 61 63 6b 2c 20 69 6e 64 65 78 20  ch stack, index 
18e0: 6f 66 20 66 69 72 73 74 0a 09 09 09 09 20 2a 20  of first..... * 
18f0: 65 6c 65 6d 65 6e 74 20 6f 6e 20 73 74 61 63 6b  element on stack
1900: 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74   corresponding t
1910: 6f 0a 09 09 09 09 20 2a 20 74 68 69 73 20 6c 65  o..... * this le
1920: 76 65 6c 20 28 75 73 65 64 20 74 6f 20 72 65 73  vel (used to res
1930: 74 6f 72 65 20 22 6e 75 6d 55 73 65 64 22 0a 09  tore "numUsed"..
1940: 09 09 09 20 2a 20 66 69 65 6c 64 73 20 77 68 65  ... * fields whe
1950: 6e 20 70 6f 70 70 69 6e 67 20 6f 75 74 20 6f 66  n popping out of
1960: 20 61 20 6c 65 76 65 6c 2e 20 2a 2f 0a 7d 20 53   a level. */.} S
1970: 74 61 63 6b 4c 65 76 65 6c 3b 0a 0a 2f 2a 0a 20  tackLevel;../*. 
1980: 2a 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62  * Information ab
1990: 6f 75 74 20 61 6c 6c 20 6f 66 20 74 68 65 20 73  out all of the s
19a0: 74 61 63 6b 20 6c 65 76 65 6c 73 20 74 68 61 74  tack levels that
19b0: 20 61 72 65 20 63 75 72 72 65 6e 74 6c 79 0a 20   are currently. 
19c0: 2a 20 61 63 74 69 76 65 2e 20 20 54 68 69 73 20  * active.  This 
19d0: 61 72 72 61 79 20 67 72 6f 77 73 20 64 79 6e 61  array grows dyna
19e0: 6d 69 63 61 6c 6c 79 20 74 6f 20 62 65 63 6f 6d  mically to becom
19f0: 65 20 61 73 20 6c 61 72 67 65 20 61 73 20 6e 65  e as large as ne
1a00: 65 64 65 64 2e 0a 20 2a 2f 0a 0a 73 74 61 74 69  eded.. */..stati
1a10: 63 20 53 74 61 63 6b 4c 65 76 65 6c 20 2a 6c 65  c StackLevel *le
1a20: 76 65 6c 73 20 3d 20 4e 55 4c 4c 3b 0a 09 09 09  vels = NULL;....
1a30: 09 2f 2a 20 41 72 72 61 79 20 64 65 73 63 72 69  ./* Array descri
1a40: 62 69 6e 67 20 63 75 72 72 65 6e 74 20 73 74 61  bing current sta
1a50: 63 6b 2e 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e  ck. */.static in
1a60: 74 20 6e 75 6d 4c 65 76 65 6c 73 20 3d 20 30 3b  t numLevels = 0;
1a70: 09 2f 2a 20 54 6f 74 61 6c 20 73 70 61 63 65 20  ./* Total space 
1a80: 61 6c 6c 6f 63 61 74 65 64 2e 20 2a 2f 0a 73 74  allocated. */.st
1a90: 61 74 69 63 20 69 6e 74 20 63 75 72 4c 65 76 65  atic int curLeve
1aa0: 6c 20 3d 20 2d 31 3b 09 2f 2a 20 48 69 67 68 65  l = -1;./* Highe
1ab0: 73 74 20 6c 65 76 65 6c 20 63 75 72 72 65 6e 74  st level current
1ac0: 6c 79 20 69 6e 20 75 73 65 2e 20 20 4e 6f 74 65  ly in use.  Note
1ad0: 3a 0a 09 09 09 09 20 2a 20 63 75 72 4c 65 76 65  :..... * curLeve
1ae0: 6c 20 69 73 20 6e 65 76 65 72 20 30 21 20 20 28  l is never 0!  (
1af0: 49 20 64 6f 6e 27 74 20 72 65 6d 65 6d 62 65 72  I don't remember
1b00: 0a 09 09 09 09 20 2a 20 77 68 79 20 61 6e 79 6d  ..... * why anym
1b10: 6f 72 65 2e 2e 2e 29 20 2a 2f 0a 0a 2f 2a 0a 20  ore...) */../*. 
1b20: 2a 20 54 68 65 20 76 61 72 69 61 62 6c 65 20 62  * The variable b
1b30: 65 6c 6f 77 20 69 73 20 61 20 73 65 72 69 61 6c  elow is a serial
1b40: 20 6e 75 6d 62 65 72 20 66 6f 72 20 61 6c 6c 20   number for all 
1b50: 6f 70 74 69 6f 6e 73 20 65 6e 74 65 72 65 64 20  options entered 
1b60: 69 6e 74 6f 0a 20 2a 20 74 68 65 20 64 61 74 61  into. * the data
1b70: 62 61 73 65 20 73 6f 20 66 61 72 2e 20 20 49 74  base so far.  It
1b80: 20 69 6e 63 72 65 6d 65 6e 74 73 20 6f 6e 20 65   increments on e
1b90: 61 63 68 20 61 64 64 69 74 69 6f 6e 20 74 6f 20  ach addition to 
1ba0: 74 68 65 20 6f 70 74 69 6f 6e 0a 20 2a 20 64 61  the option. * da
1bb0: 74 61 62 61 73 65 2e 20 20 49 74 20 69 73 20 75  tabase.  It is u
1bc0: 73 65 64 20 69 6e 20 63 6f 6d 70 75 74 69 6e 67  sed in computing
1bd0: 20 6f 70 74 69 6f 6e 20 70 72 69 6f 72 69 74 69   option prioriti
1be0: 65 73 2c 20 73 6f 20 74 68 61 74 20 74 68 65 0a  es, so that the.
1bf0: 20 2a 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 65   * most recent e
1c00: 6e 74 72 79 20 77 69 6e 73 20 77 68 65 6e 20 63  ntry wins when c
1c10: 68 6f 6f 73 69 6e 67 20 62 65 74 77 65 65 6e 20  hoosing between 
1c20: 6f 70 74 69 6f 6e 73 20 61 74 20 74 68 65 20 73  options at the s
1c30: 61 6d 65 0a 20 2a 20 70 72 69 6f 72 69 74 79 20  ame. * priority 
1c40: 6c 65 76 65 6c 2e 0a 20 2a 2f 0a 0a 73 74 61 74  level.. */..stat
1c50: 69 63 20 69 6e 74 20 73 65 72 69 61 6c 20 3d 20  ic int serial = 
1c60: 30 3b 0a 0a 2f 2a 0a 20 2a 20 53 70 65 63 69 61  0;../*. * Specia
1c70: 6c 20 22 6e 6f 20 6d 61 74 63 68 22 20 45 6c 65  l "no match" Ele
1c80: 6d 65 6e 74 20 74 6f 20 75 73 65 20 61 73 20 64  ment to use as d
1c90: 65 66 61 75 6c 74 20 66 6f 72 20 73 65 61 72 63  efault for searc
1ca0: 68 65 73 2e 0a 20 2a 2f 0a 0a 73 74 61 74 69 63  hes.. */..static
1cb0: 20 45 6c 65 6d 65 6e 74 20 64 65 66 61 75 6c 74   Element default
1cc0: 4d 61 74 63 68 3b 0a 0a 2f 2a 0a 20 2a 20 46 6f  Match;../*. * Fo
1cd0: 72 77 61 72 64 20 64 65 63 6c 61 72 61 74 69 6f  rward declaratio
1ce0: 6e 73 20 66 6f 72 20 70 72 6f 63 65 64 75 72 65  ns for procedure
1cf0: 73 20 64 65 66 69 6e 65 64 20 69 6e 20 74 68 69  s defined in thi
1d00: 73 20 66 69 6c 65 3a 0a 20 2a 2f 0a 0a 73 74 61  s file:. */..sta
1d10: 74 69 63 20 69 6e 74 09 09 41 64 64 46 72 6f 6d  tic int..AddFrom
1d20: 53 74 72 69 6e 67 20 5f 41 4e 53 49 5f 41 52 47  String _ANSI_ARG
1d30: 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a  S_((Tcl_Interp *
1d40: 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20 54  interp,....    T
1d50: 6b 5f 57 69 6e 64 6f 77 20 74 6b 77 69 6e 2c 20  k_Window tkwin, 
1d60: 63 68 61 72 20 2a 73 74 72 69 6e 67 2c 20 69 6e  char *string, in
1d70: 74 20 70 72 69 6f 72 69 74 79 29 29 3b 0a 73 74  t priority));.st
1d80: 61 74 69 63 20 76 6f 69 64 09 09 43 6c 65 61 72  atic void..Clear
1d90: 4f 70 74 69 6f 6e 54 72 65 65 20 5f 41 4e 53 49  OptionTree _ANSI
1da0: 5f 41 52 47 53 5f 28 28 45 6c 41 72 72 61 79 20  _ARGS_((ElArray 
1db0: 2a 61 72 72 61 79 50 74 72 29 29 3b 0a 73 74 61  *arrayPtr));.sta
1dc0: 74 69 63 20 45 6c 41 72 72 61 79 20 2a 09 45 78  tic ElArray *.Ex
1dd0: 74 65 6e 64 41 72 72 61 79 20 5f 41 4e 53 49 5f  tendArray _ANSI_
1de0: 41 52 47 53 5f 28 28 45 6c 41 72 72 61 79 20 2a  ARGS_((ElArray *
1df0: 61 72 72 61 79 50 74 72 2c 0a 09 09 09 20 20 20  arrayPtr,....   
1e00: 20 45 6c 65 6d 65 6e 74 20 2a 65 6c 50 74 72 29   Element *elPtr)
1e10: 29 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 09 09  );.static void..
1e20: 45 78 74 65 6e 64 53 74 61 63 6b 73 20 5f 41 4e  ExtendStacks _AN
1e30: 53 49 5f 41 52 47 53 5f 28 28 45 6c 41 72 72 61  SI_ARGS_((ElArra
1e40: 79 20 2a 61 72 72 61 79 50 74 72 2c 0a 09 09 09  y *arrayPtr,....
1e50: 20 20 20 20 69 6e 74 20 6c 65 61 66 29 29 3b 0a      int leaf));.
1e60: 73 74 61 74 69 63 20 69 6e 74 09 09 47 65 74 44  static int..GetD
1e70: 65 66 61 75 6c 74 4f 70 74 69 6f 6e 73 20 5f 41  efaultOptions _A
1e80: 4e 53 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f 49  NSI_ARGS_((Tcl_I
1e90: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 09  nterp *interp,..
1ea0: 09 09 20 20 20 20 54 6b 57 69 6e 64 6f 77 20 2a  ..    TkWindow *
1eb0: 77 69 6e 50 74 72 29 29 3b 09 0a 73 74 61 74 69  winPtr));..stati
1ec0: 63 20 45 6c 41 72 72 61 79 20 2a 09 4e 65 77 41  c ElArray *.NewA
1ed0: 72 72 61 79 20 5f 41 4e 53 49 5f 41 52 47 53 5f  rray _ANSI_ARGS_
1ee0: 28 28 69 6e 74 20 6e 75 6d 45 6c 73 29 29 3b 09  ((int numEls));.
1ef0: 0a 73 74 61 74 69 63 20 76 6f 69 64 09 09 4f 70  .static void..Op
1f00: 74 69 6f 6e 49 6e 69 74 20 5f 41 4e 53 49 5f 41  tionInit _ANSI_A
1f10: 52 47 53 5f 28 28 54 6b 4d 61 69 6e 49 6e 66 6f  RGS_((TkMainInfo
1f20: 20 2a 6d 61 69 6e 50 74 72 29 29 3b 0a 73 74 61   *mainPtr));.sta
1f30: 74 69 63 20 69 6e 74 09 09 50 61 72 73 65 50 72  tic int..ParsePr
1f40: 69 6f 72 69 74 79 20 5f 41 4e 53 49 5f 41 52 47  iority _ANSI_ARG
1f50: 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a  S_((Tcl_Interp *
1f60: 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20 63  interp,....    c
1f70: 68 61 72 20 2a 73 74 72 69 6e 67 29 29 3b 0a 73  har *string));.s
1f80: 74 61 74 69 63 20 69 6e 74 09 09 52 65 61 64 4f  tatic int..ReadO
1f90: 70 74 69 6f 6e 46 69 6c 65 20 5f 41 4e 53 49 5f  ptionFile _ANSI_
1fa0: 41 52 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72  ARGS_((Tcl_Inter
1fb0: 70 20 2a 69 6e 74 65 72 70 2c 0a 09 09 09 20 20  p *interp,....  
1fc0: 20 20 54 6b 5f 57 69 6e 64 6f 77 20 74 6b 77 69    Tk_Window tkwi
1fd0: 6e 2c 20 63 68 61 72 20 2a 66 69 6c 65 4e 61 6d  n, char *fileNam
1fe0: 65 2c 20 69 6e 74 20 70 72 69 6f 72 69 74 79 29  e, int priority)
1ff0: 29 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 09 09  );.static void..
2000: 53 65 74 75 70 53 74 61 63 6b 73 20 5f 41 4e 53  SetupStacks _ANS
2010: 49 5f 41 52 47 53 5f 28 28 54 6b 57 69 6e 64 6f  I_ARGS_((TkWindo
2020: 77 20 2a 77 69 6e 50 74 72 2c 20 69 6e 74 20 6c  w *winPtr, int l
2030: 65 61 66 29 29 3b 0a 0c 0a 2f 2a 0a 20 2a 2d 2d  eaf));.../*. *--
2040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a  ------------. *.
2080: 20 2a 20 54 6b 5f 41 64 64 4f 70 74 69 6f 6e 20   * Tk_AddOption 
2090: 2d 2d 0a 20 2a 0a 20 2a 09 41 64 64 20 61 20 6e  --. *. *.Add a n
20a0: 65 77 20 6f 70 74 69 6f 6e 20 74 6f 20 74 68 65  ew option to the
20b0: 20 6f 70 74 69 6f 6e 20 64 61 74 61 62 61 73 65   option database
20c0: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a  .. *. * Results:
20d0: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20  . *.None.. *. * 
20e0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a  Side effects:. *
20f0: 09 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 73 20  .Information is 
2100: 61 64 64 65 64 20 74 6f 20 74 68 65 20 6f 70 74  added to the opt
2110: 69 6f 6e 20 64 61 74 61 62 61 73 65 2e 0a 20 2a  ion database.. *
2120: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
2130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2160: 2d 0a 20 2a 2f 0a 0a 76 6f 69 64 0a 54 6b 5f 41  -. */..void.Tk_A
2170: 64 64 4f 70 74 69 6f 6e 28 74 6b 77 69 6e 2c 20  ddOption(tkwin, 
2180: 6e 61 6d 65 2c 20 76 61 6c 75 65 2c 20 70 72 69  name, value, pri
2190: 6f 72 69 74 79 29 0a 20 20 20 20 54 6b 5f 57 69  ority).    Tk_Wi
21a0: 6e 64 6f 77 20 74 6b 77 69 6e 3b 09 09 2f 2a 20  ndow tkwin;../* 
21b0: 57 69 6e 64 6f 77 20 74 6f 6b 65 6e 3b 20 20 6f  Window token;  o
21c0: 70 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 61 73  ption will be as
21d0: 73 6f 63 69 61 74 65 64 0a 09 09 09 09 20 2a 20  sociated..... * 
21e0: 77 69 74 68 20 6d 61 69 6e 20 77 69 6e 64 6f 77  with main window
21f0: 20 66 6f 72 20 74 68 69 73 20 77 69 6e 64 6f 77   for this window
2200: 2e 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a 6e  . */.    char *n
2210: 61 6d 65 3b 09 09 09 2f 2a 20 4d 75 6c 74 69 2d  ame;.../* Multi-
2220: 65 6c 65 6d 65 6e 74 20 6e 61 6d 65 20 6f 66 20  element name of 
2230: 6f 70 74 69 6f 6e 2e 20 2a 2f 0a 20 20 20 20 63  option. */.    c
2240: 68 61 72 20 2a 76 61 6c 75 65 3b 09 09 2f 2a 20  har *value;../* 
2250: 53 74 72 69 6e 67 20 76 61 6c 75 65 20 66 6f 72  String value for
2260: 20 6f 70 74 69 6f 6e 2e 20 2a 2f 0a 20 20 20 20   option. */.    
2270: 69 6e 74 20 70 72 69 6f 72 69 74 79 3b 09 09 2f  int priority;../
2280: 2a 20 4f 76 65 72 61 6c 6c 20 70 72 69 6f 72 69  * Overall priori
2290: 74 79 20 6c 65 76 65 6c 20 74 6f 20 75 73 65 20  ty level to use 
22a0: 66 6f 72 0a 09 09 09 09 20 2a 20 74 68 69 73 20  for..... * this 
22b0: 6f 70 74 69 6f 6e 2c 20 73 75 63 68 20 61 73 20  option, such as 
22c0: 54 4b 5f 55 53 45 52 5f 44 45 46 41 55 4c 54 5f  TK_USER_DEFAULT_
22d0: 50 52 49 4f 0a 09 09 09 09 20 2a 20 6f 72 20 54  PRIO..... * or T
22e0: 4b 5f 49 4e 54 45 52 41 43 54 49 56 45 5f 50 52  K_INTERACTIVE_PR
22f0: 49 4f 2e 20 20 4d 75 73 74 20 62 65 20 62 65 74  IO.  Must be bet
2300: 77 65 65 6e 0a 09 09 09 09 20 2a 20 30 20 61 6e  ween..... * 0 an
2310: 64 20 54 4b 5f 4d 41 58 5f 50 52 49 4f 2e 20 2a  d TK_MAX_PRIO. *
2320: 2f 0a 7b 0a 20 20 20 20 54 6b 57 69 6e 64 6f 77  /.{.    TkWindow
2330: 20 2a 77 69 6e 50 74 72 20 3d 20 28 28 54 6b 57   *winPtr = ((TkW
2340: 69 6e 64 6f 77 20 2a 29 20 74 6b 77 69 6e 29 2d  indow *) tkwin)-
2350: 3e 6d 61 69 6e 50 74 72 2d 3e 77 69 6e 50 74 72  >mainPtr->winPtr
2360: 3b 0a 20 20 20 20 72 65 67 69 73 74 65 72 20 45  ;.    register E
2370: 6c 41 72 72 61 79 20 2a 2a 61 72 72 61 79 50 74  lArray **arrayPt
2380: 72 50 74 72 3b 0a 20 20 20 20 72 65 67 69 73 74  rPtr;.    regist
2390: 65 72 20 45 6c 65 6d 65 6e 74 20 2a 65 6c 50 74  er Element *elPt
23a0: 72 3b 0a 20 20 20 20 45 6c 65 6d 65 6e 74 20 6e  r;.    Element n
23b0: 65 77 45 6c 3b 0a 20 20 20 20 72 65 67 69 73 74  ewEl;.    regist
23c0: 65 72 20 63 68 61 72 20 2a 70 3b 0a 20 20 20 20  er char *p;.    
23d0: 63 68 61 72 20 2a 66 69 65 6c 64 3b 0a 20 20 20  char *field;.   
23e0: 20 69 6e 74 20 63 6f 75 6e 74 2c 20 66 69 72 73   int count, firs
23f0: 74 46 69 65 6c 64 2c 20 6c 65 6e 67 74 68 3b 0a  tField, length;.
2400: 23 64 65 66 69 6e 65 20 54 4d 50 5f 53 49 5a 45  #define TMP_SIZE
2410: 20 31 30 30 0a 20 20 20 20 63 68 61 72 20 74 6d   100.    char tm
2420: 70 5b 54 4d 50 5f 53 49 5a 45 2b 31 5d 3b 0a 0a  p[TMP_SIZE+1];..
2430: 20 20 20 20 69 66 20 28 77 69 6e 50 74 72 2d 3e      if (winPtr->
2440: 6d 61 69 6e 50 74 72 2d 3e 6f 70 74 69 6f 6e 52  mainPtr->optionR
2450: 6f 6f 74 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20  ootPtr == NULL) 
2460: 7b 0a 09 4f 70 74 69 6f 6e 49 6e 69 74 28 77 69  {..OptionInit(wi
2470: 6e 50 74 72 2d 3e 6d 61 69 6e 50 74 72 29 3b 0a  nPtr->mainPtr);.
2480: 20 20 20 20 7d 0a 20 20 20 20 63 61 63 68 65 64      }.    cached
2490: 57 69 6e 64 6f 77 20 3d 20 4e 55 4c 4c 3b 09 2f  Window = NULL;./
24a0: 2a 20 49 6e 76 61 6c 69 64 61 74 65 20 74 68 65  * Invalidate the
24b0: 20 63 61 63 68 65 2e 20 2a 2f 0a 0a 20 20 20 20   cache. */..    
24c0: 2f 2a 0a 20 20 20 20 20 2a 20 43 6f 6d 70 75 74  /*.     * Comput
24d0: 65 20 74 68 65 20 70 72 69 6f 72 69 74 79 20 66  e the priority f
24e0: 6f 72 20 74 68 65 20 6e 65 77 20 65 6c 65 6d 65  or the new eleme
24f0: 6e 74 2c 20 69 6e 63 6c 75 64 69 6e 67 20 62 6f  nt, including bo
2500: 74 68 20 74 68 65 0a 20 20 20 20 20 2a 20 6f 76  th the.     * ov
2510: 65 72 61 6c 6c 20 6c 65 76 65 6c 20 61 6e 64 20  erall level and 
2520: 74 68 65 20 73 65 72 69 61 6c 20 6e 75 6d 62 65  the serial numbe
2530: 72 20 28 74 6f 20 64 69 73 61 6d 62 69 67 75 61  r (to disambigua
2540: 74 65 20 77 69 74 68 20 74 68 65 0a 20 20 20 20  te with the.    
2550: 20 2a 20 6c 65 76 65 6c 29 2e 0a 20 20 20 20 20   * level)..     
2560: 2a 2f 0a 0a 20 20 20 20 69 66 20 28 70 72 69 6f  */..    if (prio
2570: 72 69 74 79 20 3c 20 30 29 20 7b 0a 09 70 72 69  rity < 0) {..pri
2580: 6f 72 69 74 79 20 3d 20 30 3b 0a 20 20 20 20 7d  ority = 0;.    }
2590: 20 65 6c 73 65 20 69 66 20 28 70 72 69 6f 72 69   else if (priori
25a0: 74 79 20 3e 20 54 4b 5f 4d 41 58 5f 50 52 49 4f  ty > TK_MAX_PRIO
25b0: 29 20 7b 0a 09 70 72 69 6f 72 69 74 79 20 3d 20  ) {..priority = 
25c0: 54 4b 5f 4d 41 58 5f 50 52 49 4f 3b 0a 20 20 20  TK_MAX_PRIO;.   
25d0: 20 7d 0a 20 20 20 20 6e 65 77 45 6c 2e 70 72 69   }.    newEl.pri
25e0: 6f 72 69 74 79 20 3d 20 28 70 72 69 6f 72 69 74  ority = (priorit
25f0: 79 20 3c 3c 20 32 34 29 20 2b 20 73 65 72 69 61  y << 24) + seria
2600: 6c 3b 0a 20 20 20 20 73 65 72 69 61 6c 2b 2b 3b  l;.    serial++;
2610: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20  ..    /*.     * 
2620: 50 61 72 73 65 20 74 68 65 20 6f 70 74 69 6f 6e  Parse the option
2630: 20 6f 6e 65 20 66 69 65 6c 64 20 61 74 20 61 20   one field at a 
2640: 74 69 6d 65 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20  time..     */.. 
2650: 20 20 20 61 72 72 61 79 50 74 72 50 74 72 20 3d     arrayPtrPtr =
2660: 20 26 28 28 28 54 6b 57 69 6e 64 6f 77 20 2a 29   &(((TkWindow *)
2670: 20 74 6b 77 69 6e 29 2d 3e 6d 61 69 6e 50 74 72   tkwin)->mainPtr
2680: 2d 3e 6f 70 74 69 6f 6e 52 6f 6f 74 50 74 72 29  ->optionRootPtr)
2690: 3b 0a 20 20 20 20 70 20 3d 20 6e 61 6d 65 3b 0a  ;.    p = name;.
26a0: 20 20 20 20 66 6f 72 20 28 66 69 72 73 74 46 69      for (firstFi
26b0: 65 6c 64 20 3d 20 31 3b 20 3b 20 66 69 72 73 74  eld = 1; ; first
26c0: 46 69 65 6c 64 20 3d 20 30 29 20 7b 0a 0a 09 2f  Field = 0) {.../
26d0: 2a 0a 09 20 2a 20 53 63 61 6e 20 74 68 65 20 6e  *.. * Scan the n
26e0: 65 78 74 20 66 69 65 6c 64 20 66 72 6f 6d 20 74  ext field from t
26f0: 68 65 20 6e 61 6d 65 20 61 6e 64 20 63 6f 6e 76  he name and conv
2700: 65 72 74 20 69 74 20 74 6f 20 61 20 54 6b 5f 55  ert it to a Tk_U
2710: 69 64 2e 0a 09 20 2a 20 4d 75 73 74 20 63 6f 70  id... * Must cop
2720: 79 20 74 68 65 20 66 69 65 6c 64 20 62 65 66 6f  y the field befo
2730: 72 65 20 63 61 6c 6c 69 6e 67 20 54 6b 5f 55 69  re calling Tk_Ui
2740: 64 2c 20 73 6f 20 74 68 61 74 20 61 20 74 65 72  d, so that a ter
2750: 6d 69 6e 61 74 69 6e 67 0a 09 20 2a 20 4e 55 4c  minating.. * NUL
2760: 4c 20 6d 61 79 20 62 65 20 61 64 64 65 64 20 77  L may be added w
2770: 69 74 68 6f 75 74 20 6d 6f 64 69 66 79 69 6e 67  ithout modifying
2780: 20 74 68 65 20 73 6f 75 72 63 65 20 73 74 72 69   the source stri
2790: 6e 67 2e 0a 09 20 2a 2f 0a 0a 09 69 66 20 28 2a  ng... */...if (*
27a0: 70 20 3d 3d 20 27 2a 27 29 20 7b 0a 09 20 20 20  p == '*') {..   
27b0: 20 6e 65 77 45 6c 2e 66 6c 61 67 73 20 3d 20 57   newEl.flags = W
27c0: 49 4c 44 43 41 52 44 3b 0a 09 20 20 20 20 70 2b  ILDCARD;..    p+
27d0: 2b 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20  +;..} else {..  
27e0: 20 20 6e 65 77 45 6c 2e 66 6c 61 67 73 20 3d 20    newEl.flags = 
27f0: 30 3b 0a 09 7d 0a 09 66 69 65 6c 64 20 3d 20 70  0;..}..field = p
2800: 3b 0a 09 77 68 69 6c 65 20 28 28 2a 70 20 21 3d  ;..while ((*p !=
2810: 20 30 29 20 26 26 20 28 2a 70 20 21 3d 20 27 2e   0) && (*p != '.
2820: 27 29 20 26 26 20 28 2a 70 20 21 3d 20 27 2a 27  ') && (*p != '*'
2830: 29 29 20 7b 0a 09 20 20 20 20 70 2b 2b 3b 0a 09  )) {..    p++;..
2840: 7d 0a 09 6c 65 6e 67 74 68 20 3d 20 70 20 2d 20  }..length = p - 
2850: 66 69 65 6c 64 3b 0a 09 69 66 20 28 6c 65 6e 67  field;..if (leng
2860: 74 68 20 3e 20 54 4d 50 5f 53 49 5a 45 29 20 7b  th > TMP_SIZE) {
2870: 0a 09 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 54  ..    length = T
2880: 4d 50 5f 53 49 5a 45 3b 0a 09 7d 0a 09 73 74 72  MP_SIZE;..}..str
2890: 6e 63 70 79 28 74 6d 70 2c 20 66 69 65 6c 64 2c  ncpy(tmp, field,
28a0: 20 28 73 69 7a 65 5f 74 29 20 6c 65 6e 67 74 68   (size_t) length
28b0: 29 3b 0a 09 74 6d 70 5b 6c 65 6e 67 74 68 5d 20  );..tmp[length] 
28c0: 3d 20 30 3b 0a 09 6e 65 77 45 6c 2e 6e 61 6d 65  = 0;..newEl.name
28d0: 55 69 64 20 3d 20 54 6b 5f 47 65 74 55 69 64 28  Uid = Tk_GetUid(
28e0: 74 6d 70 29 3b 0a 09 69 66 20 28 69 73 75 70 70  tmp);..if (isupp
28f0: 65 72 28 55 43 48 41 52 28 2a 66 69 65 6c 64 29  er(UCHAR(*field)
2900: 29 29 20 7b 0a 09 20 20 20 20 6e 65 77 45 6c 2e  )) {..    newEl.
2910: 66 6c 61 67 73 20 7c 3d 20 43 4c 41 53 53 3b 0a  flags |= CLASS;.
2920: 09 7d 0a 0a 09 69 66 20 28 2a 70 20 21 3d 20 30  .}...if (*p != 0
2930: 29 20 7b 0a 0a 09 20 20 20 20 2f 2a 0a 09 20 20  ) {...    /*..  
2940: 20 20 20 2a 20 4e 65 77 20 65 6c 65 6d 65 6e 74     * New element
2950: 20 77 69 6c 6c 20 62 65 20 61 20 6e 6f 64 65 2e   will be a node.
2960: 20 20 49 66 20 74 68 69 73 20 6f 70 74 69 6f 6e    If this option
2970: 20 63 61 6e 27 74 20 70 6f 73 73 69 62 6c 79 0a   can't possibly.
2980: 09 20 20 20 20 20 2a 20 61 70 70 6c 79 20 74 6f  .     * apply to
2990: 20 74 68 69 73 20 6d 61 69 6e 20 77 69 6e 64 6f   this main windo
29a0: 77 2c 20 74 68 65 6e 20 6a 75 73 74 20 73 6b 69  w, then just ski
29b0: 70 20 69 74 2e 20 20 4f 74 68 65 72 77 69 73 65  p it.  Otherwise
29c0: 2c 0a 09 20 20 20 20 20 2a 20 61 64 64 20 69 74  ,..     * add it
29d0: 20 74 6f 20 74 68 65 20 70 61 72 65 6e 74 2c 20   to the parent, 
29e0: 69 66 20 69 74 20 69 73 6e 27 74 20 61 6c 72 65  if it isn't alre
29f0: 61 64 79 20 74 68 65 72 65 2c 20 61 6e 64 20 64  ady there, and d
2a00: 65 73 63 65 6e 64 0a 09 20 20 20 20 20 2a 20 69  escend..     * i
2a10: 6e 74 6f 20 69 74 2e 0a 09 20 20 20 20 20 2a 2f  nto it...     */
2a20: 0a 0a 09 20 20 20 20 6e 65 77 45 6c 2e 66 6c 61  ...    newEl.fla
2a30: 67 73 20 7c 3d 20 4e 4f 44 45 3b 0a 09 20 20 20  gs |= NODE;..   
2a40: 20 69 66 20 28 66 69 72 73 74 46 69 65 6c 64 20   if (firstField 
2a50: 26 26 20 21 28 6e 65 77 45 6c 2e 66 6c 61 67 73  && !(newEl.flags
2a60: 20 26 20 57 49 4c 44 43 41 52 44 29 0a 09 09 20   & WILDCARD)... 
2a70: 20 20 20 26 26 20 28 6e 65 77 45 6c 2e 6e 61 6d     && (newEl.nam
2a80: 65 55 69 64 20 21 3d 20 77 69 6e 50 74 72 2d 3e  eUid != winPtr->
2a90: 6e 61 6d 65 55 69 64 29 0a 09 09 20 20 20 20 26  nameUid)...    &
2aa0: 26 20 28 6e 65 77 45 6c 2e 6e 61 6d 65 55 69 64  & (newEl.nameUid
2ab0: 20 21 3d 20 77 69 6e 50 74 72 2d 3e 63 6c 61 73   != winPtr->clas
2ac0: 73 55 69 64 29 29 20 7b 0a 09 09 72 65 74 75 72  sUid)) {...retur
2ad0: 6e 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 66  n;..    }..    f
2ae0: 6f 72 20 28 65 6c 50 74 72 20 3d 20 28 2a 61 72  or (elPtr = (*ar
2af0: 72 61 79 50 74 72 50 74 72 29 2d 3e 65 6c 73 2c  rayPtrPtr)->els,
2b00: 20 63 6f 75 6e 74 20 3d 20 28 2a 61 72 72 61 79   count = (*array
2b10: 50 74 72 50 74 72 29 2d 3e 6e 75 6d 55 73 65 64  PtrPtr)->numUsed
2b20: 3b 0a 09 09 20 20 20 20 3b 20 65 6c 50 74 72 2b  ;...    ; elPtr+
2b30: 2b 2c 20 63 6f 75 6e 74 2d 2d 29 20 7b 0a 09 09  +, count--) {...
2b40: 69 66 20 28 63 6f 75 6e 74 20 3d 3d 20 30 29 20  if (count == 0) 
2b50: 7b 0a 09 09 20 20 20 20 6e 65 77 45 6c 2e 63 68  {...    newEl.ch
2b60: 69 6c 64 2e 61 72 72 61 79 50 74 72 20 3d 20 4e  ild.arrayPtr = N
2b70: 65 77 41 72 72 61 79 28 35 29 3b 0a 09 09 20 20  ewArray(5);...  
2b80: 20 20 2a 61 72 72 61 79 50 74 72 50 74 72 20 3d    *arrayPtrPtr =
2b90: 20 45 78 74 65 6e 64 41 72 72 61 79 28 2a 61 72   ExtendArray(*ar
2ba0: 72 61 79 50 74 72 50 74 72 2c 20 26 6e 65 77 45  rayPtrPtr, &newE
2bb0: 6c 29 3b 0a 09 09 20 20 20 20 61 72 72 61 79 50  l);...    arrayP
2bc0: 74 72 50 74 72 20 3d 20 26 28 28 2a 61 72 72 61  trPtr = &((*arra
2bd0: 79 50 74 72 50 74 72 29 2d 3e 6e 65 78 74 54 6f  yPtrPtr)->nextTo
2be0: 55 73 65 5b 2d 31 5d 2e 63 68 69 6c 64 2e 61 72  Use[-1].child.ar
2bf0: 72 61 79 50 74 72 29 3b 0a 09 09 20 20 20 20 62  rayPtr);...    b
2c00: 72 65 61 6b 3b 0a 09 09 7d 0a 09 09 69 66 20 28  reak;...}...if (
2c10: 28 65 6c 50 74 72 2d 3e 6e 61 6d 65 55 69 64 20  (elPtr->nameUid 
2c20: 3d 3d 20 6e 65 77 45 6c 2e 6e 61 6d 65 55 69 64  == newEl.nameUid
2c30: 29 0a 09 09 09 26 26 20 28 65 6c 50 74 72 2d 3e  )....&& (elPtr->
2c40: 66 6c 61 67 73 20 3d 3d 20 6e 65 77 45 6c 2e 66  flags == newEl.f
2c50: 6c 61 67 73 29 29 20 7b 0a 09 09 20 20 20 20 61  lags)) {...    a
2c60: 72 72 61 79 50 74 72 50 74 72 20 3d 20 26 28 65  rrayPtrPtr = &(e
2c70: 6c 50 74 72 2d 3e 63 68 69 6c 64 2e 61 72 72 61  lPtr->child.arra
2c80: 79 50 74 72 29 3b 0a 09 09 20 20 20 20 62 72 65  yPtr);...    bre
2c90: 61 6b 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09  ak;...}..    }..
2ca0: 20 20 20 20 69 66 20 28 2a 70 20 3d 3d 20 27 2e      if (*p == '.
2cb0: 27 29 20 7b 0a 09 09 70 2b 2b 3b 0a 09 20 20 20  ') {...p++;..   
2cc0: 20 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 0a 09 20   }..} else {... 
2cd0: 20 20 20 2f 2a 0a 09 20 20 20 20 20 2a 20 4e 65     /*..     * Ne
2ce0: 77 20 65 6c 65 6d 65 6e 74 20 69 73 20 61 20 6c  w element is a l
2cf0: 65 61 66 2e 20 20 41 64 64 20 69 74 20 74 6f 20  eaf.  Add it to 
2d00: 74 68 65 20 70 61 72 65 6e 74 2c 20 69 66 20 69  the parent, if i
2d10: 74 20 69 73 6e 27 74 0a 09 20 20 20 20 20 2a 20  t isn't..     * 
2d20: 61 6c 72 65 61 64 79 20 74 68 65 72 65 2e 20 20  already there.  
2d30: 49 66 20 69 74 20 65 78 69 73 74 73 20 61 6c 72  If it exists alr
2d40: 65 61 64 79 2c 20 6b 65 65 70 20 77 68 69 63 68  eady, keep which
2d50: 65 76 65 72 20 76 61 6c 75 65 0a 09 20 20 20 20  ever value..    
2d60: 20 2a 20 68 61 73 20 68 69 67 68 65 73 74 20 70   * has highest p
2d70: 72 69 6f 72 69 74 79 2e 0a 09 20 20 20 20 20 2a  riority...     *
2d80: 2f 0a 0a 09 20 20 20 20 6e 65 77 45 6c 2e 63 68  /...    newEl.ch
2d90: 69 6c 64 2e 76 61 6c 75 65 55 69 64 20 3d 20 54  ild.valueUid = T
2da0: 6b 5f 47 65 74 55 69 64 28 76 61 6c 75 65 29 3b  k_GetUid(value);
2db0: 0a 09 20 20 20 20 66 6f 72 20 28 65 6c 50 74 72  ..    for (elPtr
2dc0: 20 3d 20 28 2a 61 72 72 61 79 50 74 72 50 74 72   = (*arrayPtrPtr
2dd0: 29 2d 3e 65 6c 73 2c 20 63 6f 75 6e 74 20 3d 20  )->els, count = 
2de0: 28 2a 61 72 72 61 79 50 74 72 50 74 72 29 2d 3e  (*arrayPtrPtr)->
2df0: 6e 75 6d 55 73 65 64 3b 0a 09 09 20 20 20 20 3b  numUsed;...    ;
2e00: 20 65 6c 50 74 72 2b 2b 2c 20 63 6f 75 6e 74 2d   elPtr++, count-
2e10: 2d 29 20 7b 0a 09 09 69 66 20 28 63 6f 75 6e 74  -) {...if (count
2e20: 20 3d 3d 20 30 29 20 7b 0a 09 09 20 20 20 20 2a   == 0) {...    *
2e30: 61 72 72 61 79 50 74 72 50 74 72 20 3d 20 45 78  arrayPtrPtr = Ex
2e40: 74 65 6e 64 41 72 72 61 79 28 2a 61 72 72 61 79  tendArray(*array
2e50: 50 74 72 50 74 72 2c 20 26 6e 65 77 45 6c 29 3b  PtrPtr, &newEl);
2e60: 0a 09 09 20 20 20 20 72 65 74 75 72 6e 3b 0a 09  ...    return;..
2e70: 09 7d 0a 09 09 69 66 20 28 28 65 6c 50 74 72 2d  .}...if ((elPtr-
2e80: 3e 6e 61 6d 65 55 69 64 20 3d 3d 20 6e 65 77 45  >nameUid == newE
2e90: 6c 2e 6e 61 6d 65 55 69 64 29 0a 09 09 09 26 26  l.nameUid)....&&
2ea0: 20 28 65 6c 50 74 72 2d 3e 66 6c 61 67 73 20 3d   (elPtr->flags =
2eb0: 3d 20 6e 65 77 45 6c 2e 66 6c 61 67 73 29 29 20  = newEl.flags)) 
2ec0: 7b 0a 09 09 20 20 20 20 69 66 20 28 65 6c 50 74  {...    if (elPt
2ed0: 72 2d 3e 70 72 69 6f 72 69 74 79 20 3c 20 6e 65  r->priority < ne
2ee0: 77 45 6c 2e 70 72 69 6f 72 69 74 79 29 20 7b 0a  wEl.priority) {.
2ef0: 09 09 09 65 6c 50 74 72 2d 3e 70 72 69 6f 72 69  ...elPtr->priori
2f00: 74 79 20 3d 20 6e 65 77 45 6c 2e 70 72 69 6f 72  ty = newEl.prior
2f10: 69 74 79 3b 0a 09 09 09 65 6c 50 74 72 2d 3e 63  ity;....elPtr->c
2f20: 68 69 6c 64 2e 76 61 6c 75 65 55 69 64 20 3d 20  hild.valueUid = 
2f30: 6e 65 77 45 6c 2e 63 68 69 6c 64 2e 76 61 6c 75  newEl.child.valu
2f40: 65 55 69 64 3b 0a 09 09 20 20 20 20 7d 0a 09 09  eUid;...    }...
2f50: 20 20 20 20 72 65 74 75 72 6e 3b 0a 09 09 7d 0a      return;...}.
2f60: 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 20 7d 0a  .    }..}.    }.
2f70: 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  }.../*. *-------
2f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2fb0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6b  -------. *. * Tk
2fc0: 5f 47 65 74 4f 70 74 69 6f 6e 20 2d 2d 0a 20 2a  _GetOption --. *
2fd0: 0a 20 2a 09 52 65 74 72 69 65 76 65 20 61 6e 20  . *.Retrieve an 
2fe0: 6f 70 74 69 6f 6e 20 66 72 6f 6d 20 74 68 65 20  option from the 
2ff0: 6f 70 74 69 6f 6e 20 64 61 74 61 62 61 73 65 2e  option database.
3000: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a  . *. * Results:.
3010: 20 2a 09 54 68 65 20 72 65 74 75 72 6e 20 76 61   *.The return va
3020: 6c 75 65 20 69 73 20 74 68 65 20 76 61 6c 75 65  lue is the value
3030: 20 73 70 65 63 69 66 69 65 64 20 69 6e 20 74 68   specified in th
3040: 65 20 6f 70 74 69 6f 6e 0a 20 2a 09 64 61 74 61  e option. *.data
3050: 62 61 73 65 20 66 6f 72 20 74 68 65 20 67 69 76  base for the giv
3060: 65 6e 20 6e 61 6d 65 20 61 6e 64 20 63 6c 61 73  en name and clas
3070: 73 20 6f 6e 20 74 68 65 20 67 69 76 65 6e 0a 20  s on the given. 
3080: 2a 09 77 69 6e 64 6f 77 2e 20 20 49 66 20 74 68  *.window.  If th
3090: 65 72 65 20 69 73 20 6e 6f 74 68 69 6e 67 20 73  ere is nothing s
30a0: 70 65 63 69 66 69 65 64 20 69 6e 20 74 68 65 20  pecified in the 
30b0: 64 61 74 61 62 61 73 65 0a 20 2a 09 66 6f 72 20  database. *.for 
30c0: 74 68 61 74 20 6f 70 74 69 6f 6e 2c 20 74 68 65  that option, the
30d0: 6e 20 4e 55 4c 4c 20 69 73 20 72 65 74 75 72 6e  n NULL is return
30e0: 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  ed.. *. * Side e
30f0: 66 66 65 63 74 73 3a 0a 20 2a 09 54 68 65 20 69  ffects:. *.The i
3100: 6e 74 65 72 6e 61 6c 20 63 61 63 68 65 73 20 75  nternal caches u
3110: 73 65 64 20 74 6f 20 73 70 65 65 64 20 75 70 20  sed to speed up 
3120: 6f 70 74 69 6f 6e 20 6d 61 70 70 69 6e 67 0a 20  option mapping. 
3130: 2a 09 6d 61 79 20 62 65 20 6d 6f 64 69 66 69 65  *.may be modifie
3140: 64 2c 20 69 66 20 74 68 69 73 20 74 6b 77 69 6e  d, if this tkwin
3150: 20 69 73 20 64 69 66 66 65 72 65 6e 74 20 66 72   is different fr
3160: 6f 6d 20 74 68 65 0a 20 2a 09 6c 61 73 74 20 74  om the. *.last t
3170: 6b 77 69 6e 20 75 73 65 64 20 66 6f 72 20 6f 70  kwin used for op
3180: 74 69 6f 6e 20 72 65 74 72 69 65 76 61 6c 2e 0a  tion retrieval..
3190: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *. *-----------
31a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
31b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
31c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
31d0: 2d 2d 2d 0a 20 2a 2f 0a 0a 54 6b 5f 55 69 64 0a  ---. */..Tk_Uid.
31e0: 54 6b 5f 47 65 74 4f 70 74 69 6f 6e 28 74 6b 77  Tk_GetOption(tkw
31f0: 69 6e 2c 20 6e 61 6d 65 2c 20 63 6c 61 73 73 4e  in, name, classN
3200: 61 6d 65 29 0a 20 20 20 20 54 6b 5f 57 69 6e 64  ame).    Tk_Wind
3210: 6f 77 20 74 6b 77 69 6e 3b 09 09 2f 2a 20 54 6f  ow tkwin;../* To
3220: 6b 65 6e 20 66 6f 72 20 77 69 6e 64 6f 77 20 74  ken for window t
3230: 68 61 74 20 6f 70 74 69 6f 6e 20 69 73 0a 09 09  hat option is...
3240: 09 09 20 2a 20 61 73 73 6f 63 69 61 74 65 64 20  .. * associated 
3250: 77 69 74 68 2e 20 2a 2f 0a 20 20 20 20 63 68 61  with. */.    cha
3260: 72 20 2a 6e 61 6d 65 3b 09 09 09 2f 2a 20 4e 61  r *name;.../* Na
3270: 6d 65 20 6f 66 20 6f 70 74 69 6f 6e 2e 20 2a 2f  me of option. */
3280: 0a 20 20 20 20 63 68 61 72 20 2a 63 6c 61 73 73  .    char *class
3290: 4e 61 6d 65 3b 09 09 2f 2a 20 43 6c 61 73 73 20  Name;../* Class 
32a0: 6f 66 20 6f 70 74 69 6f 6e 2e 20 20 4e 55 4c 4c  of option.  NULL
32b0: 20 6d 65 61 6e 73 20 74 68 65 72 65 0a 09 09 09   means there....
32c0: 09 20 2a 20 69 73 20 6e 6f 20 63 6c 61 73 73 20  . * is no class 
32d0: 66 6f 72 20 74 68 69 73 20 6f 70 74 69 6f 6e 3a  for this option:
32e0: 20 20 6a 75 73 74 0a 09 09 09 09 20 2a 20 63 68    just..... * ch
32f0: 65 63 6b 20 66 6f 72 20 6e 61 6d 65 2e 20 2a 2f  eck for name. */
3300: 0a 7b 0a 20 20 20 20 54 6b 5f 55 69 64 20 6e 61  .{.    Tk_Uid na
3310: 6d 65 49 64 2c 20 63 6c 61 73 73 49 64 3b 0a 20  meId, classId;. 
3320: 20 20 20 72 65 67 69 73 74 65 72 20 45 6c 65 6d     register Elem
3330: 65 6e 74 20 2a 65 6c 50 74 72 2c 20 2a 62 65 73  ent *elPtr, *bes
3340: 74 50 74 72 3b 0a 20 20 20 20 72 65 67 69 73 74  tPtr;.    regist
3350: 65 72 20 69 6e 74 20 63 6f 75 6e 74 3b 0a 0a 20  er int count;.. 
3360: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 4e 6f 74     /*.     * Not
3370: 65 3a 20 20 6e 6f 20 6e 65 65 64 20 74 6f 20 63  e:  no need to c
3380: 61 6c 6c 20 4f 70 74 69 6f 6e 49 6e 69 74 20 68  all OptionInit h
3390: 65 72 65 3a 20 20 69 74 20 77 69 6c 6c 20 62 65  ere:  it will be
33a0: 20 64 6f 6e 65 20 62 79 0a 20 20 20 20 20 2a 20   done by.     * 
33b0: 74 68 65 20 53 65 74 75 70 53 74 61 63 6b 73 20  the SetupStacks 
33c0: 63 61 6c 6c 20 62 65 6c 6f 77 20 28 73 71 75 65  call below (sque
33d0: 65 7a 65 20 6f 75 74 20 74 68 6f 73 65 20 6e 61  eze out those na
33e0: 6e 6f 73 65 63 6f 6e 64 73 29 2e 0a 20 20 20 20  noseconds)..    
33f0: 20 2a 2f 0a 0a 20 20 20 20 69 66 20 28 74 6b 77   */..    if (tkw
3400: 69 6e 20 21 3d 20 28 54 6b 5f 57 69 6e 64 6f 77  in != (Tk_Window
3410: 29 20 63 61 63 68 65 64 57 69 6e 64 6f 77 29 20  ) cachedWindow) 
3420: 7b 0a 09 53 65 74 75 70 53 74 61 63 6b 73 28 28  {..SetupStacks((
3430: 54 6b 57 69 6e 64 6f 77 20 2a 29 20 74 6b 77 69  TkWindow *) tkwi
3440: 6e 2c 20 31 29 3b 0a 20 20 20 20 7d 0a 0a 20 20  n, 1);.    }..  
3450: 20 20 6e 61 6d 65 49 64 20 3d 20 54 6b 5f 47 65    nameId = Tk_Ge
3460: 74 55 69 64 28 6e 61 6d 65 29 3b 0a 20 20 20 20  tUid(name);.    
3470: 62 65 73 74 50 74 72 20 3d 20 26 64 65 66 61 75  bestPtr = &defau
3480: 6c 74 4d 61 74 63 68 3b 0a 20 20 20 20 66 6f 72  ltMatch;.    for
3490: 20 28 65 6c 50 74 72 20 3d 20 73 74 61 63 6b 73   (elPtr = stacks
34a0: 5b 45 58 41 43 54 5f 4c 45 41 46 5f 4e 41 4d 45  [EXACT_LEAF_NAME
34b0: 5d 2d 3e 65 6c 73 2c 0a 09 20 20 20 20 63 6f 75  ]->els,..    cou
34c0: 6e 74 20 3d 20 73 74 61 63 6b 73 5b 45 58 41 43  nt = stacks[EXAC
34d0: 54 5f 4c 45 41 46 5f 4e 41 4d 45 5d 2d 3e 6e 75  T_LEAF_NAME]->nu
34e0: 6d 55 73 65 64 3b 20 63 6f 75 6e 74 20 3e 20 30  mUsed; count > 0
34f0: 3b 0a 09 20 20 20 20 65 6c 50 74 72 2b 2b 2c 20  ;..    elPtr++, 
3500: 63 6f 75 6e 74 2d 2d 29 20 7b 0a 09 69 66 20 28  count--) {..if (
3510: 28 65 6c 50 74 72 2d 3e 6e 61 6d 65 55 69 64 20  (elPtr->nameUid 
3520: 3d 3d 20 6e 61 6d 65 49 64 29 0a 09 09 26 26 20  == nameId)...&& 
3530: 28 65 6c 50 74 72 2d 3e 70 72 69 6f 72 69 74 79  (elPtr->priority
3540: 20 3e 20 62 65 73 74 50 74 72 2d 3e 70 72 69 6f   > bestPtr->prio
3550: 72 69 74 79 29 29 20 7b 0a 09 20 20 20 20 62 65  rity)) {..    be
3560: 73 74 50 74 72 20 3d 20 65 6c 50 74 72 3b 0a 09  stPtr = elPtr;..
3570: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 66 6f 72 20  }.    }.    for 
3580: 28 65 6c 50 74 72 20 3d 20 73 74 61 63 6b 73 5b  (elPtr = stacks[
3590: 57 49 4c 44 43 41 52 44 5f 4c 45 41 46 5f 4e 41  WILDCARD_LEAF_NA
35a0: 4d 45 5d 2d 3e 65 6c 73 2c 0a 09 20 20 20 20 63  ME]->els,..    c
35b0: 6f 75 6e 74 20 3d 20 73 74 61 63 6b 73 5b 57 49  ount = stacks[WI
35c0: 4c 44 43 41 52 44 5f 4c 45 41 46 5f 4e 41 4d 45  LDCARD_LEAF_NAME
35d0: 5d 2d 3e 6e 75 6d 55 73 65 64 3b 20 63 6f 75 6e  ]->numUsed; coun
35e0: 74 20 3e 20 30 3b 0a 09 20 20 20 20 65 6c 50 74  t > 0;..    elPt
35f0: 72 2b 2b 2c 20 63 6f 75 6e 74 2d 2d 29 20 7b 0a  r++, count--) {.
3600: 09 69 66 20 28 28 65 6c 50 74 72 2d 3e 6e 61 6d  .if ((elPtr->nam
3610: 65 55 69 64 20 3d 3d 20 6e 61 6d 65 49 64 29 0a  eUid == nameId).
3620: 09 09 26 26 20 28 65 6c 50 74 72 2d 3e 70 72 69  ..&& (elPtr->pri
3630: 6f 72 69 74 79 20 3e 20 62 65 73 74 50 74 72 2d  ority > bestPtr-
3640: 3e 70 72 69 6f 72 69 74 79 29 29 20 7b 0a 09 20  >priority)) {.. 
3650: 20 20 20 62 65 73 74 50 74 72 20 3d 20 65 6c 50     bestPtr = elP
3660: 74 72 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20  tr;..}.    }.   
3670: 20 69 66 20 28 63 6c 61 73 73 4e 61 6d 65 20 21   if (className !
3680: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 63 6c 61 73 73  = NULL) {..class
3690: 49 64 20 3d 20 54 6b 5f 47 65 74 55 69 64 28 63  Id = Tk_GetUid(c
36a0: 6c 61 73 73 4e 61 6d 65 29 3b 0a 09 66 6f 72 20  lassName);..for 
36b0: 28 65 6c 50 74 72 20 3d 20 73 74 61 63 6b 73 5b  (elPtr = stacks[
36c0: 45 58 41 43 54 5f 4c 45 41 46 5f 43 4c 41 53 53  EXACT_LEAF_CLASS
36d0: 5d 2d 3e 65 6c 73 2c 0a 09 09 63 6f 75 6e 74 20  ]->els,...count 
36e0: 3d 20 73 74 61 63 6b 73 5b 45 58 41 43 54 5f 4c  = stacks[EXACT_L
36f0: 45 41 46 5f 43 4c 41 53 53 5d 2d 3e 6e 75 6d 55  EAF_CLASS]->numU
3700: 73 65 64 3b 20 63 6f 75 6e 74 20 3e 20 30 3b 0a  sed; count > 0;.
3710: 09 09 65 6c 50 74 72 2b 2b 2c 20 63 6f 75 6e 74  ..elPtr++, count
3720: 2d 2d 29 20 7b 0a 09 20 20 20 20 69 66 20 28 28  --) {..    if ((
3730: 65 6c 50 74 72 2d 3e 6e 61 6d 65 55 69 64 20 3d  elPtr->nameUid =
3740: 3d 20 63 6c 61 73 73 49 64 29 0a 09 09 20 20 20  = classId)...   
3750: 20 26 26 20 28 65 6c 50 74 72 2d 3e 70 72 69 6f   && (elPtr->prio
3760: 72 69 74 79 20 3e 20 62 65 73 74 50 74 72 2d 3e  rity > bestPtr->
3770: 70 72 69 6f 72 69 74 79 29 29 20 7b 0a 09 09 62  priority)) {...b
3780: 65 73 74 50 74 72 20 3d 20 65 6c 50 74 72 3b 0a  estPtr = elPtr;.
3790: 09 20 20 20 20 7d 0a 09 7d 0a 09 66 6f 72 20 28  .    }..}..for (
37a0: 65 6c 50 74 72 20 3d 20 73 74 61 63 6b 73 5b 57  elPtr = stacks[W
37b0: 49 4c 44 43 41 52 44 5f 4c 45 41 46 5f 43 4c 41  ILDCARD_LEAF_CLA
37c0: 53 53 5d 2d 3e 65 6c 73 2c 0a 09 09 63 6f 75 6e  SS]->els,...coun
37d0: 74 20 3d 20 73 74 61 63 6b 73 5b 57 49 4c 44 43  t = stacks[WILDC
37e0: 41 52 44 5f 4c 45 41 46 5f 43 4c 41 53 53 5d 2d  ARD_LEAF_CLASS]-
37f0: 3e 6e 75 6d 55 73 65 64 3b 20 63 6f 75 6e 74 20  >numUsed; count 
3800: 3e 20 30 3b 0a 09 09 65 6c 50 74 72 2b 2b 2c 20  > 0;...elPtr++, 
3810: 63 6f 75 6e 74 2d 2d 29 20 7b 0a 09 20 20 20 20  count--) {..    
3820: 69 66 20 28 28 65 6c 50 74 72 2d 3e 6e 61 6d 65  if ((elPtr->name
3830: 55 69 64 20 3d 3d 20 63 6c 61 73 73 49 64 29 0a  Uid == classId).
3840: 09 09 20 20 20 20 26 26 20 28 65 6c 50 74 72 2d  ..    && (elPtr-
3850: 3e 70 72 69 6f 72 69 74 79 20 3e 20 62 65 73 74  >priority > best
3860: 50 74 72 2d 3e 70 72 69 6f 72 69 74 79 29 29 20  Ptr->priority)) 
3870: 7b 0a 09 09 62 65 73 74 50 74 72 20 3d 20 65 6c  {...bestPtr = el
3880: 50 74 72 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 20  Ptr;..    }..}. 
3890: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20     }.    return 
38a0: 62 65 73 74 50 74 72 2d 3e 63 68 69 6c 64 2e 76  bestPtr->child.v
38b0: 61 6c 75 65 55 69 64 3b 0a 7d 0a 0c 0a 2f 2a 0a  alueUid;.}.../*.
38c0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
38d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
38e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
38f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3900: 0a 20 2a 0a 20 2a 20 54 6b 5f 4f 70 74 69 6f 6e  . *. * Tk_Option
3910: 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69  Cmd --. *. *.Thi
3920: 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69  s procedure is i
3930: 6e 76 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65 73  nvoked to proces
3940: 73 20 74 68 65 20 22 6f 70 74 69 6f 6e 22 20 54  s the "option" T
3950: 63 6c 20 63 6f 6d 6d 61 6e 64 2e 0a 20 2a 09 53  cl command.. *.S
3960: 65 65 20 74 68 65 20 75 73 65 72 20 64 6f 63 75  ee the user docu
3970: 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 64 65  mentation for de
3980: 74 61 69 6c 73 20 6f 6e 20 77 68 61 74 20 69 74  tails on what it
3990: 20 64 6f 65 73 2e 0a 20 2a 0a 20 2a 20 52 65 73   does.. *. * Res
39a0: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64  ults:. *.A stand
39b0: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a  ard Tcl result..
39c0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63   *. * Side effec
39d0: 74 73 3a 0a 20 2a 09 53 65 65 20 74 68 65 20 75  ts:. *.See the u
39e0: 73 65 72 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f  ser documentatio
39f0: 6e 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  n.. *. *--------
3a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3a30: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 69 6e 74 0a  ------. */..int.
3a40: 54 6b 5f 4f 70 74 69 6f 6e 43 6d 64 28 63 6c 69  Tk_OptionCmd(cli
3a50: 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c  entData, interp,
3a60: 20 61 72 67 63 2c 20 61 72 67 76 29 0a 20 20 20   argc, argv).   
3a70: 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65   ClientData clie
3a80: 6e 74 44 61 74 61 3b 09 2f 2a 20 4d 61 69 6e 20  ntData;./* Main 
3a90: 77 69 6e 64 6f 77 20 61 73 73 6f 63 69 61 74 65  window associate
3aa0: 64 20 77 69 74 68 0a 09 09 09 09 20 2a 20 69 6e  d with..... * in
3ab0: 74 65 72 70 72 65 74 65 72 2e 20 2a 2f 0a 20 20  terpreter. */.  
3ac0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
3ad0: 74 65 72 70 3b 09 09 2f 2a 20 43 75 72 72 65 6e  terp;../* Curren
3ae0: 74 20 69 6e 74 65 72 70 72 65 74 65 72 2e 20 2a  t interpreter. *
3af0: 2f 0a 20 20 20 20 69 6e 74 20 61 72 67 63 3b 09  /.    int argc;.
3b00: 09 09 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61  ../* Number of a
3b10: 72 67 75 6d 65 6e 74 73 2e 20 2a 2f 0a 20 20 20  rguments. */.   
3b20: 20 63 68 61 72 20 2a 2a 61 72 67 76 3b 09 09 2f   char **argv;../
3b30: 2a 20 41 72 67 75 6d 65 6e 74 20 73 74 72 69 6e  * Argument strin
3b40: 67 73 2e 20 2a 2f 0a 7b 0a 20 20 20 20 54 6b 5f  gs. */.{.    Tk_
3b50: 57 69 6e 64 6f 77 20 74 6b 77 69 6e 20 3d 20 28  Window tkwin = (
3b60: 54 6b 5f 57 69 6e 64 6f 77 29 20 63 6c 69 65 6e  Tk_Window) clien
3b70: 74 44 61 74 61 3b 0a 20 20 20 20 73 69 7a 65 5f  tData;.    size_
3b80: 74 20 6c 65 6e 67 74 68 3b 0a 20 20 20 20 63 68  t length;.    ch
3b90: 61 72 20 63 3b 0a 0a 20 20 20 20 69 66 20 28 61  ar c;..    if (a
3ba0: 72 67 63 20 3c 20 32 29 20 7b 0a 09 54 63 6c 5f  rgc < 2) {..Tcl_
3bb0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
3bc0: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72  erp, "wrong # ar
3bd0: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22  gs: should be \"
3be0: 22 2c 20 61 72 67 76 5b 30 5d 2c 0a 09 09 22 20  ", argv[0],..." 
3bf0: 63 6d 64 20 61 72 67 20 3f 61 72 67 20 2e 2e 2e  cmd arg ?arg ...
3c00: 3f 5c 22 22 2c 20 28 63 68 61 72 20 2a 29 20 4e  ?\"", (char *) N
3c10: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43  ULL);..return TC
3c20: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20  L_ERROR;.    }. 
3c30: 20 20 20 63 20 3d 20 61 72 67 76 5b 31 5d 5b 30     c = argv[1][0
3c40: 5d 3b 0a 20 20 20 20 6c 65 6e 67 74 68 20 3d 20  ];.    length = 
3c50: 73 74 72 6c 65 6e 28 61 72 67 76 5b 31 5d 29 3b  strlen(argv[1]);
3c60: 0a 20 20 20 20 69 66 20 28 28 63 20 3d 3d 20 27  .    if ((c == '
3c70: 61 27 29 20 26 26 20 28 73 74 72 6e 63 6d 70 28  a') && (strncmp(
3c80: 61 72 67 76 5b 31 5d 2c 20 22 61 64 64 22 2c 20  argv[1], "add", 
3c90: 6c 65 6e 67 74 68 29 20 3d 3d 20 30 29 29 20 7b  length) == 0)) {
3ca0: 0a 09 69 6e 74 20 70 72 69 6f 72 69 74 79 3b 0a  ..int priority;.
3cb0: 0a 09 69 66 20 28 28 61 72 67 63 20 21 3d 20 34  ..if ((argc != 4
3cc0: 29 20 26 26 20 28 61 72 67 63 20 21 3d 20 35 29  ) && (argc != 5)
3cd0: 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70  ) {..    Tcl_App
3ce0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
3cf0: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a  , "wrong # args:
3d00: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a   should be \"",.
3d10: 09 09 20 20 20 20 61 72 67 76 5b 30 5d 2c 20 22  ..    argv[0], "
3d20: 20 61 64 64 20 70 61 74 74 65 72 6e 20 76 61 6c   add pattern val
3d30: 75 65 20 3f 70 72 69 6f 72 69 74 79 3f 5c 22 22  ue ?priority?\""
3d40: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29  , (char *) NULL)
3d50: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43  ;..    return TC
3d60: 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 09 69 66 20  L_ERROR;..}..if 
3d70: 28 61 72 67 63 20 3d 3d 20 34 29 20 7b 0a 09 20  (argc == 4) {.. 
3d80: 20 20 20 70 72 69 6f 72 69 74 79 20 3d 20 54 4b     priority = TK
3d90: 5f 49 4e 54 45 52 41 43 54 49 56 45 5f 50 52 49  _INTERACTIVE_PRI
3da0: 4f 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20  O;..} else {..  
3db0: 20 20 70 72 69 6f 72 69 74 79 20 3d 20 50 61 72    priority = Par
3dc0: 73 65 50 72 69 6f 72 69 74 79 28 69 6e 74 65 72  sePriority(inter
3dd0: 70 2c 20 61 72 67 76 5b 34 5d 29 3b 0a 09 20 20  p, argv[4]);..  
3de0: 20 20 69 66 20 28 70 72 69 6f 72 69 74 79 20 3c    if (priority <
3df0: 20 30 29 20 7b 0a 09 09 72 65 74 75 72 6e 20 54   0) {...return T
3e00: 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d  CL_ERROR;..    }
3e10: 0a 09 7d 0a 09 54 6b 5f 41 64 64 4f 70 74 69 6f  ..}..Tk_AddOptio
3e20: 6e 28 74 6b 77 69 6e 2c 20 61 72 67 76 5b 32 5d  n(tkwin, argv[2]
3e30: 2c 20 61 72 67 76 5b 33 5d 2c 20 70 72 69 6f 72  , argv[3], prior
3e40: 69 74 79 29 3b 0a 09 72 65 74 75 72 6e 20 54 43  ity);..return TC
3e50: 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 20 65 6c 73 65  L_OK;.    } else
3e60: 20 69 66 20 28 28 63 20 3d 3d 20 27 63 27 29 20   if ((c == 'c') 
3e70: 26 26 20 28 73 74 72 6e 63 6d 70 28 61 72 67 76  && (strncmp(argv
3e80: 5b 31 5d 2c 20 22 63 6c 65 61 72 22 2c 20 6c 65  [1], "clear", le
3e90: 6e 67 74 68 29 20 3d 3d 20 30 29 29 20 7b 0a 09  ngth) == 0)) {..
3ea0: 54 6b 4d 61 69 6e 49 6e 66 6f 20 2a 6d 61 69 6e  TkMainInfo *main
3eb0: 50 74 72 3b 0a 0a 09 69 66 20 28 61 72 67 63 20  Ptr;...if (argc 
3ec0: 21 3d 20 32 29 20 7b 0a 09 20 20 20 20 54 63 6c  != 2) {..    Tcl
3ed0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
3ee0: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61  terp, "wrong # a
3ef0: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c  rgs: should be \
3f00: 22 22 2c 0a 09 09 20 20 20 20 61 72 67 76 5b 30  "",...    argv[0
3f10: 5d 2c 20 22 20 63 6c 65 61 72 5c 22 22 2c 20 28  ], " clear\"", (
3f20: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09  char *) NULL);..
3f30: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
3f40: 52 52 4f 52 3b 0a 09 7d 0a 09 6d 61 69 6e 50 74  RROR;..}..mainPt
3f50: 72 20 3d 20 28 28 54 6b 57 69 6e 64 6f 77 20 2a  r = ((TkWindow *
3f60: 29 20 74 6b 77 69 6e 29 2d 3e 6d 61 69 6e 50 74  ) tkwin)->mainPt
3f70: 72 3b 0a 09 69 66 20 28 6d 61 69 6e 50 74 72 2d  r;..if (mainPtr-
3f80: 3e 6f 70 74 69 6f 6e 52 6f 6f 74 50 74 72 20 21  >optionRootPtr !
3f90: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 43  = NULL) {..    C
3fa0: 6c 65 61 72 4f 70 74 69 6f 6e 54 72 65 65 28 6d  learOptionTree(m
3fb0: 61 69 6e 50 74 72 2d 3e 6f 70 74 69 6f 6e 52 6f  ainPtr->optionRo
3fc0: 6f 74 50 74 72 29 3b 0a 09 20 20 20 20 6d 61 69  otPtr);..    mai
3fd0: 6e 50 74 72 2d 3e 6f 70 74 69 6f 6e 52 6f 6f 74  nPtr->optionRoot
3fe0: 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 09 7d 0a 09  Ptr = NULL;..}..
3ff0: 63 61 63 68 65 64 57 69 6e 64 6f 77 20 3d 20 4e  cachedWindow = N
4000: 55 4c 4c 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c  ULL;..return TCL
4010: 5f 4f 4b 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20  _OK;.    } else 
4020: 69 66 20 28 28 63 20 3d 3d 20 27 67 27 29 20 26  if ((c == 'g') &
4030: 26 20 28 73 74 72 6e 63 6d 70 28 61 72 67 76 5b  & (strncmp(argv[
4040: 31 5d 2c 20 22 67 65 74 22 2c 20 6c 65 6e 67 74  1], "get", lengt
4050: 68 29 20 3d 3d 20 30 29 29 20 7b 0a 09 54 6b 5f  h) == 0)) {..Tk_
4060: 57 69 6e 64 6f 77 20 77 69 6e 64 6f 77 3b 0a 09  Window window;..
4070: 54 6b 5f 55 69 64 20 76 61 6c 75 65 3b 0a 0a 09  Tk_Uid value;...
4080: 69 66 20 28 61 72 67 63 20 21 3d 20 35 29 20 7b  if (argc != 5) {
4090: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64  ..    Tcl_Append
40a0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22  Result(interp, "
40b0: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68  wrong # args: sh
40c0: 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 09 09 20  ould be \"",... 
40d0: 20 20 20 61 72 67 76 5b 30 5d 2c 20 22 20 67 65     argv[0], " ge
40e0: 74 20 77 69 6e 64 6f 77 20 6e 61 6d 65 20 63 6c  t window name cl
40f0: 61 73 73 5c 22 22 2c 20 28 63 68 61 72 20 2a 29  ass\"", (char *)
4100: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74   NULL);..    ret
4110: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09  urn TCL_ERROR;..
4120: 7d 0a 09 77 69 6e 64 6f 77 20 3d 20 54 6b 5f 4e  }..window = Tk_N
4130: 61 6d 65 54 6f 57 69 6e 64 6f 77 28 69 6e 74 65  ameToWindow(inte
4140: 72 70 2c 20 61 72 67 76 5b 32 5d 2c 20 74 6b 77  rp, argv[2], tkw
4150: 69 6e 29 3b 0a 09 69 66 20 28 77 69 6e 64 6f 77  in);..if (window
4160: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20   == NULL) {..   
4170: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
4180: 52 3b 0a 09 7d 0a 09 76 61 6c 75 65 20 3d 20 54  R;..}..value = T
4190: 6b 5f 47 65 74 4f 70 74 69 6f 6e 28 77 69 6e 64  k_GetOption(wind
41a0: 6f 77 2c 20 61 72 67 76 5b 33 5d 2c 20 61 72 67  ow, argv[3], arg
41b0: 76 5b 34 5d 29 3b 0a 09 69 66 20 28 76 61 6c 75  v[4]);..if (valu
41c0: 65 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20  e != NULL) {..  
41d0: 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28    Tcl_SetResult(
41e0: 69 6e 74 65 72 70 2c 76 61 6c 75 65 2c 54 43 4c  interp,value,TCL
41f0: 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 09 7d 0a 09  _VOLATILE);..}..
4200: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20  return TCL_OK;. 
4210: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 28 63     } else if ((c
4220: 20 3d 3d 20 27 72 27 29 20 26 26 20 28 73 74 72   == 'r') && (str
4230: 6e 63 6d 70 28 61 72 67 76 5b 31 5d 2c 20 22 72  ncmp(argv[1], "r
4240: 65 61 64 66 69 6c 65 22 2c 20 6c 65 6e 67 74 68  eadfile", length
4250: 29 20 3d 3d 20 30 29 29 20 7b 0a 09 69 6e 74 20  ) == 0)) {..int 
4260: 70 72 69 6f 72 69 74 79 3b 0a 0a 09 69 66 20 28  priority;...if (
4270: 28 61 72 67 63 20 21 3d 20 33 29 20 26 26 20 28  (argc != 3) && (
4280: 61 72 67 63 20 21 3d 20 34 29 29 20 7b 0a 09 20  argc != 4)) {.. 
4290: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
42a0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f  ult(interp, "wro
42b0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c  ng # args: shoul
42c0: 64 20 62 65 20 5c 22 22 2c 0a 09 09 20 20 20 20  d be \"",...    
42d0: 61 72 67 76 5b 30 5d 2c 20 22 20 72 65 61 64 66  argv[0], " readf
42e0: 69 6c 65 20 66 69 6c 65 4e 61 6d 65 20 3f 70 72  ile fileName ?pr
42f0: 69 6f 72 69 74 79 3f 5c 22 22 2c 0a 09 09 20 20  iority?\"",...  
4300: 20 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29    (char *) NULL)
4310: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43  ;..    return TC
4320: 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 09 69 66 20  L_ERROR;..}..if 
4330: 28 61 72 67 63 20 3d 3d 20 34 29 20 7b 0a 09 20  (argc == 4) {.. 
4340: 20 20 20 70 72 69 6f 72 69 74 79 20 3d 20 50 61     priority = Pa
4350: 72 73 65 50 72 69 6f 72 69 74 79 28 69 6e 74 65  rsePriority(inte
4360: 72 70 2c 20 61 72 67 76 5b 33 5d 29 3b 0a 09 20  rp, argv[3]);.. 
4370: 20 20 20 69 66 20 28 70 72 69 6f 72 69 74 79 20     if (priority 
4380: 3c 20 30 29 20 7b 0a 09 09 72 65 74 75 72 6e 20  < 0) {...return 
4390: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20  TCL_ERROR;..    
43a0: 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20  }..} else {..   
43b0: 20 70 72 69 6f 72 69 74 79 20 3d 20 54 4b 5f 49   priority = TK_I
43c0: 4e 54 45 52 41 43 54 49 56 45 5f 50 52 49 4f 3b  NTERACTIVE_PRIO;
43d0: 0a 09 7d 0a 09 72 65 74 75 72 6e 20 52 65 61 64  ..}..return Read
43e0: 4f 70 74 69 6f 6e 46 69 6c 65 28 69 6e 74 65 72  OptionFile(inter
43f0: 70 2c 20 74 6b 77 69 6e 2c 20 61 72 67 76 5b 32  p, tkwin, argv[2
4400: 5d 2c 20 70 72 69 6f 72 69 74 79 29 3b 0a 20 20  ], priority);.  
4410: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f    } else {..Tcl_
4420: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
4430: 65 72 70 2c 20 22 62 61 64 20 6f 70 74 69 6f 6e  erp, "bad option
4440: 20 5c 22 22 2c 20 61 72 67 76 5b 31 5d 2c 0a 09   \"", argv[1],..
4450: 09 22 5c 22 3a 20 6d 75 73 74 20 62 65 20 61 64  ."\": must be ad
4460: 64 2c 20 63 6c 65 61 72 2c 20 67 65 74 2c 20 6f  d, clear, get, o
4470: 72 20 72 65 61 64 66 69 6c 65 22 2c 20 28 63 68  r readfile", (ch
4480: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65  ar *) NULL);..re
4490: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
44a0: 20 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d      }.}.../*. *-
44b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
44c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
44d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
44e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
44f0: 0a 20 2a 20 54 6b 4f 70 74 69 6f 6e 44 65 61 64  . * TkOptionDead
4500: 57 69 6e 64 6f 77 20 2d 2d 0a 20 2a 0a 20 2a 09  Window --. *. *.
4510: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69  This procedure i
4520: 73 20 63 61 6c 6c 65 64 20 77 68 65 6e 65 76 65  s called wheneve
4530: 72 20 61 20 77 69 6e 64 6f 77 20 69 73 20 64 65  r a window is de
4540: 6c 65 74 65 64 2e 0a 20 2a 09 49 74 20 63 6c 65  leted.. *.It cle
4550: 61 6e 73 20 75 70 20 61 6e 79 20 6f 70 74 69 6f  ans up any optio
4560: 6e 2d 72 65 6c 61 74 65 64 20 73 74 75 66 66 20  n-related stuff 
4570: 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 0a  associated with.
4580: 20 2a 09 74 68 65 20 77 69 6e 64 6f 77 2e 0a 20   *.the window.. 
4590: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a  *. * Results:. *
45a0: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64  .None.. *. * Sid
45b0: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4f 70  e effects:. *.Op
45c0: 74 69 6f 6e 2d 72 65 6c 61 74 65 64 20 72 65 73  tion-related res
45d0: 6f 75 72 63 65 73 20 61 72 65 20 66 72 65 65 64  ources are freed
45e0: 2e 20 20 53 65 65 20 63 6f 64 65 20 62 65 6c 6f  .  See code belo
45f0: 77 0a 20 2a 09 66 6f 72 20 64 65 74 61 69 6c 73  w. *.for details
4600: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  .. *. *---------
4610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4640: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 76 6f 69 64 0a  -----. */..void.
4650: 54 6b 4f 70 74 69 6f 6e 44 65 61 64 57 69 6e 64  TkOptionDeadWind
4660: 6f 77 28 77 69 6e 50 74 72 29 0a 20 20 20 20 72  ow(winPtr).    r
4670: 65 67 69 73 74 65 72 20 54 6b 57 69 6e 64 6f 77  egister TkWindow
4680: 20 2a 77 69 6e 50 74 72 3b 09 09 2f 2a 20 57 69   *winPtr;../* Wi
4690: 6e 64 6f 77 20 74 6f 20 62 65 20 63 6c 65 61 6e  ndow to be clean
46a0: 65 64 20 75 70 2e 20 2a 2f 0a 7b 0a 20 20 20 20  ed up. */.{.    
46b0: 2f 2a 0a 20 20 20 20 20 2a 20 49 66 20 74 68 69  /*.     * If thi
46c0: 73 20 77 69 6e 64 6f 77 20 69 73 20 69 6e 20 74  s window is in t
46d0: 68 65 20 6f 70 74 69 6f 6e 20 73 74 61 63 6b 73  he option stacks
46e0: 2c 20 74 68 65 6e 20 63 6c 65 61 72 20 74 68 65  , then clear the
46f0: 20 73 74 61 63 6b 73 2e 0a 20 20 20 20 20 2a 2f   stacks..     */
4700: 0a 0a 20 20 20 20 69 66 20 28 77 69 6e 50 74 72  ..    if (winPtr
4710: 2d 3e 6f 70 74 69 6f 6e 4c 65 76 65 6c 20 21 3d  ->optionLevel !=
4720: 20 2d 31 29 20 7b 0a 09 69 6e 74 20 69 3b 0a 0a   -1) {..int i;..
4730: 09 66 6f 72 20 28 69 20 3d 20 31 3b 20 69 20 3c  .for (i = 1; i <
4740: 3d 20 63 75 72 4c 65 76 65 6c 3b 20 69 2b 2b 29  = curLevel; i++)
4750: 20 7b 0a 09 20 20 20 20 6c 65 76 65 6c 73 5b 69   {..    levels[i
4760: 5d 2e 77 69 6e 50 74 72 2d 3e 6f 70 74 69 6f 6e  ].winPtr->option
4770: 4c 65 76 65 6c 20 3d 20 2d 31 3b 0a 09 7d 0a 09  Level = -1;..}..
4780: 63 75 72 4c 65 76 65 6c 20 3d 20 2d 31 3b 0a 09  curLevel = -1;..
4790: 63 61 63 68 65 64 57 69 6e 64 6f 77 20 3d 20 4e  cachedWindow = N
47a0: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  ULL;.    }..    
47b0: 2f 2a 0a 20 20 20 20 20 2a 20 49 66 20 74 68 69  /*.     * If thi
47c0: 73 20 77 69 6e 64 6f 77 20 77 61 73 20 61 20 6d  s window was a m
47d0: 61 69 6e 20 77 69 6e 64 6f 77 2c 20 74 68 65 6e  ain window, then
47e0: 20 64 65 6c 65 74 65 20 69 74 73 20 6f 70 74 69   delete its opti
47f0: 6f 6e 0a 20 20 20 20 20 2a 20 64 61 74 61 62 61  on.     * databa
4800: 73 65 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20  se..     */..   
4810: 20 69 66 20 28 28 77 69 6e 50 74 72 2d 3e 6d 61   if ((winPtr->ma
4820: 69 6e 50 74 72 2d 3e 77 69 6e 50 74 72 20 3d 3d  inPtr->winPtr ==
4830: 20 77 69 6e 50 74 72 29 0a 09 20 20 20 20 26 26   winPtr)..    &&
4840: 20 28 77 69 6e 50 74 72 2d 3e 6d 61 69 6e 50 74   (winPtr->mainPt
4850: 72 2d 3e 6f 70 74 69 6f 6e 52 6f 6f 74 50 74 72  r->optionRootPtr
4860: 20 21 3d 20 4e 55 4c 4c 29 29 20 7b 0a 09 43 6c   != NULL)) {..Cl
4870: 65 61 72 4f 70 74 69 6f 6e 54 72 65 65 28 77 69  earOptionTree(wi
4880: 6e 50 74 72 2d 3e 6d 61 69 6e 50 74 72 2d 3e 6f  nPtr->mainPtr->o
4890: 70 74 69 6f 6e 52 6f 6f 74 50 74 72 29 3b 0a 09  ptionRootPtr);..
48a0: 77 69 6e 50 74 72 2d 3e 6d 61 69 6e 50 74 72 2d  winPtr->mainPtr-
48b0: 3e 6f 70 74 69 6f 6e 52 6f 6f 74 50 74 72 20 3d  >optionRootPtr =
48c0: 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 7d 0a 0c   NULL;.    }.}..
48d0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ./*. *----------
48e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
48f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a  ------------. *.
4920: 20 2a 20 54 6b 4f 70 74 69 6f 6e 43 6c 61 73 73   * TkOptionClass
4930: 43 68 61 6e 67 65 64 20 2d 2d 0a 20 2a 0a 20 2a  Changed --. *. *
4940: 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20  .This procedure 
4950: 69 73 20 69 6e 76 6f 6b 65 64 20 77 68 65 6e 20  is invoked when 
4960: 61 20 77 69 6e 64 6f 77 27 73 20 63 6c 61 73 73  a window's class
4970: 20 63 68 61 6e 67 65 73 2e 20 20 49 66 0a 20 2a   changes.  If. *
4980: 09 74 68 65 20 77 69 6e 64 6f 77 20 69 73 20 6f  .the window is o
4990: 6e 20 74 68 65 20 6f 70 74 69 6f 6e 20 63 61 63  n the option cac
49a0: 68 65 2c 20 74 68 69 73 20 70 72 6f 63 65 64 75  he, this procedu
49b0: 72 65 20 66 6c 75 73 68 65 73 0a 20 2a 09 61 6e  re flushes. *.an
49c0: 79 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 6f  y information fo
49d0: 72 20 74 68 65 20 77 69 6e 64 6f 77 2c 20 73 69  r the window, si
49e0: 6e 63 65 20 74 68 65 20 6e 65 77 20 63 6c 61 73  nce the new clas
49f0: 73 20 63 6f 75 6c 64 20 63 68 61 6e 67 65 0a 20  s could change. 
4a00: 2a 09 77 68 61 74 20 69 73 20 72 65 6c 65 76 61  *.what is releva
4a10: 6e 74 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74  nt.. *. * Result
4a20: 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20  s:. *.None.. *. 
4a30: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
4a40: 20 2a 09 54 68 65 20 6f 70 74 69 6f 6e 20 63 61   *.The option ca
4a50: 63 68 65 20 6d 61 79 20 62 65 20 66 6c 75 73 68  che may be flush
4a60: 65 64 20 69 6e 20 70 61 72 74 20 6f 72 20 69 6e  ed in part or in
4a70: 20 77 68 6f 6c 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d   whole.. *. *---
4a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4ac0: 2d 2d 2d 0a 20 2a 2f 0a 0a 76 6f 69 64 0a 54 6b  ---. */..void.Tk
4ad0: 4f 70 74 69 6f 6e 43 6c 61 73 73 43 68 61 6e 67  OptionClassChang
4ae0: 65 64 28 77 69 6e 50 74 72 29 0a 20 20 20 20 54  ed(winPtr).    T
4af0: 6b 57 69 6e 64 6f 77 20 2a 77 69 6e 50 74 72 3b  kWindow *winPtr;
4b00: 09 09 09 2f 2a 20 57 69 6e 64 6f 77 20 77 68 6f  .../* Window who
4b10: 73 65 20 63 6c 61 73 73 20 63 68 61 6e 67 65 64  se class changed
4b20: 2e 20 2a 2f 0a 7b 0a 20 20 20 20 69 6e 74 20 69  . */.{.    int i
4b30: 2c 20 6a 2c 20 2a 62 61 73 65 50 74 72 3b 0a 20  , j, *basePtr;. 
4b40: 20 20 20 45 6c 41 72 72 61 79 20 2a 61 72 72 61     ElArray *arra
4b50: 79 50 74 72 3b 0a 0a 20 20 20 20 69 66 20 28 77  yPtr;..    if (w
4b60: 69 6e 50 74 72 2d 3e 6f 70 74 69 6f 6e 4c 65 76  inPtr->optionLev
4b70: 65 6c 20 3d 3d 20 2d 31 29 20 7b 0a 09 72 65 74  el == -1) {..ret
4b80: 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  urn;.    }..    
4b90: 2f 2a 0a 20 20 20 20 20 2a 20 46 69 6e 64 20 74  /*.     * Find t
4ba0: 68 65 20 6c 6f 77 65 73 74 20 73 74 61 63 6b 20  he lowest stack 
4bb0: 6c 65 76 65 6c 20 74 68 61 74 20 72 65 66 65 72  level that refer
4bc0: 73 20 74 6f 20 74 68 69 73 20 77 69 6e 64 6f 77  s to this window
4bd0: 2c 20 74 68 65 6e 0a 20 20 20 20 20 2a 20 66 6c  , then.     * fl
4be0: 75 73 68 20 61 6c 6c 20 6f 66 20 74 68 65 20 6c  ush all of the l
4bf0: 65 76 65 6c 73 20 61 62 6f 76 65 20 74 68 65 20  evels above the 
4c00: 6d 61 74 63 68 69 6e 67 20 6f 6e 65 2e 0a 20 20  matching one..  
4c10: 20 20 20 2a 2f 0a 0a 20 20 20 20 66 6f 72 20 28     */..    for (
4c20: 69 20 3d 20 31 3b 20 69 20 3c 3d 20 63 75 72 4c  i = 1; i <= curL
4c30: 65 76 65 6c 3b 20 69 2b 2b 29 20 7b 0a 09 69 66  evel; i++) {..if
4c40: 20 28 6c 65 76 65 6c 73 5b 69 5d 2e 77 69 6e 50   (levels[i].winP
4c50: 74 72 20 3d 3d 20 77 69 6e 50 74 72 29 20 7b 0a  tr == winPtr) {.
4c60: 09 20 20 20 20 66 6f 72 20 28 6a 20 3d 20 69 3b  .    for (j = i;
4c70: 20 6a 20 3c 3d 20 63 75 72 4c 65 76 65 6c 3b 20   j <= curLevel; 
4c80: 6a 2b 2b 29 20 7b 0a 09 09 6c 65 76 65 6c 73 5b  j++) {...levels[
4c90: 6a 5d 2e 77 69 6e 50 74 72 2d 3e 6f 70 74 69 6f  j].winPtr->optio
4ca0: 6e 4c 65 76 65 6c 20 3d 20 2d 31 3b 0a 09 20 20  nLevel = -1;..  
4cb0: 20 20 7d 0a 09 20 20 20 20 63 75 72 4c 65 76 65    }..    curLeve
4cc0: 6c 20 3d 20 69 2d 31 3b 0a 09 20 20 20 20 62 61  l = i-1;..    ba
4cd0: 73 65 50 74 72 20 3d 20 6c 65 76 65 6c 73 5b 69  sePtr = levels[i
4ce0: 5d 2e 62 61 73 65 73 3b 0a 09 20 20 20 20 66 6f  ].bases;..    fo
4cf0: 72 20 28 6a 20 3d 20 30 3b 20 6a 20 3c 20 4e 55  r (j = 0; j < NU
4d00: 4d 5f 53 54 41 43 4b 53 3b 20 6a 2b 2b 29 20 7b  M_STACKS; j++) {
4d10: 0a 09 09 61 72 72 61 79 50 74 72 20 3d 20 73 74  ...arrayPtr = st
4d20: 61 63 6b 73 5b 6a 5d 3b 0a 09 09 61 72 72 61 79  acks[j];...array
4d30: 50 74 72 2d 3e 6e 75 6d 55 73 65 64 20 3d 20 62  Ptr->numUsed = b
4d40: 61 73 65 50 74 72 5b 6a 5d 3b 0a 09 09 61 72 72  asePtr[j];...arr
4d50: 61 79 50 74 72 2d 3e 6e 65 78 74 54 6f 55 73 65  ayPtr->nextToUse
4d60: 20 3d 20 26 61 72 72 61 79 50 74 72 2d 3e 65 6c   = &arrayPtr->el
4d70: 73 5b 61 72 72 61 79 50 74 72 2d 3e 6e 75 6d 55  s[arrayPtr->numU
4d80: 73 65 64 5d 3b 0a 09 20 20 20 20 7d 0a 09 20 20  sed];..    }..  
4d90: 20 20 69 66 20 28 63 75 72 4c 65 76 65 6c 20 3c    if (curLevel <
4da0: 3d 20 30 29 20 7b 0a 09 09 63 61 63 68 65 64 57  = 0) {...cachedW
4db0: 69 6e 64 6f 77 20 3d 20 4e 55 4c 4c 3b 0a 09 20  indow = NULL;.. 
4dc0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 63 61     } else {...ca
4dd0: 63 68 65 64 57 69 6e 64 6f 77 20 3d 20 6c 65 76  chedWindow = lev
4de0: 65 6c 73 5b 63 75 72 4c 65 76 65 6c 5d 2e 77 69  els[curLevel].wi
4df0: 6e 50 74 72 3b 0a 09 20 20 20 20 7d 0a 09 20 20  nPtr;..    }..  
4e00: 20 20 62 72 65 61 6b 3b 0a 09 7d 0a 20 20 20 20    break;..}.    
4e10: 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d  }.}.../*. *-----
4e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4e60: 2d 0a 20 2a 0a 20 2a 20 50 61 72 73 65 50 72 69  -. *. * ParsePri
4e70: 6f 72 69 74 79 20 2d 2d 0a 20 2a 0a 20 2a 09 50  ority --. *. *.P
4e80: 61 72 73 65 20 61 20 73 74 72 69 6e 67 20 70 72  arse a string pr
4e90: 69 6f 72 69 74 79 20 76 61 6c 75 65 2e 0a 20 2a  iority value.. *
4ea0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09  . * Results:. *.
4eb0: 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65  The return value
4ec0: 20 69 73 20 74 68 65 20 69 6e 74 65 67 65 72 20   is the integer 
4ed0: 70 72 69 6f 72 69 74 79 20 6c 65 76 65 6c 20 63  priority level c
4ee0: 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 20 2a 09  orresponding. *.
4ef0: 74 6f 20 73 74 72 69 6e 67 2c 20 6f 72 20 2d 31  to string, or -1
4f00: 20 69 66 20 73 74 72 69 6e 67 20 64 6f 65 73 6e   if string doesn
4f10: 27 74 20 70 6f 69 6e 74 20 74 6f 20 61 20 76 61  't point to a va
4f20: 6c 69 64 20 70 72 69 6f 72 69 74 79 20 6c 65 76  lid priority lev
4f30: 65 6c 2e 0a 20 2a 09 49 6e 20 74 68 69 73 20 63  el.. *.In this c
4f40: 61 73 65 2c 20 61 6e 20 65 72 72 6f 72 20 6d 65  ase, an error me
4f50: 73 73 61 67 65 20 69 73 20 6c 65 66 74 20 69 6e  ssage is left in
4f60: 20 69 6e 74 65 72 70 2d 3e 72 65 73 75 6c 74 2e   interp->result.
4f70: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65  . *. * Side effe
4f80: 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a  cts:. *.None.. *
4f90: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
4fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73  ---------. */..s
4fe0: 74 61 74 69 63 20 69 6e 74 0a 50 61 72 73 65 50  tatic int.ParseP
4ff0: 72 69 6f 72 69 74 79 28 69 6e 74 65 72 70 2c 20  riority(interp, 
5000: 73 74 72 69 6e 67 29 0a 20 20 20 20 54 63 6c 5f  string).    Tcl_
5010: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 09  Interp *interp;.
5020: 09 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 72 20  ./* Interpreter 
5030: 74 6f 20 75 73 65 20 66 6f 72 20 65 72 72 6f 72  to use for error
5040: 20 72 65 70 6f 72 74 69 6e 67 2e 20 2a 2f 0a 20   reporting. */. 
5050: 20 20 20 63 68 61 72 20 2a 73 74 72 69 6e 67 3b     char *string;
5060: 09 09 2f 2a 20 44 65 73 63 72 69 62 65 73 20 61  ../* Describes a
5070: 20 70 72 69 6f 72 69 74 79 20 6c 65 76 65 6c 2c   priority level,
5080: 20 65 69 74 68 65 72 0a 09 09 09 09 20 2a 20 73   either..... * s
5090: 79 6d 62 6f 6c 69 63 61 6c 6c 79 20 6f 72 20 6e  ymbolically or n
50a0: 75 6d 65 72 69 63 61 6c 6c 79 2e 20 2a 2f 0a 7b  umerically. */.{
50b0: 0a 20 20 20 20 69 6e 74 20 70 72 69 6f 72 69 74  .    int priorit
50c0: 79 2c 20 63 3b 0a 20 20 20 20 73 69 7a 65 5f 74  y, c;.    size_t
50d0: 20 6c 65 6e 67 74 68 3b 0a 0a 20 20 20 20 63 20   length;..    c 
50e0: 3d 20 73 74 72 69 6e 67 5b 30 5d 3b 0a 20 20 20  = string[0];.   
50f0: 20 6c 65 6e 67 74 68 20 3d 20 73 74 72 6c 65 6e   length = strlen
5100: 28 73 74 72 69 6e 67 29 3b 0a 20 20 20 20 69 66  (string);.    if
5110: 20 28 28 63 20 3d 3d 20 27 77 27 29 0a 09 20 20   ((c == 'w')..  
5120: 20 20 26 26 20 28 73 74 72 6e 63 6d 70 28 73 74    && (strncmp(st
5130: 72 69 6e 67 2c 20 22 77 69 64 67 65 74 44 65 66  ring, "widgetDef
5140: 61 75 6c 74 22 2c 20 6c 65 6e 67 74 68 29 20 3d  ault", length) =
5150: 3d 20 30 29 29 20 7b 0a 09 72 65 74 75 72 6e 20  = 0)) {..return 
5160: 54 4b 5f 57 49 44 47 45 54 5f 44 45 46 41 55 4c  TK_WIDGET_DEFAUL
5170: 54 5f 50 52 49 4f 3b 0a 20 20 20 20 7d 20 65 6c  T_PRIO;.    } el
5180: 73 65 20 69 66 20 28 28 63 20 3d 3d 20 27 73 27  se if ((c == 's'
5190: 29 0a 09 20 20 20 20 26 26 20 28 73 74 72 6e 63  )..    && (strnc
51a0: 6d 70 28 73 74 72 69 6e 67 2c 20 22 73 74 61 72  mp(string, "star
51b0: 74 75 70 46 69 6c 65 22 2c 20 6c 65 6e 67 74 68  tupFile", length
51c0: 29 20 3d 3d 20 30 29 29 20 7b 0a 09 72 65 74 75  ) == 0)) {..retu
51d0: 72 6e 20 54 4b 5f 53 54 41 52 54 55 50 5f 46 49  rn TK_STARTUP_FI
51e0: 4c 45 5f 50 52 49 4f 3b 0a 20 20 20 20 7d 20 65  LE_PRIO;.    } e
51f0: 6c 73 65 20 69 66 20 28 28 63 20 3d 3d 20 27 75  lse if ((c == 'u
5200: 27 29 0a 09 20 20 20 20 26 26 20 28 73 74 72 6e  ')..    && (strn
5210: 63 6d 70 28 73 74 72 69 6e 67 2c 20 22 75 73 65  cmp(string, "use
5220: 72 44 65 66 61 75 6c 74 22 2c 20 6c 65 6e 67 74  rDefault", lengt
5230: 68 29 20 3d 3d 20 30 29 29 20 7b 0a 09 72 65 74  h) == 0)) {..ret
5240: 75 72 6e 20 54 4b 5f 55 53 45 52 5f 44 45 46 41  urn TK_USER_DEFA
5250: 55 4c 54 5f 50 52 49 4f 3b 0a 20 20 20 20 7d 20  ULT_PRIO;.    } 
5260: 65 6c 73 65 20 69 66 20 28 28 63 20 3d 3d 20 27  else if ((c == '
5270: 69 27 29 0a 09 20 20 20 20 26 26 20 28 73 74 72  i')..    && (str
5280: 6e 63 6d 70 28 73 74 72 69 6e 67 2c 20 22 69 6e  ncmp(string, "in
5290: 74 65 72 61 63 74 69 76 65 22 2c 20 6c 65 6e 67  teractive", leng
52a0: 74 68 29 20 3d 3d 20 30 29 29 20 7b 0a 09 72 65  th) == 0)) {..re
52b0: 74 75 72 6e 20 54 4b 5f 49 4e 54 45 52 41 43 54  turn TK_INTERACT
52c0: 49 56 45 5f 50 52 49 4f 3b 0a 20 20 20 20 7d 20  IVE_PRIO;.    } 
52d0: 65 6c 73 65 20 7b 0a 09 63 68 61 72 20 2a 65 6e  else {..char *en
52e0: 64 3b 0a 0a 09 70 72 69 6f 72 69 74 79 20 3d 20  d;...priority = 
52f0: 73 74 72 74 6f 75 6c 28 73 74 72 69 6e 67 2c 20  strtoul(string, 
5300: 26 65 6e 64 2c 20 30 29 3b 0a 09 69 66 20 28 28  &end, 0);..if ((
5310: 65 6e 64 20 3d 3d 20 73 74 72 69 6e 67 29 20 7c  end == string) |
5320: 7c 20 28 2a 65 6e 64 20 21 3d 20 30 29 20 7c 7c  | (*end != 0) ||
5330: 20 28 70 72 69 6f 72 69 74 79 20 3c 20 30 29 0a   (priority < 0).
5340: 09 09 7c 7c 20 28 70 72 69 6f 72 69 74 79 20 3e  ..|| (priority >
5350: 20 31 30 30 29 29 20 7b 0a 09 20 20 20 20 54 63   100)) {..    Tc
5360: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
5370: 6e 74 65 72 70 2c 20 20 22 62 61 64 20 70 72 69  nterp,  "bad pri
5380: 6f 72 69 74 79 20 6c 65 76 65 6c 20 5c 22 22 2c  ority level \"",
5390: 20 73 74 72 69 6e 67 2c 0a 09 09 20 20 20 20 22   string,...    "
53a0: 5c 22 3a 20 6d 75 73 74 20 62 65 20 77 69 64 67  \": must be widg
53b0: 65 74 44 65 66 61 75 6c 74 2c 20 73 74 61 72 74  etDefault, start
53c0: 75 70 46 69 6c 65 2c 20 75 73 65 72 44 65 66 61  upFile, userDefa
53d0: 75 6c 74 2c 20 22 2c 0a 09 09 20 20 20 20 22 69  ult, ",...    "i
53e0: 6e 74 65 72 61 63 74 69 76 65 2c 20 6f 72 20 61  nteractive, or a
53f0: 20 6e 75 6d 62 65 72 20 62 65 74 77 65 65 6e 20   number between 
5400: 30 20 61 6e 64 20 31 30 30 22 2c 0a 09 09 20 20  0 and 100",...  
5410: 20 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29    (char *) NULL)
5420: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31  ;..    return -1
5430: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 72  ;..}.    }.    r
5440: 65 74 75 72 6e 20 70 72 69 6f 72 69 74 79 3b 0a  eturn priority;.
5450: 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  }.../*. *-------
5460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
54a0: 20 2a 0a 20 2a 20 41 64 64 46 72 6f 6d 53 74 72   *. * AddFromStr
54b0: 69 6e 67 20 2d 2d 0a 20 2a 0a 20 2a 09 47 69 76  ing --. *. *.Giv
54c0: 65 6e 20 61 20 73 74 72 69 6e 67 20 63 6f 6e 74  en a string cont
54d0: 61 69 6e 69 6e 67 20 6c 69 6e 65 73 20 69 6e 20  aining lines in 
54e0: 74 68 65 20 73 74 61 6e 64 61 72 64 20 66 6f 72  the standard for
54f0: 6d 61 74 20 66 6f 72 0a 20 2a 09 58 20 72 65 73  mat for. *.X res
5500: 6f 75 72 63 65 73 20 28 73 65 65 20 6f 74 68 65  ources (see othe
5510: 72 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20  r documentation 
5520: 66 6f 72 20 64 65 74 61 69 6c 73 20 6f 6e 20 77  for details on w
5530: 68 61 74 20 74 68 69 73 0a 20 2a 09 69 73 29 2c  hat this. *.is),
5540: 20 70 61 72 73 65 20 74 68 65 20 72 65 73 6f 75   parse the resou
5550: 72 63 65 20 73 70 65 63 69 66 69 63 61 74 69 6f  rce specificatio
5560: 6e 73 20 61 6e 64 20 65 6e 74 65 72 20 74 68 65  ns and enter the
5570: 6d 20 61 73 20 6f 70 74 69 6f 6e 73 0a 20 2a 09  m as options. *.
5580: 66 6f 72 20 74 6b 77 69 6e 27 73 20 6d 61 69 6e  for tkwin's main
5590: 20 77 69 6e 64 6f 77 2e 0a 20 2a 0a 20 2a 20 52   window.. *. * R
55a0: 65 73 75 6c 74 73 3a 0a 20 2a 09 54 68 65 20 72  esults:. *.The r
55b0: 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 61  eturn value is a
55c0: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65   standard Tcl re
55d0: 74 75 72 6e 20 63 6f 64 65 2e 20 20 49 6e 20 74  turn code.  In t
55e0: 68 65 20 63 61 73 65 20 6f 66 0a 20 2a 09 61 6e  he case of. *.an
55f0: 20 65 72 72 6f 72 20 69 6e 20 70 61 72 73 69 6e   error in parsin
5600: 67 20 73 74 72 69 6e 67 2c 20 54 43 4c 5f 45 52  g string, TCL_ER
5610: 52 4f 52 20 77 69 6c 6c 20 62 65 20 72 65 74 75  ROR will be retu
5620: 72 6e 65 64 20 61 6e 64 20 61 6e 0a 20 2a 09 65  rned and an. *.e
5630: 72 72 6f 72 20 6d 65 73 73 61 67 65 20 77 69 6c  rror message wil
5640: 6c 20 62 65 20 6c 65 66 74 20 69 6e 20 69 6e 74  l be left in int
5650: 65 72 70 2d 3e 72 65 73 75 6c 74 2e 20 20 54 68  erp->result.  Th
5660: 65 20 6d 65 6d 6f 72 79 20 61 74 0a 20 2a 09 73  e memory at. *.s
5670: 74 72 69 6e 67 20 69 73 20 74 6f 74 61 6c 6c 79  tring is totally
5680: 20 74 72 61 73 68 65 64 20 62 79 20 74 68 69 73   trashed by this
5690: 20 70 72 6f 63 65 64 75 72 65 2e 20 20 49 66 20   procedure.  If 
56a0: 79 6f 75 20 63 61 72 65 20 61 62 6f 75 74 0a 20  you care about. 
56b0: 2a 09 69 74 73 20 63 6f 6e 74 65 6e 74 73 2c 20  *.its contents, 
56c0: 6d 61 6b 65 20 61 20 63 6f 70 79 20 62 65 66 6f  make a copy befo
56d0: 72 65 20 63 61 6c 6c 69 6e 67 20 68 65 72 65 2e  re calling here.
56e0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65  . *. * Side effe
56f0: 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a  cts:. *.None.. *
5700: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
5710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73  ---------. */..s
5750: 74 61 74 69 63 20 69 6e 74 0a 41 64 64 46 72 6f  tatic int.AddFro
5760: 6d 53 74 72 69 6e 67 28 69 6e 74 65 72 70 2c 20  mString(interp, 
5770: 74 6b 77 69 6e 2c 20 73 74 72 69 6e 67 2c 20 70  tkwin, string, p
5780: 72 69 6f 72 69 74 79 29 0a 20 20 20 20 54 63 6c  riority).    Tcl
5790: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b  _Interp *interp;
57a0: 09 09 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 72  ../* Interpreter
57b0: 20 74 6f 20 75 73 65 20 66 6f 72 20 72 65 70 6f   to use for repo
57c0: 72 74 69 6e 67 20 72 65 73 75 6c 74 73 2e 20 2a  rting results. *
57d0: 2f 0a 20 20 20 20 54 6b 5f 57 69 6e 64 6f 77 20  /.    Tk_Window 
57e0: 74 6b 77 69 6e 3b 09 09 2f 2a 20 54 6f 6b 65 6e  tkwin;../* Token
57f0: 20 66 6f 72 20 77 69 6e 64 6f 77 3a 20 20 6f 70   for window:  op
5800: 74 69 6f 6e 73 20 61 72 65 20 65 6e 74 65 72 65  tions are entere
5810: 64 0a 09 09 09 09 20 2a 20 66 6f 72 20 74 68 69  d..... * for thi
5820: 73 20 77 69 6e 64 6f 77 27 73 20 6d 61 69 6e 20  s window's main 
5830: 77 69 6e 64 6f 77 2e 20 2a 2f 0a 20 20 20 20 63  window. */.    c
5840: 68 61 72 20 2a 73 74 72 69 6e 67 3b 09 09 2f 2a  har *string;../*
5850: 20 53 74 72 69 6e 67 20 63 6f 6e 74 61 69 6e 69   String containi
5860: 6e 67 20 6f 70 74 69 6f 6e 20 73 70 65 63 69 66  ng option specif
5870: 69 65 72 73 2e 20 2a 2f 0a 20 20 20 20 69 6e 74  iers. */.    int
5880: 20 70 72 69 6f 72 69 74 79 3b 09 09 2f 2a 20 50   priority;../* P
5890: 72 69 6f 72 69 74 79 20 6c 65 76 65 6c 20 74 6f  riority level to
58a0: 20 75 73 65 20 66 6f 72 20 6f 70 74 69 6f 6e 73   use for options
58b0: 20 69 6e 0a 09 09 09 09 20 2a 20 74 68 69 73 20   in..... * this 
58c0: 73 74 72 69 6e 67 2c 20 73 75 63 68 20 61 73 20  string, such as 
58d0: 54 4b 5f 55 53 45 52 5f 44 45 46 41 55 4c 54 5f  TK_USER_DEFAULT_
58e0: 50 52 49 4f 0a 09 09 09 09 20 2a 20 6f 72 20 54  PRIO..... * or T
58f0: 4b 5f 49 4e 54 45 52 41 43 54 49 56 45 5f 50 52  K_INTERACTIVE_PR
5900: 49 4f 2e 20 20 4d 75 73 74 20 62 65 20 62 65 74  IO.  Must be bet
5910: 77 65 65 6e 0a 09 09 09 09 20 2a 20 30 20 61 6e  ween..... * 0 an
5920: 64 20 54 4b 5f 4d 41 58 5f 50 52 49 4f 2e 20 2a  d TK_MAX_PRIO. *
5930: 2f 0a 7b 0a 20 20 20 20 72 65 67 69 73 74 65 72  /.{.    register
5940: 20 63 68 61 72 20 2a 73 72 63 2c 20 2a 64 73 74   char *src, *dst
5950: 3b 0a 20 20 20 20 63 68 61 72 20 2a 6e 61 6d 65  ;.    char *name
5960: 2c 20 2a 76 61 6c 75 65 3b 0a 20 20 20 20 69 6e  , *value;.    in
5970: 74 20 6c 69 6e 65 4e 75 6d 3b 0a 0a 20 20 20 20  t lineNum;..    
5980: 73 72 63 20 3d 20 73 74 72 69 6e 67 3b 0a 20 20  src = string;.  
5990: 20 20 6c 69 6e 65 4e 75 6d 20 3d 20 31 3b 0a 20    lineNum = 1;. 
59a0: 20 20 20 77 68 69 6c 65 20 28 31 29 20 7b 0a 0a     while (1) {..
59b0: 09 2f 2a 0a 09 20 2a 20 53 6b 69 70 20 6c 65 61  ./*.. * Skip lea
59c0: 64 69 6e 67 20 77 68 69 74 65 20 73 70 61 63 65  ding white space
59d0: 20 61 6e 64 20 65 6d 70 74 79 20 6c 69 6e 65 73   and empty lines
59e0: 20 61 6e 64 20 63 6f 6d 6d 65 6e 74 20 6c 69 6e   and comment lin
59f0: 65 73 2c 20 61 6e 64 0a 09 20 2a 20 63 68 65 63  es, and.. * chec
5a00: 6b 20 66 6f 72 20 74 68 65 20 65 6e 64 20 6f 66  k for the end of
5a10: 20 74 68 65 20 73 70 65 63 2e 0a 09 20 2a 2f 0a   the spec... */.
5a20: 0a 09 77 68 69 6c 65 20 28 28 2a 73 72 63 20 3d  ..while ((*src =
5a30: 3d 20 27 20 27 29 20 7c 7c 20 28 2a 73 72 63 20  = ' ') || (*src 
5a40: 3d 3d 20 27 5c 74 27 29 29 20 7b 0a 09 20 20 20  == '\t')) {..   
5a50: 20 73 72 63 2b 2b 3b 0a 09 7d 0a 09 69 66 20 28   src++;..}..if (
5a60: 28 2a 73 72 63 20 3d 3d 20 27 23 27 29 20 7c 7c  (*src == '#') ||
5a70: 20 28 2a 73 72 63 20 3d 3d 20 27 21 27 29 29 20   (*src == '!')) 
5a80: 7b 0a 09 20 20 20 20 64 6f 20 7b 0a 09 09 73 72  {..    do {...sr
5a90: 63 2b 2b 3b 0a 09 09 69 66 20 28 28 73 72 63 5b  c++;...if ((src[
5aa0: 30 5d 20 3d 3d 20 27 5c 5c 27 29 20 26 26 20 28  0] == '\\') && (
5ab0: 73 72 63 5b 31 5d 20 3d 3d 20 27 5c 6e 27 29 29  src[1] == '\n'))
5ac0: 20 7b 0a 09 09 20 20 20 20 73 72 63 20 2b 3d 20   {...    src += 
5ad0: 32 3b 0a 09 09 20 20 20 20 6c 69 6e 65 4e 75 6d  2;...    lineNum
5ae0: 2b 2b 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 20 77  ++;...}..    } w
5af0: 68 69 6c 65 20 28 28 2a 73 72 63 20 21 3d 20 27  hile ((*src != '
5b00: 5c 6e 27 29 20 26 26 20 28 2a 73 72 63 20 21 3d  \n') && (*src !=
5b10: 20 30 29 29 3b 0a 09 7d 0a 09 69 66 20 28 2a 73   0));..}..if (*s
5b20: 72 63 20 3d 3d 20 27 5c 6e 27 29 20 7b 0a 09 20  rc == '\n') {.. 
5b30: 20 20 20 73 72 63 2b 2b 3b 0a 09 20 20 20 20 6c     src++;..    l
5b40: 69 6e 65 4e 75 6d 2b 2b 3b 0a 09 20 20 20 20 63  ineNum++;..    c
5b50: 6f 6e 74 69 6e 75 65 3b 0a 09 7d 20 0a 09 69 66  ontinue;..} ..if
5b60: 20 28 2a 73 72 63 20 3d 3d 20 27 5c 30 27 29 20   (*src == '\0') 
5b70: 7b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 7d  {..    break;..}
5b80: 0a 0a 09 2f 2a 0a 09 20 2a 20 50 61 72 73 65 20  .../*.. * Parse 
5b90: 6f 66 66 20 74 68 65 20 6f 70 74 69 6f 6e 20 6e  off the option n
5ba0: 61 6d 65 2c 20 63 6f 6c 6c 61 70 73 69 6e 67 20  ame, collapsing 
5bb0: 6f 75 74 20 62 61 63 6b 73 6c 61 73 68 2d 6e 65  out backslash-ne
5bc0: 77 6c 69 6e 65 0a 09 20 2a 20 73 65 71 75 65 6e  wline.. * sequen
5bd0: 63 65 73 20 6f 66 20 63 6f 75 72 73 65 2e 0a 09  ces of course...
5be0: 20 2a 2f 0a 0a 09 64 73 74 20 3d 20 6e 61 6d 65   */...dst = name
5bf0: 20 3d 20 73 72 63 3b 0a 09 77 68 69 6c 65 20 28   = src;..while (
5c00: 2a 73 72 63 20 21 3d 20 27 3a 27 29 20 7b 0a 09  *src != ':') {..
5c10: 20 20 20 20 69 66 20 28 28 2a 73 72 63 20 3d 3d      if ((*src ==
5c20: 20 27 5c 30 27 29 20 7c 7c 20 28 2a 73 72 63 20   '\0') || (*src 
5c30: 3d 3d 20 27 5c 6e 27 29 29 20 7b 0a 09 09 63 68  == '\n')) {...ch
5c40: 61 72 20 62 75 66 66 65 72 5b 31 30 30 5d 3b 0a  ar buffer[100];.
5c50: 09 09 73 70 72 69 6e 74 66 28 62 75 66 66 65 72  ..sprintf(buffer
5c60: 2c 20 22 6d 69 73 73 69 6e 67 20 63 6f 6c 6f 6e  , "missing colon
5c70: 20 6f 6e 20 6c 69 6e 65 20 25 64 22 2c 0a 09 09   on line %d",...
5c80: 09 6c 69 6e 65 4e 75 6d 29 3b 0a 09 09 54 63 6c  .lineNum);...Tcl
5c90: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72  _SetResult(inter
5ca0: 70 2c 62 75 66 66 65 72 2c 54 43 4c 5f 56 4f 4c  p,buffer,TCL_VOL
5cb0: 41 54 49 4c 45 29 3b 0a 09 09 72 65 74 75 72 6e  ATILE);...return
5cc0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20   TCL_ERROR;..   
5cd0: 20 7d 0a 09 20 20 20 20 69 66 20 28 28 73 72 63   }..    if ((src
5ce0: 5b 30 5d 20 3d 3d 20 27 5c 5c 27 29 20 26 26 20  [0] == '\\') && 
5cf0: 28 73 72 63 5b 31 5d 20 3d 3d 20 27 5c 6e 27 29  (src[1] == '\n')
5d00: 29 20 7b 0a 09 09 73 72 63 20 2b 3d 20 32 3b 0a  ) {...src += 2;.
5d10: 09 09 6c 69 6e 65 4e 75 6d 2b 2b 3b 0a 09 20 20  ..lineNum++;..  
5d20: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 2a 64 73    } else {...*ds
5d30: 74 20 3d 20 2a 73 72 63 3b 0a 09 09 64 73 74 2b  t = *src;...dst+
5d40: 2b 3b 0a 09 09 73 72 63 2b 2b 3b 0a 09 20 20 20  +;...src++;..   
5d50: 20 7d 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 45   }..}.../*.. * E
5d60: 6c 69 6d 69 6e 61 74 65 20 74 72 61 69 6c 69 6e  liminate trailin
5d70: 67 20 77 68 69 74 65 20 73 70 61 63 65 20 6f 6e  g white space on
5d80: 20 74 68 65 20 6e 61 6d 65 2c 20 61 6e 64 20 6e   the name, and n
5d90: 75 6c 6c 2d 74 65 72 6d 69 6e 61 74 65 0a 09 20  ull-terminate.. 
5da0: 2a 20 69 74 2e 0a 09 20 2a 2f 0a 0a 09 77 68 69  * it... */...whi
5db0: 6c 65 20 28 28 64 73 74 20 21 3d 20 6e 61 6d 65  le ((dst != name
5dc0: 29 20 26 26 20 28 28 64 73 74 5b 2d 31 5d 20 3d  ) && ((dst[-1] =
5dd0: 3d 20 27 20 27 29 20 7c 7c 20 28 64 73 74 5b 2d  = ' ') || (dst[-
5de0: 31 5d 20 3d 3d 20 27 5c 74 27 29 29 29 20 7b 0a  1] == '\t'))) {.
5df0: 09 20 20 20 20 64 73 74 2d 2d 3b 0a 09 7d 0a 09  .    dst--;..}..
5e00: 2a 64 73 74 20 3d 20 27 5c 30 27 3b 0a 0a 09 2f  *dst = '\0';.../
5e10: 2a 0a 09 20 2a 20 53 6b 69 70 20 77 68 69 74 65  *.. * Skip white
5e20: 20 73 70 61 63 65 20 62 65 74 77 65 65 6e 20 74   space between t
5e30: 68 65 20 6e 61 6d 65 20 61 6e 64 20 74 68 65 20  he name and the 
5e40: 76 61 6c 75 65 2e 0a 09 20 2a 2f 0a 0a 09 73 72  value... */...sr
5e50: 63 2b 2b 3b 0a 09 77 68 69 6c 65 20 28 28 2a 73  c++;..while ((*s
5e60: 72 63 20 3d 3d 20 27 20 27 29 20 7c 7c 20 28 2a  rc == ' ') || (*
5e70: 73 72 63 20 3d 3d 20 27 5c 74 27 29 29 20 7b 0a  src == '\t')) {.
5e80: 09 20 20 20 20 73 72 63 2b 2b 3b 0a 09 7d 0a 09  .    src++;..}..
5e90: 69 66 20 28 2a 73 72 63 20 3d 3d 20 27 5c 30 27  if (*src == '\0'
5ea0: 29 20 7b 0a 09 20 20 20 20 63 68 61 72 20 62 75  ) {..    char bu
5eb0: 66 66 65 72 5b 31 30 30 5d 3b 0a 09 20 20 20 20  ffer[100];..    
5ec0: 73 70 72 69 6e 74 66 28 62 75 66 66 65 72 2c 20  sprintf(buffer, 
5ed0: 22 6d 69 73 73 69 6e 67 20 76 61 6c 75 65 20 6f  "missing value o
5ee0: 6e 20 6c 69 6e 65 20 25 64 22 2c 20 6c 69 6e 65  n line %d", line
5ef0: 4e 75 6d 29 3b 0a 09 20 20 20 20 54 63 6c 5f 53  Num);..    Tcl_S
5f00: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  etResult(interp,
5f10: 62 75 66 66 65 72 2c 54 43 4c 5f 56 4f 4c 41 54  buffer,TCL_VOLAT
5f20: 49 4c 45 29 3b 0a 09 20 20 20 20 72 65 74 75 72  ILE);..    retur
5f30: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a  n TCL_ERROR;..}.
5f40: 0a 09 2f 2a 0a 09 20 2a 20 50 61 72 73 65 20 6f  ../*.. * Parse o
5f50: 66 66 20 74 68 65 20 76 61 6c 75 65 2c 20 73 71  ff the value, sq
5f60: 75 65 65 7a 69 6e 67 20 6f 75 74 20 62 61 63 6b  ueezing out back
5f70: 73 6c 61 73 68 2d 6e 65 77 6c 69 6e 65 20 73 65  slash-newline se
5f80: 71 75 65 6e 63 65 73 0a 09 20 2a 20 61 6c 6f 6e  quences.. * alon
5f90: 67 20 74 68 65 20 77 61 79 2e 0a 09 20 2a 2f 0a  g the way... */.
5fa0: 0a 09 64 73 74 20 3d 20 76 61 6c 75 65 20 3d 20  ..dst = value = 
5fb0: 73 72 63 3b 0a 09 77 68 69 6c 65 20 28 2a 73 72  src;..while (*sr
5fc0: 63 20 21 3d 20 27 5c 6e 27 29 20 7b 0a 09 20 20  c != '\n') {..  
5fd0: 20 20 69 66 20 28 2a 73 72 63 20 3d 3d 20 27 5c    if (*src == '\
5fe0: 30 27 29 20 7b 0a 09 20 20 20 20 20 20 20 20 63  0') {..        c
5ff0: 68 61 72 20 62 75 66 66 65 72 5b 31 30 30 5d 3b  har buffer[100];
6000: 0a 09 09 73 70 72 69 6e 74 66 28 62 75 66 66 65  ...sprintf(buffe
6010: 72 2c 20 22 6d 69 73 73 69 6e 67 20 6e 65 77 6c  r, "missing newl
6020: 69 6e 65 20 6f 6e 20 6c 69 6e 65 20 25 64 22 2c  ine on line %d",
6030: 0a 09 09 09 6c 69 6e 65 4e 75 6d 29 3b 0a 09 20  ....lineNum);.. 
6040: 20 20 20 20 20 20 20 54 63 6c 5f 53 65 74 52 65         Tcl_SetRe
6050: 73 75 6c 74 28 69 6e 74 65 72 70 2c 62 75 66 66  sult(interp,buff
6060: 65 72 2c 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29  er,TCL_VOLATILE)
6070: 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45  ;...return TCL_E
6080: 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 09 20 20  RROR;..    }..  
6090: 20 20 69 66 20 28 28 73 72 63 5b 30 5d 20 3d 3d    if ((src[0] ==
60a0: 20 27 5c 5c 27 29 20 26 26 20 28 73 72 63 5b 31   '\\') && (src[1
60b0: 5d 20 3d 3d 20 27 5c 6e 27 29 29 20 7b 0a 09 09  ] == '\n')) {...
60c0: 73 72 63 20 2b 3d 20 32 3b 0a 09 09 6c 69 6e 65  src += 2;...line
60d0: 4e 75 6d 2b 2b 3b 0a 09 20 20 20 20 7d 20 65 6c  Num++;..    } el
60e0: 73 65 20 7b 0a 09 09 2a 64 73 74 20 3d 20 2a 73  se {...*dst = *s
60f0: 72 63 3b 0a 09 09 64 73 74 2b 2b 3b 0a 09 09 73  rc;...dst++;...s
6100: 72 63 2b 2b 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a  rc++;..    }..}.
6110: 09 2a 64 73 74 20 3d 20 30 3b 0a 0a 09 2f 2a 0a  .*dst = 0;.../*.
6120: 09 20 2a 20 45 6e 74 65 72 20 74 68 65 20 6f 70  . * Enter the op
6130: 74 69 6f 6e 20 69 6e 74 6f 20 74 68 65 20 64 61  tion into the da
6140: 74 61 62 61 73 65 2e 0a 09 20 2a 2f 0a 0a 09 54  tabase... */...T
6150: 6b 5f 41 64 64 4f 70 74 69 6f 6e 28 74 6b 77 69  k_AddOption(tkwi
6160: 6e 2c 20 6e 61 6d 65 2c 20 76 61 6c 75 65 2c 20  n, name, value, 
6170: 70 72 69 6f 72 69 74 79 29 3b 0a 09 73 72 63 2b  priority);..src+
6180: 2b 3b 0a 09 6c 69 6e 65 4e 75 6d 2b 2b 3b 0a 20  +;..lineNum++;. 
6190: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20     }.    return 
61a0: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20  TCL_OK;.}.../*. 
61b0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
61c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
61d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
61e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
61f0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 52 65  -------. *. * Re
6200: 61 64 4f 70 74 69 6f 6e 46 69 6c 65 20 2d 2d 0a  adOptionFile --.
6210: 20 2a 0a 20 2a 20 09 52 65 61 64 20 61 20 66 69   *. * .Read a fi
6220: 6c 65 20 6f 66 20 6f 70 74 69 6f 6e 73 20 28 22  le of options ("
6230: 72 65 73 6f 75 72 63 65 73 22 20 69 6e 20 74 68  resources" in th
6240: 65 20 6f 6c 64 20 58 20 74 65 72 6d 69 6e 6f 6c  e old X terminol
6250: 6f 67 79 29 0a 20 2a 09 61 6e 64 20 6c 6f 61 64  ogy). *.and load
6260: 20 74 68 65 6d 20 69 6e 74 6f 20 74 68 65 20 6f   them into the o
6270: 70 74 69 6f 6e 20 64 61 74 61 62 61 73 65 2e 0a  ption database..
6280: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20   *. * Results:. 
6290: 2a 09 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c  *.The return val
62a0: 75 65 20 69 73 20 61 20 73 74 61 6e 64 61 72 64  ue is a standard
62b0: 20 54 63 6c 20 72 65 74 75 72 6e 20 63 6f 64 65   Tcl return code
62c0: 2e 20 20 49 6e 20 74 68 65 20 63 61 73 65 20 6f  .  In the case o
62d0: 66 0a 20 2a 09 61 6e 20 65 72 72 6f 72 20 69 6e  f. *.an error in
62e0: 20 70 61 72 73 69 6e 67 20 73 74 72 69 6e 67 2c   parsing string,
62f0: 20 54 43 4c 5f 45 52 52 4f 52 20 77 69 6c 6c 20   TCL_ERROR will 
6300: 62 65 20 72 65 74 75 72 6e 65 64 20 61 6e 64 20  be returned and 
6310: 61 6e 0a 20 2a 09 65 72 72 6f 72 20 6d 65 73 73  an. *.error mess
6320: 61 67 65 20 77 69 6c 6c 20 62 65 20 6c 65 66 74  age will be left
6330: 20 69 6e 20 69 6e 74 65 72 70 2d 3e 72 65 73 75   in interp->resu
6340: 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  lt.. *. * Side e
6350: 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e  ffects:. *.None.
6360: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *. *----------
6370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
63a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
63b0: 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 52 65 61  ..static int.Rea
63c0: 64 4f 70 74 69 6f 6e 46 69 6c 65 28 69 6e 74 65  dOptionFile(inte
63d0: 72 70 2c 20 74 6b 77 69 6e 2c 20 66 69 6c 65 4e  rp, tkwin, fileN
63e0: 61 6d 65 2c 20 70 72 69 6f 72 69 74 79 29 0a 20  ame, priority). 
63f0: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69     Tcl_Interp *i
6400: 6e 74 65 72 70 3b 09 09 2f 2a 20 49 6e 74 65 72  nterp;../* Inter
6410: 70 72 65 74 65 72 20 74 6f 20 75 73 65 20 66 6f  preter to use fo
6420: 72 20 72 65 70 6f 72 74 69 6e 67 20 72 65 73 75  r reporting resu
6430: 6c 74 73 2e 20 2a 2f 0a 20 20 20 20 54 6b 5f 57  lts. */.    Tk_W
6440: 69 6e 64 6f 77 20 74 6b 77 69 6e 3b 09 09 2f 2a  indow tkwin;../*
6450: 20 54 6f 6b 65 6e 20 66 6f 72 20 77 69 6e 64 6f   Token for windo
6460: 77 3a 20 20 6f 70 74 69 6f 6e 73 20 61 72 65 20  w:  options are 
6470: 65 6e 74 65 72 65 64 0a 09 09 09 09 20 2a 20 66  entered..... * f
6480: 6f 72 20 74 68 69 73 20 77 69 6e 64 6f 77 27 73  or this window's
6490: 20 6d 61 69 6e 20 77 69 6e 64 6f 77 2e 20 2a 2f   main window. */
64a0: 0a 20 20 20 20 63 68 61 72 20 2a 66 69 6c 65 4e  .    char *fileN
64b0: 61 6d 65 3b 09 09 2f 2a 20 4e 61 6d 65 20 6f 66  ame;../* Name of
64c0: 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 69 6e 67   file containing
64d0: 20 6f 70 74 69 6f 6e 73 2e 20 2a 2f 0a 20 20 20   options. */.   
64e0: 20 69 6e 74 20 70 72 69 6f 72 69 74 79 3b 09 09   int priority;..
64f0: 2f 2a 20 50 72 69 6f 72 69 74 79 20 6c 65 76 65  /* Priority leve
6500: 6c 20 74 6f 20 75 73 65 20 66 6f 72 20 6f 70 74  l to use for opt
6510: 69 6f 6e 73 20 69 6e 0a 09 09 09 09 20 2a 20 74  ions in..... * t
6520: 68 69 73 20 66 69 6c 65 2c 20 73 75 63 68 20 61  his file, such a
6530: 73 20 54 4b 5f 55 53 45 52 5f 44 45 46 41 55 4c  s TK_USER_DEFAUL
6540: 54 5f 50 52 49 4f 0a 09 09 09 09 20 2a 20 6f 72  T_PRIO..... * or
6550: 20 54 4b 5f 49 4e 54 45 52 41 43 54 49 56 45 5f   TK_INTERACTIVE_
6560: 50 52 49 4f 2e 20 20 4d 75 73 74 20 62 65 20 62  PRIO.  Must be b
6570: 65 74 77 65 65 6e 0a 09 09 09 09 20 2a 20 30 20  etween..... * 0 
6580: 61 6e 64 20 54 4b 5f 4d 41 58 5f 50 52 49 4f 2e  and TK_MAX_PRIO.
6590: 20 2a 2f 0a 7b 0a 20 20 20 20 63 68 61 72 20 2a   */.{.    char *
65a0: 72 65 61 6c 4e 61 6d 65 2c 20 2a 62 75 66 66 65  realName, *buffe
65b0: 72 3b 0a 20 20 20 20 69 6e 74 20 72 65 73 75 6c  r;.    int resul
65c0: 74 2c 20 62 75 66 66 65 72 53 69 7a 65 3b 0a 20  t, bufferSize;. 
65d0: 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63     Tcl_Channel c
65e0: 68 61 6e 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74  han;.    Tcl_DSt
65f0: 72 69 6e 67 20 6e 65 77 4e 61 6d 65 3b 0a 0a 20  ring newName;.. 
6600: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e     Tcl_DStringIn
6610: 69 74 28 26 6e 65 77 4e 61 6d 65 29 3b 0a 20 20  it(&newName);.  
6620: 20 20 72 65 61 6c 4e 61 6d 65 20 3d 20 54 63 6c    realName = Tcl
6630: 5f 54 72 61 6e 73 6c 61 74 65 46 69 6c 65 4e 61  _TranslateFileNa
6640: 6d 65 28 69 6e 74 65 72 70 2c 20 66 69 6c 65 4e  me(interp, fileN
6650: 61 6d 65 2c 20 26 6e 65 77 4e 61 6d 65 29 3b 0a  ame, &newName);.
6660: 20 20 20 20 69 66 20 28 72 65 61 6c 4e 61 6d 65      if (realName
6670: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74   == NULL) {..ret
6680: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
6690: 20 20 20 7d 0a 20 20 20 20 63 68 61 6e 20 3d 20     }.    chan = 
66a0: 54 63 6c 5f 4f 70 65 6e 46 69 6c 65 43 68 61 6e  Tcl_OpenFileChan
66b0: 6e 65 6c 28 69 6e 74 65 72 70 2c 20 72 65 61 6c  nel(interp, real
66c0: 4e 61 6d 65 2c 20 22 72 22 2c 20 30 29 3b 0a 20  Name, "r", 0);. 
66d0: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72     Tcl_DStringFr
66e0: 65 65 28 26 6e 65 77 4e 61 6d 65 29 3b 0a 20 20  ee(&newName);.  
66f0: 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 4e 55    if (chan == NU
6700: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43  LL) {..return TC
6710: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a  L_ERROR;.    }..
6720: 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 43 6f      /*.     * Co
6730: 6d 70 75 74 65 20 73 69 7a 65 20 6f 66 20 66 69  mpute size of fi
6740: 6c 65 20 62 79 20 73 65 65 6b 69 6e 67 20 74 6f  le by seeking to
6750: 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20   the end of the 
6760: 66 69 6c 65 2e 20 20 54 68 69 73 20 77 69 6c 6c  file.  This will
6770: 0a 20 20 20 20 20 2a 20 6f 76 65 72 61 6c 6c 6f  .     * overallo
6780: 63 61 74 65 20 69 66 20 77 65 20 61 72 65 20 70  cate if we are p
6790: 65 72 66 6f 72 6d 69 6e 67 20 43 52 4c 46 20 74  erforming CRLF t
67a0: 72 61 6e 73 6c 61 74 69 6f 6e 2e 0a 20 20 20 20  ranslation..    
67b0: 20 2a 2f 0a 20 20 20 20 0a 20 20 20 20 62 75 66   */.    .    buf
67c0: 66 65 72 53 69 7a 65 20 3d 20 54 63 6c 5f 53 65  ferSize = Tcl_Se
67d0: 65 6b 28 63 68 61 6e 2c 20 30 4c 2c 20 53 45 45  ek(chan, 0L, SEE
67e0: 4b 5f 45 4e 44 29 3b 0a 20 20 20 20 28 76 6f 69  K_END);.    (voi
67f0: 64 29 20 54 63 6c 5f 53 65 65 6b 28 63 68 61 6e  d) Tcl_Seek(chan
6800: 2c 20 30 4c 2c 20 53 45 45 4b 5f 53 45 54 29 3b  , 0L, SEEK_SET);
6810: 0a 0a 20 20 20 20 69 66 20 28 62 75 66 66 65 72  ..    if (buffer
6820: 53 69 7a 65 20 3c 20 30 29 20 7b 0a 20 20 20 20  Size < 0) {.    
6830: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
6840: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 65 72 72  ult(interp, "err
6850: 6f 72 20 73 65 65 6b 69 6e 67 20 74 6f 20 65 6e  or seeking to en
6860: 64 20 6f 66 20 66 69 6c 65 20 5c 22 22 2c 0a 20  d of file \"",. 
6870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69                fi
6880: 6c 65 4e 61 6d 65 2c 20 22 5c 22 3a 22 2c 20 54  leName, "\":", T
6890: 63 6c 5f 50 6f 73 69 78 45 72 72 6f 72 28 69 6e  cl_PosixError(in
68a0: 74 65 72 70 29 2c 20 28 63 68 61 72 20 2a 29 20  terp), (char *) 
68b0: 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 20 54 63  NULL);.       Tc
68c0: 6c 5f 43 6c 6f 73 65 28 4e 55 4c 4c 2c 20 63 68  l_Close(NULL, ch
68d0: 61 6e 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74  an);.        ret
68e0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
68f0: 20 20 20 7d 0a 0a 20 20 20 20 62 75 66 66 65 72     }..    buffer
6900: 20 3d 20 28 63 68 61 72 20 2a 29 20 63 6b 61 6c   = (char *) ckal
6910: 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 29 20 62  loc((unsigned) b
6920: 75 66 66 65 72 53 69 7a 65 2b 31 29 3b 0a 20 20  ufferSize+1);.  
6930: 20 20 62 75 66 66 65 72 53 69 7a 65 20 3d 20 54    bufferSize = T
6940: 63 6c 5f 52 65 61 64 28 63 68 61 6e 2c 20 62 75  cl_Read(chan, bu
6950: 66 66 65 72 2c 20 62 75 66 66 65 72 53 69 7a 65  ffer, bufferSize
6960: 29 3b 0a 20 20 20 20 69 66 20 28 62 75 66 66 65  );.    if (buffe
6970: 72 53 69 7a 65 20 3c 20 30 29 20 7b 0a 20 20 20  rSize < 0) {.   
6980: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
6990: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 65 72  sult(interp, "er
69a0: 72 6f 72 20 72 65 61 64 69 6e 67 20 66 69 6c 65  ror reading file
69b0: 20 5c 22 22 2c 20 66 69 6c 65 4e 61 6d 65 2c 20   \"", fileName, 
69c0: 22 5c 22 3a 22 2c 0a 20 20 20 20 20 20 20 20 20  "\":",.         
69d0: 20 20 20 20 20 20 54 63 6c 5f 50 6f 73 69 78 45        Tcl_PosixE
69e0: 72 72 6f 72 28 69 6e 74 65 72 70 29 2c 20 28 63  rror(interp), (c
69f0: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20  har *) NULL);.  
6a00: 20 20 20 20 20 54 63 6c 5f 43 6c 6f 73 65 28 4e       Tcl_Close(N
6a10: 55 4c 4c 2c 20 63 68 61 6e 29 3b 0a 20 20 20 20  ULL, chan);.    
6a20: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
6a30: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54  ROR;.    }.    T
6a40: 63 6c 5f 43 6c 6f 73 65 28 4e 55 4c 4c 2c 20 63  cl_Close(NULL, c
6a50: 68 61 6e 29 3b 0a 20 20 20 20 62 75 66 66 65 72  han);.    buffer
6a60: 5b 62 75 66 66 65 72 53 69 7a 65 5d 20 3d 20 30  [bufferSize] = 0
6a70: 3b 0a 0a 20 20 20 20 72 65 73 75 6c 74 20 3d 20  ;..    result = 
6a80: 41 64 64 46 72 6f 6d 53 74 72 69 6e 67 28 69 6e  AddFromString(in
6a90: 74 65 72 70 2c 20 74 6b 77 69 6e 2c 20 62 75 66  terp, tkwin, buf
6aa0: 66 65 72 2c 20 70 72 69 6f 72 69 74 79 29 3b 0a  fer, priority);.
6ab0: 20 20 20 20 63 6b 66 72 65 65 28 62 75 66 66 65      ckfree(buffe
6ac0: 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 72  r);.    return r
6ad0: 65 73 75 6c 74 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a  esult;.}.../*. *
6ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
6b20: 2a 0a 20 2a 20 4e 65 77 41 72 72 61 79 20 2d 2d  *. * NewArray --
6b30: 0a 20 2a 0a 20 2a 09 43 72 65 61 74 65 20 61 20  . *. *.Create a 
6b40: 6e 65 77 20 45 6c 41 72 72 61 79 20 73 74 72 75  new ElArray stru
6b50: 63 74 75 72 65 20 6f 66 20 61 20 67 69 76 65 6e  cture of a given
6b60: 20 73 69 7a 65 2e 0a 20 2a 0a 20 2a 20 52 65 73   size.. *. * Res
6b70: 75 6c 74 73 3a 0a 20 2a 09 54 68 65 20 72 65 74  ults:. *.The ret
6b80: 75 72 6e 20 76 61 6c 75 65 20 69 73 20 61 20 70  urn value is a p
6b90: 6f 69 6e 74 65 72 20 74 6f 20 61 20 70 72 6f 70  ointer to a prop
6ba0: 65 72 6c 79 20 69 6e 69 74 69 61 6c 69 7a 65 64  erly initialized
6bb0: 0a 20 2a 09 65 6c 65 6d 65 6e 74 20 61 72 72 61  . *.element arra
6bc0: 79 20 77 69 74 68 20 22 6e 75 6d 45 6c 73 22 20  y with "numEls" 
6bd0: 73 70 61 63 65 2e 20 20 54 68 65 20 61 72 72 61  space.  The arra
6be0: 79 20 69 73 20 6d 61 72 6b 65 64 0a 20 2a 09 61  y is marked. *.a
6bf0: 73 20 68 61 76 69 6e 67 20 6e 6f 20 61 63 74 69  s having no acti
6c00: 76 65 20 65 6c 65 6d 65 6e 74 73 2e 0a 20 2a 0a  ve elements.. *.
6c10: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a   * Side effects:
6c20: 0a 20 2a 09 4d 65 6d 6f 72 79 20 69 73 20 61 6c  . *.Memory is al
6c30: 6c 6f 63 61 74 65 64 2e 0a 20 2a 0a 20 2a 2d 2d  located.. *. *--
6c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
6c80: 0a 0a 73 74 61 74 69 63 20 45 6c 41 72 72 61 79  ..static ElArray
6c90: 20 2a 0a 4e 65 77 41 72 72 61 79 28 6e 75 6d 45   *.NewArray(numE
6ca0: 6c 73 29 0a 20 20 20 20 69 6e 74 20 6e 75 6d 45  ls).    int numE
6cb0: 6c 73 3b 09 09 09 2f 2a 20 48 6f 77 20 6d 61 6e  ls;.../* How man
6cc0: 79 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 73 70  y elements of sp
6cd0: 61 63 65 20 74 6f 20 61 6c 6c 6f 63 61 74 65 2e  ace to allocate.
6ce0: 20 2a 2f 0a 7b 0a 20 20 20 20 72 65 67 69 73 74   */.{.    regist
6cf0: 65 72 20 45 6c 41 72 72 61 79 20 2a 61 72 72 61  er ElArray *arra
6d00: 79 50 74 72 3b 0a 0a 20 20 20 20 61 72 72 61 79  yPtr;..    array
6d10: 50 74 72 20 3d 20 28 45 6c 41 72 72 61 79 20 2a  Ptr = (ElArray *
6d20: 29 20 63 6b 61 6c 6c 6f 63 28 45 4c 5f 41 52 52  ) ckalloc(EL_ARR
6d30: 41 59 5f 53 49 5a 45 28 6e 75 6d 45 6c 73 29 29  AY_SIZE(numEls))
6d40: 3b 0a 20 20 20 20 61 72 72 61 79 50 74 72 2d 3e  ;.    arrayPtr->
6d50: 61 72 72 61 79 53 69 7a 65 20 3d 20 6e 75 6d 45  arraySize = numE
6d60: 6c 73 3b 0a 20 20 20 20 61 72 72 61 79 50 74 72  ls;.    arrayPtr
6d70: 2d 3e 6e 75 6d 55 73 65 64 20 3d 20 30 3b 0a 20  ->numUsed = 0;. 
6d80: 20 20 20 61 72 72 61 79 50 74 72 2d 3e 6e 65 78     arrayPtr->nex
6d90: 74 54 6f 55 73 65 20 3d 20 61 72 72 61 79 50 74  tToUse = arrayPt
6da0: 72 2d 3e 65 6c 73 3b 0a 20 20 20 20 72 65 74 75  r->els;.    retu
6db0: 72 6e 20 61 72 72 61 79 50 74 72 3b 0a 7d 0a 0c  rn arrayPtr;.}..
6dc0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ./*. *----------
6dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6e00: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 78 74 65 6e  ----. *. * Exten
6e10: 64 41 72 72 61 79 20 2d 2d 0a 20 2a 0a 20 2a 09  dArray --. *. *.
6e20: 41 64 64 20 61 20 6e 65 77 20 65 6c 65 6d 65 6e  Add a new elemen
6e30: 74 20 74 6f 20 61 6e 20 61 72 72 61 79 2c 20 65  t to an array, e
6e40: 78 74 65 6e 64 69 6e 67 20 74 68 65 20 61 72 72  xtending the arr
6e50: 61 79 20 69 66 0a 20 2a 09 6e 65 63 65 73 73 61  ay if. *.necessa
6e60: 72 79 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74  ry.. *. * Result
6e70: 73 3a 0a 20 2a 09 54 68 65 20 72 65 74 75 72 6e  s:. *.The return
6e80: 20 76 61 6c 75 65 20 69 73 20 61 20 70 6f 69 6e   value is a poin
6e90: 74 65 72 20 74 6f 20 74 68 65 20 6e 65 77 20 61  ter to the new a
6ea0: 72 72 61 79 2c 20 77 68 69 63 68 0a 20 2a 09 77  rray, which. *.w
6eb0: 69 6c 6c 20 62 65 20 64 69 66 66 65 72 65 6e 74  ill be different
6ec0: 20 66 72 6f 6d 20 61 72 72 61 79 50 74 72 20 69   from arrayPtr i
6ed0: 66 20 74 68 65 20 61 72 72 61 79 20 67 6f 74 20  f the array got 
6ee0: 65 78 70 61 6e 64 65 64 2e 0a 20 2a 0a 20 2a 20  expanded.. *. * 
6ef0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a  Side effects:. *
6f00: 09 4d 65 6d 6f 72 79 20 6d 61 79 20 62 65 20 61  .Memory may be a
6f10: 6c 6c 6f 63 61 74 65 64 20 6f 72 20 66 72 65 65  llocated or free
6f20: 64 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  d.. *. *--------
6f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6f60: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74  ------. */..stat
6f70: 69 63 20 45 6c 41 72 72 61 79 20 2a 0a 45 78 74  ic ElArray *.Ext
6f80: 65 6e 64 41 72 72 61 79 28 61 72 72 61 79 50 74  endArray(arrayPt
6f90: 72 2c 20 65 6c 50 74 72 29 0a 20 20 20 20 72 65  r, elPtr).    re
6fa0: 67 69 73 74 65 72 20 45 6c 41 72 72 61 79 20 2a  gister ElArray *
6fb0: 61 72 72 61 79 50 74 72 3b 09 09 2f 2a 20 41 72  arrayPtr;../* Ar
6fc0: 72 61 79 20 74 6f 20 62 65 20 65 78 74 65 6e 64  ray to be extend
6fd0: 65 64 2e 20 2a 2f 0a 20 20 20 20 72 65 67 69 73  ed. */.    regis
6fe0: 74 65 72 20 45 6c 65 6d 65 6e 74 20 2a 65 6c 50  ter Element *elP
6ff0: 74 72 3b 09 09 2f 2a 20 45 6c 65 6d 65 6e 74 20  tr;../* Element 
7000: 74 6f 20 62 65 20 63 6f 70 69 65 64 20 69 6e 74  to be copied int
7010: 6f 20 61 72 72 61 79 2e 20 2a 2f 0a 7b 0a 20 20  o array. */.{.  
7020: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 49 66 20 74    /*.     * If t
7030: 68 65 20 63 75 72 72 65 6e 74 20 61 72 72 61 79  he current array
7040: 20 68 61 73 20 66 69 6c 6c 65 64 20 75 70 2c 20   has filled up, 
7050: 6d 61 6b 65 20 69 74 20 62 69 67 67 65 72 2e 0a  make it bigger..
7060: 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20       */..    if 
7070: 28 61 72 72 61 79 50 74 72 2d 3e 6e 75 6d 55 73  (arrayPtr->numUs
7080: 65 64 20 3e 3d 20 61 72 72 61 79 50 74 72 2d 3e  ed >= arrayPtr->
7090: 61 72 72 61 79 53 69 7a 65 29 20 7b 0a 09 72 65  arraySize) {..re
70a0: 67 69 73 74 65 72 20 45 6c 41 72 72 61 79 20 2a  gister ElArray *
70b0: 6e 65 77 50 74 72 3b 0a 0a 09 6e 65 77 50 74 72  newPtr;...newPtr
70c0: 20 3d 20 28 45 6c 41 72 72 61 79 20 2a 29 20 63   = (ElArray *) c
70d0: 6b 61 6c 6c 6f 63 28 45 4c 5f 41 52 52 41 59 5f  kalloc(EL_ARRAY_
70e0: 53 49 5a 45 28 32 2a 61 72 72 61 79 50 74 72 2d  SIZE(2*arrayPtr-
70f0: 3e 61 72 72 61 79 53 69 7a 65 29 29 3b 0a 09 6e  >arraySize));..n
7100: 65 77 50 74 72 2d 3e 61 72 72 61 79 53 69 7a 65  ewPtr->arraySize
7110: 20 3d 20 32 2a 61 72 72 61 79 50 74 72 2d 3e 61   = 2*arrayPtr->a
7120: 72 72 61 79 53 69 7a 65 3b 0a 09 6e 65 77 50 74  rraySize;..newPt
7130: 72 2d 3e 6e 75 6d 55 73 65 64 20 3d 20 61 72 72  r->numUsed = arr
7140: 61 79 50 74 72 2d 3e 6e 75 6d 55 73 65 64 3b 0a  ayPtr->numUsed;.
7150: 09 6e 65 77 50 74 72 2d 3e 6e 65 78 74 54 6f 55  .newPtr->nextToU
7160: 73 65 20 3d 20 26 6e 65 77 50 74 72 2d 3e 65 6c  se = &newPtr->el
7170: 73 5b 6e 65 77 50 74 72 2d 3e 6e 75 6d 55 73 65  s[newPtr->numUse
7180: 64 5d 3b 0a 09 6d 65 6d 63 70 79 28 28 56 4f 49  d];..memcpy((VOI
7190: 44 20 2a 29 20 6e 65 77 50 74 72 2d 3e 65 6c 73  D *) newPtr->els
71a0: 2c 20 28 56 4f 49 44 20 2a 29 20 61 72 72 61 79  , (VOID *) array
71b0: 50 74 72 2d 3e 65 6c 73 2c 0a 09 09 28 61 72 72  Ptr->els,...(arr
71c0: 61 79 50 74 72 2d 3e 61 72 72 61 79 53 69 7a 65  ayPtr->arraySize
71d0: 2a 73 69 7a 65 6f 66 28 45 6c 65 6d 65 6e 74 29  *sizeof(Element)
71e0: 29 29 3b 0a 09 63 6b 66 72 65 65 28 28 63 68 61  ));..ckfree((cha
71f0: 72 20 2a 29 20 61 72 72 61 79 50 74 72 29 3b 0a  r *) arrayPtr);.
7200: 09 61 72 72 61 79 50 74 72 20 3d 20 6e 65 77 50  .arrayPtr = newP
7210: 74 72 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2a  tr;.    }..    *
7220: 61 72 72 61 79 50 74 72 2d 3e 6e 65 78 74 54 6f  arrayPtr->nextTo
7230: 55 73 65 20 3d 20 2a 65 6c 50 74 72 3b 0a 20 20  Use = *elPtr;.  
7240: 20 20 61 72 72 61 79 50 74 72 2d 3e 6e 65 78 74    arrayPtr->next
7250: 54 6f 55 73 65 2b 2b 3b 0a 20 20 20 20 61 72 72  ToUse++;.    arr
7260: 61 79 50 74 72 2d 3e 6e 75 6d 55 73 65 64 2b 2b  ayPtr->numUsed++
7270: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 61 72 72  ;.    return arr
7280: 61 79 50 74 72 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a  ayPtr;.}.../*. *
7290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
72a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
72b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
72c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
72d0: 2a 0a 20 2a 20 53 65 74 75 70 53 74 61 63 6b 73  *. * SetupStacks
72e0: 20 2d 2d 0a 20 2a 0a 20 2a 09 41 72 72 61 6e 67   --. *. *.Arrang
72f0: 65 20 74 68 65 20 73 74 61 63 6b 73 20 73 6f 20  e the stacks so 
7300: 74 68 61 74 20 74 68 65 79 20 63 61 63 68 65 20  that they cache 
7310: 61 6c 6c 20 74 68 65 20 6f 70 74 69 6f 6e 0a 20  all the option. 
7320: 2a 09 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 6f  *.information fo
7330: 72 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 77  r a particular w
7340: 69 6e 64 6f 77 2e 0a 20 2a 0a 20 2a 20 52 65 73  indow.. *. * Res
7350: 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20  ults:. *.None.. 
7360: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74  *. * Side effect
7370: 73 3a 0a 20 2a 09 54 68 65 20 73 74 61 63 6b 73  s:. *.The stacks
7380: 20 61 72 65 20 6d 6f 64 69 66 69 65 64 20 74 6f   are modified to
7390: 20 68 6f 6c 64 20 69 6e 66 6f 72 6d 61 74 69 6f   hold informatio
73a0: 6e 20 66 6f 72 20 74 6b 77 69 6e 0a 20 2a 09 61  n for tkwin. *.a
73b0: 6e 64 20 61 6c 6c 20 69 74 73 20 61 6e 63 65 73  nd all its ances
73c0: 74 6f 72 73 20 69 6e 20 74 68 65 20 77 69 6e 64  tors in the wind
73d0: 6f 77 20 68 69 65 72 61 72 63 68 79 2e 0a 20 2a  ow hierarchy.. *
73e0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
73f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7420: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f  -. */..static vo
7430: 69 64 0a 53 65 74 75 70 53 74 61 63 6b 73 28 77  id.SetupStacks(w
7440: 69 6e 50 74 72 2c 20 6c 65 61 66 29 0a 20 20 20  inPtr, leaf).   
7450: 20 54 6b 57 69 6e 64 6f 77 20 2a 77 69 6e 50 74   TkWindow *winPt
7460: 72 3b 09 09 2f 2a 20 57 69 6e 64 6f 77 20 66 6f  r;../* Window fo
7470: 72 20 77 68 69 63 68 20 69 6e 66 6f 72 6d 61 74  r which informat
7480: 69 6f 6e 20 69 73 20 74 6f 0a 09 09 09 09 20 2a  ion is to..... *
7490: 20 62 65 20 63 61 63 68 65 64 2e 20 2a 2f 0a 20   be cached. */. 
74a0: 20 20 20 69 6e 74 20 6c 65 61 66 3b 09 09 09 2f     int leaf;.../
74b0: 2a 20 4e 6f 6e 2d 7a 65 72 6f 20 6d 65 61 6e 73  * Non-zero means
74c0: 20 74 68 69 73 20 69 73 20 74 68 65 20 6c 65 61   this is the lea
74d0: 66 0a 09 09 09 09 20 2a 20 77 69 6e 64 6f 77 20  f..... * window 
74e0: 62 65 69 6e 67 20 70 72 6f 62 65 64 2e 20 20 5a  being probed.  Z
74f0: 65 72 6f 20 6d 65 61 6e 73 20 74 68 69 73 0a 09  ero means this..
7500: 09 09 09 20 2a 20 69 73 20 61 6e 20 61 6e 63 65  ... * is an ance
7510: 73 74 6f 72 20 6f 66 20 74 68 65 20 64 65 73 69  stor of the desi
7520: 72 65 64 20 6c 65 61 66 2e 20 2a 2f 0a 7b 0a 20  red leaf. */.{. 
7530: 20 20 20 69 6e 74 20 6c 65 76 65 6c 2c 20 69 2c     int level, i,
7540: 20 2a 69 50 74 72 3b 0a 20 20 20 20 72 65 67 69   *iPtr;.    regi
7550: 73 74 65 72 20 53 74 61 63 6b 4c 65 76 65 6c 20  ster StackLevel 
7560: 2a 6c 65 76 65 6c 50 74 72 3b 0a 20 20 20 20 72  *levelPtr;.    r
7570: 65 67 69 73 74 65 72 20 45 6c 41 72 72 61 79 20  egister ElArray 
7580: 2a 61 72 72 61 79 50 74 72 3b 0a 0a 20 20 20 20  *arrayPtr;..    
7590: 2f 2a 0a 20 20 20 20 20 2a 20 54 68 65 20 66 6f  /*.     * The fo
75a0: 6c 6c 6f 77 69 6e 67 20 61 72 72 61 79 20 64 65  llowing array de
75b0: 66 69 6e 65 73 20 74 68 65 20 6f 72 64 65 72 20  fines the order 
75c0: 69 6e 20 77 68 69 63 68 20 74 68 65 20 63 75 72  in which the cur
75d0: 72 65 6e 74 0a 20 20 20 20 20 2a 20 73 74 61 63  rent.     * stac
75e0: 6b 73 20 61 72 65 20 73 65 61 72 63 68 65 64 20  ks are searched 
75f0: 74 6f 20 66 69 6e 64 20 6d 61 74 63 68 69 6e 67  to find matching
7600: 20 65 6e 74 72 69 65 73 20 74 6f 20 61 64 64 20   entries to add 
7610: 74 6f 20 74 68 65 0a 20 20 20 20 20 2a 20 73 74  to the.     * st
7620: 61 63 6b 73 2e 20 20 47 69 76 65 6e 20 74 68 65  acks.  Given the
7630: 20 63 75 72 72 65 6e 74 20 70 72 69 6f 72 69 74   current priorit
7640: 79 2d 62 61 73 65 64 20 73 63 68 65 6d 65 2c 20  y-based scheme, 
7650: 74 68 65 20 6f 72 64 65 72 0a 20 20 20 20 20 2a  the order.     *
7660: 20 62 65 6c 6f 77 20 69 73 20 6e 6f 20 6c 6f 6e   below is no lon
7670: 67 65 72 20 72 65 6c 65 76 61 6e 74 3b 20 20 61  ger relevant;  a
7680: 6c 6c 20 74 68 61 74 20 6d 61 74 74 65 72 73 20  ll that matters 
7690: 69 73 20 74 68 61 74 20 61 6e 0a 20 20 20 20 20  is that an.     
76a0: 2a 20 65 6c 65 6d 65 6e 74 20 69 73 20 6f 6e 20  * element is on 
76b0: 74 68 65 20 6c 69 73 74 20 2a 73 6f 6d 65 77 68  the list *somewh
76c0: 65 72 65 2a 2e 20 20 54 68 65 20 6f 72 64 65 72  ere*.  The order
76d0: 69 6e 67 20 69 73 20 61 20 72 65 6c 69 63 0a 20  ing is a relic. 
76e0: 20 20 20 20 2a 20 6f 66 20 74 68 65 20 6f 6c 64      * of the old
76f0: 20 64 61 79 73 20 77 68 65 6e 20 70 72 69 6f 72   days when prior
7700: 69 74 69 65 73 20 77 65 72 65 20 64 65 74 65 72  ities were deter
7710: 6d 69 6e 65 64 20 64 69 66 66 65 72 65 6e 74 6c  mined differentl
7720: 79 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20  y..     */..    
7730: 73 74 61 74 69 63 20 69 6e 74 20 73 65 61 72 63  static int searc
7740: 68 4f 72 64 65 72 5b 5d 20 3d 20 7b 57 49 4c 44  hOrder[] = {WILD
7750: 43 41 52 44 5f 4e 4f 44 45 5f 43 4c 41 53 53 2c  CARD_NODE_CLASS,
7760: 20 57 49 4c 44 43 41 52 44 5f 4e 4f 44 45 5f 4e   WILDCARD_NODE_N
7770: 41 4d 45 2c 0a 09 20 20 20 20 45 58 41 43 54 5f  AME,..    EXACT_
7780: 4e 4f 44 45 5f 43 4c 41 53 53 2c 20 45 58 41 43  NODE_CLASS, EXAC
7790: 54 5f 4e 4f 44 45 5f 4e 41 4d 45 2c 20 2d 31 7d  T_NODE_NAME, -1}
77a0: 3b 0a 0a 20 20 20 20 69 66 20 28 77 69 6e 50 74  ;..    if (winPt
77b0: 72 2d 3e 6d 61 69 6e 50 74 72 2d 3e 6f 70 74 69  r->mainPtr->opti
77c0: 6f 6e 52 6f 6f 74 50 74 72 20 3d 3d 20 4e 55 4c  onRootPtr == NUL
77d0: 4c 29 20 7b 0a 09 4f 70 74 69 6f 6e 49 6e 69 74  L) {..OptionInit
77e0: 28 77 69 6e 50 74 72 2d 3e 6d 61 69 6e 50 74 72  (winPtr->mainPtr
77f0: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a  );.    }..    /*
7800: 0a 20 20 20 20 20 2a 20 53 74 65 70 20 31 3a 20  .     * Step 1: 
7810: 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 20   make sure that 
7820: 6f 70 74 69 6f 6e 73 20 61 72 65 20 63 61 63 68  options are cach
7830: 65 64 20 66 6f 72 20 74 68 69 73 20 77 69 6e 64  ed for this wind
7840: 6f 77 27 73 0a 20 20 20 20 20 2a 20 70 61 72 65  ow's.     * pare
7850: 6e 74 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20  nt..     */..   
7860: 20 69 66 20 28 77 69 6e 50 74 72 2d 3e 70 61 72   if (winPtr->par
7870: 65 6e 74 50 74 72 20 26 26 20 77 69 6e 50 74 72  entPtr && winPtr
7880: 2d 3e 70 61 72 65 6e 74 50 74 72 2d 3e 70 61 72  ->parentPtr->par
7890: 65 6e 74 50 74 72 29 20 7b 0a 09 6c 65 76 65 6c  entPtr) {..level
78a0: 20 3d 20 77 69 6e 50 74 72 2d 3e 70 61 72 65 6e   = winPtr->paren
78b0: 74 50 74 72 2d 3e 6f 70 74 69 6f 6e 4c 65 76 65  tPtr->optionLeve
78c0: 6c 3b 0a 09 69 66 20 28 28 6c 65 76 65 6c 20 3d  l;..if ((level =
78d0: 3d 20 2d 31 29 20 7c 7c 20 28 63 61 63 68 65 64  = -1) || (cached
78e0: 57 69 6e 64 6f 77 20 3d 3d 20 4e 55 4c 4c 29 29  Window == NULL))
78f0: 20 7b 0a 09 20 20 20 20 53 65 74 75 70 53 74 61   {..    SetupSta
7900: 63 6b 73 28 77 69 6e 50 74 72 2d 3e 70 61 72 65  cks(winPtr->pare
7910: 6e 74 50 74 72 2c 20 30 29 3b 0a 09 20 20 20 20  ntPtr, 0);..    
7920: 6c 65 76 65 6c 20 3d 20 77 69 6e 50 74 72 2d 3e  level = winPtr->
7930: 70 61 72 65 6e 74 50 74 72 2d 3e 6f 70 74 69 6f  parentPtr->optio
7940: 6e 4c 65 76 65 6c 3b 0a 09 7d 0a 09 6c 65 76 65  nLevel;..}..leve
7950: 6c 2b 2b 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20  l++;.    } else 
7960: 7b 0a 09 6c 65 76 65 6c 20 3d 20 31 3b 0a 20 20  {..level = 1;.  
7970: 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20    }..    /*.    
7980: 20 2a 20 53 74 65 70 20 32 3a 20 20 70 6f 70 20   * Step 2:  pop 
7990: 65 78 74 72 61 20 75 6e 6e 65 65 64 65 64 20 69  extra unneeded i
79a0: 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 66 66 20 74  nformation off t
79b0: 68 65 20 73 74 61 63 6b 73 20 61 6e 64 0a 20 20  he stacks and.  
79c0: 20 20 20 2a 20 6d 61 72 6b 20 74 68 6f 73 65 20     * mark those 
79d0: 77 69 6e 64 6f 77 73 20 61 73 20 6e 6f 20 6c 6f  windows as no lo
79e0: 6e 67 65 72 20 68 61 76 69 6e 67 20 63 61 63 68  nger having cach
79f0: 65 64 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a  ed information..
7a00: 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20       */..    if 
7a10: 28 63 75 72 4c 65 76 65 6c 20 3e 3d 20 6c 65 76  (curLevel >= lev
7a20: 65 6c 29 20 7b 0a 09 77 68 69 6c 65 20 28 63 75  el) {..while (cu
7a30: 72 4c 65 76 65 6c 20 3e 3d 20 6c 65 76 65 6c 29  rLevel >= level)
7a40: 20 7b 0a 09 20 20 20 20 6c 65 76 65 6c 73 5b 63   {..    levels[c
7a50: 75 72 4c 65 76 65 6c 5d 2e 77 69 6e 50 74 72 2d  urLevel].winPtr-
7a60: 3e 6f 70 74 69 6f 6e 4c 65 76 65 6c 20 3d 20 2d  >optionLevel = -
7a70: 31 3b 0a 09 20 20 20 20 63 75 72 4c 65 76 65 6c  1;..    curLevel
7a80: 2d 2d 3b 0a 09 7d 0a 09 6c 65 76 65 6c 50 74 72  --;..}..levelPtr
7a90: 20 3d 20 26 6c 65 76 65 6c 73 5b 6c 65 76 65 6c   = &levels[level
7aa0: 5d 3b 0a 09 66 6f 72 20 28 69 20 3d 20 30 3b 20  ];..for (i = 0; 
7ab0: 69 20 3c 20 4e 55 4d 5f 53 54 41 43 4b 53 3b 20  i < NUM_STACKS; 
7ac0: 69 2b 2b 29 20 7b 0a 09 20 20 20 20 61 72 72 61  i++) {..    arra
7ad0: 79 50 74 72 20 3d 20 73 74 61 63 6b 73 5b 69 5d  yPtr = stacks[i]
7ae0: 3b 0a 09 20 20 20 20 61 72 72 61 79 50 74 72 2d  ;..    arrayPtr-
7af0: 3e 6e 75 6d 55 73 65 64 20 3d 20 6c 65 76 65 6c  >numUsed = level
7b00: 50 74 72 2d 3e 62 61 73 65 73 5b 69 5d 3b 0a 09  Ptr->bases[i];..
7b10: 20 20 20 20 61 72 72 61 79 50 74 72 2d 3e 6e 65      arrayPtr->ne
7b20: 78 74 54 6f 55 73 65 20 3d 20 26 61 72 72 61 79  xtToUse = &array
7b30: 50 74 72 2d 3e 65 6c 73 5b 61 72 72 61 79 50 74  Ptr->els[arrayPt
7b40: 72 2d 3e 6e 75 6d 55 73 65 64 5d 3b 0a 09 7d 0a  r->numUsed];..}.
7b50: 20 20 20 20 7d 0a 20 20 20 20 63 75 72 4c 65 76      }.    curLev
7b60: 65 6c 20 3d 20 77 69 6e 50 74 72 2d 3e 6f 70 74  el = winPtr->opt
7b70: 69 6f 6e 4c 65 76 65 6c 20 3d 20 6c 65 76 65 6c  ionLevel = level
7b80: 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a  ;..    /*.     *
7b90: 20 53 74 65 70 20 33 3a 20 20 69 66 20 74 68 65   Step 3:  if the
7ba0: 20 72 6f 6f 74 20 64 61 74 61 62 61 73 65 20 69   root database i
7bb0: 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 73 6e 27 74  nformation isn't
7bc0: 20 6c 6f 61 64 65 64 20 6f 72 0a 20 20 20 20 20   loaded or.     
7bd0: 2a 20 69 73 6e 27 74 20 76 61 6c 69 64 2c 20 69  * isn't valid, i
7be0: 6e 69 74 69 61 6c 69 7a 65 20 6c 65 76 65 6c 20  nitialize level 
7bf0: 30 20 6f 66 20 74 68 65 20 73 74 61 63 6b 20 66  0 of the stack f
7c00: 72 6f 6d 20 74 68 65 0a 20 20 20 20 20 2a 20 64  rom the.     * d
7c10: 61 74 61 62 61 73 65 20 72 6f 6f 74 20 28 74 68  atabase root (th
7c20: 69 73 20 6f 6e 6c 79 20 68 61 70 70 65 6e 73 20  is only happens 
7c30: 69 66 20 77 69 6e 50 74 72 20 69 73 20 61 20 6d  if winPtr is a m
7c40: 61 69 6e 20 77 69 6e 64 6f 77 29 2e 0a 20 20 20  ain window)..   
7c50: 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20 28 28 63    */..    if ((c
7c60: 75 72 4c 65 76 65 6c 20 3d 3d 20 31 29 0a 09 20  urLevel == 1).. 
7c70: 20 20 20 26 26 20 28 28 63 61 63 68 65 64 57 69     && ((cachedWi
7c80: 6e 64 6f 77 20 3d 3d 20 4e 55 4c 4c 29 0a 09 20  ndow == NULL).. 
7c90: 20 20 20 7c 7c 20 28 63 61 63 68 65 64 57 69 6e     || (cachedWin
7ca0: 64 6f 77 2d 3e 6d 61 69 6e 50 74 72 20 21 3d 20  dow->mainPtr != 
7cb0: 77 69 6e 50 74 72 2d 3e 6d 61 69 6e 50 74 72 29  winPtr->mainPtr)
7cc0: 29 29 20 7b 0a 09 66 6f 72 20 28 69 20 3d 20 30  )) {..for (i = 0
7cd0: 3b 20 69 20 3c 20 4e 55 4d 5f 53 54 41 43 4b 53  ; i < NUM_STACKS
7ce0: 3b 20 69 2b 2b 29 20 7b 0a 09 20 20 20 20 61 72  ; i++) {..    ar
7cf0: 72 61 79 50 74 72 20 3d 20 73 74 61 63 6b 73 5b  rayPtr = stacks[
7d00: 69 5d 3b 0a 09 20 20 20 20 61 72 72 61 79 50 74  i];..    arrayPt
7d10: 72 2d 3e 6e 75 6d 55 73 65 64 20 3d 20 30 3b 0a  r->numUsed = 0;.
7d20: 09 20 20 20 20 61 72 72 61 79 50 74 72 2d 3e 6e  .    arrayPtr->n
7d30: 65 78 74 54 6f 55 73 65 20 3d 20 61 72 72 61 79  extToUse = array
7d40: 50 74 72 2d 3e 65 6c 73 3b 0a 09 7d 0a 09 45 78  Ptr->els;..}..Ex
7d50: 74 65 6e 64 53 74 61 63 6b 73 28 77 69 6e 50 74  tendStacks(winPt
7d60: 72 2d 3e 6d 61 69 6e 50 74 72 2d 3e 6f 70 74 69  r->mainPtr->opti
7d70: 6f 6e 52 6f 6f 74 50 74 72 2c 20 30 29 3b 0a 20  onRootPtr, 0);. 
7d80: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20     }..    /*.   
7d90: 20 20 2a 20 53 74 65 70 20 34 3a 20 63 72 65 61    * Step 4: crea
7da0: 74 65 20 61 20 6e 65 77 20 73 74 61 63 6b 20 6c  te a new stack l
7db0: 65 76 65 6c 3b 20 20 67 72 6f 77 20 74 68 65 20  evel;  grow the 
7dc0: 6c 65 76 65 6c 20 61 72 72 61 79 20 69 66 0a 20  level array if. 
7dd0: 20 20 20 20 2a 20 77 65 27 76 65 20 72 75 6e 20      * we've run 
7de0: 6f 75 74 20 6f 66 20 6c 65 76 65 6c 73 2e 20 20  out of levels.  
7df0: 43 6c 65 61 72 20 74 68 65 20 73 74 61 63 6b 73  Clear the stacks
7e00: 20 66 6f 72 20 45 58 41 43 54 5f 4c 45 41 46 5f   for EXACT_LEAF_
7e10: 4e 41 4d 45 0a 20 20 20 20 20 2a 20 61 6e 64 20  NAME.     * and 
7e20: 45 58 41 43 54 5f 4c 45 41 46 5f 43 4c 41 53 53  EXACT_LEAF_CLASS
7e30: 20 28 61 6e 79 74 68 69 6e 67 20 74 68 61 74 20   (anything that 
7e40: 77 61 73 20 74 68 65 72 65 20 69 73 20 6f 66 20  was there is of 
7e50: 6e 6f 20 75 73 65 0a 20 20 20 20 20 2a 20 61 6e  no use.     * an
7e60: 79 20 6d 6f 72 65 29 2e 0a 20 20 20 20 20 2a 2f  y more)..     */
7e70: 0a 0a 20 20 20 20 69 66 20 28 63 75 72 4c 65 76  ..    if (curLev
7e80: 65 6c 20 3e 3d 20 6e 75 6d 4c 65 76 65 6c 73 29  el >= numLevels)
7e90: 20 7b 0a 09 53 74 61 63 6b 4c 65 76 65 6c 20 2a   {..StackLevel *
7ea0: 6e 65 77 4c 65 76 65 6c 73 3b 0a 0a 09 6e 65 77  newLevels;...new
7eb0: 4c 65 76 65 6c 73 20 3d 20 28 53 74 61 63 6b 4c  Levels = (StackL
7ec0: 65 76 65 6c 20 2a 29 20 63 6b 61 6c 6c 6f 63 28  evel *) ckalloc(
7ed0: 28 75 6e 73 69 67 6e 65 64 29 0a 09 09 28 6e 75  (unsigned)...(nu
7ee0: 6d 4c 65 76 65 6c 73 2a 32 2a 73 69 7a 65 6f 66  mLevels*2*sizeof
7ef0: 28 53 74 61 63 6b 4c 65 76 65 6c 29 29 29 3b 0a  (StackLevel)));.
7f00: 09 6d 65 6d 63 70 79 28 28 56 4f 49 44 20 2a 29  .memcpy((VOID *)
7f10: 20 6e 65 77 4c 65 76 65 6c 73 2c 20 28 56 4f 49   newLevels, (VOI
7f20: 44 20 2a 29 20 6c 65 76 65 6c 73 2c 0a 09 09 28  D *) levels,...(
7f30: 6e 75 6d 4c 65 76 65 6c 73 2a 73 69 7a 65 6f 66  numLevels*sizeof
7f40: 28 53 74 61 63 6b 4c 65 76 65 6c 29 29 29 3b 0a  (StackLevel)));.
7f50: 09 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29  .ckfree((char *)
7f60: 20 6c 65 76 65 6c 73 29 3b 0a 09 6e 75 6d 4c 65   levels);..numLe
7f70: 76 65 6c 73 20 2a 3d 20 32 3b 0a 09 6c 65 76 65  vels *= 2;..leve
7f80: 6c 73 20 3d 20 6e 65 77 4c 65 76 65 6c 73 3b 0a  ls = newLevels;.
7f90: 20 20 20 20 7d 0a 20 20 20 20 6c 65 76 65 6c 50      }.    levelP
7fa0: 74 72 20 3d 20 26 6c 65 76 65 6c 73 5b 63 75 72  tr = &levels[cur
7fb0: 4c 65 76 65 6c 5d 3b 0a 20 20 20 20 6c 65 76 65  Level];.    leve
7fc0: 6c 50 74 72 2d 3e 77 69 6e 50 74 72 20 3d 20 77  lPtr->winPtr = w
7fd0: 69 6e 50 74 72 3b 0a 20 20 20 20 61 72 72 61 79  inPtr;.    array
7fe0: 50 74 72 20 3d 20 73 74 61 63 6b 73 5b 45 58 41  Ptr = stacks[EXA
7ff0: 43 54 5f 4c 45 41 46 5f 4e 41 4d 45 5d 3b 0a 20  CT_LEAF_NAME];. 
8000: 20 20 20 61 72 72 61 79 50 74 72 2d 3e 6e 75 6d     arrayPtr->num
8010: 55 73 65 64 20 3d 20 30 3b 0a 20 20 20 20 61 72  Used = 0;.    ar
8020: 72 61 79 50 74 72 2d 3e 6e 65 78 74 54 6f 55 73  rayPtr->nextToUs
8030: 65 20 3d 20 61 72 72 61 79 50 74 72 2d 3e 65 6c  e = arrayPtr->el
8040: 73 3b 0a 20 20 20 20 61 72 72 61 79 50 74 72 20  s;.    arrayPtr 
8050: 3d 20 73 74 61 63 6b 73 5b 45 58 41 43 54 5f 4c  = stacks[EXACT_L
8060: 45 41 46 5f 43 4c 41 53 53 5d 3b 0a 20 20 20 20  EAF_CLASS];.    
8070: 61 72 72 61 79 50 74 72 2d 3e 6e 75 6d 55 73 65  arrayPtr->numUse
8080: 64 20 3d 20 30 3b 0a 20 20 20 20 61 72 72 61 79  d = 0;.    array
8090: 50 74 72 2d 3e 6e 65 78 74 54 6f 55 73 65 20 3d  Ptr->nextToUse =
80a0: 20 61 72 72 61 79 50 74 72 2d 3e 65 6c 73 3b 0a   arrayPtr->els;.
80b0: 20 20 20 20 6c 65 76 65 6c 50 74 72 2d 3e 62 61      levelPtr->ba
80c0: 73 65 73 5b 45 58 41 43 54 5f 4c 45 41 46 5f 4e  ses[EXACT_LEAF_N
80d0: 41 4d 45 5d 20 3d 20 73 74 61 63 6b 73 5b 45 58  AME] = stacks[EX
80e0: 41 43 54 5f 4c 45 41 46 5f 4e 41 4d 45 5d 2d 3e  ACT_LEAF_NAME]->
80f0: 6e 75 6d 55 73 65 64 3b 0a 20 20 20 20 6c 65 76  numUsed;.    lev
8100: 65 6c 50 74 72 2d 3e 62 61 73 65 73 5b 45 58 41  elPtr->bases[EXA
8110: 43 54 5f 4c 45 41 46 5f 43 4c 41 53 53 5d 20 3d  CT_LEAF_CLASS] =
8120: 20 73 74 61 63 6b 73 5b 45 58 41 43 54 5f 4c 45   stacks[EXACT_LE
8130: 41 46 5f 43 4c 41 53 53 5d 2d 3e 6e 75 6d 55 73  AF_CLASS]->numUs
8140: 65 64 3b 0a 20 20 20 20 6c 65 76 65 6c 50 74 72  ed;.    levelPtr
8150: 2d 3e 62 61 73 65 73 5b 45 58 41 43 54 5f 4e 4f  ->bases[EXACT_NO
8160: 44 45 5f 4e 41 4d 45 5d 20 3d 20 73 74 61 63 6b  DE_NAME] = stack
8170: 73 5b 45 58 41 43 54 5f 4e 4f 44 45 5f 4e 41 4d  s[EXACT_NODE_NAM
8180: 45 5d 2d 3e 6e 75 6d 55 73 65 64 3b 0a 20 20 20  E]->numUsed;.   
8190: 20 6c 65 76 65 6c 50 74 72 2d 3e 62 61 73 65 73   levelPtr->bases
81a0: 5b 45 58 41 43 54 5f 4e 4f 44 45 5f 43 4c 41 53  [EXACT_NODE_CLAS
81b0: 53 5d 20 3d 20 73 74 61 63 6b 73 5b 45 58 41 43  S] = stacks[EXAC
81c0: 54 5f 4e 4f 44 45 5f 43 4c 41 53 53 5d 2d 3e 6e  T_NODE_CLASS]->n
81d0: 75 6d 55 73 65 64 3b 0a 20 20 20 20 6c 65 76 65  umUsed;.    leve
81e0: 6c 50 74 72 2d 3e 62 61 73 65 73 5b 57 49 4c 44  lPtr->bases[WILD
81f0: 43 41 52 44 5f 4c 45 41 46 5f 4e 41 4d 45 5d 20  CARD_LEAF_NAME] 
8200: 3d 20 73 74 61 63 6b 73 5b 57 49 4c 44 43 41 52  = stacks[WILDCAR
8210: 44 5f 4c 45 41 46 5f 4e 41 4d 45 5d 2d 3e 6e 75  D_LEAF_NAME]->nu
8220: 6d 55 73 65 64 3b 0a 20 20 20 20 6c 65 76 65 6c  mUsed;.    level
8230: 50 74 72 2d 3e 62 61 73 65 73 5b 57 49 4c 44 43  Ptr->bases[WILDC
8240: 41 52 44 5f 4c 45 41 46 5f 43 4c 41 53 53 5d 20  ARD_LEAF_CLASS] 
8250: 3d 20 73 74 61 63 6b 73 5b 57 49 4c 44 43 41 52  = stacks[WILDCAR
8260: 44 5f 4c 45 41 46 5f 43 4c 41 53 53 5d 2d 3e 6e  D_LEAF_CLASS]->n
8270: 75 6d 55 73 65 64 3b 0a 20 20 20 20 6c 65 76 65  umUsed;.    leve
8280: 6c 50 74 72 2d 3e 62 61 73 65 73 5b 57 49 4c 44  lPtr->bases[WILD
8290: 43 41 52 44 5f 4e 4f 44 45 5f 4e 41 4d 45 5d 20  CARD_NODE_NAME] 
82a0: 3d 20 73 74 61 63 6b 73 5b 57 49 4c 44 43 41 52  = stacks[WILDCAR
82b0: 44 5f 4e 4f 44 45 5f 4e 41 4d 45 5d 2d 3e 6e 75  D_NODE_NAME]->nu
82c0: 6d 55 73 65 64 3b 0a 20 20 20 20 6c 65 76 65 6c  mUsed;.    level
82d0: 50 74 72 2d 3e 62 61 73 65 73 5b 57 49 4c 44 43  Ptr->bases[WILDC
82e0: 41 52 44 5f 4e 4f 44 45 5f 43 4c 41 53 53 5d 20  ARD_NODE_CLASS] 
82f0: 3d 20 73 74 61 63 6b 73 5b 57 49 4c 44 43 41 52  = stacks[WILDCAR
8300: 44 5f 4e 4f 44 45 5f 43 4c 41 53 53 5d 2d 3e 6e  D_NODE_CLASS]->n
8310: 75 6d 55 73 65 64 3b 0a 0a 0a 20 20 20 20 2f 2a  umUsed;...    /*
8320: 0a 20 20 20 20 20 2a 20 53 74 65 70 20 35 3a 20  .     * Step 5: 
8330: 73 63 61 6e 20 74 68 65 20 63 75 72 72 65 6e 74  scan the current
8340: 20 73 74 61 63 6b 20 6c 65 76 65 6c 20 6c 6f 6f   stack level loo
8350: 6b 69 6e 67 20 66 6f 72 20 6d 61 74 63 68 65 73  king for matches
8360: 20 74 6f 20 74 68 69 73 0a 20 20 20 20 20 2a 20   to this.     * 
8370: 77 69 6e 64 6f 77 27 73 20 6e 61 6d 65 20 6f 72  window's name or
8380: 20 63 6c 61 73 73 3b 20 20 77 68 65 72 65 20 66   class;  where f
8390: 6f 75 6e 64 2c 20 61 64 64 20 6e 65 77 20 69 6e  ound, add new in
83a0: 66 6f 72 6d 61 74 69 6f 6e 20 74 6f 20 74 68 65  formation to the
83b0: 0a 20 20 20 20 20 2a 20 73 74 61 63 6b 73 2e 0a  .     * stacks..
83c0: 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 66 6f 72       */..    for
83d0: 20 28 69 50 74 72 20 3d 20 73 65 61 72 63 68 4f   (iPtr = searchO
83e0: 72 64 65 72 3b 20 2a 69 50 74 72 20 21 3d 20 2d  rder; *iPtr != -
83f0: 31 3b 20 69 50 74 72 2b 2b 29 20 7b 0a 09 72 65  1; iPtr++) {..re
8400: 67 69 73 74 65 72 20 45 6c 65 6d 65 6e 74 20 2a  gister Element *
8410: 65 6c 50 74 72 3b 0a 09 69 6e 74 20 63 6f 75 6e  elPtr;..int coun
8420: 74 3b 0a 09 54 6b 5f 55 69 64 20 69 64 3b 0a 0a  t;..Tk_Uid id;..
8430: 09 69 20 3d 20 2a 69 50 74 72 3b 0a 09 69 66 20  .i = *iPtr;..if 
8440: 28 69 20 26 20 43 4c 41 53 53 29 20 7b 0a 09 20  (i & CLASS) {.. 
8450: 20 20 20 69 64 20 3d 20 77 69 6e 50 74 72 2d 3e     id = winPtr->
8460: 63 6c 61 73 73 55 69 64 3b 0a 09 7d 20 65 6c 73  classUid;..} els
8470: 65 20 7b 0a 09 20 20 20 20 69 64 20 3d 20 77 69  e {..    id = wi
8480: 6e 50 74 72 2d 3e 6e 61 6d 65 55 69 64 3b 0a 09  nPtr->nameUid;..
8490: 7d 0a 09 65 6c 50 74 72 20 3d 20 73 74 61 63 6b  }..elPtr = stack
84a0: 73 5b 69 5d 2d 3e 65 6c 73 3b 0a 09 63 6f 75 6e  s[i]->els;..coun
84b0: 74 20 3d 20 6c 65 76 65 6c 50 74 72 2d 3e 62 61  t = levelPtr->ba
84c0: 73 65 73 5b 69 5d 3b 0a 0a 09 2f 2a 0a 09 20 2a  ses[i];.../*.. *
84d0: 20 46 6f 72 20 77 69 6c 64 63 61 72 64 20 73 74   For wildcard st
84e0: 61 63 6b 73 2c 20 63 68 65 63 6b 20 61 6c 6c 20  acks, check all 
84f0: 65 6e 74 72 69 65 73 3b 20 20 66 6f 72 20 6e 6f  entries;  for no
8500: 6e 2d 77 69 6c 64 63 61 72 64 0a 09 20 2a 20 73  n-wildcard.. * s
8510: 74 61 63 6b 73 2c 20 6f 6e 6c 79 20 63 68 65 63  tacks, only chec
8520: 6b 20 74 68 69 6e 67 73 20 74 68 61 74 20 6d 61  k things that ma
8530: 74 63 68 65 64 20 69 6e 20 74 68 65 20 70 61 72  tched in the par
8540: 65 6e 74 2e 0a 09 20 2a 2f 0a 0a 09 69 66 20 28  ent... */...if (
8550: 21 28 69 20 26 20 57 49 4c 44 43 41 52 44 29 29  !(i & WILDCARD))
8560: 20 7b 0a 09 20 20 20 20 65 6c 50 74 72 20 2b 3d   {..    elPtr +=
8570: 20 6c 65 76 65 6c 50 74 72 5b 2d 31 5d 2e 62 61   levelPtr[-1].ba
8580: 73 65 73 5b 69 5d 3b 0a 09 20 20 20 20 63 6f 75  ses[i];..    cou
8590: 6e 74 20 2d 3d 20 6c 65 76 65 6c 50 74 72 5b 2d  nt -= levelPtr[-
85a0: 31 5d 2e 62 61 73 65 73 5b 69 5d 3b 0a 09 7d 0a  1].bases[i];..}.
85b0: 09 66 6f 72 20 28 20 3b 20 63 6f 75 6e 74 20 3e  .for ( ; count >
85c0: 20 30 3b 20 65 6c 50 74 72 2b 2b 2c 20 63 6f 75   0; elPtr++, cou
85d0: 6e 74 2d 2d 29 20 7b 0a 09 20 20 20 20 69 66 20  nt--) {..    if 
85e0: 28 65 6c 50 74 72 2d 3e 6e 61 6d 65 55 69 64 20  (elPtr->nameUid 
85f0: 21 3d 20 69 64 29 20 7b 0a 09 09 63 6f 6e 74 69  != id) {...conti
8600: 6e 75 65 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20  nue;..    }..   
8610: 20 45 78 74 65 6e 64 53 74 61 63 6b 73 28 65 6c   ExtendStacks(el
8620: 50 74 72 2d 3e 63 68 69 6c 64 2e 61 72 72 61 79  Ptr->child.array
8630: 50 74 72 2c 20 6c 65 61 66 29 3b 0a 09 7d 0a 20  Ptr, leaf);..}. 
8640: 20 20 20 7d 0a 20 20 20 20 63 61 63 68 65 64 57     }.    cachedW
8650: 69 6e 64 6f 77 20 3d 20 77 69 6e 50 74 72 3b 0a  indow = winPtr;.
8660: 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  }.../*. *-------
8670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
86a0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 78  -------. *. * Ex
86b0: 74 65 6e 64 53 74 61 63 6b 73 20 2d 2d 0a 20 2a  tendStacks --. *
86c0: 0a 20 2a 09 47 69 76 65 6e 20 61 6e 20 65 6c 65  . *.Given an ele
86d0: 6d 65 6e 74 20 61 72 72 61 79 2c 20 63 6f 70 79  ment array, copy
86e0: 20 61 6c 6c 20 74 68 65 20 65 6c 65 6d 65 6e 74   all the element
86f0: 73 20 66 72 6f 6d 20 74 68 65 0a 20 2a 09 61 72  s from the. *.ar
8700: 72 61 79 20 6f 6e 74 6f 20 74 68 65 20 73 79 73  ray onto the sys
8710: 74 65 6d 20 73 74 61 63 6b 73 20 28 65 78 63 65  tem stacks (exce
8720: 70 74 20 66 6f 72 20 69 72 72 65 6c 65 76 61 6e  pt for irrelevan
8730: 74 20 6c 65 61 66 0a 20 2a 09 65 6c 65 6d 65 6e  t leaf. *.elemen
8740: 74 73 29 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c  ts).. *. * Resul
8750: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a  ts:. *.None.. *.
8760: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a   * Side effects:
8770: 0a 20 2a 09 54 68 65 20 6f 70 74 69 6f 6e 20 73  . *.The option s
8780: 74 61 63 6b 73 20 61 72 65 20 65 78 74 65 6e 64  tacks are extend
8790: 65 64 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  ed.. *. *-------
87a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
87b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
87c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
87d0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61  -------. */..sta
87e0: 74 69 63 20 76 6f 69 64 0a 45 78 74 65 6e 64 53  tic void.ExtendS
87f0: 74 61 63 6b 73 28 61 72 72 61 79 50 74 72 2c 20  tacks(arrayPtr, 
8800: 6c 65 61 66 29 0a 20 20 20 20 45 6c 41 72 72 61  leaf).    ElArra
8810: 79 20 2a 61 72 72 61 79 50 74 72 3b 09 09 2f 2a  y *arrayPtr;../*
8820: 20 41 72 72 61 79 20 6f 66 20 65 6c 65 6d 65 6e   Array of elemen
8830: 74 73 20 74 6f 20 63 6f 70 79 20 6f 6e 74 6f 20  ts to copy onto 
8840: 73 74 61 63 6b 73 2e 20 2a 2f 0a 20 20 20 20 69  stacks. */.    i
8850: 6e 74 20 6c 65 61 66 3b 09 09 09 2f 2a 20 49 66  nt leaf;.../* If
8860: 20 7a 65 72 6f 2c 20 74 68 65 6e 20 64 6f 6e 27   zero, then don'
8870: 74 20 63 6f 70 79 20 65 78 61 63 74 20 6c 65 61  t copy exact lea
8880: 66 0a 09 09 09 09 20 2a 20 65 6c 65 6d 65 6e 74  f..... * element
8890: 73 2e 20 2a 2f 0a 7b 0a 20 20 20 20 72 65 67 69  s. */.{.    regi
88a0: 73 74 65 72 20 69 6e 74 20 63 6f 75 6e 74 3b 0a  ster int count;.
88b0: 20 20 20 20 72 65 67 69 73 74 65 72 20 45 6c 65      register Ele
88c0: 6d 65 6e 74 20 2a 65 6c 50 74 72 3b 0a 0a 20 20  ment *elPtr;..  
88d0: 20 20 66 6f 72 20 28 65 6c 50 74 72 20 3d 20 61    for (elPtr = a
88e0: 72 72 61 79 50 74 72 2d 3e 65 6c 73 2c 20 63 6f  rrayPtr->els, co
88f0: 75 6e 74 20 3d 20 61 72 72 61 79 50 74 72 2d 3e  unt = arrayPtr->
8900: 6e 75 6d 55 73 65 64 3b 0a 09 20 20 20 20 63 6f  numUsed;..    co
8910: 75 6e 74 20 3e 20 30 3b 20 65 6c 50 74 72 2b 2b  unt > 0; elPtr++
8920: 2c 20 63 6f 75 6e 74 2d 2d 29 20 7b 0a 09 69 66  , count--) {..if
8930: 20 28 21 28 65 6c 50 74 72 2d 3e 66 6c 61 67 73   (!(elPtr->flags
8940: 20 26 20 28 4e 4f 44 45 7c 57 49 4c 44 43 41 52   & (NODE|WILDCAR
8950: 44 29 29 20 26 26 20 21 6c 65 61 66 29 20 7b 0a  D)) && !leaf) {.
8960: 09 20 20 20 20 63 6f 6e 74 69 6e 75 65 3b 0a 09  .    continue;..
8970: 7d 0a 09 73 74 61 63 6b 73 5b 65 6c 50 74 72 2d  }..stacks[elPtr-
8980: 3e 66 6c 61 67 73 5d 20 3d 20 45 78 74 65 6e 64  >flags] = Extend
8990: 41 72 72 61 79 28 73 74 61 63 6b 73 5b 65 6c 50  Array(stacks[elP
89a0: 74 72 2d 3e 66 6c 61 67 73 5d 2c 20 65 6c 50 74  tr->flags], elPt
89b0: 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a  r);.    }.}.../*
89c0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
89d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
89e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
89f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8a00: 2d 0a 20 2a 0a 20 2a 20 4f 70 74 69 6f 6e 49 6e  -. *. * OptionIn
8a10: 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 49 6e 69 74  it --. *. *.Init
8a20: 69 61 6c 69 7a 65 20 64 61 74 61 20 73 74 72 75  ialize data stru
8a30: 63 74 75 72 65 73 20 66 6f 72 20 6f 70 74 69 6f  ctures for optio
8a40: 6e 20 68 61 6e 64 6c 69 6e 67 2e 0a 20 2a 0a 20  n handling.. *. 
8a50: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f  * Results:. *.No
8a60: 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  ne.. *. * Side e
8a70: 66 66 65 63 74 73 3a 0a 20 2a 09 4f 70 74 69 6f  ffects:. *.Optio
8a80: 6e 2d 72 65 6c 61 74 65 64 20 64 61 74 61 20 73  n-related data s
8a90: 74 72 75 63 74 75 72 65 73 20 67 65 74 20 69 6e  tructures get in
8aa0: 69 74 69 61 6c 69 7a 65 64 2e 0a 20 2a 0a 20 2a  itialized.. *. *
8ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
8af0: 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 0a  */..static void.
8b00: 4f 70 74 69 6f 6e 49 6e 69 74 28 6d 61 69 6e 50  OptionInit(mainP
8b10: 74 72 29 0a 20 20 20 20 72 65 67 69 73 74 65 72  tr).    register
8b20: 20 54 6b 4d 61 69 6e 49 6e 66 6f 20 2a 6d 61 69   TkMainInfo *mai
8b30: 6e 50 74 72 3b 09 2f 2a 20 54 6f 70 2d 6c 65 76  nPtr;./* Top-lev
8b40: 65 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61  el information a
8b50: 62 6f 75 74 0a 09 09 09 09 09 20 2a 20 77 69 6e  bout...... * win
8b60: 64 6f 77 20 74 68 61 74 20 69 73 6e 27 74 20 69  dow that isn't i
8b70: 6e 69 74 69 61 6c 69 7a 65 64 0a 09 09 09 09 09  nitialized......
8b80: 20 2a 20 79 65 74 2e 20 2a 2f 0a 7b 0a 20 20 20   * yet. */.{.   
8b90: 20 69 6e 74 20 69 3b 0a 20 20 20 20 54 63 6c 5f   int i;.    Tcl_
8ba0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a  Interp *interp;.
8bb0: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 46  .    /*.     * F
8bc0: 69 72 73 74 2c 20 6f 6e 63 65 2d 6f 6e 6c 79 20  irst, once-only 
8bd0: 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 2e 0a  initialization..
8be0: 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20       */..    if 
8bf0: 28 6e 75 6d 4c 65 76 65 6c 73 20 3d 3d 20 30 29  (numLevels == 0)
8c00: 20 7b 0a 0a 09 6e 75 6d 4c 65 76 65 6c 73 20 3d   {...numLevels =
8c10: 20 35 3b 0a 09 6c 65 76 65 6c 73 20 3d 20 28 53   5;..levels = (S
8c20: 74 61 63 6b 4c 65 76 65 6c 20 2a 29 20 63 6b 61  tackLevel *) cka
8c30: 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 29 20  lloc((unsigned) 
8c40: 28 35 2a 73 69 7a 65 6f 66 28 53 74 61 63 6b 4c  (5*sizeof(StackL
8c50: 65 76 65 6c 29 29 29 3b 0a 09 66 6f 72 20 28 69  evel)));..for (i
8c60: 20 3d 20 30 3b 20 69 20 3c 20 4e 55 4d 5f 53 54   = 0; i < NUM_ST
8c70: 41 43 4b 53 3b 20 69 2b 2b 29 20 7b 0a 09 20 20  ACKS; i++) {..  
8c80: 20 20 73 74 61 63 6b 73 5b 69 5d 20 3d 20 4e 65    stacks[i] = Ne
8c90: 77 41 72 72 61 79 28 31 30 29 3b 0a 09 20 20 20  wArray(10);..   
8ca0: 20 6c 65 76 65 6c 73 5b 30 5d 2e 62 61 73 65 73   levels[0].bases
8cb0: 5b 69 5d 20 3d 20 30 3b 0a 09 7d 0a 20 20 20 20  [i] = 0;..}.    
8cc0: 0a 09 64 65 66 61 75 6c 74 4d 61 74 63 68 2e 6e  ..defaultMatch.n
8cd0: 61 6d 65 55 69 64 20 3d 20 4e 55 4c 4c 3b 0a 09  ameUid = NULL;..
8ce0: 64 65 66 61 75 6c 74 4d 61 74 63 68 2e 63 68 69  defaultMatch.chi
8cf0: 6c 64 2e 76 61 6c 75 65 55 69 64 20 3d 20 4e 55  ld.valueUid = NU
8d00: 4c 4c 3b 0a 09 64 65 66 61 75 6c 74 4d 61 74 63  LL;..defaultMatc
8d10: 68 2e 70 72 69 6f 72 69 74 79 20 3d 20 2d 31 3b  h.priority = -1;
8d20: 0a 09 64 65 66 61 75 6c 74 4d 61 74 63 68 2e 66  ..defaultMatch.f
8d30: 6c 61 67 73 20 3d 20 30 3b 0a 20 20 20 20 7d 0a  lags = 0;.    }.
8d40: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 54  .    /*.     * T
8d50: 68 65 6e 2c 20 70 65 72 2d 6d 61 69 6e 2d 77 69  hen, per-main-wi
8d60: 6e 64 6f 77 20 69 6e 69 74 69 61 6c 69 7a 61 74  ndow initializat
8d70: 69 6f 6e 2e 20 20 43 72 65 61 74 65 20 61 6e 64  ion.  Create and
8d80: 20 64 65 6c 65 74 65 20 64 75 6d 6d 79 0a 20 20   delete dummy.  
8d90: 20 20 20 2a 20 69 6e 74 65 72 70 72 65 74 65 72     * interpreter
8da0: 20 66 6f 72 20 6d 65 73 73 61 67 65 20 6c 6f 67   for message log
8db0: 67 69 6e 67 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20  ging..     */.. 
8dc0: 20 20 20 6d 61 69 6e 50 74 72 2d 3e 6f 70 74 69     mainPtr->opti
8dd0: 6f 6e 52 6f 6f 74 50 74 72 20 3d 20 4e 65 77 41  onRootPtr = NewA
8de0: 72 72 61 79 28 32 30 29 3b 0a 20 20 20 20 69 6e  rray(20);.    in
8df0: 74 65 72 70 20 3d 20 54 63 6c 5f 43 72 65 61 74  terp = Tcl_Creat
8e00: 65 49 6e 74 65 72 70 28 29 3b 0a 20 20 20 20 28  eInterp();.    (
8e10: 76 6f 69 64 29 20 47 65 74 44 65 66 61 75 6c 74  void) GetDefault
8e20: 4f 70 74 69 6f 6e 73 28 69 6e 74 65 72 70 2c 20  Options(interp, 
8e30: 6d 61 69 6e 50 74 72 2d 3e 77 69 6e 50 74 72 29  mainPtr->winPtr)
8e40: 3b 0a 20 20 20 20 54 63 6c 5f 44 65 6c 65 74 65  ;.    Tcl_Delete
8e50: 49 6e 74 65 72 70 28 69 6e 74 65 72 70 29 3b 0a  Interp(interp);.
8e60: 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  }.../*. *-------
8e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8ea0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 6c  -------. *. * Cl
8eb0: 65 61 72 4f 70 74 69 6f 6e 54 72 65 65 20 2d 2d  earOptionTree --
8ec0: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63  . *. *.This proc
8ed0: 65 64 75 72 65 20 69 73 20 63 61 6c 6c 65 64 20  edure is called 
8ee0: 74 6f 20 65 72 61 73 65 20 65 76 65 72 79 74 68  to erase everyth
8ef0: 69 6e 67 20 69 6e 20 61 0a 20 2a 09 68 69 65 72  ing in a. *.hier
8f00: 61 72 63 68 69 63 61 6c 20 6f 70 74 69 6f 6e 20  archical option 
8f10: 64 61 74 61 62 61 73 65 2e 0a 20 2a 0a 20 2a 20  database.. *. * 
8f20: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65  Results:. *.None
8f30: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66  .. *. * Side eff
8f40: 65 63 74 73 3a 0a 20 2a 09 41 6c 6c 20 74 68 65  ects:. *.All the
8f50: 20 6f 70 74 69 6f 6e 73 20 61 73 73 6f 63 69 61   options associa
8f60: 74 65 64 20 77 69 74 68 20 61 72 72 61 79 50 74  ted with arrayPt
8f70: 72 20 61 72 65 20 64 65 6c 65 74 65 64 2c 0a 20  r are deleted,. 
8f80: 2a 09 61 6c 6f 6e 67 20 77 69 74 68 20 61 6c 6c  *.along with all
8f90: 20 6f 70 74 69 6f 6e 20 73 75 62 74 72 65 65 73   option subtrees
8fa0: 2e 20 20 54 68 65 20 73 70 61 63 65 20 70 6f 69  .  The space poi
8fb0: 6e 74 65 64 20 74 6f 0a 20 2a 09 62 79 20 61 72  nted to. *.by ar
8fc0: 72 61 79 50 74 72 20 69 73 20 66 72 65 65 64 2e  rayPtr is freed.
8fd0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *. *----------
8fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9010: 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63  ----. */..static
9020: 20 76 6f 69 64 0a 43 6c 65 61 72 4f 70 74 69 6f   void.ClearOptio
9030: 6e 54 72 65 65 28 61 72 72 61 79 50 74 72 29 0a  nTree(arrayPtr).
9040: 20 20 20 20 45 6c 41 72 72 61 79 20 2a 61 72 72      ElArray *arr
9050: 61 79 50 74 72 3b 09 09 2f 2a 20 41 72 72 61 79  ayPtr;../* Array
9060: 20 6f 66 20 6f 70 74 69 6f 6e 73 3b 20 20 64 65   of options;  de
9070: 6c 65 74 65 20 65 76 65 72 79 74 68 69 6e 67 0a  lete everything.
9080: 09 09 09 09 20 2a 20 72 65 66 65 72 72 65 64 20  .... * referred 
9090: 74 6f 20 72 65 63 75 72 73 69 76 65 6c 79 20 62  to recursively b
90a0: 79 20 74 68 69 73 2e 20 2a 2f 0a 7b 0a 20 20 20  y this. */.{.   
90b0: 20 72 65 67 69 73 74 65 72 20 45 6c 65 6d 65 6e   register Elemen
90c0: 74 20 2a 65 6c 50 74 72 3b 0a 20 20 20 20 69 6e  t *elPtr;.    in
90d0: 74 20 63 6f 75 6e 74 3b 0a 0a 20 20 20 20 66 6f  t count;..    fo
90e0: 72 20 28 63 6f 75 6e 74 20 3d 20 61 72 72 61 79  r (count = array
90f0: 50 74 72 2d 3e 6e 75 6d 55 73 65 64 2c 20 65 6c  Ptr->numUsed, el
9100: 50 74 72 20 3d 20 61 72 72 61 79 50 74 72 2d 3e  Ptr = arrayPtr->
9110: 65 6c 73 3b 20 20 63 6f 75 6e 74 20 3e 20 30 3b  els;  count > 0;
9120: 0a 09 20 20 20 20 63 6f 75 6e 74 2d 2d 2c 20 65  ..    count--, e
9130: 6c 50 74 72 2b 2b 29 20 7b 0a 09 69 66 20 28 65  lPtr++) {..if (e
9140: 6c 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 4e 4f  lPtr->flags & NO
9150: 44 45 29 20 7b 0a 09 20 20 20 20 43 6c 65 61 72  DE) {..    Clear
9160: 4f 70 74 69 6f 6e 54 72 65 65 28 65 6c 50 74 72  OptionTree(elPtr
9170: 2d 3e 63 68 69 6c 64 2e 61 72 72 61 79 50 74 72  ->child.arrayPtr
9180: 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20  );..}.    }.    
9190: 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29 20  ckfree((char *) 
91a0: 61 72 72 61 79 50 74 72 29 3b 0a 7d 0a 0c 0a 2f  arrayPtr);.}.../
91b0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
91c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
91d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
91e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
91f0: 2d 2d 0a 20 2a 0a 20 2a 20 47 65 74 44 65 66 61  --. *. * GetDefa
9200: 75 6c 74 4f 70 74 69 6f 6e 73 20 2d 2d 0a 20 2a  ultOptions --. *
9210: 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75  . *.This procedu
9220: 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f  re is invoked to
9230: 20 6c 6f 61 64 20 74 68 65 20 64 65 66 61 75 6c   load the defaul
9240: 74 20 73 65 74 20 6f 66 20 6f 70 74 69 6f 6e 73  t set of options
9250: 0a 20 2a 09 66 6f 72 20 61 20 77 69 6e 64 6f 77  . *.for a window
9260: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a  .. *. * Results:
9270: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20  . *.None.. *. * 
9280: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a  Side effects:. *
9290: 09 4f 70 74 69 6f 6e 73 20 61 72 65 20 61 64 64  .Options are add
92a0: 65 64 20 74 6f 20 74 68 6f 73 65 20 66 6f 72 20  ed to those for 
92b0: 77 69 6e 50 74 72 27 73 20 6d 61 69 6e 20 77 69  winPtr's main wi
92c0: 6e 64 6f 77 2e 20 20 49 66 0a 20 2a 09 74 68 65  ndow.  If. *.the
92d0: 72 65 20 65 78 69 73 74 73 20 61 20 52 45 53 4f  re exists a RESO
92e0: 55 52 43 45 5f 4d 41 4e 41 47 45 52 20 70 72 6f  URCE_MANAGER pro
92f0: 70 72 65 74 79 20 66 6f 72 20 77 69 6e 50 74 72  prety for winPtr
9300: 27 73 0a 20 2a 09 64 69 73 70 6c 61 79 2c 20 74  's. *.display, t
9310: 68 61 74 20 69 73 20 75 73 65 64 2e 20 20 4f 74  hat is used.  Ot
9320: 68 65 72 77 69 73 65 2c 20 74 68 65 20 2e 63 74  herwise, the .ct
9330: 6b 64 65 66 61 75 6c 74 73 20 66 69 6c 65 20 69  kdefaults file i
9340: 6e 0a 20 2a 09 74 68 65 20 75 73 65 72 27 73 20  n. *.the user's 
9350: 68 6f 6d 65 20 64 69 72 65 63 74 6f 72 79 20 69  home directory i
9360: 73 20 75 73 65 64 2e 0a 20 2a 0a 20 2a 2d 2d 2d  s used.. *. *---
9370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
93a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a  -----------. */.
93b0: 0a 73 74 61 74 69 63 20 69 6e 74 0a 47 65 74 44  .static int.GetD
93c0: 65 66 61 75 6c 74 4f 70 74 69 6f 6e 73 28 69 6e  efaultOptions(in
93d0: 74 65 72 70 2c 20 77 69 6e 50 74 72 29 0a 20 20  terp, winPtr).  
93e0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
93f0: 74 65 72 70 3b 09 09 2f 2a 20 49 6e 74 65 72 70  terp;../* Interp
9400: 72 65 74 65 72 20 74 6f 20 75 73 65 20 66 6f 72  reter to use for
9410: 20 65 72 72 6f 72 20 72 65 70 6f 72 74 69 6e 67   error reporting
9420: 2e 20 2a 2f 0a 20 20 20 20 54 6b 57 69 6e 64 6f  . */.    TkWindo
9430: 77 20 2a 77 69 6e 50 74 72 3b 09 09 2f 2a 20 46  w *winPtr;../* F
9440: 65 74 63 68 20 6f 70 74 69 6f 6e 20 64 65 66 61  etch option defa
9450: 75 6c 74 73 20 66 6f 72 20 6d 61 69 6e 20 77 69  ults for main wi
9460: 6e 64 6f 77 0a 09 09 09 09 20 2a 20 61 73 73 6f  ndow..... * asso
9470: 63 69 61 74 65 64 20 77 69 74 68 20 74 68 69 73  ciated with this
9480: 2e 20 2a 2f 0a 7b 0a 20 20 20 20 69 6e 74 20 72  . */.{.    int r
9490: 65 73 75 6c 74 3b 0a 0a 20 20 20 20 2f 2a 0a 20  esult;..    /*. 
94a0: 20 20 20 20 2a 20 54 72 79 20 61 20 2e 63 74 6b      * Try a .ctk
94b0: 64 65 66 61 75 6c 74 73 20 66 69 6c 65 20 69 6e  defaults file in
94c0: 20 74 68 65 20 75 73 65 72 27 73 20 68 6f 6d 65   the user's home
94d0: 0a 20 20 20 20 20 2a 20 64 69 72 65 63 74 6f 72  .     * director
94e0: 79 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20  y..     */..    
94f0: 72 65 73 75 6c 74 20 3d 20 52 65 61 64 4f 70 74  result = ReadOpt
9500: 69 6f 6e 46 69 6c 65 28 69 6e 74 65 72 70 2c 20  ionFile(interp, 
9510: 28 54 6b 5f 57 69 6e 64 6f 77 29 20 77 69 6e 50  (Tk_Window) winP
9520: 74 72 2c 20 22 7e 2f 2e 63 74 6b 64 65 66 61 75  tr, "~/.ctkdefau
9530: 6c 74 73 22 2c 0a 20 20 20 20 20 20 20 20 20 20  lts",.          
9540: 20 20 54 4b 5f 55 53 45 52 5f 44 45 46 41 55 4c    TK_USER_DEFAUL
9550: 54 5f 50 52 49 4f 29 3b 0a 20 20 20 20 72 65 74  T_PRIO);.    ret
9560: 75 72 6e 20 72 65 73 75 6c 74 3b 0a 7d 0a        urn result;.}.