Hex Artifact Content

Artifact 94dffe13f710f591b67b5caee1b5b36c58d6e636:


0000: 2f 2a 0a 20 2a 20 74 6b 49 6e 74 2e 68 20 28 43  /*. * tkInt.h (C
0010: 54 6b 29 20 2d 2d 0a 20 2a 0a 20 2a 09 44 65 63  Tk) --. *. *.Dec
0020: 6c 61 72 61 74 69 6f 6e 73 20 66 6f 72 20 74 68  larations for th
0030: 69 6e 67 73 20 75 73 65 64 20 69 6e 74 65 72 6e  ings used intern
0040: 61 6c 6c 79 20 62 79 20 74 68 65 20 54 6b 0a 20  ally by the Tk. 
0050: 2a 09 70 72 6f 63 65 64 75 72 65 73 20 62 75 74  *.procedures but
0060: 20 6e 6f 74 20 65 78 70 6f 72 74 65 64 20 6f 75   not exported ou
0070: 74 73 69 64 65 20 74 68 65 20 6d 6f 64 75 6c 65  tside the module
0080: 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68  .. *. * Copyrigh
0090: 74 20 28 63 29 20 31 39 39 30 2d 31 39 39 34 20  t (c) 1990-1994 
00a0: 54 68 65 20 52 65 67 65 6e 74 73 20 6f 66 20 74  The Regents of t
00b0: 68 65 20 55 6e 69 76 65 72 73 69 74 79 20 6f 66  he University of
00c0: 20 43 61 6c 69 66 6f 72 6e 69 61 2e 0a 20 2a 20   California.. * 
00d0: 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 31 39  Copyright (c) 19
00e0: 39 34 20 53 75 6e 20 4d 69 63 72 6f 73 79 73 74  94 Sun Microsyst
00f0: 65 6d 73 2c 20 49 6e 63 2e 0a 20 2a 20 43 6f 70  ems, Inc.. * Cop
0100: 79 72 69 67 68 74 20 28 63 29 20 31 39 39 34 2d  yright (c) 1994-
0110: 31 39 39 35 20 43 6c 65 76 65 6c 61 6e 64 20 43  1995 Cleveland C
0120: 6c 69 6e 69 63 20 46 6f 75 6e 64 61 74 69 6f 6e  linic Foundation
0130: 0a 20 2a 0a 20 2a 20 53 65 65 20 74 68 65 20 66  . *. * See the f
0140: 69 6c 65 20 22 6c 69 63 65 6e 73 65 2e 74 65 72  ile "license.ter
0150: 6d 73 22 20 66 6f 72 20 69 6e 66 6f 72 6d 61 74  ms" for informat
0160: 69 6f 6e 20 6f 6e 20 75 73 61 67 65 20 61 6e 64  ion on usage and
0170: 20 72 65 64 69 73 74 72 69 62 75 74 69 6f 6e 0a   redistribution.
0180: 20 2a 20 6f 66 20 74 68 69 73 20 66 69 6c 65 2c   * of this file,
0190: 20 61 6e 64 20 66 6f 72 20 61 20 44 49 53 43 4c   and for a DISCL
01a0: 41 49 4d 45 52 20 4f 46 20 41 4c 4c 20 57 41 52  AIMER OF ALL WAR
01b0: 52 41 4e 54 49 45 53 2e 0a 20 2a 0a 20 2a 20 40  RANTIES.. *. * @
01c0: 28 23 29 20 24 48 65 61 64 65 72 3a 20 2f 75 73  (#) $Header: /us
01d0: 72 73 2f 61 6e 64 72 65 77 6d 2f 77 6f 72 6b 2f  rs/andrewm/work/
01e0: 52 43 53 2f 63 74 6b 2e 73 68 61 72 2c 76 20 31  RCS/ctk.shar,v 1
01f0: 2e 35 30 20 31 39 39 36 2f 30 31 2f 31 35 20 31  .50 1996/01/15 1
0200: 34 3a 34 37 3a 31 36 20 61 6e 64 72 65 77 6d 20  4:47:16 andrewm 
0210: 45 78 70 20 61 6e 64 72 65 77 6d 20 24 0a 20 2a  Exp andrewm $. *
0220: 2f 0a 0a 23 69 66 6e 64 65 66 20 5f 54 4b 49 4e  /..#ifndef _TKIN
0230: 54 0a 23 64 65 66 69 6e 65 20 5f 54 4b 49 4e 54  T.#define _TKINT
0240: 0a 0a 23 69 66 6e 64 65 66 20 5f 54 4b 0a 23 69  ..#ifndef _TK.#i
0250: 6e 63 6c 75 64 65 20 22 74 6b 2e 68 22 0a 23 65  nclude "tk.h".#e
0260: 6e 64 69 66 0a 23 69 6e 63 6c 75 64 65 20 3c 74  ndif.#include <t
0270: 63 6c 2e 68 3e 0a 0a 2f 2a 0a 20 2a 20 4f 6e 65  cl.h>../*. * One
0280: 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e   of the followin
0290: 67 20 73 74 72 75 63 74 75 72 65 73 20 69 73 20  g structures is 
02a0: 6d 61 69 6e 74 61 69 6e 65 64 20 66 6f 72 20 65  maintained for e
02b0: 61 63 68 20 64 69 73 70 6c 61 79 0a 20 2a 20 63  ach display. * c
02c0: 6f 6e 74 61 69 6e 69 6e 67 20 61 20 77 69 6e 64  ontaining a wind
02d0: 6f 77 20 6d 61 6e 61 67 65 64 20 62 79 20 54 6b  ow managed by Tk
02e0: 3a 0a 20 2a 2f 0a 0a 73 74 72 75 63 74 20 54 6b  :. */..struct Tk
02f0: 44 69 73 70 6c 61 79 20 7b 0a 20 20 20 20 2f 2a  Display {.    /*
0300: 0a 20 20 20 20 20 2a 20 4d 61 69 6e 74 61 69 6e  .     * Maintain
0310: 65 64 20 62 79 20 63 74 6b 44 69 73 70 6c 61 79  ed by ctkDisplay
0320: 2e 63 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 63  .c.     */.    c
0330: 68 61 72 20 2a 6e 61 6d 65 3b 09 09 09 2f 2a 20  har *name;.../* 
0340: 4e 61 6d 65 20 6f 66 20 64 69 73 70 6c 61 79 20  Name of display 
0350: 64 65 76 69 63 65 2e 20 4d 61 6c 6c 6f 63 2d 65  device. Malloc-e
0360: 64 2e 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a  d. */.    char *
0370: 74 79 70 65 3b 09 09 09 2f 2a 20 44 65 76 69 63  type;.../* Devic
0380: 65 20 74 79 70 65 2e 20 4d 61 6c 6c 6f 63 2d 65  e type. Malloc-e
0390: 64 2e 20 2a 2f 0a 20 20 20 20 43 6c 69 65 6e 74  d. */.    Client
03a0: 44 61 74 61 20 64 69 73 70 6c 61 79 3b 09 09 2f  Data display;../
03b0: 2a 20 43 75 72 73 65 73 27 73 20 69 6e 66 6f 20  * Curses's info 
03c0: 61 62 6f 75 74 20 64 69 73 70 6c 61 79 2e 20 2a  about display. *
03d0: 2f 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65  /.    Tcl_Channe
03e0: 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 49 6e 70 75  l chan;../* Inpu
03f0: 74 20 63 68 61 6e 6e 65 6c 20 66 6f 72 20 74 68  t channel for th
0400: 65 20 64 65 76 69 63 65 20 2a 2f 0a 20 20 20 20  e device */.    
0410: 69 6e 74 20 66 64 3b 09 09 09 2f 2a 20 49 6e 70  int fd;.../* Inp
0420: 75 74 20 66 69 6c 65 20 64 65 73 63 72 69 70 74  ut file descript
0430: 6f 72 20 66 6f 72 20 64 65 76 69 63 65 2e 20 2a  or for device. *
0440: 2f 0a 20 20 20 20 46 49 4c 45 20 2a 69 6e 50 74  /.    FILE *inPt
0450: 72 3b 09 09 2f 2a 20 49 6e 70 75 74 20 66 69 6c  r;../* Input fil
0460: 65 20 70 6f 69 6e 74 65 72 20 66 6f 72 20 64 65  e pointer for de
0470: 76 69 63 65 2e 20 2a 2f 0a 20 20 20 20 54 6b 57  vice. */.    TkW
0480: 69 6e 64 6f 77 20 2a 63 75 72 73 6f 72 50 74 72  indow *cursorPtr
0490: 3b 09 2f 2a 20 57 69 6e 64 6f 77 20 74 6f 20 64  ;./* Window to d
04a0: 69 73 70 6c 61 79 20 63 75 72 73 6f 72 20 69 6e  isplay cursor in
04b0: 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 63 75 72  . */.    int cur
04c0: 73 6f 72 58 2c 20 63 75 72 73 6f 72 59 3b 09 2f  sorX, cursorY;./
04d0: 2a 20 50 6f 73 69 74 69 6f 6e 20 69 6e 20 60 63  * Position in `c
04e0: 75 72 73 57 69 6e 50 74 72 27 20 74 6f 20 64 69  ursWinPtr' to di
04f0: 73 70 6c 61 79 0a 09 09 09 09 20 2a 20 63 75 72  splay..... * cur
0500: 73 6f 72 2e 20 2a 2f 0a 0a 20 20 20 20 2f 2a 0a  sor. */..    /*.
0510: 20 20 20 20 20 2a 20 4d 61 69 6e 74 61 69 6e 65       * Maintaine
0520: 64 20 62 79 20 74 6b 57 69 6e 64 6f 77 2e 63 0a  d by tkWindow.c.
0530: 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 6e 74 20       */.    int 
0540: 6e 75 6d 57 69 6e 64 6f 77 73 3b 09 09 2f 2a 20  numWindows;../* 
0550: 57 69 6e 64 6f 77 73 20 63 75 72 72 65 6e 74 6c  Windows currentl
0560: 79 20 65 78 69 73 74 69 6e 67 20 69 6e 20 64 69  y existing in di
0570: 73 70 6c 61 79 0a 20 20 20 20 09 09 09 09 20 2a  splay.    .... *
0580: 20 28 69 6e 63 6c 75 64 69 6e 67 20 72 6f 6f 74   (including root
0590: 29 2e 20 2a 2f 0a 20 20 20 20 54 6b 57 69 6e 64  ). */.    TkWind
05a0: 6f 77 20 2a 72 6f 6f 74 50 74 72 3b 09 09 2f 2a  ow *rootPtr;../*
05b0: 20 52 6f 6f 74 20 77 69 6e 64 6f 77 20 6f 66 20   Root window of 
05c0: 64 69 73 70 6c 61 79 2e 20 2a 2f 0a 20 20 20 20  display. */.    
05d0: 54 6b 57 69 6e 64 6f 77 20 2a 66 6f 63 75 73 50  TkWindow *focusP
05e0: 74 72 3b 09 09 2f 2a 20 57 69 6e 64 6f 77 20 74  tr;../* Window t
05f0: 68 61 74 20 68 61 73 20 74 68 65 20 6b 65 79 62  hat has the keyb
0600: 6f 61 72 64 20 66 6f 63 75 73 2e 20 2a 2f 0a 20  oard focus. */. 
0610: 20 20 20 73 74 72 75 63 74 20 54 6b 44 69 73 70     struct TkDisp
0620: 6c 61 79 20 2a 6e 65 78 74 50 74 72 3b 09 2f 2a  lay *nextPtr;./*
0630: 20 4e 65 78 74 20 69 6e 20 6c 69 73 74 20 6f 66   Next in list of
0640: 20 61 6c 6c 20 64 69 73 70 6c 61 79 73 2e 20 2a   all displays. *
0650: 2f 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 20 4f 6e 65 20  /.};../*. * One 
0660: 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67  of the following
0670: 20 73 74 72 75 63 74 75 72 65 73 20 65 78 69 73   structures exis
0680: 74 73 20 66 6f 72 20 65 61 63 68 20 65 76 65 6e  ts for each even
0690: 74 20 68 61 6e 64 6c 65 72 0a 20 2a 20 63 72 65  t handler. * cre
06a0: 61 74 65 64 20 62 79 20 63 61 6c 6c 69 6e 67 20  ated by calling 
06b0: 54 6b 5f 43 72 65 61 74 65 45 76 65 6e 74 48 61  Tk_CreateEventHa
06c0: 6e 64 6c 65 72 2e 20 20 54 68 69 73 20 69 6e 66  ndler.  This inf
06d0: 6f 72 6d 61 74 69 6f 6e 0a 20 2a 20 69 73 20 75  ormation. * is u
06e0: 73 65 64 20 62 79 20 74 6b 45 76 65 6e 74 2e 63  sed by tkEvent.c
06f0: 20 6f 6e 6c 79 2e 0a 20 2a 2f 0a 0a 73 74 72 75   only.. */..stru
0700: 63 74 20 54 6b 45 76 65 6e 74 48 61 6e 64 6c 65  ct TkEventHandle
0710: 72 20 7b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64  r {.    unsigned
0720: 20 6c 6f 6e 67 20 6d 61 73 6b 3b 09 09 2f 2a 20   long mask;../* 
0730: 45 76 65 6e 74 73 20 66 6f 72 20 77 68 69 63 68  Events for which
0740: 20 74 6f 20 69 6e 76 6f 6b 65 0a 09 09 09 09 20   to invoke..... 
0750: 2a 20 70 72 6f 63 2e 20 2a 2f 0a 20 20 20 20 54  * proc. */.    T
0760: 6b 5f 45 76 65 6e 74 50 72 6f 63 20 2a 70 72 6f  k_EventProc *pro
0770: 63 3b 09 09 2f 2a 20 50 72 6f 63 65 64 75 72 65  c;../* Procedure
0780: 20 74 6f 20 69 6e 76 6f 6b 65 20 77 68 65 6e 20   to invoke when 
0790: 61 6e 20 65 76 65 6e 74 0a 09 09 09 09 20 2a 20  an event..... * 
07a0: 69 6e 20 6d 61 73 6b 20 6f 63 63 75 72 73 2e 20  in mask occurs. 
07b0: 2a 2f 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74  */.    ClientDat
07c0: 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a  a clientData;./*
07d0: 20 41 72 67 75 6d 65 6e 74 20 74 6f 20 70 61 73   Argument to pas
07e0: 73 20 74 6f 20 70 72 6f 63 2e 20 2a 2f 0a 20 20  s to proc. */.  
07f0: 20 20 73 74 72 75 63 74 20 54 6b 45 76 65 6e 74    struct TkEvent
0800: 48 61 6e 64 6c 65 72 20 2a 6e 65 78 74 50 74 72  Handler *nextPtr
0810: 3b 0a 09 09 09 09 2f 2a 20 4e 65 78 74 20 69 6e  ;...../* Next in
0820: 20 6c 69 73 74 20 6f 66 20 68 61 6e 64 6c 65 72   list of handler
0830: 73 0a 09 09 09 09 20 2a 20 61 73 73 6f 63 69 61  s..... * associa
0840: 74 65 64 20 77 69 74 68 20 77 69 6e 64 6f 77 20  ted with window 
0850: 28 4e 55 4c 4c 20 6d 65 61 6e 73 0a 09 09 09 09  (NULL means.....
0860: 20 2a 20 65 6e 64 20 6f 66 20 6c 69 73 74 29 2e   * end of list).
0870: 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 20 54 6b   */.};../*. * Tk
0880: 20 6b 65 65 70 73 20 6f 6e 65 20 6f 66 20 74 68   keeps one of th
0890: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 64 61 74 61  e following data
08a0: 20 73 74 72 75 63 74 75 72 65 73 20 66 6f 72 20   structures for 
08b0: 65 61 63 68 20 6d 61 69 6e 0a 20 2a 20 77 69 6e  each main. * win
08c0: 64 6f 77 20 28 63 72 65 61 74 65 64 20 62 79 20  dow (created by 
08d0: 61 20 63 61 6c 6c 20 74 6f 20 54 6b 5f 43 72 65  a call to Tk_Cre
08e0: 61 74 65 4d 61 69 6e 57 69 6e 64 6f 77 29 2e 20  ateMainWindow). 
08f0: 20 49 74 20 73 74 6f 72 65 73 0a 20 2a 20 69 6e   It stores. * in
0900: 66 6f 72 6d 61 74 69 6f 6e 20 74 68 61 74 20 69  formation that i
0910: 73 20 73 68 61 72 65 64 20 62 79 20 61 6c 6c 20  s shared by all 
0920: 6f 66 20 74 68 65 20 77 69 6e 64 6f 77 73 20 61  of the windows a
0930: 73 73 6f 63 69 61 74 65 64 0a 20 2a 20 77 69 74  ssociated. * wit
0940: 68 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 6d  h a particular m
0950: 61 69 6e 20 77 69 6e 64 6f 77 2e 0a 20 2a 2f 0a  ain window.. */.
0960: 0a 73 74 72 75 63 74 20 54 6b 4d 61 69 6e 49 6e  .struct TkMainIn
0970: 66 6f 20 7b 0a 20 20 20 20 69 6e 74 20 72 65 66  fo {.    int ref
0980: 43 6f 75 6e 74 3b 09 09 2f 2a 20 4e 75 6d 62 65  Count;../* Numbe
0990: 72 20 6f 66 20 77 69 6e 64 6f 77 73 20 77 68 6f  r of windows who
09a0: 73 65 20 22 6d 61 69 6e 50 74 72 22 20 66 69 65  se "mainPtr" fie
09b0: 6c 64 73 0a 09 09 09 09 20 2a 20 70 6f 69 6e 74  lds..... * point
09c0: 20 68 65 72 65 2e 20 20 57 68 65 6e 20 74 68 69   here.  When thi
09d0: 73 20 62 65 63 6f 6d 65 73 20 7a 65 72 6f 2c 20  s becomes zero, 
09e0: 63 61 6e 0a 09 09 09 09 20 2a 20 66 72 65 65 20  can..... * free 
09f0: 75 70 20 74 68 65 20 73 74 72 75 63 74 75 72 65  up the structure
0a00: 20 28 74 68 65 20 72 65 66 65 72 65 6e 63 65 0a   (the reference.
0a10: 09 09 09 09 20 2a 20 63 6f 75 6e 74 20 69 73 20  .... * count is 
0a20: 7a 65 72 6f 20 62 65 63 61 75 73 65 20 77 69 6e  zero because win
0a30: 64 6f 77 73 20 63 61 6e 20 67 65 74 0a 09 09 09  dows can get....
0a40: 09 20 2a 20 64 65 6c 65 74 65 64 20 69 6e 20 61  . * deleted in a
0a50: 6c 6d 6f 73 74 20 61 6e 79 20 6f 72 64 65 72 3b  lmost any order;
0a60: 20 20 74 68 65 20 6d 61 69 6e 0a 09 09 09 09 20    the main..... 
0a70: 2a 20 77 69 6e 64 6f 77 20 69 73 6e 27 74 20 6e  * window isn't n
0a80: 65 63 65 73 73 61 72 69 6c 79 20 74 68 65 20 6c  ecessarily the l
0a90: 61 73 74 20 6f 6e 65 0a 09 09 09 09 20 2a 20 64  ast one..... * d
0aa0: 65 6c 65 74 65 64 29 2e 20 2a 2f 0a 20 20 20 20  eleted). */.    
0ab0: 73 74 72 75 63 74 20 54 6b 57 69 6e 64 6f 77 20  struct TkWindow 
0ac0: 2a 77 69 6e 50 74 72 3b 09 2f 2a 20 50 6f 69 6e  *winPtr;./* Poin
0ad0: 74 65 72 20 74 6f 20 6d 61 69 6e 20 77 69 6e 64  ter to main wind
0ae0: 6f 77 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49  ow. */.    Tcl_I
0af0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 09  nterp *interp;..
0b00: 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 72 20 61  /* Interpreter a
0b10: 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 61  ssociated with a
0b20: 70 70 6c 69 63 61 74 69 6f 6e 2e 20 2a 2f 0a 20  pplication. */. 
0b30: 20 20 20 54 63 6c 5f 48 61 73 68 54 61 62 6c 65     Tcl_HashTable
0b40: 20 6e 61 6d 65 54 61 62 6c 65 3b 09 2f 2a 20 48   nameTable;./* H
0b50: 61 73 68 20 74 61 62 6c 65 20 6d 61 70 70 69 6e  ash table mappin
0b60: 67 20 70 61 74 68 20 6e 61 6d 65 73 20 74 6f 20  g path names to 
0b70: 54 6b 57 69 6e 64 6f 77 0a 09 09 09 09 20 2a 20  TkWindow..... * 
0b80: 73 74 72 75 63 74 73 20 66 6f 72 20 61 6c 6c 20  structs for all 
0b90: 77 69 6e 64 6f 77 73 20 72 65 6c 61 74 65 64 20  windows related 
0ba0: 74 6f 20 74 68 69 73 0a 09 09 09 09 20 2a 20 6d  to this..... * m
0bb0: 61 69 6e 20 77 69 6e 64 6f 77 2e 20 20 4d 61 6e  ain window.  Man
0bc0: 61 67 65 64 20 62 79 20 74 6b 57 69 6e 64 6f 77  aged by tkWindow
0bd0: 2e 63 2e 20 2a 2f 0a 20 20 20 20 54 6b 5f 42 69  .c. */.    Tk_Bi
0be0: 6e 64 69 6e 67 54 61 62 6c 65 20 62 69 6e 64 69  ndingTable bindi
0bf0: 6e 67 54 61 62 6c 65 3b 0a 09 09 09 09 2f 2a 20  ngTable;...../* 
0c00: 55 73 65 64 20 69 6e 20 63 6f 6e 6a 75 6e 63 74  Used in conjunct
0c10: 69 6f 6e 20 77 69 74 68 20 22 62 69 6e 64 22 20  ion with "bind" 
0c20: 63 6f 6d 6d 61 6e 64 0a 09 09 09 09 20 2a 20 74  command..... * t
0c30: 6f 20 62 69 6e 64 20 65 76 65 6e 74 73 20 74 6f  o bind events to
0c40: 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 73 2e 20 2a   Tcl commands. *
0c50: 2f 0a 20 20 20 20 54 6b 44 69 73 70 6c 61 79 20  /.    TkDisplay 
0c60: 2a 63 75 72 44 69 73 70 50 74 72 3b 09 2f 2a 20  *curDispPtr;./* 
0c70: 44 69 73 70 6c 61 79 20 66 6f 72 20 6c 61 73 74  Display for last
0c80: 20 62 69 6e 64 69 6e 67 20 63 6f 6d 6d 61 6e 64   binding command
0c90: 20 69 6e 76 6f 6b 65 64 0a 09 09 09 09 20 2a 20   invoked..... * 
0ca0: 69 6e 20 74 68 69 73 20 61 70 70 6c 69 63 61 74  in this applicat
0cb0: 69 6f 6e 3b 20 20 75 73 65 64 20 6f 6e 6c 79 20  ion;  used only 
0cc0: 20 62 79 0a 09 09 09 09 20 2a 20 74 6b 42 69 6e   by..... * tkBin
0cd0: 64 2e 63 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20  d.c. */.    int 
0ce0: 62 69 6e 64 69 6e 67 44 65 70 74 68 3b 09 09 2f  bindingDepth;../
0cf0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 63 74 69  * Number of acti
0d00: 76 65 20 69 6e 73 74 61 6e 63 65 73 20 6f 66 20  ve instances of 
0d10: 54 6b 5f 42 69 6e 64 45 76 65 6e 74 0a 09 09 09  Tk_BindEvent....
0d20: 09 20 2a 20 69 6e 20 74 68 69 73 20 61 70 70 6c  . * in this appl
0d30: 69 63 61 74 69 6f 6e 2e 20 20 55 73 65 64 20 6f  ication.  Used o
0d40: 6e 6c 79 20 62 79 0a 09 09 09 09 20 2a 20 74 6b  nly by..... * tk
0d50: 42 69 6e 64 2e 63 2e 20 2a 2f 0a 20 20 20 20 73  Bind.c. */.    s
0d60: 74 72 75 63 74 20 45 6c 41 72 72 61 79 20 2a 6f  truct ElArray *o
0d70: 70 74 69 6f 6e 52 6f 6f 74 50 74 72 3b 0a 09 09  ptionRootPtr;...
0d80: 09 09 2f 2a 20 54 6f 70 20 6c 65 76 65 6c 20 6f  ../* Top level o
0d90: 66 20 6f 70 74 69 6f 6e 20 68 69 65 72 61 72 63  f option hierarc
0da0: 68 79 20 66 6f 72 20 74 68 69 73 0a 09 09 09 09  hy for this.....
0db0: 20 2a 20 6d 61 69 6e 20 77 69 6e 64 6f 77 2e 20   * main window. 
0dc0: 20 4e 55 4c 4c 20 6d 65 61 6e 73 20 75 6e 69 6e   NULL means unin
0dd0: 69 74 69 61 6c 69 7a 65 64 2e 0a 09 09 09 09 20  itialized...... 
0de0: 2a 20 4d 61 6e 61 67 65 64 20 62 79 20 74 6b 4f  * Managed by tkO
0df0: 70 74 69 6f 6e 2e 63 2e 20 2a 2f 0a 20 20 20 20  ption.c. */.    
0e00: 73 74 72 75 63 74 20 54 6b 4d 61 69 6e 49 6e 66  struct TkMainInf
0e10: 6f 20 2a 6e 65 78 74 50 74 72 3b 09 2f 2a 20 4e  o *nextPtr;./* N
0e20: 65 78 74 20 69 6e 20 6c 69 73 74 20 6f 66 20 61  ext in list of a
0e30: 6c 6c 20 6d 61 69 6e 20 77 69 6e 64 6f 77 73 20  ll main windows 
0e40: 6d 61 6e 61 67 65 64 20 62 79 0a 09 09 09 09 20  managed by..... 
0e50: 2a 20 74 68 69 73 20 70 72 6f 63 65 73 73 2e 20  * this process. 
0e60: 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 20 50 6f 69  */.};../*. * Poi
0e70: 6e 74 65 72 20 74 6f 20 66 69 72 73 74 20 65 6e  nter to first en
0e80: 74 72 79 20 69 6e 20 6c 69 73 74 20 6f 66 20 61  try in list of a
0e90: 6c 6c 20 64 69 73 70 6c 61 79 73 20 63 75 72 72  ll displays curr
0ea0: 65 6e 74 6c 79 20 6b 6e 6f 77 6e 2e 0a 20 2a 2f  ently known.. */
0eb0: 0a 0a 65 78 74 65 72 6e 20 54 6b 44 69 73 70 6c  ..extern TkDispl
0ec0: 61 79 20 2a 74 6b 44 69 73 70 6c 61 79 4c 69 73  ay *tkDisplayLis
0ed0: 74 3b 0a 0a 2f 2a 0a 20 2a 20 46 6c 61 67 73 20  t;../*. * Flags 
0ee0: 70 61 73 73 65 64 20 74 6f 20 54 6b 4d 65 61 73  passed to TkMeas
0ef0: 75 72 65 43 68 61 72 73 3a 0a 20 2a 2f 0a 0a 23  ureChars:. */..#
0f00: 64 65 66 69 6e 65 20 54 4b 5f 57 48 4f 4c 45 5f  define TK_WHOLE_
0f10: 57 4f 52 44 53 09 09 20 31 0a 23 64 65 66 69 6e  WORDS.. 1.#defin
0f20: 65 20 54 4b 5f 41 54 5f 4c 45 41 53 54 5f 4f 4e  e TK_AT_LEAST_ON
0f30: 45 09 09 20 32 0a 23 64 65 66 69 6e 65 20 54 4b  E.. 2.#define TK
0f40: 5f 50 41 52 54 49 41 4c 5f 4f 4b 09 09 20 34 0a  _PARTIAL_OK.. 4.
0f50: 23 64 65 66 69 6e 65 20 54 4b 5f 4e 45 57 4c 49  #define TK_NEWLI
0f60: 4e 45 53 5f 4e 4f 54 5f 53 50 45 43 49 41 4c 09  NES_NOT_SPECIAL.
0f70: 20 38 0a 23 64 65 66 69 6e 65 20 54 4b 5f 49 47   8.#define TK_IG
0f80: 4e 4f 52 45 5f 54 41 42 53 09 09 31 36 0a 0a 2f  NORE_TABS..16../
0f90: 2a 0a 20 2a 20 4c 6f 63 61 74 69 6f 6e 20 6f 66  *. * Location of
0fa0: 20 6c 69 62 72 61 72 79 20 64 69 72 65 63 74 6f   library directo
0fb0: 72 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 54 6b  ry containing Tk
0fc0: 20 73 63 72 69 70 74 73 2e 20 20 54 68 69 73 20   scripts.  This 
0fd0: 76 61 6c 75 65 0a 20 2a 20 69 73 20 70 75 74 20  value. * is put 
0fe0: 69 6e 20 74 68 65 20 24 74 6b 4c 69 62 72 61 72  in the $tkLibrar
0ff0: 79 20 76 61 72 69 61 62 6c 65 20 66 6f 72 20 65  y variable for e
1000: 61 63 68 20 61 70 70 6c 69 63 61 74 69 6f 6e 2e  ach application.
1010: 0a 20 2a 2f 0a 0a 23 69 66 6e 64 65 66 20 43 54  . */..#ifndef CT
1020: 4b 5f 4c 49 42 52 41 52 59 0a 23 64 65 66 69 6e  K_LIBRARY.#defin
1030: 65 20 43 54 4b 5f 4c 49 42 52 41 52 59 20 22 2f  e CTK_LIBRARY "/
1040: 75 73 72 2f 6c 6f 63 61 6c 2f 6c 69 62 2f 63 74  usr/local/lib/ct
1050: 6b 22 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a  k".#endif../*. *
1060: 20 53 70 65 63 69 61 6c 20 66 6c 61 67 20 74 6f   Special flag to
1070: 20 70 61 73 73 20 74 6f 20 54 6b 5f 43 72 65 61   pass to Tk_Crea
1080: 74 65 46 69 6c 65 48 61 6e 64 6c 65 72 20 74 6f  teFileHandler to
1090: 20 69 6e 64 69 63 61 74 65 20 74 68 61 74 0a 20   indicate that. 
10a0: 2a 20 74 68 65 20 66 69 6c 65 20 64 65 73 63 72  * the file descr
10b0: 69 70 74 6f 72 20 69 73 20 61 63 74 75 61 6c 6c  iptor is actuall
10c0: 79 20 66 6f 72 20 61 20 64 69 73 70 6c 61 79 2c  y for a display,
10d0: 20 6e 6f 74 20 61 20 66 69 6c 65 2c 20 61 6e 64   not a file, and
10e0: 0a 20 2a 20 73 68 6f 75 6c 64 20 62 65 20 74 72  . * should be tr
10f0: 65 61 74 65 64 20 73 70 65 63 69 61 6c 6c 79 2e  eated specially.
1100: 20 20 4d 61 6b 65 20 73 75 72 65 20 74 68 61 74    Make sure that
1110: 20 74 68 69 73 20 76 61 6c 75 65 20 64 6f 65 73   this value does
1120: 6e 27 74 0a 20 2a 20 63 6f 6e 66 6c 69 63 74 20  n't. * conflict 
1130: 77 69 74 68 20 54 4b 5f 52 45 41 44 41 42 4c 45  with TK_READABLE
1140: 2c 20 54 4b 5f 57 52 49 54 41 42 4c 45 2c 20 6f  , TK_WRITABLE, o
1150: 72 20 54 4b 5f 45 58 43 45 50 54 49 4f 4e 20 66  r TK_EXCEPTION f
1160: 72 6f 6d 20 74 6b 2e 68 2e 0a 20 2a 2f 0a 0a 23  rom tk.h.. */..#
1170: 64 65 66 69 6e 65 20 54 4b 5f 49 53 5f 44 49 53  define TK_IS_DIS
1180: 50 4c 41 59 09 33 32 0a 0a 2f 2a 0a 20 2a 20 54  PLAY.32../*. * T
1190: 68 65 20 6d 61 63 72 6f 20 62 65 6c 6f 77 20 69  he macro below i
11a0: 73 20 75 73 65 64 20 74 6f 20 6d 6f 64 69 66 79  s used to modify
11b0: 20 61 20 22 63 68 61 72 22 20 76 61 6c 75 65 20   a "char" value 
11c0: 28 65 2e 67 2e 20 62 79 20 63 61 73 74 69 6e 67  (e.g. by casting
11d0: 0a 20 2a 20 69 74 20 74 6f 20 61 6e 20 75 6e 73  . * it to an uns
11e0: 69 67 6e 65 64 20 63 68 61 72 61 63 74 65 72 29  igned character)
11f0: 20 73 6f 20 74 68 61 74 20 69 74 20 63 61 6e 20   so that it can 
1200: 62 65 20 75 73 65 64 20 73 61 66 65 6c 79 20 77  be used safely w
1210: 69 74 68 0a 20 2a 20 6d 61 63 72 6f 73 20 73 75  ith. * macros su
1220: 63 68 20 61 73 20 69 73 73 70 61 63 65 2e 0a 20  ch as isspace.. 
1230: 2a 2f 0a 0a 23 64 65 66 69 6e 65 20 55 43 48 41  */..#define UCHA
1240: 52 28 63 29 20 28 28 75 6e 73 69 67 6e 65 64 20  R(c) ((unsigned 
1250: 63 68 61 72 29 20 28 63 29 29 0a 0a 2f 2a 0a 20  char) (c))../*. 
1260: 2a 20 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20  * Miscellaneous 
1270: 76 61 72 69 61 62 6c 65 73 20 73 68 61 72 65 64  variables shared
1280: 20 61 6d 6f 6e 67 20 54 6b 20 6d 6f 64 75 6c 65   among Tk module
1290: 73 20 62 75 74 20 6e 6f 74 20 65 78 70 6f 72 74  s but not export
12a0: 65 64 0a 20 2a 20 74 6f 20 74 68 65 20 6f 75 74  ed. * to the out
12b0: 73 69 64 65 20 77 6f 72 6c 64 3a 0a 20 2a 2f 0a  side world:. */.
12c0: 0a 65 78 74 65 72 6e 20 54 6b 5f 55 69 64 09 09  .extern Tk_Uid..
12d0: 09 74 6b 41 63 74 69 76 65 55 69 64 3b 0a 65 78  .tkActiveUid;.ex
12e0: 74 65 72 6e 20 76 6f 69 64 09 09 09 28 2a 74 6b  tern void...(*tk
12f0: 44 65 6c 61 79 65 64 45 76 65 6e 74 50 72 6f 63  DelayedEventProc
1300: 29 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 76  ) _ANSI_ARGS_((v
1310: 6f 69 64 29 29 3b 0a 65 78 74 65 72 6e 20 54 6b  oid));.extern Tk
1320: 5f 55 69 64 09 09 09 74 6b 44 69 73 61 62 6c 65  _Uid...tkDisable
1330: 64 55 69 64 3b 0a 65 78 74 65 72 6e 20 54 6b 4d  dUid;.extern TkM
1340: 61 69 6e 49 6e 66 6f 09 09 2a 74 6b 4d 61 69 6e  ainInfo..*tkMain
1350: 57 69 6e 64 6f 77 4c 69 73 74 3b 0a 65 78 74 65  WindowList;.exte
1360: 72 6e 20 54 6b 5f 55 69 64 09 09 09 74 6b 4e 6f  rn Tk_Uid...tkNo
1370: 72 6d 61 6c 55 69 64 3b 0a 0a 2f 2a 0a 20 2a 20  rmalUid;../*. * 
1380: 49 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 64 75  Internal procedu
1390: 72 65 73 20 73 68 61 72 65 64 20 61 6d 6f 6e 67  res shared among
13a0: 20 54 6b 20 6d 6f 64 75 6c 65 73 20 62 75 74 20   Tk modules but 
13b0: 6e 6f 74 20 65 78 70 6f 72 74 65 64 0a 20 2a 20  not exported. * 
13c0: 74 6f 20 74 68 65 20 6f 75 74 73 69 64 65 20 77  to the outside w
13d0: 6f 72 6c 64 3a 0a 20 2a 2f 0a 0a 65 78 74 65 72  orld:. */..exter
13e0: 6e 20 76 6f 69 64 09 09 54 6b 42 69 6e 64 45 76  n void..TkBindEv
13f0: 65 6e 74 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52  entProc _ANSI_AR
1400: 47 53 5f 28 28 54 6b 57 69 6e 64 6f 77 20 2a 77  GS_((TkWindow *w
1410: 69 6e 50 74 72 2c 0a 09 09 09 20 20 20 20 58 45  inPtr,....    XE
1420: 76 65 6e 74 20 2a 65 76 65 6e 74 50 74 72 29 29  vent *eventPtr))
1430: 3b 0a 65 78 74 65 72 6e 20 76 6f 69 64 09 09 54  ;.extern void..T
1440: 6b 43 6f 6d 70 75 74 65 54 65 78 74 47 65 6f 6d  kComputeTextGeom
1450: 65 74 72 79 20 5f 41 4e 53 49 5f 41 52 47 53 5f  etry _ANSI_ARGS_
1460: 28 28 0a 09 09 09 20 20 20 20 63 68 61 72 20 2a  ((....    char *
1470: 73 74 72 69 6e 67 2c 0a 09 09 09 20 20 20 20 69  string,....    i
1480: 6e 74 20 6e 75 6d 43 68 61 72 73 2c 20 69 6e 74  nt numChars, int
1490: 20 77 72 61 70 4c 65 6e 67 74 68 2c 20 69 6e 74   wrapLength, int
14a0: 20 2a 77 69 64 74 68 50 74 72 2c 0a 09 09 09 20   *widthPtr,.... 
14b0: 20 20 20 69 6e 74 20 2a 68 65 69 67 68 74 50 74     int *heightPt
14c0: 72 29 29 3b 0a 65 78 74 65 72 6e 20 69 6e 74 09  r));.extern int.
14d0: 09 54 6b 43 6f 70 79 41 6e 64 47 6c 6f 62 61 6c  .TkCopyAndGlobal
14e0: 45 76 61 6c 20 5f 41 4e 53 49 5f 41 52 47 53 5f  Eval _ANSI_ARGS_
14f0: 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  ((Tcl_Interp *in
1500: 74 65 72 70 2c 0a 09 09 09 20 20 20 20 63 68 61  terp,....    cha
1510: 72 20 2a 73 63 72 69 70 74 29 29 3b 0a 65 78 74  r *script));.ext
1520: 65 72 6e 20 54 69 6d 65 09 09 54 6b 43 75 72 72  ern Time..TkCurr
1530: 65 6e 74 54 69 6d 65 20 5f 41 4e 53 49 5f 41 52  entTime _ANSI_AR
1540: 47 53 5f 28 28 76 6f 69 64 29 29 3b 0a 65 78 74  GS_((void));.ext
1550: 65 72 6e 20 69 6e 74 09 09 54 6b 44 65 61 64 41  ern int..TkDeadA
1560: 70 70 43 6d 64 20 5f 41 4e 53 49 5f 41 52 47 53  ppCmd _ANSI_ARGS
1570: 5f 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c  _((ClientData cl
1580: 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 20 20 20  ientData,....   
1590: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74   Tcl_Interp *int
15a0: 65 72 70 2c 20 69 6e 74 20 61 72 67 63 2c 20 63  erp, int argc, c
15b0: 68 61 72 20 2a 2a 61 72 67 76 29 29 3b 0a 65 78  har **argv));.ex
15c0: 74 65 72 6e 20 76 6f 69 64 09 09 54 6b 44 69 73  tern void..TkDis
15d0: 70 6c 61 79 43 68 61 72 73 20 5f 41 4e 53 49 5f  playChars _ANSI_
15e0: 41 52 47 53 5f 28 28 54 6b 57 69 6e 64 6f 77 20  ARGS_((TkWindow 
15f0: 2a 77 69 6e 50 74 72 2c 0a 09 09 09 20 20 20 20  *winPtr,....    
1600: 43 74 6b 5f 53 74 79 6c 65 20 73 74 79 6c 65 2c  Ctk_Style style,
1610: 20 63 68 61 72 20 2a 73 74 72 69 6e 67 2c 0a 09   char *string,..
1620: 09 09 20 20 20 20 69 6e 74 20 6e 75 6d 43 68 61  ..    int numCha
1630: 72 73 2c 20 69 6e 74 20 78 2c 20 69 6e 74 20 79  rs, int x, int y
1640: 2c 20 69 6e 74 20 74 61 62 4f 72 69 67 69 6e 2c  , int tabOrigin,
1650: 0a 09 09 09 20 20 20 20 69 6e 74 20 66 6c 61 67  ....    int flag
1660: 73 29 29 3b 0a 65 78 74 65 72 6e 20 76 6f 69 64  s));.extern void
1670: 09 09 54 6b 44 69 73 70 6c 61 79 54 65 78 74 20  ..TkDisplayText 
1680: 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 6b 57  _ANSI_ARGS_((TkW
1690: 69 6e 64 6f 77 20 2a 77 69 6e 50 74 72 2c 0a 09  indow *winPtr,..
16a0: 09 09 20 20 20 20 43 74 6b 5f 53 74 79 6c 65 20  ..    Ctk_Style 
16b0: 73 74 79 6c 65 2c 0a 09 09 09 20 20 20 20 63 68  style,....    ch
16c0: 61 72 20 2a 73 74 72 69 6e 67 2c 20 69 6e 74 20  ar *string, int 
16d0: 6e 75 6d 43 68 61 72 73 2c 20 69 6e 74 20 78 2c  numChars, int x,
16e0: 20 69 6e 74 20 79 2c 0a 09 09 09 20 20 20 20 69   int y,....    i
16f0: 6e 74 20 6c 65 6e 67 74 68 2c 20 54 6b 5f 4a 75  nt length, Tk_Ju
1700: 73 74 69 66 79 20 6a 75 73 74 69 66 79 2c 20 69  stify justify, i
1710: 6e 74 20 75 6e 64 65 72 6c 69 6e 65 29 29 3b 0a  nt underline));.
1720: 65 78 74 65 72 6e 20 76 6f 69 64 09 09 54 6b 45  extern void..TkE
1730: 76 65 6e 74 43 6c 65 61 6e 75 70 50 72 6f 63 20  ventCleanupProc 
1740: 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 0a 09 09  _ANSI_ARGS_((...
1750: 09 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20  .    ClientData 
1760: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f  clientData, Tcl_
1770: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 29  Interp *interp))
1780: 3b 0a 65 78 74 65 72 6e 20 76 6f 69 64 09 09 54  ;.extern void..T
1790: 6b 45 76 65 6e 74 44 65 61 64 57 69 6e 64 6f 77  kEventDeadWindow
17a0: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 6b   _ANSI_ARGS_((Tk
17b0: 57 69 6e 64 6f 77 20 2a 77 69 6e 50 74 72 29 29  Window *winPtr))
17c0: 3b 0a 65 78 74 65 72 6e 20 76 6f 69 64 09 09 54  ;.extern void..T
17d0: 6b 46 6f 63 75 73 44 65 61 64 57 69 6e 64 6f 77  kFocusDeadWindow
17e0: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 6b   _ANSI_ARGS_((Tk
17f0: 57 69 6e 64 6f 77 20 2a 77 69 6e 50 74 72 29 29  Window *winPtr))
1800: 3b 0a 65 78 74 65 72 6e 20 69 6e 74 09 09 54 6b  ;.extern int..Tk
1810: 46 6f 63 75 73 46 69 6c 74 65 72 45 76 65 6e 74  FocusFilterEvent
1820: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 6b   _ANSI_ARGS_((Tk
1830: 57 69 6e 64 6f 77 20 2a 77 69 6e 50 74 72 2c 0a  Window *winPtr,.
1840: 09 09 09 20 20 20 20 58 45 76 65 6e 74 20 2a 65  ...    XEvent *e
1850: 76 65 6e 74 50 74 72 29 29 3b 0a 65 78 74 65 72  ventPtr));.exter
1860: 6e 20 76 6f 69 64 09 09 54 6b 46 72 65 65 42 69  n void..TkFreeBi
1870: 6e 64 69 6e 67 54 61 67 73 20 5f 41 4e 53 49 5f  ndingTags _ANSI_
1880: 41 52 47 53 5f 28 28 54 6b 57 69 6e 64 6f 77 20  ARGS_((TkWindow 
1890: 2a 77 69 6e 50 74 72 29 29 3b 0a 65 78 74 65 72  *winPtr));.exter
18a0: 6e 20 54 6b 57 69 6e 64 6f 77 20 2a 09 54 6b 47  n TkWindow *.TkG
18b0: 65 74 46 6f 63 75 73 20 5f 41 4e 53 49 5f 41 52  etFocus _ANSI_AR
18c0: 47 53 5f 28 28 54 6b 57 69 6e 64 6f 77 20 2a 77  GS_((TkWindow *w
18d0: 69 6e 50 74 72 29 29 3b 0a 65 78 74 65 72 6e 20  inPtr));.extern 
18e0: 69 6e 74 09 09 54 6b 47 65 74 49 6e 74 65 72 70  int..TkGetInterp
18f0: 4e 61 6d 65 73 20 5f 41 4e 53 49 5f 41 52 47 53  Names _ANSI_ARGS
1900: 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  _((Tcl_Interp *i
1910: 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20 54 6b  nterp,....    Tk
1920: 5f 57 69 6e 64 6f 77 20 74 6b 77 69 6e 29 29 3b  _Window tkwin));
1930: 0a 65 78 74 65 72 6e 20 63 68 61 72 20 2a 09 09  .extern char *..
1940: 54 6b 49 6e 69 74 46 72 61 6d 65 20 5f 41 4e 53  TkInitFrame _ANS
1950: 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f 49 6e 74  I_ARGS_((Tcl_Int
1960: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 09 09 09  erp *interp,....
1970: 20 20 20 20 54 6b 5f 57 69 6e 64 6f 77 20 74 6b      Tk_Window tk
1980: 77 69 6e 2c 20 69 6e 74 20 74 6f 70 6c 65 76 65  win, int topleve
1990: 6c 2c 20 69 6e 74 20 61 72 67 63 2c 0a 09 09 09  l, int argc,....
19a0: 20 20 20 20 63 68 61 72 20 2a 61 72 67 76 5b 5d      char *argv[]
19b0: 29 29 3b 0a 65 78 74 65 72 6e 20 69 6e 74 09 09  ));.extern int..
19c0: 54 6b 4d 65 61 73 75 72 65 43 68 61 72 73 20 5f  TkMeasureChars _
19d0: 41 4e 53 49 5f 41 52 47 53 5f 28 28 0a 09 09 09  ANSI_ARGS_((....
19e0: 20 20 20 20 63 68 61 72 20 2a 73 6f 75 72 63 65      char *source
19f0: 2c 20 69 6e 74 20 6d 61 78 43 68 61 72 73 2c 20  , int maxChars, 
1a00: 69 6e 74 20 73 74 61 72 74 58 2c 20 69 6e 74 20  int startX, int 
1a10: 6d 61 78 58 2c 0a 09 09 09 20 20 20 20 69 6e 74  maxX,....    int
1a20: 20 74 61 62 4f 72 69 67 69 6e 2c 20 69 6e 74 20   tabOrigin, int 
1a30: 66 6c 61 67 73 2c 20 69 6e 74 20 2a 6e 65 78 74  flags, int *next
1a40: 58 50 74 72 29 29 3b 0a 65 78 74 65 72 6e 20 76  XPtr));.extern v
1a50: 6f 69 64 09 09 54 6b 4f 70 74 69 6f 6e 43 6c 61  oid..TkOptionCla
1a60: 73 73 43 68 61 6e 67 65 64 20 5f 41 4e 53 49 5f  ssChanged _ANSI_
1a70: 41 52 47 53 5f 28 28 54 6b 57 69 6e 64 6f 77 20  ARGS_((TkWindow 
1a80: 2a 77 69 6e 50 74 72 29 29 3b 0a 65 78 74 65 72  *winPtr));.exter
1a90: 6e 20 76 6f 69 64 09 09 54 6b 4f 70 74 69 6f 6e  n void..TkOption
1aa0: 44 65 61 64 57 69 6e 64 6f 77 20 5f 41 4e 53 49  DeadWindow _ANSI
1ab0: 5f 41 52 47 53 5f 28 28 54 6b 57 69 6e 64 6f 77  _ARGS_((TkWindow
1ac0: 20 2a 77 69 6e 50 74 72 29 29 3b 0a 65 78 74 65   *winPtr));.exte
1ad0: 72 6e 20 76 6f 69 64 09 09 54 6b 51 75 65 75 65  rn void..TkQueue
1ae0: 45 76 65 6e 74 20 5f 41 4e 53 49 5f 41 52 47 53  Event _ANSI_ARGS
1af0: 5f 28 28 54 6b 44 69 73 70 6c 61 79 20 2a 64 69  _((TkDisplay *di
1b00: 73 70 50 74 72 2c 0a 09 09 09 20 20 20 20 58 45  spPtr,....    XE
1b10: 76 65 6e 74 20 2a 65 76 65 6e 74 50 74 72 29 29  vent *eventPtr))
1b20: 3b 0a 0a 65 78 74 65 72 6e 20 76 6f 69 64 09 09  ;..extern void..
1b30: 54 6b 44 65 6c 65 74 65 4d 61 69 6e 20 5f 41 4e  TkDeleteMain _AN
1b40: 53 49 5f 41 52 47 53 5f 28 28 54 6b 4d 61 69 6e  SI_ARGS_((TkMain
1b50: 49 6e 66 6f 20 2a 6d 61 69 6e 50 74 72 29 29 3b  Info *mainPtr));
1b60: 0a 0a 23 64 65 66 69 6e 65 20 43 74 6b 49 73 44  ..#define CtkIsD
1b70: 69 73 70 6c 61 79 65 64 28 74 6b 77 69 6e 29 09  isplayed(tkwin).
1b80: 28 28 28 74 6b 77 69 6e 29 2d 3e 66 6c 61 67 73  (((tkwin)->flags
1b90: 29 26 20 43 54 4b 5f 44 49 53 50 4c 41 59 45 44  )& CTK_DISPLAYED
1ba0: 29 0a 0a 74 79 70 65 64 65 66 20 76 6f 69 64 20  )..typedef void 
1bb0: 28 43 74 6b 53 70 61 6e 50 72 6f 63 29 20 5f 41  (CtkSpanProc) _A
1bc0: 4e 53 49 5f 41 52 47 53 5f 28 28 69 6e 74 20 6c  NSI_ARGS_((int l
1bd0: 65 66 74 2c 20 69 6e 74 20 72 69 67 68 74 2c 20  eft, int right, 
1be0: 69 6e 74 20 79 2c 0a 09 43 6c 69 65 6e 74 44 61  int y,..ClientDa
1bf0: 74 61 20 64 61 74 61 29 29 3b 0a 0a 23 64 65 66  ta data));..#def
1c00: 69 6e 65 20 43 74 6b 53 70 61 6e 49 73 45 6d 70  ine CtkSpanIsEmp
1c10: 74 79 28 6c 65 66 74 2c 20 72 69 67 68 74 29 20  ty(left, right) 
1c20: 28 28 6c 65 66 74 29 20 3e 3d 20 28 72 69 67 68  ((left) >= (righ
1c30: 74 29 29 0a 23 64 65 66 69 6e 65 20 43 74 6b 43  t)).#define CtkC
1c40: 6f 70 79 52 65 63 74 28 64 72 2c 73 72 29 20 28  opyRect(dr,sr) (
1c50: 6d 65 6d 63 70 79 28 28 64 72 29 2c 20 28 73 72  memcpy((dr), (sr
1c60: 29 2c 20 73 69 7a 65 6f 66 28 43 74 6b 5f 52 65  ), sizeof(Ctk_Re
1c70: 63 74 29 29 29 0a 23 64 65 66 69 6e 65 20 43 74  ct))).#define Ct
1c80: 6b 4d 6f 76 65 52 65 63 74 28 72 65 63 74 2c 78  kMoveRect(rect,x
1c90: 2c 79 29 20 5c 0a 09 28 28 72 65 63 74 29 2d 3e  ,y) \..((rect)->
1ca0: 6c 65 66 74 20 2b 3d 20 28 78 29 2c 20 28 72 65  left += (x), (re
1cb0: 63 74 29 2d 3e 74 6f 70 20 2b 3d 20 28 79 29 2c  ct)->top += (y),
1cc0: 20 5c 0a 09 28 72 65 63 74 29 2d 3e 72 69 67 68   \..(rect)->righ
1cd0: 74 20 2b 3d 20 28 78 29 2c 20 28 72 65 63 74 29  t += (x), (rect)
1ce0: 2d 3e 62 6f 74 74 6f 6d 20 2b 3d 20 28 79 29 29  ->bottom += (y))
1cf0: 0a 23 64 65 66 69 6e 65 20 43 74 6b 53 65 74 52  .#define CtkSetR
1d00: 65 63 74 28 72 65 63 74 2c 6c 2c 74 2c 72 2c 62  ect(rect,l,t,r,b
1d10: 29 20 5c 0a 09 28 28 72 65 63 74 29 2d 3e 6c 65  ) \..((rect)->le
1d20: 66 74 20 3d 20 28 6c 29 2c 20 28 72 65 63 74 29  ft = (l), (rect)
1d30: 2d 3e 74 6f 70 20 3d 20 28 74 29 2c 20 5c 0a 09  ->top = (t), \..
1d40: 28 72 65 63 74 29 2d 3e 72 69 67 68 74 20 3d 20  (rect)->right = 
1d50: 28 72 29 2c 20 28 72 65 63 74 29 2d 3e 62 6f 74  (r), (rect)->bot
1d60: 74 6f 6d 20 3d 20 28 62 29 29 0a 0a 0a 45 58 54  tom = (b))...EXT
1d70: 45 52 4e 20 69 6e 74 09 09 43 74 6b 44 69 73 70  ERN int..CtkDisp
1d80: 6c 61 79 49 6e 69 74 20 5f 41 4e 53 49 5f 41 52  layInit _ANSI_AR
1d90: 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70 20  GS_((Tcl_Interp 
1da0: 2a 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20  *interp,....    
1db0: 54 6b 44 69 73 70 6c 61 79 20 2a 64 69 73 70 50  TkDisplay *dispP
1dc0: 74 72 2c 20 63 68 61 72 20 2a 64 69 73 70 6c 61  tr, char *displa
1dd0: 79 4e 61 6d 65 29 29 3b 0a 45 58 54 45 52 4e 20  yName));.EXTERN 
1de0: 76 6f 69 64 09 09 43 74 6b 44 69 73 70 6c 61 79  void..CtkDisplay
1df0: 45 6e 64 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28  End _ANSI_ARGS_(
1e00: 28 54 6b 44 69 73 70 6c 61 79 20 2a 64 69 73 70  (TkDisplay *disp
1e10: 50 74 72 29 29 3b 0a 45 58 54 45 52 4e 20 76 6f  Ptr));.EXTERN vo
1e20: 69 64 09 09 43 74 6b 44 69 73 70 6c 61 79 42 65  id..CtkDisplayBe
1e30: 6c 6c 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28  ll _ANSI_ARGS_((
1e40: 54 6b 44 69 73 70 6c 61 79 20 2a 64 69 73 70 50  TkDisplay *dispP
1e50: 74 72 29 29 3b 0a 0a 45 58 54 45 52 4e 20 76 6f  tr));..EXTERN vo
1e60: 69 64 20 20 20 20 20 20 20 20 20 43 74 6b 53 65  id         CtkSe
1e70: 74 46 6f 63 75 73 20 5f 41 4e 53 49 5f 41 52 47  tFocus _ANSI_ARG
1e80: 53 5f 28 28 54 6b 57 69 6e 64 6f 77 20 2a 77 69  S_((TkWindow *wi
1e90: 6e 50 74 72 29 29 3b 0a 45 58 54 45 52 4e 20 76  nPtr));.EXTERN v
1ea0: 6f 69 64 09 20 20 20 20 43 74 6b 5f 46 6f 72 67  oid.    Ctk_Forg
1eb0: 65 74 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28  et _ANSI_ARGS_((
1ec0: 54 6b 5f 57 69 6e 64 6f 77 20 74 6b 77 69 6e 29  Tk_Window tkwin)
1ed0: 29 3b 0a 0a 45 58 54 45 52 4e 20 76 6f 69 64 09  );..EXTERN void.
1ee0: 20 20 20 20 43 74 6b 46 69 6c 6c 52 65 67 69 6f      CtkFillRegio
1ef0: 6e 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54  n _ANSI_ARGS_((T
1f00: 6b 44 69 73 70 6c 61 79 20 2a 64 69 73 70 50 74  kDisplay *dispPt
1f10: 72 2c 0a 09 09 09 43 74 6b 52 65 67 69 6f 6e 20  r,....CtkRegion 
1f20: 2a 72 67 6e 5f 70 74 72 2c 20 43 74 6b 5f 53 74  *rgn_ptr, Ctk_St
1f30: 79 6c 65 20 73 74 79 6c 65 2c 20 69 6e 74 20 63  yle style, int c
1f40: 68 29 29 3b 0a 0a 45 58 54 45 52 4e 20 76 6f 69  h));..EXTERN voi
1f50: 64 09 20 20 20 20 43 74 6b 49 6e 74 65 72 73 65  d.    CtkInterse
1f60: 63 74 53 70 61 6e 73 20 5f 41 4e 53 49 5f 41 52  ctSpans _ANSI_AR
1f70: 47 53 5f 28 28 69 6e 74 20 2a 6c 65 66 74 5f 70  GS_((int *left_p
1f80: 74 72 2c 0a 09 09 09 69 6e 74 20 2a 72 69 67 68  tr,....int *righ
1f90: 74 5f 70 74 72 2c 20 69 6e 74 20 6c 65 66 74 32  t_ptr, int left2
1fa0: 2c 20 69 6e 74 20 72 69 67 68 74 32 29 29 3b 0a  , int right2));.
1fb0: 45 58 54 45 52 4e 20 76 6f 69 64 09 20 20 20 20  EXTERN void.    
1fc0: 43 74 6b 49 6e 74 65 72 73 65 63 74 52 65 63 74  CtkIntersectRect
1fd0: 73 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 43  s _ANSI_ARGS_((C
1fe0: 74 6b 5f 52 65 63 74 20 2a 72 31 5f 70 74 72 2c  tk_Rect *r1_ptr,
1ff0: 0a 09 09 09 43 4f 4e 53 54 20 43 74 6b 5f 52 65  ....CONST Ctk_Re
2000: 63 74 20 2a 72 32 5f 70 74 72 29 29 3b 0a 45 58  ct *r2_ptr));.EX
2010: 54 45 52 4e 20 43 74 6b 52 65 67 69 6f 6e 20 2a  TERN CtkRegion *
2020: 20 43 74 6b 43 72 65 61 74 65 52 65 67 69 6f 6e   CtkCreateRegion
2030: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 43 74   _ANSI_ARGS_((Ct
2040: 6b 5f 52 65 63 74 20 2a 72 65 63 74 29 29 3b 0a  k_Rect *rect));.
2050: 45 58 54 45 52 4e 20 76 6f 69 64 09 20 20 20 20  EXTERN void.    
2060: 43 74 6b 44 65 73 74 72 6f 79 52 65 67 69 6f 6e  CtkDestroyRegion
2070: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 43 74   _ANSI_ARGS_((Ct
2080: 6b 52 65 67 69 6f 6e 20 2a 72 67 6e 29 29 3b 0a  kRegion *rgn));.
2090: 45 58 54 45 52 4e 20 76 6f 69 64 09 20 20 20 20  EXTERN void.    
20a0: 43 74 6b 46 6f 72 45 61 63 68 49 6e 74 65 72 73  CtkForEachInters
20b0: 65 63 74 69 6e 67 53 70 61 6e 20 5f 41 4e 53 49  ectingSpan _ANSI
20c0: 5f 41 52 47 53 5f 28 28 0a 09 09 09 43 74 6b 53  _ARGS_((....CtkS
20d0: 70 61 6e 50 72 6f 63 20 2a 66 75 6e 63 2c 0a 09  panProc *func,..
20e0: 09 09 43 6c 69 65 6e 74 44 61 74 61 20 66 75 6e  ..ClientData fun
20f0: 63 5f 64 61 74 61 2c 20 69 6e 74 20 6c 65 66 74  c_data, int left
2100: 2c 20 69 6e 74 20 72 69 67 68 74 2c 20 69 6e 74  , int right, int
2110: 20 79 2c 0a 09 09 09 43 74 6b 52 65 67 69 6f 6e   y,....CtkRegion
2120: 20 2a 72 67 6e 29 29 3b 0a 45 58 54 45 52 4e 20   *rgn));.EXTERN 
2130: 76 6f 69 64 09 20 20 20 20 43 74 6b 46 6f 72 45  void.    CtkForE
2140: 61 63 68 53 70 61 6e 20 5f 41 4e 53 49 5f 41 52  achSpan _ANSI_AR
2150: 47 53 5f 28 28 43 74 6b 53 70 61 6e 50 72 6f 63  GS_((CtkSpanProc
2160: 20 2a 66 75 6e 63 2c 0a 09 09 09 43 6c 69 65 6e   *func,....Clien
2170: 74 44 61 74 61 20 66 75 6e 63 5f 64 61 74 61 2c  tData func_data,
2180: 20 43 74 6b 52 65 67 69 6f 6e 20 2a 72 67 6e 29   CtkRegion *rgn)
2190: 29 3b 0a 45 58 54 45 52 4e 20 43 74 6b 52 65 67  );.EXTERN CtkReg
21a0: 69 6f 6e 20 2a 20 43 74 6b 52 65 67 69 6f 6e 4d  ion * CtkRegionM
21b0: 69 6e 75 73 52 65 63 74 20 5f 41 4e 53 49 5f 41  inusRect _ANSI_A
21c0: 52 47 53 5f 28 28 43 74 6b 52 65 67 69 6f 6e 20  RGS_((CtkRegion 
21d0: 2a 72 67 6e 5f 69 64 2c 0a 09 09 09 43 74 6b 5f  *rgn_id,....Ctk_
21e0: 52 65 63 74 20 2a 72 65 63 74 2c 20 69 6e 74 20  Rect *rect, int 
21f0: 77 61 6e 74 5f 69 6e 74 65 72 29 29 3b 0a 45 58  want_inter));.EX
2200: 54 45 52 4e 20 76 6f 69 64 09 20 20 20 20 43 74  TERN void.    Ct
2210: 6b 55 6e 69 6f 6e 52 65 67 69 6f 6e 73 20 5f 41  kUnionRegions _A
2220: 4e 53 49 5f 41 52 47 53 5f 28 28 43 74 6b 52 65  NSI_ARGS_((CtkRe
2230: 67 69 6f 6e 20 2a 72 67 6e 31 2c 0a 09 09 09 43  gion *rgn1,....C
2240: 74 6b 52 65 67 69 6f 6e 20 2a 72 67 6e 32 29 29  tkRegion *rgn2))
2250: 3b 0a 45 58 54 45 52 4e 20 76 6f 69 64 09 20 20  ;.EXTERN void.  
2260: 20 20 43 74 6b 52 65 67 69 6f 6e 47 65 74 52 65    CtkRegionGetRe
2270: 63 74 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28  ct _ANSI_ARGS_((
2280: 43 74 6b 52 65 67 69 6f 6e 20 2a 72 67 6e 2c 0a  CtkRegion *rgn,.
2290: 09 09 09 43 74 6b 5f 52 65 63 74 20 2a 72 65 63  ...Ctk_Rect *rec
22a0: 74 5f 70 74 72 29 29 3b 0a 45 58 54 45 52 4e 20  t_ptr));.EXTERN 
22b0: 69 6e 74 09 20 20 20 20 43 74 6b 50 6f 69 6e 74  int.    CtkPoint
22c0: 49 6e 52 65 67 69 6f 6e 20 5f 41 4e 53 49 5f 41  InRegion _ANSI_A
22d0: 52 47 53 5f 28 28 69 6e 74 20 78 2c 20 69 6e 74  RGS_((int x, int
22e0: 20 79 2c 0a 09 09 09 43 74 6b 52 65 67 69 6f 6e   y,....CtkRegion
22f0: 20 2a 72 67 6e 29 29 3b 0a 0a 23 65 6e 64 69 66   *rgn));..#endif
2300: 20 20 2f 2a 20 5f 54 4b 49 4e 54 20 2a 2f 0a       /* _TKINT */.