Hex Artifact Content

Artifact d56ce1a7b2050b5509a446c8798b75b390e6197c:


0000: 2f 2a 20 0a 20 2a 20 74 6b 45 6e 74 72 79 2e 63  /* . * tkEntry.c
0010: 20 28 43 54 6b 29 20 2d 2d 0a 20 2a 0a 20 2a 09   (CTk) --. *. *.
0020: 54 68 69 73 20 6d 6f 64 75 6c 65 20 69 6d 70 6c  This module impl
0030: 65 6d 65 6e 74 73 20 65 6e 74 72 79 20 77 69 64  ements entry wid
0040: 67 65 74 73 20 66 6f 72 20 74 68 65 20 54 6b 0a  gets for the Tk.
0050: 20 2a 09 74 6f 6f 6c 6b 69 74 2e 20 20 41 6e 20   *.toolkit.  An 
0060: 65 6e 74 72 79 20 64 69 73 70 6c 61 79 73 20 61  entry displays a
0070: 20 73 74 72 69 6e 67 20 61 6e 64 20 61 6c 6c 6f   string and allo
0080: 77 73 0a 20 2a 09 74 68 65 20 73 74 72 69 6e 67  ws. *.the string
0090: 20 74 6f 20 62 65 20 65 64 69 74 65 64 2e 0a 20   to be edited.. 
00a0: 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 28  *. * Copyright (
00b0: 63 29 20 31 39 39 30 2d 31 39 39 34 20 54 68 65  c) 1990-1994 The
00c0: 20 52 65 67 65 6e 74 73 20 6f 66 20 74 68 65 20   Regents of the 
00d0: 55 6e 69 76 65 72 73 69 74 79 20 6f 66 20 43 61  University of Ca
00e0: 6c 69 66 6f 72 6e 69 61 2e 0a 20 2a 20 43 6f 70  lifornia.. * Cop
00f0: 79 72 69 67 68 74 20 28 63 29 20 31 39 39 34 2d  yright (c) 1994-
0100: 31 39 39 35 20 53 75 6e 20 4d 69 63 72 6f 73 79  1995 Sun Microsy
0110: 73 74 65 6d 73 2c 20 49 6e 63 2e 0a 20 2a 20 43  stems, Inc.. * C
0120: 6f 70 79 72 69 67 68 74 20 28 63 29 20 31 39 39  opyright (c) 199
0130: 34 2d 31 39 39 35 20 43 6c 65 76 65 6c 61 6e 64  4-1995 Cleveland
0140: 20 43 6c 69 6e 69 63 20 46 6f 75 6e 64 61 74 69   Clinic Foundati
0150: 6f 6e 0a 20 2a 0a 20 2a 20 53 65 65 20 74 68 65  on. *. * See the
0160: 20 66 69 6c 65 20 22 6c 69 63 65 6e 73 65 2e 74   file "license.t
0170: 65 72 6d 73 22 20 66 6f 72 20 69 6e 66 6f 72 6d  erms" for inform
0180: 61 74 69 6f 6e 20 6f 6e 20 75 73 61 67 65 20 61  ation on usage a
0190: 6e 64 20 72 65 64 69 73 74 72 69 62 75 74 69 6f  nd redistributio
01a0: 6e 0a 20 2a 20 6f 66 20 74 68 69 73 20 66 69 6c  n. * of this fil
01b0: 65 2c 20 61 6e 64 20 66 6f 72 20 61 20 44 49 53  e, and for a DIS
01c0: 43 4c 41 49 4d 45 52 20 4f 46 20 41 4c 4c 20 57  CLAIMER OF ALL W
01d0: 41 52 52 41 4e 54 49 45 53 2e 0a 20 2a 0a 20 2a  ARRANTIES.. *. *
01e0: 20 40 28 23 29 20 24 49 64 3a 20 63 74 6b 2e 73   @(#) $Id: ctk.s
01f0: 68 61 72 2c 76 20 31 2e 35 30 20 31 39 39 36 2f  har,v 1.50 1996/
0200: 30 31 2f 31 35 20 31 34 3a 34 37 3a 31 36 20 61  01/15 14:47:16 a
0210: 6e 64 72 65 77 6d 20 45 78 70 20 61 6e 64 72 65  ndrewm Exp andre
0220: 77 6d 20 24 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75  wm $. */..#inclu
0230: 64 65 20 22 64 65 66 61 75 6c 74 2e 68 22 0a 23  de "default.h".#
0240: 69 6e 63 6c 75 64 65 20 22 74 6b 50 6f 72 74 2e  include "tkPort.
0250: 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 74 6b 49  h".#include "tkI
0260: 6e 74 2e 68 22 0a 0a 2f 2a 0a 20 2a 20 41 20 64  nt.h"../*. * A d
0270: 61 74 61 20 73 74 72 75 63 74 75 72 65 20 6f 66  ata structure of
0280: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74   the following t
0290: 79 70 65 20 69 73 20 6b 65 70 74 20 66 6f 72 20  ype is kept for 
02a0: 65 61 63 68 20 65 6e 74 72 79 0a 20 2a 20 77 69  each entry. * wi
02b0: 64 67 65 74 20 6d 61 6e 61 67 65 64 20 62 79 20  dget managed by 
02c0: 74 68 69 73 20 66 69 6c 65 3a 0a 20 2a 2f 0a 0a  this file:. */..
02d0: 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 7b  typedef struct {
02e0: 0a 20 20 20 20 54 6b 5f 57 69 6e 64 6f 77 20 74  .    Tk_Window t
02f0: 6b 77 69 6e 3b 09 09 2f 2a 20 57 69 6e 64 6f 77  kwin;../* Window
0300: 20 74 68 61 74 20 65 6d 62 6f 64 69 65 73 20 74   that embodies t
0310: 68 65 20 65 6e 74 72 79 2e 20 4e 55 4c 4c 0a 09  he entry. NULL..
0320: 09 09 09 20 2a 20 6d 65 61 6e 73 20 74 68 61 74  ... * means that
0330: 20 74 68 65 20 77 69 6e 64 6f 77 20 68 61 73 20   the window has 
0340: 62 65 65 6e 20 64 65 73 74 72 6f 79 65 64 0a 09  been destroyed..
0350: 09 09 09 20 2a 20 62 75 74 20 74 68 65 20 64 61  ... * but the da
0360: 74 61 20 73 74 72 75 63 74 75 72 65 73 20 68 61  ta structures ha
0370: 76 65 6e 27 74 20 79 65 74 20 62 65 65 6e 0a 09  ven't yet been..
0380: 09 09 09 20 2a 20 63 6c 65 61 6e 65 64 20 75 70  ... * cleaned up
0390: 2e 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65  .*/.    Tcl_Inte
03a0: 72 70 20 2a 69 6e 74 65 72 70 3b 09 09 2f 2a 20  rp *interp;../* 
03b0: 49 6e 74 65 72 70 72 65 74 65 72 20 61 73 73 6f  Interpreter asso
03c0: 63 69 61 74 65 64 20 77 69 74 68 20 65 6e 74 72  ciated with entr
03d0: 79 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 43 6f  y. */.    Tcl_Co
03e0: 6d 6d 61 6e 64 20 77 69 64 67 65 74 43 6d 64 3b  mmand widgetCmd;
03f0: 09 2f 2a 20 54 6f 6b 65 6e 20 66 6f 72 20 65 6e  ./* Token for en
0400: 74 72 79 27 73 20 77 69 64 67 65 74 20 63 6f 6d  try's widget com
0410: 6d 61 6e 64 2e 20 2a 2f 0a 20 20 20 20 69 6e 74  mand. */.    int
0420: 20 6e 75 6d 43 68 61 72 73 3b 09 09 2f 2a 20 4e   numChars;../* N
0430: 75 6d 62 65 72 20 6f 66 20 6e 6f 6e 2d 4e 55 4c  umber of non-NUL
0440: 4c 20 63 68 61 72 61 63 74 65 72 73 20 69 6e 0a  L characters in.
0450: 09 09 09 09 20 2a 20 73 74 72 69 6e 67 20 28 6d  .... * string (m
0460: 61 79 20 62 65 20 30 29 2e 20 2a 2f 0a 20 20 20  ay be 0). */.   
0470: 20 63 68 61 72 20 2a 73 74 72 69 6e 67 3b 09 09   char *string;..
0480: 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 74  /* Pointer to st
0490: 6f 72 61 67 65 20 66 6f 72 20 73 74 72 69 6e 67  orage for string
04a0: 3b 0a 09 09 09 09 20 2a 20 4e 55 4c 4c 2d 74 65  ;..... * NULL-te
04b0: 72 6d 69 6e 61 74 65 64 3b 20 20 6d 61 6c 6c 6f  rminated;  mallo
04c0: 63 2d 65 64 2e 20 2a 2f 0a 20 20 20 20 63 68 61  c-ed. */.    cha
04d0: 72 20 2a 74 65 78 74 56 61 72 4e 61 6d 65 3b 09  r *textVarName;.
04e0: 09 2f 2a 20 4e 61 6d 65 20 6f 66 20 76 61 72 69  ./* Name of vari
04f0: 61 62 6c 65 20 28 6d 61 6c 6c 6f 63 27 65 64 29  able (malloc'ed)
0500: 20 6f 72 20 4e 55 4c 4c 2e 0a 09 09 09 09 20 2a   or NULL...... *
0510: 20 49 66 20 6e 6f 6e 2d 4e 55 4c 4c 2c 20 65 6e   If non-NULL, en
0520: 74 72 79 27 73 20 73 74 72 69 6e 67 20 74 72 61  try's string tra
0530: 63 6b 73 20 74 68 65 0a 09 09 09 09 20 2a 20 63  cks the..... * c
0540: 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 69 73 20  ontents of this 
0550: 76 61 72 69 61 62 6c 65 20 61 6e 64 20 76 69 63  variable and vic
0560: 65 20 76 65 72 73 61 2e 20 2a 2f 0a 20 20 20 20  e versa. */.    
0570: 54 6b 5f 55 69 64 20 73 74 61 74 65 3b 09 09 2f  Tk_Uid state;../
0580: 2a 20 4e 6f 72 6d 61 6c 20 6f 72 20 64 69 73 61  * Normal or disa
0590: 62 6c 65 64 2e 20 20 45 6e 74 72 79 20 69 73 20  bled.  Entry is 
05a0: 72 65 61 64 2d 6f 6e 6c 79 0a 09 09 09 09 20 2a  read-only..... *
05b0: 20 77 68 65 6e 20 64 69 73 61 62 6c 65 64 2e 20   when disabled. 
05c0: 2a 2f 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20  */..    /*.     
05d0: 2a 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 75 73  * Information us
05e0: 65 64 20 77 68 65 6e 20 64 69 73 70 6c 61 79 69  ed when displayi
05f0: 6e 67 20 77 69 64 67 65 74 3a 0a 20 20 20 20 20  ng widget:.     
0600: 2a 2f 0a 0a 20 20 20 20 69 6e 74 20 62 6f 72 64  */..    int bord
0610: 65 72 57 69 64 74 68 3b 09 09 2f 2a 20 57 69 64  erWidth;../* Wid
0620: 74 68 20 6f 66 20 33 2d 44 20 62 6f 72 64 65 72  th of 3-D border
0630: 20 61 72 6f 75 6e 64 20 77 69 6e 64 6f 77 2e 20   around window. 
0640: 2a 2f 0a 20 20 20 20 54 6b 5f 4a 75 73 74 69 66  */.    Tk_Justif
0650: 79 20 6a 75 73 74 69 66 79 3b 09 09 2f 2a 20 4a  y justify;../* J
0660: 75 73 74 69 66 69 63 61 74 69 6f 6e 20 74 6f 20  ustification to 
0670: 75 73 65 20 66 6f 72 20 74 65 78 74 20 77 69 74  use for text wit
0680: 68 69 6e 0a 09 09 09 09 20 2a 20 77 69 6e 64 6f  hin..... * windo
0690: 77 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 70 72  w. */.    int pr
06a0: 65 66 57 69 64 74 68 3b 09 09 2f 2a 20 44 65 73  efWidth;../* Des
06b0: 69 72 65 64 20 77 69 64 74 68 20 6f 66 20 77 69  ired width of wi
06c0: 6e 64 6f 77 2c 20 6d 65 61 73 75 72 65 64 20 69  ndow, measured i
06d0: 6e 0a 09 09 09 09 20 2a 20 61 76 65 72 61 67 65  n..... * average
06e0: 20 63 68 61 72 61 63 74 65 72 73 2e 20 2a 2f 0a   characters. */.
06f0: 20 20 20 20 69 6e 74 20 6c 65 66 74 49 6e 64 65      int leftInde
0700: 78 3b 09 09 2f 2a 20 49 6e 64 65 78 20 6f 66 20  x;../* Index of 
0710: 6c 65 66 74 2d 6d 6f 73 74 20 63 68 61 72 61 63  left-most charac
0720: 74 65 72 20 76 69 73 69 62 6c 65 20 69 6e 0a 09  ter visible in..
0730: 09 09 09 20 2a 20 77 69 6e 64 6f 77 2e 20 2a 2f  ... * window. */
0740: 0a 20 20 20 20 69 6e 74 20 6c 65 66 74 58 3b 09  .    int leftX;.
0750: 09 09 2f 2a 20 58 20 70 6f 73 69 74 69 6f 6e 20  ../* X position 
0760: 61 74 20 77 68 69 63 68 20 6c 65 66 74 49 6e 64  at which leftInd
0770: 65 78 20 69 73 20 64 72 61 77 6e 0a 09 09 09 09  ex is drawn.....
0780: 20 2a 20 28 76 61 72 69 65 73 20 64 65 70 65 6e   * (varies depen
0790: 64 69 6e 67 20 6f 6e 20 6a 75 73 74 69 66 79 29  ding on justify)
07a0: 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 74 61 62  . */.    int tab
07b0: 4f 72 69 67 69 6e 3b 09 09 2f 2a 20 4f 72 69 67  Origin;../* Orig
07c0: 69 6e 20 66 6f 72 20 74 61 62 73 20 28 6c 65 66  in for tabs (lef
07d0: 74 20 65 64 67 65 20 6f 66 20 73 74 72 69 6e 67  t edge of string
07e0: 5b 30 5d 29 2e 20 2a 2f 0a 20 20 20 20 69 6e 74  [0]). */.    int
07f0: 20 69 6e 73 65 72 74 50 6f 73 3b 09 09 2f 2a 20   insertPos;../* 
0800: 49 6e 64 65 78 20 6f 66 20 63 68 61 72 61 63 74  Index of charact
0810: 65 72 20 62 65 66 6f 72 65 20 77 68 69 63 68 20  er before which 
0820: 6e 65 78 74 0a 09 09 09 09 20 2a 20 74 79 70 65  next..... * type
0830: 64 20 63 68 61 72 61 63 74 65 72 20 77 69 6c 6c  d character will
0840: 20 62 65 20 69 6e 73 65 72 74 65 64 2e 20 2a 2f   be inserted. */
0850: 0a 20 20 20 20 63 68 61 72 20 2a 73 68 6f 77 43  .    char *showC
0860: 68 61 72 3b 09 09 2f 2a 20 56 61 6c 75 65 20 6f  har;../* Value o
0870: 66 20 2d 73 68 6f 77 20 6f 70 74 69 6f 6e 2e 20  f -show option. 
0880: 20 49 66 20 6e 6f 6e 2d 4e 55 4c 4c 2c 20 66 69   If non-NULL, fi
0890: 72 73 74 0a 09 09 09 09 20 2a 20 63 68 61 72 61  rst..... * chara
08a0: 63 74 65 72 20 69 73 20 75 73 65 64 20 66 6f 72  cter is used for
08b0: 20 64 69 73 70 6c 61 79 69 6e 67 20 61 6c 6c 0a   displaying all.
08c0: 09 09 09 09 20 2a 20 63 68 61 72 61 63 74 65 72  .... * character
08d0: 73 20 69 6e 20 65 6e 74 72 79 2e 20 20 4d 61 6c  s in entry.  Mal
08e0: 6c 6f 63 27 65 64 2e 20 2a 2f 0a 20 20 20 20 63  loc'ed. */.    c
08f0: 68 61 72 20 2a 64 69 73 70 6c 61 79 53 74 72 69  har *displayStri
0900: 6e 67 3b 09 2f 2a 20 49 66 20 6e 6f 6e 2d 4e 55  ng;./* If non-NU
0910: 4c 4c 2c 20 70 6f 69 6e 74 73 20 74 6f 20 73 74  LL, points to st
0920: 72 69 6e 67 20 77 69 74 68 20 73 61 6d 65 0a 09  ring with same..
0930: 09 09 09 20 2a 20 6c 65 6e 67 74 68 20 61 73 20  ... * length as 
0940: 73 74 72 69 6e 67 20 62 75 74 20 77 68 6f 73 65  string but whose
0950: 20 63 68 61 72 61 63 74 65 72 73 0a 09 09 09 09   characters.....
0960: 20 2a 20 61 72 65 20 61 6c 6c 20 65 71 75 61 6c   * are all equal
0970: 20 74 6f 20 73 68 6f 77 43 68 61 72 2e 20 20 4d   to showChar.  M
0980: 61 6c 6c 6f 63 27 65 64 2e 20 2a 2f 0a 0a 20 20  alloc'ed. */..  
0990: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 49 6e 66 6f    /*.     * Info
09a0: 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 77 68  rmation about wh
09b0: 61 74 27 73 20 73 65 6c 65 63 74 65 64 2c 20 69  at's selected, i
09c0: 66 20 61 6e 79 2e 0a 20 20 20 20 20 2a 2f 0a 0a  f any..     */..
09d0: 20 20 20 20 69 6e 74 20 73 65 6c 65 63 74 46 69      int selectFi
09e0: 72 73 74 3b 09 09 2f 2a 20 49 6e 64 65 78 20 6f  rst;../* Index o
09f0: 66 20 66 69 72 73 74 20 73 65 6c 65 63 74 65 64  f first selected
0a00: 20 63 68 61 72 61 63 74 65 72 20 28 2d 31 20 6d   character (-1 m
0a10: 65 61 6e 73 0a 09 09 09 09 20 2a 20 6e 6f 74 68  eans..... * noth
0a20: 69 6e 67 20 73 65 6c 65 63 74 65 64 2e 20 2a 2f  ing selected. */
0a30: 0a 20 20 20 20 69 6e 74 20 73 65 6c 65 63 74 4c  .    int selectL
0a40: 61 73 74 3b 09 09 2f 2a 20 49 6e 64 65 78 20 6f  ast;../* Index o
0a50: 66 20 6c 61 73 74 20 73 65 6c 65 63 74 65 64 20  f last selected 
0a60: 63 68 61 72 61 63 74 65 72 20 28 2d 31 20 6d 65  character (-1 me
0a70: 61 6e 73 0a 09 09 09 09 20 2a 20 6e 6f 74 68 69  ans..... * nothi
0a80: 6e 67 20 73 65 6c 65 63 74 65 64 2e 20 2a 2f 0a  ng selected. */.
0a90: 20 20 20 20 69 6e 74 20 73 65 6c 65 63 74 41 6e      int selectAn
0aa0: 63 68 6f 72 3b 09 09 2f 2a 20 46 69 78 65 64 20  chor;../* Fixed 
0ab0: 65 6e 64 20 6f 66 20 73 65 6c 65 63 74 69 6f 6e  end of selection
0ac0: 20 28 69 2e 65 2e 20 22 73 65 6c 65 63 74 20 74   (i.e. "select t
0ad0: 6f 22 0a 09 09 09 09 20 2a 20 6f 70 65 72 61 74  o"..... * operat
0ae0: 69 6f 6e 20 77 69 6c 6c 20 75 73 65 20 74 68 69  ion will use thi
0af0: 73 20 61 73 20 6f 6e 65 20 65 6e 64 20 6f 66 20  s as one end of 
0b00: 74 68 65 0a 09 09 09 09 20 2a 20 73 65 6c 65 63  the..... * selec
0b10: 74 69 6f 6e 29 2e 20 2a 2f 0a 0a 20 20 20 20 2f  tion). */..    /
0b20: 2a 0a 20 20 20 20 20 2a 20 4d 69 73 63 65 6c 6c  *.     * Miscell
0b30: 61 6e 65 6f 75 73 20 69 6e 66 6f 72 6d 61 74 69  aneous informati
0b40: 6f 6e 3a 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20  on:.     */..   
0b50: 20 63 68 61 72 20 2a 74 61 6b 65 46 6f 63 75 73   char *takeFocus
0b60: 3b 09 09 2f 2a 20 56 61 6c 75 65 20 6f 66 20 2d  ;../* Value of -
0b70: 74 61 6b 65 66 6f 63 75 73 20 6f 70 74 69 6f 6e  takefocus option
0b80: 3b 20 20 6e 6f 74 20 75 73 65 64 20 69 6e 0a 09  ;  not used in..
0b90: 09 09 09 20 2a 20 74 68 65 20 43 20 63 6f 64 65  ... * the C code
0ba0: 2c 20 62 75 74 20 75 73 65 64 20 62 79 20 6b 65  , but used by ke
0bb0: 79 62 6f 61 72 64 20 74 72 61 76 65 72 73 61 6c  yboard traversal
0bc0: 0a 09 09 09 09 20 2a 20 73 63 72 69 70 74 73 2e  ..... * scripts.
0bd0: 20 20 4d 61 6c 6c 6f 63 27 65 64 2c 20 62 75 74    Malloc'ed, but
0be0: 20 6d 61 79 20 62 65 20 4e 55 4c 4c 2e 20 2a 2f   may be NULL. */
0bf0: 0a 20 20 20 20 63 68 61 72 20 2a 73 63 72 6f 6c  .    char *scrol
0c00: 6c 43 6d 64 3b 09 09 2f 2a 20 43 6f 6d 6d 61 6e  lCmd;../* Comman
0c10: 64 20 70 72 65 66 69 78 20 66 6f 72 20 63 6f 6d  d prefix for com
0c20: 6d 75 6e 69 63 61 74 69 6e 67 20 77 69 74 68 0a  municating with.
0c30: 09 09 09 09 20 2a 20 73 63 72 6f 6c 6c 62 61 72  .... * scrollbar
0c40: 28 73 29 2e 20 20 4d 61 6c 6c 6f 63 27 65 64 2e  (s).  Malloc'ed.
0c50: 20 20 4e 55 4c 4c 20 6d 65 61 6e 73 0a 09 09 09    NULL means....
0c60: 09 20 2a 20 6e 6f 20 63 6f 6d 6d 61 6e 64 20 74  . * no command t
0c70: 6f 20 69 73 73 75 65 2e 20 2a 2f 0a 20 20 20 20  o issue. */.    
0c80: 69 6e 74 20 66 6c 61 67 73 3b 09 09 09 2f 2a 20  int flags;.../* 
0c90: 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 66 6c  Miscellaneous fl
0ca0: 61 67 73 3b 20 20 73 65 65 20 62 65 6c 6f 77 20  ags;  see below 
0cb0: 66 6f 72 0a 09 09 09 09 20 2a 20 64 65 66 69 6e  for..... * defin
0cc0: 69 74 69 6f 6e 73 2e 20 2a 2f 0a 7d 20 45 6e 74  itions. */.} Ent
0cd0: 72 79 3b 0a 0a 2f 2a 0a 20 2a 20 41 73 73 69 67  ry;../*. * Assig
0ce0: 6e 65 64 20 62 69 74 73 20 6f 66 20 22 66 6c 61  ned bits of "fla
0cf0: 67 73 22 20 66 69 65 6c 64 73 20 6f 66 20 45 6e  gs" fields of En
0d00: 74 72 79 20 73 74 72 75 63 74 75 72 65 73 2c 20  try structures, 
0d10: 61 6e 64 20 77 68 61 74 20 74 68 6f 73 65 0a 20  and what those. 
0d20: 2a 20 62 69 74 73 20 6d 65 61 6e 3a 0a 20 2a 0a  * bits mean:. *.
0d30: 20 2a 20 52 45 44 52 41 57 5f 50 45 4e 44 49 4e   * REDRAW_PENDIN
0d40: 47 3a 09 09 4e 6f 6e 2d 7a 65 72 6f 20 6d 65 61  G:..Non-zero mea
0d50: 6e 73 20 61 20 44 6f 57 68 65 6e 49 64 6c 65 20  ns a DoWhenIdle 
0d60: 68 61 6e 64 6c 65 72 20 68 61 73 0a 20 2a 09 09  handler has. *..
0d70: 09 09 61 6c 72 65 61 64 79 20 62 65 65 6e 20 71  ..already been q
0d80: 75 65 75 65 64 20 74 6f 20 72 65 64 69 73 70 6c  ueued to redispl
0d90: 61 79 20 74 68 65 20 65 6e 74 72 79 2e 0a 20 2a  ay the entry.. *
0da0: 20 42 4f 52 44 45 52 5f 4e 45 45 44 45 44 3a 09   BORDER_NEEDED:.
0db0: 09 4e 6f 6e 2d 7a 65 72 6f 20 6d 65 61 6e 73 20  .Non-zero means 
0dc0: 33 2d 44 20 62 6f 72 64 65 72 20 6d 75 73 74 20  3-D border must 
0dd0: 62 65 20 72 65 64 72 61 77 6e 0a 20 2a 09 09 09  be redrawn. *...
0de0: 09 61 72 6f 75 6e 64 20 77 69 6e 64 6f 77 20 64  .around window d
0df0: 75 72 69 6e 67 20 72 65 64 69 73 70 6c 61 79 2e  uring redisplay.
0e00: 20 20 4e 6f 72 6d 61 6c 6c 79 0a 20 2a 09 09 09    Normally. *...
0e10: 09 6f 6e 6c 79 20 74 65 78 74 20 70 6f 72 74 69  .only text porti
0e20: 6f 6e 20 6e 65 65 64 73 20 74 6f 20 62 65 20 72  on needs to be r
0e30: 65 64 72 61 77 6e 2e 0a 20 2a 20 47 4f 54 5f 46  edrawn.. * GOT_F
0e40: 4f 43 55 53 3a 09 09 09 4e 6f 6e 2d 7a 65 72 6f  OCUS:...Non-zero
0e50: 20 6d 65 61 6e 73 20 74 68 69 73 20 77 69 6e 64   means this wind
0e60: 6f 77 20 68 61 73 20 74 68 65 20 69 6e 70 75 74  ow has the input
0e70: 0a 20 2a 09 09 09 09 66 6f 63 75 73 2e 0a 20 2a  . *....focus.. *
0e80: 20 55 50 44 41 54 45 5f 53 43 52 4f 4c 4c 42 41   UPDATE_SCROLLBA
0e90: 52 3a 09 09 4e 6f 6e 2d 7a 65 72 6f 20 6d 65 61  R:..Non-zero mea
0ea0: 6e 73 20 73 63 72 6f 6c 6c 62 61 72 20 73 68 6f  ns scrollbar sho
0eb0: 75 6c 64 20 62 65 20 75 70 64 61 74 65 64 0a 20  uld be updated. 
0ec0: 2a 09 09 09 09 64 75 72 69 6e 67 20 6e 65 78 74  *....during next
0ed0: 20 72 65 64 69 73 70 6c 61 79 20 6f 70 65 72 61   redisplay opera
0ee0: 74 69 6f 6e 2e 0a 20 2a 2f 0a 0a 23 64 65 66 69  tion.. */..#defi
0ef0: 6e 65 20 52 45 44 52 41 57 5f 50 45 4e 44 49 4e  ne REDRAW_PENDIN
0f00: 47 09 09 31 0a 23 64 65 66 69 6e 65 20 42 4f 52  G..1.#define BOR
0f10: 44 45 52 5f 4e 45 45 44 45 44 09 09 32 0a 23 64  DER_NEEDED..2.#d
0f20: 65 66 69 6e 65 20 47 4f 54 5f 46 4f 43 55 53 09  efine GOT_FOCUS.
0f30: 09 34 0a 23 64 65 66 69 6e 65 20 55 50 44 41 54  .4.#define UPDAT
0f40: 45 5f 53 43 52 4f 4c 4c 42 41 52 09 38 0a 0a 2f  E_SCROLLBAR.8../
0f50: 2a 0a 20 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69  *. * The followi
0f60: 6e 67 20 6d 61 63 72 6f 20 64 65 66 69 6e 65 73  ng macro defines
0f70: 20 68 6f 77 20 6d 61 6e 79 20 65 78 74 72 61 20   how many extra 
0f80: 70 69 78 65 6c 73 20 74 6f 20 6c 65 61 76 65 20  pixels to leave 
0f90: 6f 6e 20 65 61 63 68 0a 20 2a 20 73 69 64 65 20  on each. * side 
0fa0: 6f 66 20 74 68 65 20 74 65 78 74 20 69 6e 20 74  of the text in t
0fb0: 68 65 20 65 6e 74 72 79 2e 0a 20 2a 2f 0a 0a 23  he entry.. */..#
0fc0: 64 65 66 69 6e 65 20 58 50 41 44 20 31 0a 23 64  define XPAD 1.#d
0fd0: 65 66 69 6e 65 20 59 50 41 44 20 31 0a 0a 2f 2a  efine YPAD 1../*
0fe0: 0a 20 2a 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 20  . * Information 
0ff0: 75 73 65 64 20 66 6f 72 20 61 72 67 76 20 70 61  used for argv pa
1000: 72 73 69 6e 67 2e 0a 20 2a 2f 0a 0a 73 74 61 74  rsing.. */..stat
1010: 69 63 20 54 6b 5f 43 6f 6e 66 69 67 53 70 65 63  ic Tk_ConfigSpec
1020: 20 63 6f 6e 66 69 67 53 70 65 63 73 5b 5d 20 3d   configSpecs[] =
1030: 20 7b 0a 20 20 20 20 7b 54 4b 5f 43 4f 4e 46 49   {.    {TK_CONFI
1040: 47 5f 53 59 4e 4f 4e 59 4d 2c 20 22 2d 62 64 22  G_SYNONYM, "-bd"
1050: 2c 20 22 62 6f 72 64 65 72 57 69 64 74 68 22 2c  , "borderWidth",
1060: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 2c 0a   (char *) NULL,.
1070: 09 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 2c 20  .(char *) NULL, 
1080: 30 2c 20 30 7d 2c 0a 20 20 20 20 7b 54 4b 5f 43  0, 0},.    {TK_C
1090: 4f 4e 46 49 47 5f 50 49 58 45 4c 53 2c 20 22 2d  ONFIG_PIXELS, "-
10a0: 62 6f 72 64 65 72 77 69 64 74 68 22 2c 20 22 62  borderwidth", "b
10b0: 6f 72 64 65 72 57 69 64 74 68 22 2c 20 22 42 6f  orderWidth", "Bo
10c0: 72 64 65 72 57 69 64 74 68 22 2c 0a 09 44 45 46  rderWidth",..DEF
10d0: 5f 45 4e 54 52 59 5f 42 4f 52 44 45 52 5f 57 49  _ENTRY_BORDER_WI
10e0: 44 54 48 2c 20 54 6b 5f 4f 66 66 73 65 74 28 45  DTH, Tk_Offset(E
10f0: 6e 74 72 79 2c 20 62 6f 72 64 65 72 57 69 64 74  ntry, borderWidt
1100: 68 29 2c 20 30 7d 2c 0a 20 20 20 20 7b 54 4b 5f  h), 0},.    {TK_
1110: 43 4f 4e 46 49 47 5f 4a 55 53 54 49 46 59 2c 20  CONFIG_JUSTIFY, 
1120: 22 2d 6a 75 73 74 69 66 79 22 2c 20 22 6a 75 73  "-justify", "jus
1130: 74 69 66 79 22 2c 20 22 4a 75 73 74 69 66 79 22  tify", "Justify"
1140: 2c 0a 09 44 45 46 5f 45 4e 54 52 59 5f 4a 55 53  ,..DEF_ENTRY_JUS
1150: 54 49 46 59 2c 20 54 6b 5f 4f 66 66 73 65 74 28  TIFY, Tk_Offset(
1160: 45 6e 74 72 79 2c 20 6a 75 73 74 69 66 79 29 2c  Entry, justify),
1170: 20 30 7d 2c 0a 20 20 20 20 7b 54 4b 5f 43 4f 4e   0},.    {TK_CON
1180: 46 49 47 5f 53 54 52 49 4e 47 2c 20 22 2d 73 68  FIG_STRING, "-sh
1190: 6f 77 22 2c 20 22 73 68 6f 77 22 2c 20 22 53 68  ow", "show", "Sh
11a0: 6f 77 22 2c 0a 09 44 45 46 5f 45 4e 54 52 59 5f  ow",..DEF_ENTRY_
11b0: 53 48 4f 57 2c 20 54 6b 5f 4f 66 66 73 65 74 28  SHOW, Tk_Offset(
11c0: 45 6e 74 72 79 2c 20 73 68 6f 77 43 68 61 72 29  Entry, showChar)
11d0: 2c 20 54 4b 5f 43 4f 4e 46 49 47 5f 4e 55 4c 4c  , TK_CONFIG_NULL
11e0: 5f 4f 4b 7d 2c 0a 20 20 20 20 7b 54 4b 5f 43 4f  _OK},.    {TK_CO
11f0: 4e 46 49 47 5f 55 49 44 2c 20 22 2d 73 74 61 74  NFIG_UID, "-stat
1200: 65 22 2c 20 22 73 74 61 74 65 22 2c 20 22 53 74  e", "state", "St
1210: 61 74 65 22 2c 0a 09 44 45 46 5f 45 4e 54 52 59  ate",..DEF_ENTRY
1220: 5f 53 54 41 54 45 2c 20 54 6b 5f 4f 66 66 73 65  _STATE, Tk_Offse
1230: 74 28 45 6e 74 72 79 2c 20 73 74 61 74 65 29 2c  t(Entry, state),
1240: 20 30 7d 2c 0a 20 20 20 20 7b 54 4b 5f 43 4f 4e   0},.    {TK_CON
1250: 46 49 47 5f 53 54 52 49 4e 47 2c 20 22 2d 74 61  FIG_STRING, "-ta
1260: 6b 65 66 6f 63 75 73 22 2c 20 22 74 61 6b 65 46  kefocus", "takeF
1270: 6f 63 75 73 22 2c 20 22 54 61 6b 65 46 6f 63 75  ocus", "TakeFocu
1280: 73 22 2c 0a 09 44 45 46 5f 45 4e 54 52 59 5f 54  s",..DEF_ENTRY_T
1290: 41 4b 45 5f 46 4f 43 55 53 2c 20 54 6b 5f 4f 66  AKE_FOCUS, Tk_Of
12a0: 66 73 65 74 28 45 6e 74 72 79 2c 20 74 61 6b 65  fset(Entry, take
12b0: 46 6f 63 75 73 29 2c 20 54 4b 5f 43 4f 4e 46 49  Focus), TK_CONFI
12c0: 47 5f 4e 55 4c 4c 5f 4f 4b 7d 2c 0a 20 20 20 20  G_NULL_OK},.    
12d0: 7b 54 4b 5f 43 4f 4e 46 49 47 5f 53 54 52 49 4e  {TK_CONFIG_STRIN
12e0: 47 2c 20 22 2d 74 65 78 74 76 61 72 69 61 62 6c  G, "-textvariabl
12f0: 65 22 2c 20 22 74 65 78 74 56 61 72 69 61 62 6c  e", "textVariabl
1300: 65 22 2c 20 22 56 61 72 69 61 62 6c 65 22 2c 0a  e", "Variable",.
1310: 09 44 45 46 5f 45 4e 54 52 59 5f 54 45 58 54 5f  .DEF_ENTRY_TEXT_
1320: 56 41 52 49 41 42 4c 45 2c 20 54 6b 5f 4f 66 66  VARIABLE, Tk_Off
1330: 73 65 74 28 45 6e 74 72 79 2c 20 74 65 78 74 56  set(Entry, textV
1340: 61 72 4e 61 6d 65 29 2c 0a 09 54 4b 5f 43 4f 4e  arName),..TK_CON
1350: 46 49 47 5f 4e 55 4c 4c 5f 4f 4b 7d 2c 0a 20 20  FIG_NULL_OK},.  
1360: 20 20 7b 54 4b 5f 43 4f 4e 46 49 47 5f 49 4e 54    {TK_CONFIG_INT
1370: 2c 20 22 2d 77 69 64 74 68 22 2c 20 22 77 69 64  , "-width", "wid
1380: 74 68 22 2c 20 22 57 69 64 74 68 22 2c 0a 09 44  th", "Width",..D
1390: 45 46 5f 45 4e 54 52 59 5f 57 49 44 54 48 2c 20  EF_ENTRY_WIDTH, 
13a0: 54 6b 5f 4f 66 66 73 65 74 28 45 6e 74 72 79 2c  Tk_Offset(Entry,
13b0: 20 70 72 65 66 57 69 64 74 68 29 2c 20 30 7d 2c   prefWidth), 0},
13c0: 0a 20 20 20 20 7b 54 4b 5f 43 4f 4e 46 49 47 5f  .    {TK_CONFIG_
13d0: 53 54 52 49 4e 47 2c 20 22 2d 78 73 63 72 6f 6c  STRING, "-xscrol
13e0: 6c 63 6f 6d 6d 61 6e 64 22 2c 20 22 78 53 63 72  lcommand", "xScr
13f0: 6f 6c 6c 43 6f 6d 6d 61 6e 64 22 2c 20 22 53 63  ollCommand", "Sc
1400: 72 6f 6c 6c 43 6f 6d 6d 61 6e 64 22 2c 0a 09 44  rollCommand",..D
1410: 45 46 5f 45 4e 54 52 59 5f 53 43 52 4f 4c 4c 5f  EF_ENTRY_SCROLL_
1420: 43 4f 4d 4d 41 4e 44 2c 20 54 6b 5f 4f 66 66 73  COMMAND, Tk_Offs
1430: 65 74 28 45 6e 74 72 79 2c 20 73 63 72 6f 6c 6c  et(Entry, scroll
1440: 43 6d 64 29 2c 0a 09 54 4b 5f 43 4f 4e 46 49 47  Cmd),..TK_CONFIG
1450: 5f 4e 55 4c 4c 5f 4f 4b 7d 2c 0a 20 20 20 20 7b  _NULL_OK},.    {
1460: 54 4b 5f 43 4f 4e 46 49 47 5f 45 4e 44 2c 20 28  TK_CONFIG_END, (
1470: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 2c 20 28 63  char *) NULL, (c
1480: 68 61 72 20 2a 29 20 4e 55 4c 4c 2c 20 28 63 68  har *) NULL, (ch
1490: 61 72 20 2a 29 20 4e 55 4c 4c 2c 0a 09 28 63 68  ar *) NULL,..(ch
14a0: 61 72 20 2a 29 20 4e 55 4c 4c 2c 20 30 2c 20 30  ar *) NULL, 0, 0
14b0: 7d 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 20 46 6c 61 67  }.};../*. * Flag
14c0: 73 20 66 6f 72 20 47 65 74 45 6e 74 72 79 49 6e  s for GetEntryIn
14d0: 64 65 78 20 70 72 6f 63 65 64 75 72 65 3a 0a 20  dex procedure:. 
14e0: 2a 2f 0a 0a 23 64 65 66 69 6e 65 20 5a 45 52 4f  */..#define ZERO
14f0: 5f 4f 4b 09 09 09 31 0a 23 64 65 66 69 6e 65 20  _OK...1.#define 
1500: 4c 41 53 54 5f 50 4c 55 53 5f 4f 4e 45 5f 4f 4b  LAST_PLUS_ONE_OK
1510: 09 32 0a 0a 2f 2a 0a 20 2a 20 46 6f 72 77 61 72  .2../*. * Forwar
1520: 64 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 66  d declarations f
1530: 6f 72 20 70 72 6f 63 65 64 75 72 65 73 20 64 65  or procedures de
1540: 66 69 6e 65 64 20 6c 61 74 65 72 20 69 6e 20 74  fined later in t
1550: 68 69 73 20 66 69 6c 65 3a 0a 20 2a 2f 0a 0a 73  his file:. */..s
1560: 74 61 74 69 63 20 69 6e 74 09 09 43 6f 6e 66 69  tatic int..Confi
1570: 67 75 72 65 45 6e 74 72 79 20 5f 41 4e 53 49 5f  gureEntry _ANSI_
1580: 41 52 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72  ARGS_((Tcl_Inter
1590: 70 20 2a 69 6e 74 65 72 70 2c 0a 09 09 09 20 20  p *interp,....  
15a0: 20 20 45 6e 74 72 79 20 2a 65 6e 74 72 79 50 74    Entry *entryPt
15b0: 72 2c 20 69 6e 74 20 61 72 67 63 2c 20 63 68 61  r, int argc, cha
15c0: 72 20 2a 2a 61 72 67 76 2c 0a 09 09 09 20 20 20  r **argv,....   
15d0: 20 69 6e 74 20 66 6c 61 67 73 29 29 3b 0a 73 74   int flags));.st
15e0: 61 74 69 63 20 76 6f 69 64 09 09 44 65 6c 65 74  atic void..Delet
15f0: 65 43 68 61 72 73 20 5f 41 4e 53 49 5f 41 52 47  eChars _ANSI_ARG
1600: 53 5f 28 28 45 6e 74 72 79 20 2a 65 6e 74 72 79  S_((Entry *entry
1610: 50 74 72 2c 20 69 6e 74 20 69 6e 64 65 78 2c 0a  Ptr, int index,.
1620: 09 09 09 20 20 20 20 69 6e 74 20 63 6f 75 6e 74  ...    int count
1630: 29 29 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 09  ));.static void.
1640: 09 44 65 73 74 72 6f 79 45 6e 74 72 79 20 5f 41  .DestroyEntry _A
1650: 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e  NSI_ARGS_((Clien
1660: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61  tData clientData
1670: 29 29 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 09  ));.static void.
1680: 09 44 69 73 70 6c 61 79 45 6e 74 72 79 20 5f 41  .DisplayEntry _A
1690: 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e  NSI_ARGS_((Clien
16a0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61  tData clientData
16b0: 29 29 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 09  ));.static void.
16c0: 09 45 6e 74 72 79 43 6d 64 44 65 6c 65 74 65 64  .EntryCmdDeleted
16d0: 50 72 6f 63 20 5f 41 4e 53 49 5f 41 52 47 53 5f  Proc _ANSI_ARGS_
16e0: 28 28 0a 09 09 09 20 20 20 20 43 6c 69 65 6e 74  ((....    Client
16f0: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 29  Data clientData)
1700: 29 3b 0a 73 74 61 74 69 63 20 76 6f 69 64 09 09  );.static void..
1710: 45 6e 74 72 79 43 6f 6d 70 75 74 65 47 65 6f 6d  EntryComputeGeom
1720: 65 74 72 79 20 5f 41 4e 53 49 5f 41 52 47 53 5f  etry _ANSI_ARGS_
1730: 28 28 45 6e 74 72 79 20 2a 65 6e 74 72 79 50 74  ((Entry *entryPt
1740: 72 29 29 3b 0a 73 74 61 74 69 63 20 76 6f 69 64  r));.static void
1750: 09 09 45 6e 74 72 79 45 76 65 6e 74 50 72 6f 63  ..EntryEventProc
1760: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c   _ANSI_ARGS_((Cl
1770: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44  ientData clientD
1780: 61 74 61 2c 0a 09 09 09 20 20 20 20 58 45 76 65  ata,....    XEve
1790: 6e 74 20 2a 65 76 65 6e 74 50 74 72 29 29 3b 0a  nt *eventPtr));.
17a0: 73 74 61 74 69 63 20 76 6f 69 64 09 09 45 76 65  static void..Eve
17b0: 6e 74 75 61 6c 6c 79 52 65 64 72 61 77 20 5f 41  ntuallyRedraw _A
17c0: 4e 53 49 5f 41 52 47 53 5f 28 28 45 6e 74 72 79  NSI_ARGS_((Entry
17d0: 20 2a 65 6e 74 72 79 50 74 72 29 29 3b 0a 73 74   *entryPtr));.st
17e0: 61 74 69 63 20 76 6f 69 64 09 09 45 6e 74 72 79  atic void..Entry
17f0: 53 65 74 56 61 6c 75 65 20 5f 41 4e 53 49 5f 41  SetValue _ANSI_A
1800: 52 47 53 5f 28 28 45 6e 74 72 79 20 2a 65 6e 74  RGS_((Entry *ent
1810: 72 79 50 74 72 2c 0a 09 09 09 20 20 20 20 63 68  ryPtr,....    ch
1820: 61 72 20 2a 76 61 6c 75 65 29 29 3b 0a 73 74 61  ar *value));.sta
1830: 74 69 63 20 76 6f 69 64 09 09 45 6e 74 72 79 53  tic void..EntryS
1840: 65 6c 65 63 74 54 6f 20 5f 41 4e 53 49 5f 41 52  electTo _ANSI_AR
1850: 47 53 5f 28 28 0a 09 09 09 20 20 20 20 45 6e 74  GS_((....    Ent
1860: 72 79 20 2a 65 6e 74 72 79 50 74 72 2c 20 69 6e  ry *entryPtr, in
1870: 74 20 69 6e 64 65 78 29 29 3b 0a 73 74 61 74 69  t index));.stati
1880: 63 20 63 68 61 72 20 2a 09 09 45 6e 74 72 79 54  c char *..EntryT
1890: 65 78 74 56 61 72 50 72 6f 63 20 5f 41 4e 53 49  extVarProc _ANSI
18a0: 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e 74 44 61  _ARGS_((ClientDa
18b0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 09  ta clientData,..
18c0: 09 09 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70  ..    Tcl_Interp
18d0: 20 2a 69 6e 74 65 72 70 2c 20 63 68 61 72 20 2a   *interp, char *
18e0: 6e 61 6d 65 31 2c 20 63 68 61 72 20 2a 6e 61 6d  name1, char *nam
18f0: 65 32 2c 0a 09 09 09 20 20 20 20 69 6e 74 20 66  e2,....    int f
1900: 6c 61 67 73 29 29 3b 0a 73 74 61 74 69 63 20 76  lags));.static v
1910: 6f 69 64 09 09 45 6e 74 72 79 55 70 64 61 74 65  oid..EntryUpdate
1920: 53 63 72 6f 6c 6c 62 61 72 20 5f 41 4e 53 49 5f  Scrollbar _ANSI_
1930: 41 52 47 53 5f 28 28 45 6e 74 72 79 20 2a 65 6e  ARGS_((Entry *en
1940: 74 72 79 50 74 72 29 29 3b 0a 73 74 61 74 69 63  tryPtr));.static
1950: 20 76 6f 69 64 09 09 45 6e 74 72 79 56 61 6c 75   void..EntryValu
1960: 65 43 68 61 6e 67 65 64 20 5f 41 4e 53 49 5f 41  eChanged _ANSI_A
1970: 52 47 53 5f 28 28 45 6e 74 72 79 20 2a 65 6e 74  RGS_((Entry *ent
1980: 72 79 50 74 72 29 29 3b 0a 73 74 61 74 69 63 20  ryPtr));.static 
1990: 76 6f 69 64 09 09 45 6e 74 72 79 56 69 73 69 62  void..EntryVisib
19a0: 6c 65 52 61 6e 67 65 20 5f 41 4e 53 49 5f 41 52  leRange _ANSI_AR
19b0: 47 53 5f 28 28 45 6e 74 72 79 20 2a 65 6e 74 72  GS_((Entry *entr
19c0: 79 50 74 72 2c 0a 09 09 09 20 20 20 20 64 6f 75  yPtr,....    dou
19d0: 62 6c 65 20 2a 66 69 72 73 74 50 74 72 2c 20 64  ble *firstPtr, d
19e0: 6f 75 62 6c 65 20 2a 6c 61 73 74 50 74 72 29 29  ouble *lastPtr))
19f0: 3b 0a 73 74 61 74 69 63 20 69 6e 74 09 09 45 6e  ;.static int..En
1a00: 74 72 79 57 69 64 67 65 74 43 6d 64 20 5f 41 4e  tryWidgetCmd _AN
1a10: 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 65 6e 74  SI_ARGS_((Client
1a20: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c  Data clientData,
1a30: 0a 09 09 09 20 20 20 20 54 63 6c 5f 49 6e 74 65  ....    Tcl_Inte
1a40: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20  rp *interp, int 
1a50: 61 72 67 63 2c 20 63 68 61 72 20 2a 2a 61 72 67  argc, char **arg
1a60: 76 29 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 09  v));.static int.
1a70: 09 47 65 74 45 6e 74 72 79 49 6e 64 65 78 20 5f  .GetEntryIndex _
1a80: 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f  ANSI_ARGS_((Tcl_
1a90: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a  Interp *interp,.
1aa0: 09 09 09 20 20 20 20 45 6e 74 72 79 20 2a 65 6e  ...    Entry *en
1ab0: 74 72 79 50 74 72 2c 20 63 68 61 72 20 2a 73 74  tryPtr, char *st
1ac0: 72 69 6e 67 2c 20 69 6e 74 20 2a 69 6e 64 65 78  ring, int *index
1ad0: 50 74 72 29 29 3b 0a 73 74 61 74 69 63 20 76 6f  Ptr));.static vo
1ae0: 69 64 09 09 49 6e 73 65 72 74 43 68 61 72 73 20  id..InsertChars 
1af0: 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 45 6e 74  _ANSI_ARGS_((Ent
1b00: 72 79 20 2a 65 6e 74 72 79 50 74 72 2c 20 69 6e  ry *entryPtr, in
1b10: 74 20 69 6e 64 65 78 2c 0a 09 09 09 20 20 20 20  t index,....    
1b20: 63 68 61 72 20 2a 73 74 72 69 6e 67 29 29 3b 0a  char *string));.
1b30: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  ../*. *---------
1b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1b70: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6b 5f 45  -----. *. * Tk_E
1b80: 6e 74 72 79 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a  ntryCmd --. *. *
1b90: 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20  .This procedure 
1ba0: 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 70 72  is invoked to pr
1bb0: 6f 63 65 73 73 20 74 68 65 20 22 65 6e 74 72 79  ocess the "entry
1bc0: 22 20 54 63 6c 0a 20 2a 09 63 6f 6d 6d 61 6e 64  " Tcl. *.command
1bd0: 2e 20 20 53 65 65 20 74 68 65 20 75 73 65 72 20  .  See the user 
1be0: 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f  documentation fo
1bf0: 72 20 64 65 74 61 69 6c 73 20 6f 6e 20 77 68 61  r details on wha
1c00: 74 0a 20 2a 09 69 74 20 64 6f 65 73 2e 0a 20 2a  t. *.it does.. *
1c10: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09  . * Results:. *.
1c20: 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72  A standard Tcl r
1c30: 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64  esult.. *. * Sid
1c40: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65  e effects:. *.Se
1c50: 65 20 74 68 65 20 75 73 65 72 20 64 6f 63 75 6d  e the user docum
1c60: 65 6e 74 61 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 2d  entation.. *. *-
1c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
1cb0: 2f 0a 0a 69 6e 74 0a 54 6b 5f 45 6e 74 72 79 43  /..int.Tk_EntryC
1cc0: 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69  md(clientData, i
1cd0: 6e 74 65 72 70 2c 20 61 72 67 63 2c 20 61 72 67  nterp, argc, arg
1ce0: 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74  v).    ClientDat
1cf0: 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a  a clientData;./*
1d00: 20 4d 61 69 6e 20 77 69 6e 64 6f 77 20 61 73 73   Main window ass
1d10: 6f 63 69 61 74 65 64 20 77 69 74 68 0a 09 09 09  ociated with....
1d20: 09 20 2a 20 69 6e 74 65 72 70 72 65 74 65 72 2e  . * interpreter.
1d30: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65   */.    Tcl_Inte
1d40: 72 70 20 2a 69 6e 74 65 72 70 3b 09 09 2f 2a 20  rp *interp;../* 
1d50: 43 75 72 72 65 6e 74 20 69 6e 74 65 72 70 72 65  Current interpre
1d60: 74 65 72 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20  ter. */.    int 
1d70: 61 72 67 63 3b 09 09 09 2f 2a 20 4e 75 6d 62 65  argc;.../* Numbe
1d80: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2e 20  r of arguments. 
1d90: 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a 2a 61 72  */.    char **ar
1da0: 67 76 3b 09 09 2f 2a 20 41 72 67 75 6d 65 6e 74  gv;../* Argument
1db0: 20 73 74 72 69 6e 67 73 2e 20 2a 2f 0a 7b 0a 20   strings. */.{. 
1dc0: 20 20 20 54 6b 5f 57 69 6e 64 6f 77 20 74 6b 77     Tk_Window tkw
1dd0: 69 6e 20 3d 20 28 54 6b 5f 57 69 6e 64 6f 77 29  in = (Tk_Window)
1de0: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20   clientData;.   
1df0: 20 72 65 67 69 73 74 65 72 20 45 6e 74 72 79 20   register Entry 
1e00: 2a 65 6e 74 72 79 50 74 72 3b 0a 20 20 20 20 54  *entryPtr;.    T
1e10: 6b 5f 57 69 6e 64 6f 77 20 6e 65 77 3b 0a 0a 20  k_Window new;.. 
1e20: 20 20 20 69 66 20 28 61 72 67 63 20 3c 20 32 29     if (argc < 2)
1e30: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65   {..Tcl_AppendRe
1e40: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72  sult(interp, "wr
1e50: 6f 6e 67 20 23 20 61 72 67 73 3a 20 20 73 68 6f  ong # args:  sho
1e60: 75 6c 64 20 62 65 20 5c 22 22 2c 0a 09 09 61 72  uld be \"",...ar
1e70: 67 76 5b 30 5d 2c 20 22 20 70 61 74 68 4e 61 6d  gv[0], " pathNam
1e80: 65 20 3f 6f 70 74 69 6f 6e 73 3f 5c 22 22 2c 20  e ?options?\"", 
1e90: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a  (char *) NULL);.
1ea0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f  .return TCL_ERRO
1eb0: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6e 65  R;.    }..    ne
1ec0: 77 20 3d 20 54 6b 5f 43 72 65 61 74 65 57 69 6e  w = Tk_CreateWin
1ed0: 64 6f 77 46 72 6f 6d 50 61 74 68 28 69 6e 74 65  dowFromPath(inte
1ee0: 72 70 2c 20 74 6b 77 69 6e 2c 20 61 72 67 76 5b  rp, tkwin, argv[
1ef0: 31 5d 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c  1], (char *) NUL
1f00: 4c 29 3b 0a 20 20 20 20 69 66 20 28 6e 65 77 20  L);.    if (new 
1f10: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75  == NULL) {..retu
1f20: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
1f30: 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20    }..    /*.    
1f40: 20 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 74 68   * Initialize th
1f50: 65 20 66 69 65 6c 64 73 20 6f 66 20 74 68 65 20  e fields of the 
1f60: 73 74 72 75 63 74 75 72 65 20 74 68 61 74 20 77  structure that w
1f70: 6f 6e 27 74 20 62 65 20 69 6e 69 74 69 61 6c 69  on't be initiali
1f80: 7a 65 64 0a 20 20 20 20 20 2a 20 62 79 20 43 6f  zed.     * by Co
1f90: 6e 66 69 67 75 72 65 45 6e 74 72 79 2c 20 6f 72  nfigureEntry, or
1fa0: 20 74 68 61 74 20 43 6f 6e 66 69 67 75 72 65 45   that ConfigureE
1fb0: 6e 74 72 79 20 72 65 71 75 69 72 65 73 20 74 6f  ntry requires to
1fc0: 20 62 65 0a 20 20 20 20 20 2a 20 69 6e 69 74 69   be.     * initi
1fd0: 61 6c 69 7a 65 64 20 61 6c 72 65 61 64 79 20 28  alized already (
1fe0: 65 2e 67 2e 20 72 65 73 6f 75 72 63 65 20 70 6f  e.g. resource po
1ff0: 69 6e 74 65 72 73 29 2e 0a 20 20 20 20 20 2a 2f  inters)..     */
2000: 0a 0a 20 20 20 20 65 6e 74 72 79 50 74 72 20 3d  ..    entryPtr =
2010: 20 28 45 6e 74 72 79 20 2a 29 20 63 6b 61 6c 6c   (Entry *) ckall
2020: 6f 63 28 73 69 7a 65 6f 66 28 45 6e 74 72 79 29  oc(sizeof(Entry)
2030: 29 3b 0a 20 20 20 20 65 6e 74 72 79 50 74 72 2d  );.    entryPtr-
2040: 3e 74 6b 77 69 6e 20 3d 20 6e 65 77 3b 0a 20 20  >tkwin = new;.  
2050: 20 20 65 6e 74 72 79 50 74 72 2d 3e 69 6e 74 65    entryPtr->inte
2060: 72 70 20 3d 20 69 6e 74 65 72 70 3b 0a 20 20 20  rp = interp;.   
2070: 20 65 6e 74 72 79 50 74 72 2d 3e 77 69 64 67 65   entryPtr->widge
2080: 74 43 6d 64 20 3d 20 54 63 6c 5f 43 72 65 61 74  tCmd = Tcl_Creat
2090: 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c  eCommand(interp,
20a0: 0a 09 20 20 20 20 54 6b 5f 50 61 74 68 4e 61 6d  ..    Tk_PathNam
20b0: 65 28 65 6e 74 72 79 50 74 72 2d 3e 74 6b 77 69  e(entryPtr->tkwi
20c0: 6e 29 2c 20 45 6e 74 72 79 57 69 64 67 65 74 43  n), EntryWidgetC
20d0: 6d 64 2c 0a 09 20 20 20 20 28 43 6c 69 65 6e 74  md,..    (Client
20e0: 44 61 74 61 29 20 65 6e 74 72 79 50 74 72 2c 20  Data) entryPtr, 
20f0: 45 6e 74 72 79 43 6d 64 44 65 6c 65 74 65 64 50  EntryCmdDeletedP
2100: 72 6f 63 29 3b 0a 20 20 20 20 65 6e 74 72 79 50  roc);.    entryP
2110: 74 72 2d 3e 6e 75 6d 43 68 61 72 73 20 3d 20 30  tr->numChars = 0
2120: 3b 0a 20 20 20 20 65 6e 74 72 79 50 74 72 2d 3e  ;.    entryPtr->
2130: 73 74 72 69 6e 67 20 3d 20 28 63 68 61 72 20 2a  string = (char *
2140: 29 20 63 6b 61 6c 6c 6f 63 28 31 29 3b 0a 20 20  ) ckalloc(1);.  
2150: 20 20 65 6e 74 72 79 50 74 72 2d 3e 73 74 72 69    entryPtr->stri
2160: 6e 67 5b 30 5d 20 3d 20 27 5c 30 27 3b 0a 20 20  ng[0] = '\0';.  
2170: 20 20 65 6e 74 72 79 50 74 72 2d 3e 74 65 78 74    entryPtr->text
2180: 56 61 72 4e 61 6d 65 20 3d 20 4e 55 4c 4c 3b 0a  VarName = NULL;.
2190: 20 20 20 20 65 6e 74 72 79 50 74 72 2d 3e 73 74      entryPtr->st
21a0: 61 74 65 20 3d 20 74 6b 4e 6f 72 6d 61 6c 55 69  ate = tkNormalUi
21b0: 64 3b 0a 20 20 20 20 65 6e 74 72 79 50 74 72 2d  d;.    entryPtr-
21c0: 3e 62 6f 72 64 65 72 57 69 64 74 68 20 3d 20 30  >borderWidth = 0
21d0: 3b 0a 20 20 20 20 65 6e 74 72 79 50 74 72 2d 3e  ;.    entryPtr->
21e0: 6a 75 73 74 69 66 79 20 3d 20 54 4b 5f 4a 55 53  justify = TK_JUS
21f0: 54 49 46 59 5f 4c 45 46 54 3b 0a 20 20 20 20 65  TIFY_LEFT;.    e
2200: 6e 74 72 79 50 74 72 2d 3e 70 72 65 66 57 69 64  ntryPtr->prefWid
2210: 74 68 20 3d 20 30 3b 0a 20 20 20 20 65 6e 74 72  th = 0;.    entr
2220: 79 50 74 72 2d 3e 6c 65 66 74 49 6e 64 65 78 20  yPtr->leftIndex 
2230: 3d 20 30 3b 0a 20 20 20 20 65 6e 74 72 79 50 74  = 0;.    entryPt
2240: 72 2d 3e 6c 65 66 74 58 20 3d 20 30 3b 0a 20 20  r->leftX = 0;.  
2250: 20 20 65 6e 74 72 79 50 74 72 2d 3e 74 61 62 4f    entryPtr->tabO
2260: 72 69 67 69 6e 20 3d 20 30 3b 0a 20 20 20 20 65  rigin = 0;.    e
2270: 6e 74 72 79 50 74 72 2d 3e 69 6e 73 65 72 74 50  ntryPtr->insertP
2280: 6f 73 20 3d 20 30 3b 0a 20 20 20 20 65 6e 74 72  os = 0;.    entr
2290: 79 50 74 72 2d 3e 73 68 6f 77 43 68 61 72 20 3d  yPtr->showChar =
22a0: 20 4e 55 4c 4c 3b 0a 20 20 20 20 65 6e 74 72 79   NULL;.    entry
22b0: 50 74 72 2d 3e 64 69 73 70 6c 61 79 53 74 72 69  Ptr->displayStri
22c0: 6e 67 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 65  ng = NULL;.    e
22d0: 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65 63 74 46  ntryPtr->selectF
22e0: 69 72 73 74 20 3d 20 2d 31 3b 0a 20 20 20 20 65  irst = -1;.    e
22f0: 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65 63 74 4c  ntryPtr->selectL
2300: 61 73 74 20 3d 20 2d 31 3b 0a 20 20 20 20 65 6e  ast = -1;.    en
2310: 74 72 79 50 74 72 2d 3e 73 65 6c 65 63 74 41 6e  tryPtr->selectAn
2320: 63 68 6f 72 20 3d 20 30 3b 0a 20 20 20 20 65 6e  chor = 0;.    en
2330: 74 72 79 50 74 72 2d 3e 74 61 6b 65 46 6f 63 75  tryPtr->takeFocu
2340: 73 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 65 6e  s = NULL;.    en
2350: 74 72 79 50 74 72 2d 3e 73 63 72 6f 6c 6c 43 6d  tryPtr->scrollCm
2360: 64 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 65 6e  d = NULL;.    en
2370: 74 72 79 50 74 72 2d 3e 66 6c 61 67 73 20 3d 20  tryPtr->flags = 
2380: 30 3b 0a 0a 20 20 20 20 54 6b 5f 53 65 74 43 6c  0;..    Tk_SetCl
2390: 61 73 73 28 65 6e 74 72 79 50 74 72 2d 3e 74 6b  ass(entryPtr->tk
23a0: 77 69 6e 2c 20 22 45 6e 74 72 79 22 29 3b 0a 20  win, "Entry");. 
23b0: 20 20 20 54 6b 5f 43 72 65 61 74 65 45 76 65 6e     Tk_CreateEven
23c0: 74 48 61 6e 64 6c 65 72 28 65 6e 74 72 79 50 74  tHandler(entryPt
23d0: 72 2d 3e 74 6b 77 69 6e 2c 0a 20 20 20 20 09 20  r->tkwin,.    . 
23e0: 20 20 20 43 54 4b 5f 45 58 50 4f 53 45 5f 45 56     CTK_EXPOSE_EV
23f0: 45 4e 54 5f 4d 41 53 4b 7c 43 54 4b 5f 4d 41 50  ENT_MASK|CTK_MAP
2400: 5f 45 56 45 4e 54 5f 4d 41 53 4b 7c 43 54 4b 5f  _EVENT_MASK|CTK_
2410: 44 45 53 54 52 4f 59 5f 45 56 45 4e 54 5f 4d 41  DESTROY_EVENT_MA
2420: 53 4b 0a 20 20 20 20 09 20 20 20 20 7c 43 54 4b  SK.    .    |CTK
2430: 5f 46 4f 43 55 53 5f 45 56 45 4e 54 5f 4d 41 53  _FOCUS_EVENT_MAS
2440: 4b 2c 0a 09 20 20 20 20 45 6e 74 72 79 45 76 65  K,..    EntryEve
2450: 6e 74 50 72 6f 63 2c 20 28 43 6c 69 65 6e 74 44  ntProc, (ClientD
2460: 61 74 61 29 20 65 6e 74 72 79 50 74 72 29 3b 0a  ata) entryPtr);.
2470: 20 20 20 20 69 66 20 28 43 6f 6e 66 69 67 75 72      if (Configur
2480: 65 45 6e 74 72 79 28 69 6e 74 65 72 70 2c 20 65  eEntry(interp, e
2490: 6e 74 72 79 50 74 72 2c 20 61 72 67 63 2d 32 2c  ntryPtr, argc-2,
24a0: 20 61 72 67 76 2b 32 2c 20 30 29 20 21 3d 20 54   argv+2, 0) != T
24b0: 43 4c 5f 4f 4b 29 20 7b 0a 09 67 6f 74 6f 20 65  CL_OK) {..goto e
24c0: 72 72 6f 72 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  rror;.    }..   
24d0: 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69   Tcl_SetResult(i
24e0: 6e 74 65 72 70 2c 54 6b 5f 50 61 74 68 4e 61 6d  nterp,Tk_PathNam
24f0: 65 28 65 6e 74 72 79 50 74 72 2d 3e 74 6b 77 69  e(entryPtr->tkwi
2500: 6e 29 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45  n), TCL_VOLATILE
2510: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43  );.    return TC
2520: 4c 5f 4f 4b 3b 0a 0a 20 20 20 20 65 72 72 6f 72  L_OK;..    error
2530: 3a 0a 20 20 20 20 54 6b 5f 44 65 73 74 72 6f 79  :.    Tk_Destroy
2540: 57 69 6e 64 6f 77 28 65 6e 74 72 79 50 74 72 2d  Window(entryPtr-
2550: 3e 74 6b 77 69 6e 29 3b 0a 20 20 20 20 72 65 74  >tkwin);.    ret
2560: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d  urn TCL_ERROR;.}
2570: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  .../*. *--------
2580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
25a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
25b0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 74  ------. *. * Ent
25c0: 72 79 57 69 64 67 65 74 43 6d 64 20 2d 2d 0a 20  ryWidgetCmd --. 
25d0: 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64  *. *.This proced
25e0: 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 74  ure is invoked t
25f0: 6f 20 70 72 6f 63 65 73 73 20 74 68 65 20 54 63  o process the Tc
2600: 6c 20 63 6f 6d 6d 61 6e 64 0a 20 2a 09 74 68 61  l command. *.tha
2610: 74 20 63 6f 72 72 65 73 70 6f 6e 64 73 20 74 6f  t corresponds to
2620: 20 61 20 77 69 64 67 65 74 20 6d 61 6e 61 67 65   a widget manage
2630: 64 20 62 79 20 74 68 69 73 20 6d 6f 64 75 6c 65  d by this module
2640: 2e 0a 20 2a 09 53 65 65 20 74 68 65 20 75 73 65  .. *.See the use
2650: 72 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20  r documentation 
2660: 66 6f 72 20 64 65 74 61 69 6c 73 20 6f 6e 20 77  for details on w
2670: 68 61 74 20 69 74 20 64 6f 65 73 2e 0a 20 2a 0a  hat it does.. *.
2680: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41   * Results:. *.A
2690: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65   standard Tcl re
26a0: 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65  sult.. *. * Side
26b0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 65   effects:. *.See
26c0: 20 74 68 65 20 75 73 65 72 20 64 6f 63 75 6d 65   the user docume
26d0: 6e 74 61 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 2d 2d  ntation.. *. *--
26e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
26f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
2720: 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 45 6e 74  ..static int.Ent
2730: 72 79 57 69 64 67 65 74 43 6d 64 28 63 6c 69 65  ryWidgetCmd(clie
2740: 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20  ntData, interp, 
2750: 61 72 67 63 2c 20 61 72 67 76 29 0a 20 20 20 20  argc, argv).    
2760: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e  ClientData clien
2770: 74 44 61 74 61 3b 09 09 2f 2a 20 49 6e 66 6f 72  tData;../* Infor
2780: 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 65 6e 74  mation about ent
2790: 72 79 20 77 69 64 67 65 74 2e 20 2a 2f 0a 20 20  ry widget. */.  
27a0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
27b0: 74 65 72 70 3b 09 09 09 2f 2a 20 43 75 72 72 65  terp;.../* Curre
27c0: 6e 74 20 69 6e 74 65 72 70 72 65 74 65 72 2e 20  nt interpreter. 
27d0: 2a 2f 0a 20 20 20 20 69 6e 74 20 61 72 67 63 3b  */.    int argc;
27e0: 09 09 09 09 2f 2a 20 4e 75 6d 62 65 72 20 6f 66  ..../* Number of
27f0: 20 61 72 67 75 6d 65 6e 74 73 2e 20 2a 2f 0a 20   arguments. */. 
2800: 20 20 20 63 68 61 72 20 2a 2a 61 72 67 76 3b 09     char **argv;.
2810: 09 09 2f 2a 20 41 72 67 75 6d 65 6e 74 20 73 74  ../* Argument st
2820: 72 69 6e 67 73 2e 20 2a 2f 0a 7b 0a 20 20 20 20  rings. */.{.    
2830: 72 65 67 69 73 74 65 72 20 45 6e 74 72 79 20 2a  register Entry *
2840: 65 6e 74 72 79 50 74 72 20 3d 20 28 45 6e 74 72  entryPtr = (Entr
2850: 79 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b  y *) clientData;
2860: 0a 20 20 20 20 69 6e 74 20 72 65 73 75 6c 74 20  .    int result 
2870: 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 73 69  = TCL_OK;.    si
2880: 7a 65 5f 74 20 6c 65 6e 67 74 68 3b 0a 20 20 20  ze_t length;.   
2890: 20 69 6e 74 20 63 3b 0a 0a 20 20 20 20 69 66 20   int c;..    if 
28a0: 28 61 72 67 63 20 3c 20 32 29 20 7b 0a 09 54 63  (argc < 2) {..Tc
28b0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
28c0: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20  nterp, "wrong # 
28d0: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20  args: should be 
28e0: 5c 22 22 2c 0a 09 09 61 72 67 76 5b 30 5d 2c 20  \"",...argv[0], 
28f0: 22 20 6f 70 74 69 6f 6e 20 3f 61 72 67 20 61 72  " option ?arg ar
2900: 67 20 2e 2e 2e 3f 5c 22 22 2c 20 28 63 68 61 72  g ...?\"", (char
2910: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75   *) NULL);..retu
2920: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
2930: 20 20 7d 0a 20 20 20 20 54 6b 5f 50 72 65 73 65    }.    Tk_Prese
2940: 72 76 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29  rve((ClientData)
2950: 20 65 6e 74 72 79 50 74 72 29 3b 0a 20 20 20 20   entryPtr);.    
2960: 63 20 3d 20 61 72 67 76 5b 31 5d 5b 30 5d 3b 0a  c = argv[1][0];.
2970: 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 73 74 72      length = str
2980: 6c 65 6e 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20  len(argv[1]);.  
2990: 20 20 69 66 20 28 28 63 20 3d 3d 20 27 63 27 29    if ((c == 'c')
29a0: 20 26 26 20 28 73 74 72 6e 63 6d 70 28 61 72 67   && (strncmp(arg
29b0: 76 5b 31 5d 2c 20 22 63 67 65 74 22 2c 20 6c 65  v[1], "cget", le
29c0: 6e 67 74 68 29 20 3d 3d 20 30 29 0a 09 20 20 20  ngth) == 0)..   
29d0: 20 26 26 20 28 6c 65 6e 67 74 68 20 3e 3d 20 32   && (length >= 2
29e0: 29 29 20 7b 0a 09 69 66 20 28 61 72 67 63 20 21  )) {..if (argc !
29f0: 3d 20 33 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f  = 3) {..    Tcl_
2a00: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
2a10: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72  erp, "wrong # ar
2a20: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22  gs: should be \"
2a30: 22 2c 0a 09 09 20 20 20 20 61 72 67 76 5b 30 5d  ",...    argv[0]
2a40: 2c 20 22 20 63 67 65 74 20 6f 70 74 69 6f 6e 5c  , " cget option\
2a50: 22 22 2c 0a 09 09 20 20 20 20 28 63 68 61 72 20  "",...    (char 
2a60: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 67  *) NULL);..    g
2a70: 6f 74 6f 20 65 72 72 6f 72 3b 0a 09 7d 0a 09 72  oto error;..}..r
2a80: 65 73 75 6c 74 20 3d 20 54 6b 5f 43 6f 6e 66 69  esult = Tk_Confi
2a90: 67 75 72 65 56 61 6c 75 65 28 69 6e 74 65 72 70  gureValue(interp
2aa0: 2c 20 65 6e 74 72 79 50 74 72 2d 3e 74 6b 77 69  , entryPtr->tkwi
2ab0: 6e 2c 20 63 6f 6e 66 69 67 53 70 65 63 73 2c 0a  n, configSpecs,.
2ac0: 09 09 28 63 68 61 72 20 2a 29 20 65 6e 74 72 79  ..(char *) entry
2ad0: 50 74 72 2c 20 61 72 67 76 5b 32 5d 2c 20 30 29  Ptr, argv[2], 0)
2ae0: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20  ;.    } else if 
2af0: 28 28 63 20 3d 3d 20 27 63 27 29 20 26 26 20 28  ((c == 'c') && (
2b00: 73 74 72 6e 63 6d 70 28 61 72 67 76 5b 31 5d 2c  strncmp(argv[1],
2b10: 20 22 63 6f 6e 66 69 67 75 72 65 22 2c 20 6c 65   "configure", le
2b20: 6e 67 74 68 29 20 3d 3d 20 30 29 0a 09 20 20 20  ngth) == 0)..   
2b30: 20 26 26 20 28 6c 65 6e 67 74 68 20 3e 3d 20 32   && (length >= 2
2b40: 29 29 20 7b 0a 09 69 66 20 28 61 72 67 63 20 3d  )) {..if (argc =
2b50: 3d 20 32 29 20 7b 0a 09 20 20 20 20 72 65 73 75  = 2) {..    resu
2b60: 6c 74 20 3d 20 54 6b 5f 43 6f 6e 66 69 67 75 72  lt = Tk_Configur
2b70: 65 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 65 6e  eInfo(interp, en
2b80: 74 72 79 50 74 72 2d 3e 74 6b 77 69 6e 2c 20 63  tryPtr->tkwin, c
2b90: 6f 6e 66 69 67 53 70 65 63 73 2c 0a 09 09 20 20  onfigSpecs,...  
2ba0: 20 20 28 63 68 61 72 20 2a 29 20 65 6e 74 72 79    (char *) entry
2bb0: 50 74 72 2c 20 28 63 68 61 72 20 2a 29 20 4e 55  Ptr, (char *) NU
2bc0: 4c 4c 2c 20 30 29 3b 0a 09 7d 20 65 6c 73 65 20  LL, 0);..} else 
2bd0: 69 66 20 28 61 72 67 63 20 3d 3d 20 33 29 20 7b  if (argc == 3) {
2be0: 0a 09 20 20 20 20 72 65 73 75 6c 74 20 3d 20 54  ..    result = T
2bf0: 6b 5f 43 6f 6e 66 69 67 75 72 65 49 6e 66 6f 28  k_ConfigureInfo(
2c00: 69 6e 74 65 72 70 2c 20 65 6e 74 72 79 50 74 72  interp, entryPtr
2c10: 2d 3e 74 6b 77 69 6e 2c 20 63 6f 6e 66 69 67 53  ->tkwin, configS
2c20: 70 65 63 73 2c 0a 09 09 20 20 20 20 28 63 68 61  pecs,...    (cha
2c30: 72 20 2a 29 20 65 6e 74 72 79 50 74 72 2c 20 61  r *) entryPtr, a
2c40: 72 67 76 5b 32 5d 2c 20 30 29 3b 0a 09 7d 20 65  rgv[2], 0);..} e
2c50: 6c 73 65 20 7b 0a 09 20 20 20 20 72 65 73 75 6c  lse {..    resul
2c60: 74 20 3d 20 43 6f 6e 66 69 67 75 72 65 45 6e 74  t = ConfigureEnt
2c70: 72 79 28 69 6e 74 65 72 70 2c 20 65 6e 74 72 79  ry(interp, entry
2c80: 50 74 72 2c 20 61 72 67 63 2d 32 2c 20 61 72 67  Ptr, argc-2, arg
2c90: 76 2b 32 2c 0a 09 09 20 20 20 20 54 4b 5f 43 4f  v+2,...    TK_CO
2ca0: 4e 46 49 47 5f 41 52 47 56 5f 4f 4e 4c 59 29 3b  NFIG_ARGV_ONLY);
2cb0: 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 69  ..}.    } else i
2cc0: 66 20 28 28 63 20 3d 3d 20 27 64 27 29 20 26 26  f ((c == 'd') &&
2cd0: 20 28 73 74 72 6e 63 6d 70 28 61 72 67 76 5b 31   (strncmp(argv[1
2ce0: 5d 2c 20 22 64 65 6c 65 74 65 22 2c 20 6c 65 6e  ], "delete", len
2cf0: 67 74 68 29 20 3d 3d 20 30 29 29 20 7b 0a 09 69  gth) == 0)) {..i
2d00: 6e 74 20 66 69 72 73 74 2c 20 6c 61 73 74 3b 0a  nt first, last;.
2d10: 0a 09 69 66 20 28 28 61 72 67 63 20 3c 20 33 29  ..if ((argc < 3)
2d20: 20 7c 7c 20 28 61 72 67 63 20 3e 20 34 29 29 20   || (argc > 4)) 
2d30: 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e  {..    Tcl_Appen
2d40: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
2d50: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73  "wrong # args: s
2d60: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 09 09  hould be \"",...
2d70: 20 20 20 20 61 72 67 76 5b 30 5d 2c 20 22 20 64      argv[0], " d
2d80: 65 6c 65 74 65 20 66 69 72 73 74 49 6e 64 65 78  elete firstIndex
2d90: 20 3f 6c 61 73 74 49 6e 64 65 78 3f 5c 22 22 2c   ?lastIndex?\"",
2da0: 0a 09 09 20 20 20 20 28 63 68 61 72 20 2a 29 20  ...    (char *) 
2db0: 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 67 6f 74 6f  NULL);..    goto
2dc0: 20 65 72 72 6f 72 3b 0a 09 7d 0a 09 69 66 20 28   error;..}..if (
2dd0: 47 65 74 45 6e 74 72 79 49 6e 64 65 78 28 69 6e  GetEntryIndex(in
2de0: 74 65 72 70 2c 20 65 6e 74 72 79 50 74 72 2c 20  terp, entryPtr, 
2df0: 61 72 67 76 5b 32 5d 2c 20 26 66 69 72 73 74 29  argv[2], &first)
2e00: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20   != TCL_OK) {.. 
2e10: 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 09     goto error;..
2e20: 7d 0a 09 69 66 20 28 61 72 67 63 20 3d 3d 20 33  }..if (argc == 3
2e30: 29 20 7b 0a 09 20 20 20 20 6c 61 73 74 20 3d 20  ) {..    last = 
2e40: 66 69 72 73 74 2b 31 3b 0a 09 7d 20 65 6c 73 65  first+1;..} else
2e50: 20 7b 0a 09 20 20 20 20 69 66 20 28 47 65 74 45   {..    if (GetE
2e60: 6e 74 72 79 49 6e 64 65 78 28 69 6e 74 65 72 70  ntryIndex(interp
2e70: 2c 20 65 6e 74 72 79 50 74 72 2c 20 61 72 67 76  , entryPtr, argv
2e80: 5b 33 5d 2c 20 26 6c 61 73 74 29 20 21 3d 20 54  [3], &last) != T
2e90: 43 4c 5f 4f 4b 29 20 7b 0a 09 09 67 6f 74 6f 20  CL_OK) {...goto 
2ea0: 65 72 72 6f 72 3b 0a 09 20 20 20 20 7d 0a 09 7d  error;..    }..}
2eb0: 0a 09 69 66 20 28 28 6c 61 73 74 20 3e 3d 20 66  ..if ((last >= f
2ec0: 69 72 73 74 29 20 26 26 20 28 65 6e 74 72 79 50  irst) && (entryP
2ed0: 74 72 2d 3e 73 74 61 74 65 20 3d 3d 20 74 6b 4e  tr->state == tkN
2ee0: 6f 72 6d 61 6c 55 69 64 29 29 20 7b 0a 09 20 20  ormalUid)) {..  
2ef0: 20 20 44 65 6c 65 74 65 43 68 61 72 73 28 65 6e    DeleteChars(en
2f00: 74 72 79 50 74 72 2c 20 66 69 72 73 74 2c 20 6c  tryPtr, first, l
2f10: 61 73 74 2d 66 69 72 73 74 29 3b 0a 09 7d 0a 20  ast-first);..}. 
2f20: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 28 63     } else if ((c
2f30: 20 3d 3d 20 27 67 27 29 20 26 26 20 28 73 74 72   == 'g') && (str
2f40: 6e 63 6d 70 28 61 72 67 76 5b 31 5d 2c 20 22 67  ncmp(argv[1], "g
2f50: 65 74 22 2c 20 6c 65 6e 67 74 68 29 20 3d 3d 20  et", length) == 
2f60: 30 29 29 20 7b 0a 09 69 66 20 28 61 72 67 63 20  0)) {..if (argc 
2f70: 21 3d 20 32 29 20 7b 0a 09 20 20 20 20 54 63 6c  != 2) {..    Tcl
2f80: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
2f90: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61  terp, "wrong # a
2fa0: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c  rgs: should be \
2fb0: 22 22 2c 0a 09 09 20 20 20 20 61 72 67 76 5b 30  "",...    argv[0
2fc0: 5d 2c 20 22 20 67 65 74 5c 22 22 2c 20 28 63 68  ], " get\"", (ch
2fd0: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20  ar *) NULL);..  
2fe0: 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 09 7d    goto error;..}
2ff0: 0a 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28  ..Tcl_SetResult(
3000: 69 6e 74 65 72 70 2c 65 6e 74 72 79 50 74 72 2d  interp,entryPtr-
3010: 3e 73 74 72 69 6e 67 2c 54 43 4c 5f 56 4f 4c 41  >string,TCL_VOLA
3020: 54 49 4c 45 29 3b 0a 20 20 20 20 7d 20 65 6c 73  TILE);.    } els
3030: 65 20 69 66 20 28 28 63 20 3d 3d 20 27 69 27 29  e if ((c == 'i')
3040: 20 26 26 20 28 73 74 72 6e 63 6d 70 28 61 72 67   && (strncmp(arg
3050: 76 5b 31 5d 2c 20 22 69 63 75 72 73 6f 72 22 2c  v[1], "icursor",
3060: 20 6c 65 6e 67 74 68 29 20 3d 3d 20 30 29 0a 09   length) == 0)..
3070: 20 20 20 20 26 26 20 28 6c 65 6e 67 74 68 20 3e      && (length >
3080: 3d 20 32 29 29 20 7b 0a 09 69 66 20 28 61 72 67  = 2)) {..if (arg
3090: 63 20 21 3d 20 33 29 20 7b 0a 09 20 20 20 20 54  c != 3) {..    T
30a0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
30b0: 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23  interp, "wrong #
30c0: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65   args: should be
30d0: 20 5c 22 22 2c 0a 09 09 20 20 20 20 61 72 67 76   \"",...    argv
30e0: 5b 30 5d 2c 20 22 20 69 63 75 72 73 6f 72 20 70  [0], " icursor p
30f0: 6f 73 5c 22 22 2c 0a 09 09 20 20 20 20 28 63 68  os\"",...    (ch
3100: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20  ar *) NULL);..  
3110: 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 09 7d    goto error;..}
3120: 0a 09 69 66 20 28 47 65 74 45 6e 74 72 79 49 6e  ..if (GetEntryIn
3130: 64 65 78 28 69 6e 74 65 72 70 2c 20 65 6e 74 72  dex(interp, entr
3140: 79 50 74 72 2c 20 61 72 67 76 5b 32 5d 2c 20 26  yPtr, argv[2], &
3150: 65 6e 74 72 79 50 74 72 2d 3e 69 6e 73 65 72 74  entryPtr->insert
3160: 50 6f 73 29 0a 09 09 21 3d 20 54 43 4c 5f 4f 4b  Pos)...!= TCL_OK
3170: 29 20 7b 0a 09 20 20 20 20 67 6f 74 6f 20 65 72  ) {..    goto er
3180: 72 6f 72 3b 0a 09 7d 0a 09 45 76 65 6e 74 75 61  ror;..}..Eventua
3190: 6c 6c 79 52 65 64 72 61 77 28 65 6e 74 72 79 50  llyRedraw(entryP
31a0: 74 72 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20  tr);.    } else 
31b0: 69 66 20 28 28 63 20 3d 3d 20 27 69 27 29 20 26  if ((c == 'i') &
31c0: 26 20 28 73 74 72 6e 63 6d 70 28 61 72 67 76 5b  & (strncmp(argv[
31d0: 31 5d 2c 20 22 69 6e 64 65 78 22 2c 20 6c 65 6e  1], "index", len
31e0: 67 74 68 29 20 3d 3d 20 30 29 0a 09 20 20 20 20  gth) == 0)..    
31f0: 26 26 20 28 6c 65 6e 67 74 68 20 3e 3d 20 33 29  && (length >= 3)
3200: 29 20 7b 0a 09 69 6e 74 20 69 6e 64 65 78 3b 0a  ) {..int index;.
3210: 0a 09 69 66 20 28 61 72 67 63 20 21 3d 20 33 29  ..if (argc != 3)
3220: 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65   {..    Tcl_Appe
3230: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
3240: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20   "wrong # args: 
3250: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 09  should be \"",..
3260: 09 20 20 20 20 61 72 67 76 5b 30 5d 2c 20 22 20  .    argv[0], " 
3270: 69 6e 64 65 78 20 73 74 72 69 6e 67 5c 22 22 2c  index string\"",
3280: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b   (char *) NULL);
3290: 0a 09 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72  ..    goto error
32a0: 3b 0a 09 7d 0a 09 69 66 20 28 47 65 74 45 6e 74  ;..}..if (GetEnt
32b0: 72 79 49 6e 64 65 78 28 69 6e 74 65 72 70 2c 20  ryIndex(interp, 
32c0: 65 6e 74 72 79 50 74 72 2c 20 61 72 67 76 5b 32  entryPtr, argv[2
32d0: 5d 2c 20 26 69 6e 64 65 78 29 20 21 3d 20 54 43  ], &index) != TC
32e0: 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 67 6f 74  L_OK) {..    got
32f0: 6f 20 65 72 72 6f 72 3b 0a 09 7d 0a 09 7b 0a 20  o error;..}..{. 
3300: 20 20 20 20 20 20 20 20 20 63 68 61 72 20 62 75           char bu
3310: 66 66 65 72 5b 32 30 5d 3b 0a 09 20 20 73 70 72  ffer[20];..  spr
3320: 69 6e 74 66 28 62 75 66 66 65 72 2c 20 22 25 64  intf(buffer, "%d
3330: 22 2c 20 69 6e 64 65 78 29 3b 0a 09 20 20 54 63  ", index);..  Tc
3340: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65  l_SetResult(inte
3350: 72 70 2c 62 75 66 66 65 72 2c 54 43 4c 5f 56 4f  rp,buffer,TCL_VO
3360: 4c 41 54 49 4c 45 29 3b 0a 09 7d 0a 20 20 20 20  LATILE);..}.    
3370: 7d 20 65 6c 73 65 20 69 66 20 28 28 63 20 3d 3d  } else if ((c ==
3380: 20 27 69 27 29 20 26 26 20 28 73 74 72 6e 63 6d   'i') && (strncm
3390: 70 28 61 72 67 76 5b 31 5d 2c 20 22 69 6e 73 65  p(argv[1], "inse
33a0: 72 74 22 2c 20 6c 65 6e 67 74 68 29 20 3d 3d 20  rt", length) == 
33b0: 30 29 0a 09 20 20 20 20 26 26 20 28 6c 65 6e 67  0)..    && (leng
33c0: 74 68 20 3e 3d 20 33 29 29 20 7b 0a 09 69 6e 74  th >= 3)) {..int
33d0: 20 69 6e 64 65 78 3b 0a 0a 09 69 66 20 28 61 72   index;...if (ar
33e0: 67 63 20 21 3d 20 34 29 20 7b 0a 09 20 20 20 20  gc != 4) {..    
33f0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
3400: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20  (interp, "wrong 
3410: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62  # args: should b
3420: 65 20 5c 22 22 2c 0a 09 09 20 20 20 20 61 72 67  e \"",...    arg
3430: 76 5b 30 5d 2c 20 22 20 69 6e 73 65 72 74 20 69  v[0], " insert i
3440: 6e 64 65 78 20 74 65 78 74 5c 22 22 2c 0a 09 09  ndex text\"",...
3450: 20 20 20 20 28 63 68 61 72 20 2a 29 20 4e 55 4c      (char *) NUL
3460: 4c 29 3b 0a 09 20 20 20 20 67 6f 74 6f 20 65 72  L);..    goto er
3470: 72 6f 72 3b 0a 09 7d 0a 09 69 66 20 28 47 65 74  ror;..}..if (Get
3480: 45 6e 74 72 79 49 6e 64 65 78 28 69 6e 74 65 72  EntryIndex(inter
3490: 70 2c 20 65 6e 74 72 79 50 74 72 2c 20 61 72 67  p, entryPtr, arg
34a0: 76 5b 32 5d 2c 20 26 69 6e 64 65 78 29 20 21 3d  v[2], &index) !=
34b0: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20   TCL_OK) {..    
34c0: 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 09 7d 0a 09  goto error;..}..
34d0: 69 66 20 28 65 6e 74 72 79 50 74 72 2d 3e 73 74  if (entryPtr->st
34e0: 61 74 65 20 3d 3d 20 74 6b 4e 6f 72 6d 61 6c 55  ate == tkNormalU
34f0: 69 64 29 20 7b 0a 09 20 20 20 20 49 6e 73 65 72  id) {..    Inser
3500: 74 43 68 61 72 73 28 65 6e 74 72 79 50 74 72 2c  tChars(entryPtr,
3510: 20 69 6e 64 65 78 2c 20 61 72 67 76 5b 33 5d 29   index, argv[3])
3520: 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20  ;..}.    } else 
3530: 69 66 20 28 28 63 20 3d 3d 20 27 73 27 29 20 26  if ((c == 's') &
3540: 26 20 28 6c 65 6e 67 74 68 20 3e 3d 20 32 29 0a  & (length >= 2).
3550: 09 20 20 20 20 26 26 20 28 73 74 72 6e 63 6d 70  .    && (strncmp
3560: 28 61 72 67 76 5b 31 5d 2c 20 22 73 63 61 6e 22  (argv[1], "scan"
3570: 2c 20 6c 65 6e 67 74 68 29 20 3d 3d 20 30 29 29  , length) == 0))
3580: 20 7b 0a 09 72 65 73 75 6c 74 20 3d 20 43 74 6b   {..result = Ctk
3590: 5f 55 6e 73 75 70 70 6f 72 74 65 64 28 69 6e 74  _Unsupported(int
35a0: 65 72 70 2c 20 22 65 6e 74 72 79 20 73 63 61 6e  erp, "entry scan
35b0: 22 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69  ");.    } else i
35c0: 66 20 28 28 63 20 3d 3d 20 27 73 27 29 20 26 26  f ((c == 's') &&
35d0: 20 28 6c 65 6e 67 74 68 20 3e 3d 20 32 29 0a 09   (length >= 2)..
35e0: 20 20 20 20 26 26 20 28 73 74 72 6e 63 6d 70 28      && (strncmp(
35f0: 61 72 67 76 5b 31 5d 2c 20 22 73 65 6c 65 63 74  argv[1], "select
3600: 69 6f 6e 22 2c 20 6c 65 6e 67 74 68 29 20 3d 3d  ion", length) ==
3610: 20 30 29 29 20 7b 0a 09 69 6e 74 20 69 6e 64 65   0)) {..int inde
3620: 78 2c 20 69 6e 64 65 78 32 3b 0a 0a 09 69 66 20  x, index2;...if 
3630: 28 61 72 67 63 20 3c 20 33 29 20 7b 0a 09 20 20  (argc < 3) {..  
3640: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
3650: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e  lt(interp, "wron
3660: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64  g # args: should
3670: 20 62 65 20 5c 22 22 2c 0a 09 09 20 20 20 20 61   be \"",...    a
3680: 72 67 76 5b 30 5d 2c 20 22 20 73 65 6c 65 63 74  rgv[0], " select
3690: 20 6f 70 74 69 6f 6e 20 3f 69 6e 64 65 78 3f 5c   option ?index?\
36a0: 22 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c  "", (char *) NUL
36b0: 4c 29 3b 0a 09 20 20 20 20 67 6f 74 6f 20 65 72  L);..    goto er
36c0: 72 6f 72 3b 0a 09 7d 0a 09 6c 65 6e 67 74 68 20  ror;..}..length 
36d0: 3d 20 73 74 72 6c 65 6e 28 61 72 67 76 5b 32 5d  = strlen(argv[2]
36e0: 29 3b 0a 09 63 20 3d 20 61 72 67 76 5b 32 5d 5b  );..c = argv[2][
36f0: 30 5d 3b 0a 09 69 66 20 28 28 63 20 3d 3d 20 27  0];..if ((c == '
3700: 63 27 29 20 26 26 20 28 73 74 72 6e 63 6d 70 28  c') && (strncmp(
3710: 61 72 67 76 5b 32 5d 2c 20 22 63 6c 65 61 72 22  argv[2], "clear"
3720: 2c 20 6c 65 6e 67 74 68 29 20 3d 3d 20 30 29 29  , length) == 0))
3730: 20 7b 0a 09 20 20 20 20 69 66 20 28 61 72 67 63   {..    if (argc
3740: 20 21 3d 20 33 29 20 7b 0a 09 09 54 63 6c 5f 41   != 3) {...Tcl_A
3750: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
3760: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67  rp, "wrong # arg
3770: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22  s: should be \""
3780: 2c 0a 09 09 09 61 72 67 76 5b 30 5d 2c 20 22 20  ,....argv[0], " 
3790: 73 65 6c 65 63 74 69 6f 6e 20 63 6c 65 61 72 5c  selection clear\
37a0: 22 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c  "", (char *) NUL
37b0: 4c 29 3b 0a 09 09 67 6f 74 6f 20 65 72 72 6f 72  L);...goto error
37c0: 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 69 66  ;..    }..    if
37d0: 20 28 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65   (entryPtr->sele
37e0: 63 74 46 69 72 73 74 20 21 3d 20 2d 31 29 20 7b  ctFirst != -1) {
37f0: 0a 09 09 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c  ...entryPtr->sel
3800: 65 63 74 46 69 72 73 74 20 3d 20 65 6e 74 72 79  ectFirst = entry
3810: 50 74 72 2d 3e 73 65 6c 65 63 74 4c 61 73 74 20  Ptr->selectLast 
3820: 3d 20 2d 31 3b 0a 09 09 45 76 65 6e 74 75 61 6c  = -1;...Eventual
3830: 6c 79 52 65 64 72 61 77 28 65 6e 74 72 79 50 74  lyRedraw(entryPt
3840: 72 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20  r);..    }..    
3850: 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 7d 20 65 6c  goto done;..} el
3860: 73 65 20 69 66 20 28 28 63 20 3d 3d 20 27 70 27  se if ((c == 'p'
3870: 29 20 26 26 20 28 73 74 72 6e 63 6d 70 28 61 72  ) && (strncmp(ar
3880: 67 76 5b 32 5d 2c 20 22 70 72 65 73 65 6e 74 22  gv[2], "present"
3890: 2c 20 6c 65 6e 67 74 68 29 20 3d 3d 20 30 29 29  , length) == 0))
38a0: 20 7b 0a 09 20 20 20 20 69 66 20 28 61 72 67 63   {..    if (argc
38b0: 20 21 3d 20 33 29 20 7b 0a 09 09 54 63 6c 5f 41   != 3) {...Tcl_A
38c0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
38d0: 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67  rp, "wrong # arg
38e0: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 22  s: should be \""
38f0: 2c 0a 09 09 09 61 72 67 76 5b 30 5d 2c 20 22 20  ,....argv[0], " 
3900: 73 65 6c 65 63 74 69 6f 6e 20 70 72 65 73 65 6e  selection presen
3910: 74 5c 22 22 2c 20 28 63 68 61 72 20 2a 29 20 4e  t\"", (char *) N
3920: 55 4c 4c 29 3b 0a 09 09 67 6f 74 6f 20 65 72 72  ULL);...goto err
3930: 6f 72 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20  or;..    }..    
3940: 69 66 20 28 65 6e 74 72 79 50 74 72 2d 3e 73 65  if (entryPtr->se
3950: 6c 65 63 74 46 69 72 73 74 20 3d 3d 20 2d 31 29  lectFirst == -1)
3960: 20 7b 0a 09 09 54 63 6c 5f 53 65 74 52 65 73 75   {...Tcl_SetResu
3970: 6c 74 28 69 6e 74 65 72 70 2c 22 30 22 2c 54 43  lt(interp,"0",TC
3980: 4c 5f 53 54 41 54 49 43 29 3b 0a 09 20 20 20 20  L_STATIC);..    
3990: 7d 20 65 6c 73 65 20 7b 0a 09 09 54 63 6c 5f 53  } else {...Tcl_S
39a0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  etResult(interp,
39b0: 22 31 22 2c 54 43 4c 5f 53 54 41 54 49 43 29 3b  "1",TCL_STATIC);
39c0: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 67 6f 74  ..    }..    got
39d0: 6f 20 64 6f 6e 65 3b 0a 09 7d 0a 09 69 66 20 28  o done;..}..if (
39e0: 61 72 67 63 20 3e 3d 20 34 29 20 7b 0a 09 20 20  argc >= 4) {..  
39f0: 20 20 69 66 20 28 47 65 74 45 6e 74 72 79 49 6e    if (GetEntryIn
3a00: 64 65 78 28 69 6e 74 65 72 70 2c 20 65 6e 74 72  dex(interp, entr
3a10: 79 50 74 72 2c 20 61 72 67 76 5b 33 5d 2c 20 26  yPtr, argv[3], &
3a20: 69 6e 64 65 78 29 20 21 3d 20 54 43 4c 5f 4f 4b  index) != TCL_OK
3a30: 29 20 7b 0a 09 09 67 6f 74 6f 20 65 72 72 6f 72  ) {...goto error
3a40: 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 69 66 20  ;..    }..}..if 
3a50: 28 28 63 20 3d 3d 20 27 61 27 29 20 26 26 20 28  ((c == 'a') && (
3a60: 73 74 72 6e 63 6d 70 28 61 72 67 76 5b 32 5d 2c  strncmp(argv[2],
3a70: 20 22 61 64 6a 75 73 74 22 2c 20 6c 65 6e 67 74   "adjust", lengt
3a80: 68 29 20 3d 3d 20 30 29 29 20 7b 0a 09 20 20 20  h) == 0)) {..   
3a90: 20 69 66 20 28 61 72 67 63 20 21 3d 20 34 29 20   if (argc != 4) 
3aa0: 7b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65  {...Tcl_AppendRe
3ab0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72  sult(interp, "wr
3ac0: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75  ong # args: shou
3ad0: 6c 64 20 62 65 20 5c 22 22 2c 0a 09 09 09 61 72  ld be \"",....ar
3ae0: 67 76 5b 30 5d 2c 20 22 20 73 65 6c 65 63 74 69  gv[0], " selecti
3af0: 6f 6e 20 61 64 6a 75 73 74 20 69 6e 64 65 78 5c  on adjust index\
3b00: 22 22 2c 0a 09 09 09 28 63 68 61 72 20 2a 29 20  "",....(char *) 
3b10: 4e 55 4c 4c 29 3b 0a 09 09 67 6f 74 6f 20 65 72  NULL);...goto er
3b20: 72 6f 72 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20  ror;..    }..   
3b30: 20 69 66 20 28 65 6e 74 72 79 50 74 72 2d 3e 73   if (entryPtr->s
3b40: 65 6c 65 63 74 46 69 72 73 74 20 3e 3d 20 30 29  electFirst >= 0)
3b50: 20 7b 0a 09 09 69 6e 74 20 68 61 6c 66 31 2c 20   {...int half1, 
3b60: 68 61 6c 66 32 3b 0a 0a 09 09 68 61 6c 66 31 20  half2;....half1 
3b70: 3d 20 28 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c  = (entryPtr->sel
3b80: 65 63 74 46 69 72 73 74 20 2b 20 65 6e 74 72 79  ectFirst + entry
3b90: 50 74 72 2d 3e 73 65 6c 65 63 74 4c 61 73 74 29  Ptr->selectLast)
3ba0: 2f 32 3b 0a 09 09 68 61 6c 66 32 20 3d 20 28 65  /2;...half2 = (e
3bb0: 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65 63 74 46  ntryPtr->selectF
3bc0: 69 72 73 74 20 2b 20 65 6e 74 72 79 50 74 72 2d  irst + entryPtr-
3bd0: 3e 73 65 6c 65 63 74 4c 61 73 74 20 2b 20 31 29  >selectLast + 1)
3be0: 2f 32 3b 0a 09 09 69 66 20 28 69 6e 64 65 78 20  /2;...if (index 
3bf0: 3c 20 68 61 6c 66 31 29 20 7b 0a 09 09 20 20 20  < half1) {...   
3c00: 20 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65 63   entryPtr->selec
3c10: 74 41 6e 63 68 6f 72 20 3d 20 65 6e 74 72 79 50  tAnchor = entryP
3c20: 74 72 2d 3e 73 65 6c 65 63 74 4c 61 73 74 3b 0a  tr->selectLast;.
3c30: 09 09 7d 20 65 6c 73 65 20 69 66 20 28 69 6e 64  ..} else if (ind
3c40: 65 78 20 3e 20 68 61 6c 66 32 29 20 7b 0a 09 09  ex > half2) {...
3c50: 20 20 20 20 65 6e 74 72 79 50 74 72 2d 3e 73 65      entryPtr->se
3c60: 6c 65 63 74 41 6e 63 68 6f 72 20 3d 20 65 6e 74  lectAnchor = ent
3c70: 72 79 50 74 72 2d 3e 73 65 6c 65 63 74 46 69 72  ryPtr->selectFir
3c80: 73 74 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09  st;...} else {..
3c90: 09 20 20 20 20 2f 2a 0a 09 09 20 20 20 20 20 2a  .    /*...     *
3ca0: 20 57 65 27 72 65 20 61 74 20 61 62 6f 75 74 20   We're at about 
3cb0: 74 68 65 20 68 61 6c 66 77 61 79 20 70 6f 69 6e  the halfway poin
3cc0: 74 20 69 6e 20 74 68 65 20 73 65 6c 65 63 74 69  t in the selecti
3cd0: 6f 6e 3b 0a 09 09 20 20 20 20 20 2a 20 6a 75 73  on;...     * jus
3ce0: 74 20 6b 65 65 70 20 74 68 65 20 65 78 69 73 74  t keep the exist
3cf0: 69 6e 67 20 61 6e 63 68 6f 72 2e 0a 09 09 20 20  ing anchor....  
3d00: 20 20 20 2a 2f 0a 09 09 7d 0a 09 20 20 20 20 7d     */...}..    }
3d10: 0a 09 20 20 20 20 45 6e 74 72 79 53 65 6c 65 63  ..    EntrySelec
3d20: 74 54 6f 28 65 6e 74 72 79 50 74 72 2c 20 69 6e  tTo(entryPtr, in
3d30: 64 65 78 29 3b 0a 09 7d 20 65 6c 73 65 20 69 66  dex);..} else if
3d40: 20 28 28 63 20 3d 3d 20 27 66 27 29 20 26 26 20   ((c == 'f') && 
3d50: 28 73 74 72 6e 63 6d 70 28 61 72 67 76 5b 32 5d  (strncmp(argv[2]
3d60: 2c 20 22 66 72 6f 6d 22 2c 20 6c 65 6e 67 74 68  , "from", length
3d70: 29 20 3d 3d 20 30 29 29 20 7b 0a 09 20 20 20 20  ) == 0)) {..    
3d80: 69 66 20 28 61 72 67 63 20 21 3d 20 34 29 20 7b  if (argc != 4) {
3d90: 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73  ...Tcl_AppendRes
3da0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f  ult(interp, "wro
3db0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c  ng # args: shoul
3dc0: 64 20 62 65 20 5c 22 22 2c 0a 09 09 09 61 72 67  d be \"",....arg
3dd0: 76 5b 30 5d 2c 20 22 20 73 65 6c 65 63 74 69 6f  v[0], " selectio
3de0: 6e 20 66 72 6f 6d 20 69 6e 64 65 78 5c 22 22 2c  n from index\"",
3df0: 0a 09 09 09 28 63 68 61 72 20 2a 29 20 4e 55 4c  ....(char *) NUL
3e00: 4c 29 3b 0a 09 09 67 6f 74 6f 20 65 72 72 6f 72  L);...goto error
3e10: 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 65 6e  ;..    }..    en
3e20: 74 72 79 50 74 72 2d 3e 73 65 6c 65 63 74 41 6e  tryPtr->selectAn
3e30: 63 68 6f 72 20 3d 20 69 6e 64 65 78 3b 0a 09 7d  chor = index;..}
3e40: 20 65 6c 73 65 20 69 66 20 28 28 63 20 3d 3d 20   else if ((c == 
3e50: 27 72 27 29 20 26 26 20 28 73 74 72 6e 63 6d 70  'r') && (strncmp
3e60: 28 61 72 67 76 5b 32 5d 2c 20 22 72 61 6e 67 65  (argv[2], "range
3e70: 22 2c 20 6c 65 6e 67 74 68 29 20 3d 3d 20 30 29  ", length) == 0)
3e80: 29 20 7b 0a 09 20 20 20 20 69 66 20 28 61 72 67  ) {..    if (arg
3e90: 63 20 21 3d 20 35 29 20 7b 0a 09 09 54 63 6c 5f  c != 5) {...Tcl_
3ea0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
3eb0: 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72  erp, "wrong # ar
3ec0: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22  gs: should be \"
3ed0: 22 2c 0a 09 09 09 61 72 67 76 5b 30 5d 2c 20 22  ",....argv[0], "
3ee0: 20 73 65 6c 65 63 74 69 6f 6e 20 72 61 6e 67 65   selection range
3ef0: 20 73 74 61 72 74 20 65 6e 64 5c 22 22 2c 0a 09   start end\"",..
3f00: 09 09 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29  ..(char *) NULL)
3f10: 3b 0a 09 09 67 6f 74 6f 20 65 72 72 6f 72 3b 0a  ;...goto error;.
3f20: 09 20 20 20 20 7d 0a 09 20 20 20 20 69 66 20 28  .    }..    if (
3f30: 47 65 74 45 6e 74 72 79 49 6e 64 65 78 28 69 6e  GetEntryIndex(in
3f40: 74 65 72 70 2c 20 65 6e 74 72 79 50 74 72 2c 20  terp, entryPtr, 
3f50: 61 72 67 76 5b 34 5d 2c 20 26 69 6e 64 65 78 32  argv[4], &index2
3f60: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09  ) != TCL_OK) {..
3f70: 09 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 09 20 20  .goto error;..  
3f80: 20 20 7d 0a 09 20 20 20 20 69 66 20 28 69 6e 64    }..    if (ind
3f90: 65 78 20 3e 3d 20 69 6e 64 65 78 32 29 20 7b 0a  ex >= index2) {.
3fa0: 09 09 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65  ..entryPtr->sele
3fb0: 63 74 46 69 72 73 74 20 3d 20 65 6e 74 72 79 50  ctFirst = entryP
3fc0: 74 72 2d 3e 73 65 6c 65 63 74 4c 61 73 74 20 3d  tr->selectLast =
3fd0: 20 2d 31 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65   -1;..    } else
3fe0: 20 7b 0a 09 09 65 6e 74 72 79 50 74 72 2d 3e 73   {...entryPtr->s
3ff0: 65 6c 65 63 74 46 69 72 73 74 20 3d 20 69 6e 64  electFirst = ind
4000: 65 78 3b 0a 09 09 65 6e 74 72 79 50 74 72 2d 3e  ex;...entryPtr->
4010: 73 65 6c 65 63 74 4c 61 73 74 20 3d 20 69 6e 64  selectLast = ind
4020: 65 78 32 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20  ex2;..    }..   
4030: 20 45 76 65 6e 74 75 61 6c 6c 79 52 65 64 72 61   EventuallyRedra
4040: 77 28 65 6e 74 72 79 50 74 72 29 3b 0a 09 7d 20  w(entryPtr);..} 
4050: 65 6c 73 65 20 69 66 20 28 28 63 20 3d 3d 20 27  else if ((c == '
4060: 74 27 29 20 26 26 20 28 73 74 72 6e 63 6d 70 28  t') && (strncmp(
4070: 61 72 67 76 5b 32 5d 2c 20 22 74 6f 22 2c 20 6c  argv[2], "to", l
4080: 65 6e 67 74 68 29 20 3d 3d 20 30 29 29 20 7b 0a  ength) == 0)) {.
4090: 09 20 20 20 20 69 66 20 28 61 72 67 63 20 21 3d  .    if (argc !=
40a0: 20 34 29 20 7b 0a 09 09 54 63 6c 5f 41 70 70 65   4) {...Tcl_Appe
40b0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
40c0: 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20   "wrong # args: 
40d0: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 09  should be \"",..
40e0: 09 09 61 72 67 76 5b 30 5d 2c 20 22 20 73 65 6c  ..argv[0], " sel
40f0: 65 63 74 69 6f 6e 20 74 6f 20 69 6e 64 65 78 5c  ection to index\
4100: 22 22 2c 0a 09 09 09 28 63 68 61 72 20 2a 29 20  "",....(char *) 
4110: 4e 55 4c 4c 29 3b 0a 09 09 67 6f 74 6f 20 65 72  NULL);...goto er
4120: 72 6f 72 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20  ror;..    }..   
4130: 20 45 6e 74 72 79 53 65 6c 65 63 74 54 6f 28 65   EntrySelectTo(e
4140: 6e 74 72 79 50 74 72 2c 20 69 6e 64 65 78 29 3b  ntryPtr, index);
4150: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20  ..} else {..    
4160: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
4170: 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 73 65  (interp, "bad se
4180: 6c 65 63 74 69 6f 6e 20 6f 70 74 69 6f 6e 20 5c  lection option \
4190: 22 22 2c 20 61 72 67 76 5b 32 5d 2c 0a 09 09 20  "", argv[2],... 
41a0: 20 20 20 22 5c 22 3a 20 6d 75 73 74 20 62 65 20     "\": must be 
41b0: 61 64 6a 75 73 74 2c 20 63 6c 65 61 72 2c 20 66  adjust, clear, f
41c0: 72 6f 6d 2c 20 70 72 65 73 65 6e 74 2c 20 72 61  rom, present, ra
41d0: 6e 67 65 2c 20 6f 72 20 74 6f 22 2c 0a 09 09 20  nge, or to",... 
41e0: 20 20 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c     (char *) NULL
41f0: 29 3b 0a 09 20 20 20 20 67 6f 74 6f 20 65 72 72  );..    goto err
4200: 6f 72 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73  or;..}.    } els
4210: 65 20 69 66 20 28 28 63 20 3d 3d 20 27 78 27 29  e if ((c == 'x')
4220: 20 26 26 20 28 73 74 72 6e 63 6d 70 28 61 72 67   && (strncmp(arg
4230: 76 5b 31 5d 2c 20 22 78 76 69 65 77 22 2c 20 6c  v[1], "xview", l
4240: 65 6e 67 74 68 29 20 3d 3d 20 30 29 29 20 7b 0a  ength) == 0)) {.
4250: 09 69 6e 74 20 69 6e 64 65 78 2c 20 74 79 70 65  .int index, type
4260: 2c 20 63 6f 75 6e 74 2c 20 63 68 61 72 73 50 65  , count, charsPe
4270: 72 50 61 67 65 3b 0a 09 64 6f 75 62 6c 65 20 66  rPage;..double f
4280: 72 61 63 74 69 6f 6e 2c 20 66 69 72 73 74 2c 20  raction, first, 
4290: 6c 61 73 74 3b 0a 0a 09 69 66 20 28 61 72 67 63  last;...if (argc
42a0: 20 3d 3d 20 32 29 20 7b 0a 09 20 20 20 20 63 68   == 2) {..    ch
42b0: 61 72 20 62 75 66 66 65 72 5b 34 30 5d 3b 0a 09  ar buffer[40];..
42c0: 20 20 20 20 45 6e 74 72 79 56 69 73 69 62 6c 65      EntryVisible
42d0: 52 61 6e 67 65 28 65 6e 74 72 79 50 74 72 2c 20  Range(entryPtr, 
42e0: 26 66 69 72 73 74 2c 20 26 6c 61 73 74 29 3b 0a  &first, &last);.
42f0: 09 20 20 20 20 73 70 72 69 6e 74 66 28 62 75 66  .    sprintf(buf
4300: 66 65 72 2c 20 22 25 67 20 25 67 22 2c 20 66 69  fer, "%g %g", fi
4310: 72 73 74 2c 20 6c 61 73 74 29 3b 0a 09 20 20 20  rst, last);..   
4320: 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69   Tcl_SetResult(i
4330: 6e 74 65 72 70 2c 62 75 66 66 65 72 2c 54 43 4c  nterp,buffer,TCL
4340: 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 09 20 20 20  _VOLATILE);..   
4350: 20 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 7d 20 65   goto done;..} e
4360: 6c 73 65 20 69 66 20 28 61 72 67 63 20 3d 3d 20  lse if (argc == 
4370: 33 29 20 7b 0a 09 20 20 20 20 69 66 20 28 47 65  3) {..    if (Ge
4380: 74 45 6e 74 72 79 49 6e 64 65 78 28 69 6e 74 65  tEntryIndex(inte
4390: 72 70 2c 20 65 6e 74 72 79 50 74 72 2c 20 61 72  rp, entryPtr, ar
43a0: 67 76 5b 32 5d 2c 20 26 69 6e 64 65 78 29 20 21  gv[2], &index) !
43b0: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 67 6f  = TCL_OK) {...go
43c0: 74 6f 20 65 72 72 6f 72 3b 0a 09 20 20 20 20 7d  to error;..    }
43d0: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20  ..} else {..    
43e0: 74 79 70 65 20 3d 20 54 6b 5f 47 65 74 53 63 72  type = Tk_GetScr
43f0: 6f 6c 6c 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20  ollInfo(interp, 
4400: 61 72 67 63 2c 20 61 72 67 76 2c 20 26 66 72 61  argc, argv, &fra
4410: 63 74 69 6f 6e 2c 20 26 63 6f 75 6e 74 29 3b 0a  ction, &count);.
4420: 09 20 20 20 20 69 6e 64 65 78 20 3d 20 65 6e 74  .    index = ent
4430: 72 79 50 74 72 2d 3e 6c 65 66 74 49 6e 64 65 78  ryPtr->leftIndex
4440: 3b 0a 09 20 20 20 20 73 77 69 74 63 68 20 28 74  ;..    switch (t
4450: 79 70 65 29 20 7b 0a 09 09 63 61 73 65 20 54 4b  ype) {...case TK
4460: 5f 53 43 52 4f 4c 4c 5f 45 52 52 4f 52 3a 0a 09  _SCROLL_ERROR:..
4470: 09 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b  .    goto error;
4480: 0a 09 09 63 61 73 65 20 54 4b 5f 53 43 52 4f 4c  ...case TK_SCROL
4490: 4c 5f 4d 4f 56 45 54 4f 3a 0a 09 09 20 20 20 20  L_MOVETO:...    
44a0: 69 6e 64 65 78 20 3d 20 28 66 72 61 63 74 69 6f  index = (fractio
44b0: 6e 20 2a 20 65 6e 74 72 79 50 74 72 2d 3e 6e 75  n * entryPtr->nu
44c0: 6d 43 68 61 72 73 29 3b 0a 09 09 20 20 20 20 62  mChars);...    b
44d0: 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 54 4b 5f  reak;...case TK_
44e0: 53 43 52 4f 4c 4c 5f 50 41 47 45 53 3a 0a 09 09  SCROLL_PAGES:...
44f0: 20 20 20 20 63 68 61 72 73 50 65 72 50 61 67 65      charsPerPage
4500: 20 3d 20 54 6b 5f 57 69 64 74 68 28 65 6e 74 72   = Tk_Width(entr
4510: 79 50 74 72 2d 3e 74 6b 77 69 6e 29 0a 09 09 09  yPtr->tkwin)....
4520: 20 20 20 20 2d 20 32 2a 65 6e 74 72 79 50 74 72      - 2*entryPtr
4530: 2d 3e 62 6f 72 64 65 72 57 69 64 74 68 20 2d 20  ->borderWidth - 
4540: 32 3b 0a 09 09 20 20 20 20 69 66 20 28 63 68 61  2;...    if (cha
4550: 72 73 50 65 72 50 61 67 65 20 3c 20 31 29 20 7b  rsPerPage < 1) {
4560: 0a 09 09 09 63 68 61 72 73 50 65 72 50 61 67 65  ....charsPerPage
4570: 20 3d 20 31 3b 0a 09 09 20 20 20 20 7d 0a 09 09   = 1;...    }...
4580: 20 20 20 20 69 6e 64 65 78 20 2b 3d 20 63 68 61      index += cha
4590: 72 73 50 65 72 50 61 67 65 2a 63 6f 75 6e 74 3b  rsPerPage*count;
45a0: 0a 09 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 09  ...    break;...
45b0: 63 61 73 65 20 54 4b 5f 53 43 52 4f 4c 4c 5f 55  case TK_SCROLL_U
45c0: 4e 49 54 53 3a 0a 09 09 20 20 20 20 69 6e 64 65  NITS:...    inde
45d0: 78 20 2b 3d 20 63 6f 75 6e 74 3b 0a 09 09 20 20  x += count;...  
45e0: 20 20 62 72 65 61 6b 3b 0a 09 20 20 20 20 7d 0a    break;..    }.
45f0: 09 7d 0a 09 69 66 20 28 69 6e 64 65 78 20 3e 3d  .}..if (index >=
4600: 20 65 6e 74 72 79 50 74 72 2d 3e 6e 75 6d 43 68   entryPtr->numCh
4610: 61 72 73 29 20 7b 0a 09 20 20 20 20 69 6e 64 65  ars) {..    inde
4620: 78 20 3d 20 65 6e 74 72 79 50 74 72 2d 3e 6e 75  x = entryPtr->nu
4630: 6d 43 68 61 72 73 2d 31 3b 0a 09 7d 0a 09 69 66  mChars-1;..}..if
4640: 20 28 69 6e 64 65 78 20 3c 20 30 29 20 7b 0a 09   (index < 0) {..
4650: 20 20 20 20 69 6e 64 65 78 20 3d 20 30 3b 0a 09      index = 0;..
4660: 7d 0a 09 65 6e 74 72 79 50 74 72 2d 3e 6c 65 66  }..entryPtr->lef
4670: 74 49 6e 64 65 78 20 3d 20 69 6e 64 65 78 3b 0a  tIndex = index;.
4680: 09 65 6e 74 72 79 50 74 72 2d 3e 66 6c 61 67 73  .entryPtr->flags
4690: 20 7c 3d 20 55 50 44 41 54 45 5f 53 43 52 4f 4c   |= UPDATE_SCROL
46a0: 4c 42 41 52 3b 0a 09 45 6e 74 72 79 43 6f 6d 70  LBAR;..EntryComp
46b0: 75 74 65 47 65 6f 6d 65 74 72 79 28 65 6e 74 72  uteGeometry(entr
46c0: 79 50 74 72 29 3b 0a 09 45 76 65 6e 74 75 61 6c  yPtr);..Eventual
46d0: 6c 79 52 65 64 72 61 77 28 65 6e 74 72 79 50 74  lyRedraw(entryPt
46e0: 72 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b  r);.    } else {
46f0: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75  ..Tcl_AppendResu
4700: 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20  lt(interp, "bad 
4710: 6f 70 74 69 6f 6e 20 5c 22 22 2c 20 61 72 67 76  option \"", argv
4720: 5b 31 5d 2c 0a 09 09 22 5c 22 3a 20 6d 75 73 74  [1],..."\": must
4730: 20 62 65 20 63 67 65 74 2c 20 63 6f 6e 66 69 67   be cget, config
4740: 75 72 65 2c 20 64 65 6c 65 74 65 2c 20 67 65 74  ure, delete, get
4750: 2c 20 22 2c 0a 09 09 22 69 63 75 72 73 6f 72 2c  , ",..."icursor,
4760: 20 69 6e 64 65 78 2c 20 69 6e 73 65 72 74 2c 20   index, insert, 
4770: 73 63 61 6e 2c 20 73 65 6c 65 63 74 69 6f 6e 2c  scan, selection,
4780: 20 6f 72 20 78 76 69 65 77 22 2c 0a 09 09 28 63   or xview",...(c
4790: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 67  har *) NULL);..g
47a0: 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 20 7d  oto error;.    }
47b0: 0a 20 20 20 20 64 6f 6e 65 3a 0a 20 20 20 20 54  .    done:.    T
47c0: 6b 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 65 6e  k_Release((Clien
47d0: 74 44 61 74 61 29 20 65 6e 74 72 79 50 74 72 29  tData) entryPtr)
47e0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 73  ;.    return res
47f0: 75 6c 74 3b 0a 0a 20 20 20 20 65 72 72 6f 72 3a  ult;..    error:
4800: 0a 20 20 20 20 54 6b 5f 52 65 6c 65 61 73 65 28  .    Tk_Release(
4810: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 65 6e 74  (ClientData) ent
4820: 72 79 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75  ryPtr);.    retu
4830: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a  rn TCL_ERROR;.}.
4840: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  ../*. *---------
4850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
4890: 0a 20 2a 20 44 65 73 74 72 6f 79 45 6e 74 72 79  . * DestroyEntry
48a0: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70   --. *. *.This p
48b0: 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f  rocedure is invo
48c0: 6b 65 64 20 62 79 20 54 6b 5f 45 76 65 6e 74 75  ked by Tk_Eventu
48d0: 61 6c 6c 79 46 72 65 65 20 6f 72 20 54 6b 5f 52  allyFree or Tk_R
48e0: 65 6c 65 61 73 65 0a 20 2a 09 74 6f 20 63 6c 65  elease. *.to cle
48f0: 61 6e 20 75 70 20 74 68 65 20 69 6e 74 65 72 6e  an up the intern
4900: 61 6c 20 73 74 72 75 63 74 75 72 65 20 6f 66 20  al structure of 
4910: 61 6e 20 65 6e 74 72 79 20 61 74 20 61 20 73 61  an entry at a sa
4920: 66 65 20 74 69 6d 65 0a 20 2a 09 28 77 68 65 6e  fe time. *.(when
4930: 20 6e 6f 2d 6f 6e 65 20 69 73 20 75 73 69 6e 67   no-one is using
4940: 20 69 74 20 61 6e 79 6d 6f 72 65 29 2e 0a 20 2a   it anymore).. *
4950: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09  . * Results:. *.
4960: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65  None.. *. * Side
4970: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 45 76 65   effects:. *.Eve
4980: 72 79 74 68 69 6e 67 20 61 73 73 6f 63 69 61 74  rything associat
4990: 65 64 20 77 69 74 68 20 74 68 65 20 65 6e 74 72  ed with the entr
49a0: 79 20 69 73 20 66 72 65 65 64 20 75 70 2e 0a 20  y is freed up.. 
49b0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
49c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
49d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
49e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
49f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a  ----------. */..
4a00: 73 74 61 74 69 63 20 76 6f 69 64 0a 44 65 73 74  static void.Dest
4a10: 72 6f 79 45 6e 74 72 79 28 63 6c 69 65 6e 74 44  royEntry(clientD
4a20: 61 74 61 29 0a 20 20 20 20 43 6c 69 65 6e 74 44  ata).    ClientD
4a30: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09  ata clientData;.
4a40: 09 09 2f 2a 20 49 6e 66 6f 20 61 62 6f 75 74 20  ../* Info about 
4a50: 65 6e 74 72 79 20 77 69 64 67 65 74 2e 20 2a 2f  entry widget. */
4a60: 0a 7b 0a 20 20 20 20 72 65 67 69 73 74 65 72 20  .{.    register 
4a70: 45 6e 74 72 79 20 2a 65 6e 74 72 79 50 74 72 20  Entry *entryPtr 
4a80: 3d 20 28 45 6e 74 72 79 20 2a 29 20 63 6c 69 65  = (Entry *) clie
4a90: 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 2f 2a 0a  ntData;..    /*.
4aa0: 20 20 20 20 20 2a 20 46 72 65 65 20 75 70 20 61       * Free up a
4ab0: 6c 6c 20 74 68 65 20 73 74 75 66 66 20 74 68 61  ll the stuff tha
4ac0: 74 20 72 65 71 75 69 72 65 73 20 73 70 65 63 69  t requires speci
4ad0: 61 6c 20 68 61 6e 64 6c 69 6e 67 2c 20 74 68 65  al handling, the
4ae0: 6e 0a 20 20 20 20 20 2a 20 6c 65 74 20 54 6b 5f  n.     * let Tk_
4af0: 46 72 65 65 4f 70 74 69 6f 6e 73 20 68 61 6e 64  FreeOptions hand
4b00: 6c 65 20 61 6c 6c 20 74 68 65 20 73 74 61 6e 64  le all the stand
4b10: 61 72 64 20 6f 70 74 69 6f 6e 2d 72 65 6c 61 74  ard option-relat
4b20: 65 64 0a 20 20 20 20 20 2a 20 73 74 75 66 66 2e  ed.     * stuff.
4b30: 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 63 6b  .     */..    ck
4b40: 66 72 65 65 28 65 6e 74 72 79 50 74 72 2d 3e 73  free(entryPtr->s
4b50: 74 72 69 6e 67 29 3b 0a 20 20 20 20 69 66 20 28  tring);.    if (
4b60: 65 6e 74 72 79 50 74 72 2d 3e 74 65 78 74 56 61  entryPtr->textVa
4b70: 72 4e 61 6d 65 20 21 3d 20 4e 55 4c 4c 29 20 7b  rName != NULL) {
4b80: 0a 09 54 63 6c 5f 55 6e 74 72 61 63 65 56 61 72  ..Tcl_UntraceVar
4b90: 28 65 6e 74 72 79 50 74 72 2d 3e 69 6e 74 65 72  (entryPtr->inter
4ba0: 70 2c 20 65 6e 74 72 79 50 74 72 2d 3e 74 65 78  p, entryPtr->tex
4bb0: 74 56 61 72 4e 61 6d 65 2c 0a 09 09 54 43 4c 5f  tVarName,...TCL_
4bc0: 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 7c 54 43 4c 5f  GLOBAL_ONLY|TCL_
4bd0: 54 52 41 43 45 5f 57 52 49 54 45 53 7c 54 43 4c  TRACE_WRITES|TCL
4be0: 5f 54 52 41 43 45 5f 55 4e 53 45 54 53 2c 0a 09  _TRACE_UNSETS,..
4bf0: 09 45 6e 74 72 79 54 65 78 74 56 61 72 50 72 6f  .EntryTextVarPro
4c00: 63 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20  c, (ClientData) 
4c10: 65 6e 74 72 79 50 74 72 29 3b 0a 20 20 20 20 7d  entryPtr);.    }
4c20: 0a 20 20 20 20 69 66 20 28 65 6e 74 72 79 50 74  .    if (entryPt
4c30: 72 2d 3e 64 69 73 70 6c 61 79 53 74 72 69 6e 67  r->displayString
4c40: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 63 6b 66   != NULL) {..ckf
4c50: 72 65 65 28 65 6e 74 72 79 50 74 72 2d 3e 64 69  ree(entryPtr->di
4c60: 73 70 6c 61 79 53 74 72 69 6e 67 29 3b 0a 20 20  splayString);.  
4c70: 20 20 7d 0a 20 20 20 20 54 6b 5f 46 72 65 65 4f    }.    Tk_FreeO
4c80: 70 74 69 6f 6e 73 28 63 6f 6e 66 69 67 53 70 65  ptions(configSpe
4c90: 63 73 2c 20 28 63 68 61 72 20 2a 29 20 65 6e 74  cs, (char *) ent
4ca0: 72 79 50 74 72 2c 20 30 29 3b 0a 20 20 20 20 63  ryPtr, 0);.    c
4cb0: 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29 20 65  kfree((char *) e
4cc0: 6e 74 72 79 50 74 72 29 3b 0a 7d 0a 0c 0a 2f 2a  ntryPtr);.}.../*
4cd0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
4ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20  ---------. *. * 
4d20: 43 6f 6e 66 69 67 75 72 65 45 6e 74 72 79 20 2d  ConfigureEntry -
4d30: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f  -. *. *.This pro
4d40: 63 65 64 75 72 65 20 69 73 20 63 61 6c 6c 65 64  cedure is called
4d50: 20 74 6f 20 70 72 6f 63 65 73 73 20 61 6e 20 61   to process an a
4d60: 72 67 76 2f 61 72 67 63 20 6c 69 73 74 2c 20 70  rgv/argc list, p
4d70: 6c 75 73 0a 20 2a 09 74 68 65 20 54 6b 20 6f 70  lus. *.the Tk op
4d80: 74 69 6f 6e 20 64 61 74 61 62 61 73 65 2c 20 69  tion database, i
4d90: 6e 20 6f 72 64 65 72 20 74 6f 20 63 6f 6e 66 69  n order to confi
4da0: 67 75 72 65 20 28 6f 72 20 72 65 63 6f 6e 66 69  gure (or reconfi
4db0: 67 75 72 65 29 0a 20 2a 09 61 6e 20 65 6e 74 72  gure). *.an entr
4dc0: 79 20 77 69 64 67 65 74 2e 0a 20 2a 0a 20 2a 20  y widget.. *. * 
4dd0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 54 68 65 20  Results:. *.The 
4de0: 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20  return value is 
4df0: 61 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72  a standard Tcl r
4e00: 65 73 75 6c 74 2e 20 20 49 66 20 54 43 4c 5f 45  esult.  If TCL_E
4e10: 52 52 4f 52 20 69 73 0a 20 2a 09 72 65 74 75 72  RROR is. *.retur
4e20: 6e 65 64 2c 20 74 68 65 6e 20 69 6e 74 65 72 70  ned, then interp
4e30: 2d 3e 72 65 73 75 6c 74 20 63 6f 6e 74 61 69 6e  ->result contain
4e40: 73 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 61  s an error messa
4e50: 67 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  ge.. *. * Side e
4e60: 66 66 65 63 74 73 3a 0a 20 2a 09 43 6f 6e 66 69  ffects:. *.Confi
4e70: 67 75 72 61 74 69 6f 6e 20 69 6e 66 6f 72 6d 61  guration informa
4e80: 74 69 6f 6e 2c 20 73 75 63 68 20 61 73 20 63 6f  tion, such as co
4e90: 6c 6f 72 73 2c 20 62 6f 72 64 65 72 20 77 69 64  lors, border wid
4ea0: 74 68 2c 0a 20 2a 09 65 74 63 2e 20 67 65 74 20  th,. *.etc. get 
4eb0: 73 65 74 20 66 6f 72 20 65 6e 74 72 79 50 74 72  set for entryPtr
4ec0: 3b 20 20 6f 6c 64 20 72 65 73 6f 75 72 63 65 73  ;  old resources
4ed0: 20 67 65 74 20 66 72 65 65 64 2c 0a 20 2a 09 69   get freed,. *.i
4ee0: 66 20 74 68 65 72 65 20 77 65 72 65 20 61 6e 79  f there were any
4ef0: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  .. *. *---------
4f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
4f40: 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 43 6f  /..static int.Co
4f50: 6e 66 69 67 75 72 65 45 6e 74 72 79 28 69 6e 74  nfigureEntry(int
4f60: 65 72 70 2c 20 65 6e 74 72 79 50 74 72 2c 20 61  erp, entryPtr, a
4f70: 72 67 63 2c 20 61 72 67 76 2c 20 66 6c 61 67 73  rgc, argv, flags
4f80: 29 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70  ).    Tcl_Interp
4f90: 20 2a 69 6e 74 65 72 70 3b 09 09 2f 2a 20 55 73   *interp;../* Us
4fa0: 65 64 20 66 6f 72 20 65 72 72 6f 72 20 72 65 70  ed for error rep
4fb0: 6f 72 74 69 6e 67 2e 20 2a 2f 0a 20 20 20 20 72  orting. */.    r
4fc0: 65 67 69 73 74 65 72 20 45 6e 74 72 79 20 2a 65  egister Entry *e
4fd0: 6e 74 72 79 50 74 72 3b 09 2f 2a 20 49 6e 66 6f  ntryPtr;./* Info
4fe0: 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 77 69  rmation about wi
4ff0: 64 67 65 74 3b 20 20 6d 61 79 20 6f 72 20 6d 61  dget;  may or ma
5000: 79 0a 09 09 09 09 20 2a 20 6e 6f 74 20 61 6c 72  y..... * not alr
5010: 65 61 64 79 20 68 61 76 65 20 76 61 6c 75 65 73  eady have values
5020: 20 66 6f 72 20 73 6f 6d 65 20 66 69 65 6c 64 73   for some fields
5030: 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 61 72 67  . */.    int arg
5040: 63 3b 09 09 09 2f 2a 20 4e 75 6d 62 65 72 20 6f  c;.../* Number o
5050: 66 20 76 61 6c 69 64 20 65 6e 74 72 69 65 73 20  f valid entries 
5060: 69 6e 20 61 72 67 76 2e 20 2a 2f 0a 20 20 20 20  in argv. */.    
5070: 63 68 61 72 20 2a 2a 61 72 67 76 3b 09 09 2f 2a  char **argv;../*
5080: 20 41 72 67 75 6d 65 6e 74 73 2e 20 2a 2f 0a 20   Arguments. */. 
5090: 20 20 20 69 6e 74 20 66 6c 61 67 73 3b 09 09 09     int flags;...
50a0: 2f 2a 20 46 6c 61 67 73 20 74 6f 20 70 61 73 73  /* Flags to pass
50b0: 20 74 6f 20 54 6b 5f 43 6f 6e 66 69 67 75 72 65   to Tk_Configure
50c0: 57 69 64 67 65 74 2e 20 2a 2f 0a 7b 0a 20 20 20  Widget. */.{.   
50d0: 20 2f 2a 0a 20 20 20 20 20 2a 20 45 6c 69 6d 69   /*.     * Elimi
50e0: 6e 61 74 65 20 61 6e 79 20 65 78 69 73 74 69 6e  nate any existin
50f0: 67 20 74 72 61 63 65 20 6f 6e 20 61 20 76 61 72  g trace on a var
5100: 69 61 62 6c 65 20 6d 6f 6e 69 74 6f 72 65 64 20  iable monitored 
5110: 62 79 20 74 68 65 20 65 6e 74 72 79 2e 0a 20 20  by the entry..  
5120: 20 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20 28 65     */..    if (e
5130: 6e 74 72 79 50 74 72 2d 3e 74 65 78 74 56 61 72  ntryPtr->textVar
5140: 4e 61 6d 65 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a  Name != NULL) {.
5150: 09 54 63 6c 5f 55 6e 74 72 61 63 65 56 61 72 28  .Tcl_UntraceVar(
5160: 69 6e 74 65 72 70 2c 20 65 6e 74 72 79 50 74 72  interp, entryPtr
5170: 2d 3e 74 65 78 74 56 61 72 4e 61 6d 65 2c 20 0a  ->textVarName, .
5180: 09 09 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c  ..TCL_GLOBAL_ONL
5190: 59 7c 54 43 4c 5f 54 52 41 43 45 5f 57 52 49 54  Y|TCL_TRACE_WRIT
51a0: 45 53 7c 54 43 4c 5f 54 52 41 43 45 5f 55 4e 53  ES|TCL_TRACE_UNS
51b0: 45 54 53 2c 0a 09 09 45 6e 74 72 79 54 65 78 74  ETS,...EntryText
51c0: 56 61 72 50 72 6f 63 2c 20 28 43 6c 69 65 6e 74  VarProc, (Client
51d0: 44 61 74 61 29 20 65 6e 74 72 79 50 74 72 29 3b  Data) entryPtr);
51e0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28  .    }..    if (
51f0: 54 6b 5f 43 6f 6e 66 69 67 75 72 65 57 69 64 67  Tk_ConfigureWidg
5200: 65 74 28 69 6e 74 65 72 70 2c 20 65 6e 74 72 79  et(interp, entry
5210: 50 74 72 2d 3e 74 6b 77 69 6e 2c 20 63 6f 6e 66  Ptr->tkwin, conf
5220: 69 67 53 70 65 63 73 2c 0a 09 20 20 20 20 61 72  igSpecs,..    ar
5230: 67 63 2c 20 61 72 67 76 2c 20 28 63 68 61 72 20  gc, argv, (char 
5240: 2a 29 20 65 6e 74 72 79 50 74 72 2c 20 66 6c 61  *) entryPtr, fla
5250: 67 73 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b  gs) != TCL_OK) {
5260: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ..return TCL_ERR
5270: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f  OR;.    }..    /
5280: 2a 0a 20 20 20 20 20 2a 20 49 66 20 74 68 65 20  *.     * If the 
5290: 65 6e 74 72 79 20 69 73 20 74 69 65 64 20 74 6f  entry is tied to
52a0: 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 61 20   the value of a 
52b0: 76 61 72 69 61 62 6c 65 2c 20 74 68 65 6e 20 73  variable, then s
52c0: 65 74 20 75 70 0a 20 20 20 20 20 2a 20 61 20 74  et up.     * a t
52d0: 72 61 63 65 20 6f 6e 20 74 68 65 20 76 61 72 69  race on the vari
52e0: 61 62 6c 65 27 73 20 76 61 6c 75 65 2c 20 63 72  able's value, cr
52f0: 65 61 74 65 20 74 68 65 20 76 61 72 69 61 62 6c  eate the variabl
5300: 65 20 69 66 20 69 74 20 64 6f 65 73 6e 27 74 0a  e if it doesn't.
5310: 20 20 20 20 20 2a 20 65 78 69 73 74 2c 20 61 6e       * exist, an
5320: 64 20 73 65 74 20 74 68 65 20 65 6e 74 72 79 27  d set the entry'
5330: 73 20 76 61 6c 75 65 20 66 72 6f 6d 20 74 68 65  s value from the
5340: 20 76 61 72 69 61 62 6c 65 27 73 20 76 61 6c 75   variable's valu
5350: 65 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20  e..     */..    
5360: 69 66 20 28 65 6e 74 72 79 50 74 72 2d 3e 74 65  if (entryPtr->te
5370: 78 74 56 61 72 4e 61 6d 65 20 21 3d 20 4e 55 4c  xtVarName != NUL
5380: 4c 29 20 7b 0a 09 63 68 61 72 20 2a 76 61 6c 75  L) {..char *valu
5390: 65 3b 0a 0a 09 76 61 6c 75 65 20 3d 20 54 63 6c  e;...value = Tcl
53a0: 5f 47 65 74 56 61 72 28 69 6e 74 65 72 70 2c 20  _GetVar(interp, 
53b0: 65 6e 74 72 79 50 74 72 2d 3e 74 65 78 74 56 61  entryPtr->textVa
53c0: 72 4e 61 6d 65 2c 20 54 43 4c 5f 47 4c 4f 42 41  rName, TCL_GLOBA
53d0: 4c 5f 4f 4e 4c 59 29 3b 0a 09 69 66 20 28 76 61  L_ONLY);..if (va
53e0: 6c 75 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09  lue == NULL) {..
53f0: 20 20 20 20 45 6e 74 72 79 56 61 6c 75 65 43 68      EntryValueCh
5400: 61 6e 67 65 64 28 65 6e 74 72 79 50 74 72 29 3b  anged(entryPtr);
5410: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20  ..} else {..    
5420: 45 6e 74 72 79 53 65 74 56 61 6c 75 65 28 65 6e  EntrySetValue(en
5430: 74 72 79 50 74 72 2c 20 76 61 6c 75 65 29 3b 0a  tryPtr, value);.
5440: 09 7d 0a 09 54 63 6c 5f 54 72 61 63 65 56 61 72  .}..Tcl_TraceVar
5450: 28 69 6e 74 65 72 70 2c 20 65 6e 74 72 79 50 74  (interp, entryPt
5460: 72 2d 3e 74 65 78 74 56 61 72 4e 61 6d 65 2c 0a  r->textVarName,.
5470: 09 09 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c  ..TCL_GLOBAL_ONL
5480: 59 7c 54 43 4c 5f 54 52 41 43 45 5f 57 52 49 54  Y|TCL_TRACE_WRIT
5490: 45 53 7c 54 43 4c 5f 54 52 41 43 45 5f 55 4e 53  ES|TCL_TRACE_UNS
54a0: 45 54 53 2c 0a 09 09 45 6e 74 72 79 54 65 78 74  ETS,...EntryText
54b0: 56 61 72 50 72 6f 63 2c 20 28 43 6c 69 65 6e 74  VarProc, (Client
54c0: 44 61 74 61 29 20 65 6e 74 72 79 50 74 72 29 3b  Data) entryPtr);
54d0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20  .    }..    /*. 
54e0: 20 20 20 20 2a 20 41 20 66 65 77 20 6f 74 68 65      * A few othe
54f0: 72 20 6f 70 74 69 6f 6e 73 20 61 6c 73 6f 20 6e  r options also n
5500: 65 65 64 20 73 70 65 63 69 61 6c 20 70 72 6f 63  eed special proc
5510: 65 73 73 69 6e 67 2c 20 73 75 63 68 20 61 73 20  essing, such as 
5520: 70 61 72 73 69 6e 67 0a 20 20 20 20 20 2a 20 74  parsing.     * t
5530: 68 65 20 67 65 6f 6d 65 74 72 79 20 61 6e 64 20  he geometry and 
5540: 73 65 74 74 69 6e 67 20 74 68 65 20 62 61 63 6b  setting the back
5550: 67 72 6f 75 6e 64 20 66 72 6f 6d 20 61 20 33 2d  ground from a 3-
5560: 44 20 62 6f 72 64 65 72 2e 0a 20 20 20 20 20 2a  D border..     *
5570: 2f 0a 0a 20 20 20 20 69 66 20 28 28 65 6e 74 72  /..    if ((entr
5580: 79 50 74 72 2d 3e 73 74 61 74 65 20 21 3d 20 74  yPtr->state != t
5590: 6b 4e 6f 72 6d 61 6c 55 69 64 29 0a 09 20 20 20  kNormalUid)..   
55a0: 20 26 26 20 28 65 6e 74 72 79 50 74 72 2d 3e 73   && (entryPtr->s
55b0: 74 61 74 65 20 21 3d 20 74 6b 44 69 73 61 62 6c  tate != tkDisabl
55c0: 65 64 55 69 64 29 29 20 7b 0a 09 54 63 6c 5f 41  edUid)) {..Tcl_A
55d0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
55e0: 72 70 2c 20 22 62 61 64 20 73 74 61 74 65 20 76  rp, "bad state v
55f0: 61 6c 75 65 20 5c 22 22 2c 20 65 6e 74 72 79 50  alue \"", entryP
5600: 74 72 2d 3e 73 74 61 74 65 2c 0a 09 09 22 5c 22  tr->state,..."\"
5610: 3a 20 20 6d 75 73 74 20 62 65 20 6e 6f 72 6d 61  :  must be norma
5620: 6c 20 6f 72 20 64 69 73 61 62 6c 65 64 22 2c 20  l or disabled", 
5630: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a  (char *) NULL);.
5640: 09 65 6e 74 72 79 50 74 72 2d 3e 73 74 61 74 65  .entryPtr->state
5650: 20 3d 20 74 6b 4e 6f 72 6d 61 6c 55 69 64 3b 0a   = tkNormalUid;.
5660: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f  .return TCL_ERRO
5670: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a  R;.    }..    /*
5680: 0a 20 20 20 20 20 2a 20 52 65 63 6f 6d 70 75 74  .     * Recomput
5690: 65 20 74 68 65 20 77 69 6e 64 6f 77 27 73 20 67  e the window's g
56a0: 65 6f 6d 65 74 72 79 20 61 6e 64 20 61 72 72 61  eometry and arra
56b0: 6e 67 65 20 66 6f 72 20 69 74 20 74 6f 20 62 65  nge for it to be
56c0: 0a 20 20 20 20 20 2a 20 72 65 64 69 73 70 6c 61  .     * redispla
56d0: 79 65 64 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20  yed..     */..  
56e0: 20 20 54 6b 5f 53 65 74 49 6e 74 65 72 6e 61 6c    Tk_SetInternal
56f0: 42 6f 72 64 65 72 28 65 6e 74 72 79 50 74 72 2d  Border(entryPtr-
5700: 3e 74 6b 77 69 6e 2c 20 65 6e 74 72 79 50 74 72  >tkwin, entryPtr
5710: 2d 3e 62 6f 72 64 65 72 57 69 64 74 68 29 3b 0a  ->borderWidth);.
5720: 20 20 20 20 45 6e 74 72 79 43 6f 6d 70 75 74 65      EntryCompute
5730: 47 65 6f 6d 65 74 72 79 28 65 6e 74 72 79 50 74  Geometry(entryPt
5740: 72 29 3b 0a 20 20 20 20 65 6e 74 72 79 50 74 72  r);.    entryPtr
5750: 2d 3e 66 6c 61 67 73 20 7c 3d 20 55 50 44 41 54  ->flags |= UPDAT
5760: 45 5f 53 43 52 4f 4c 4c 42 41 52 3b 0a 20 20 20  E_SCROLLBAR;.   
5770: 20 45 76 65 6e 74 75 61 6c 6c 79 52 65 64 72 61   EventuallyRedra
5780: 77 28 65 6e 74 72 79 50 74 72 29 3b 0a 20 20 20  w(entryPtr);.   
5790: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
57a0: 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  }.../*. *-------
57b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
57c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
57d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
57e0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69  -------. *. * Di
57f0: 73 70 6c 61 79 45 6e 74 72 79 20 2d 2d 0a 20 2a  splayEntry --. *
5800: 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75  . *.This procedu
5810: 72 65 20 72 65 64 72 61 77 73 20 74 68 65 20 63  re redraws the c
5820: 6f 6e 74 65 6e 74 73 20 6f 66 20 61 6e 20 65 6e  ontents of an en
5830: 74 72 79 20 77 69 6e 64 6f 77 2e 0a 20 2a 0a 20  try window.. *. 
5840: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f  * Results:. *.No
5850: 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  ne.. *. * Side e
5860: 66 66 65 63 74 73 3a 0a 20 2a 09 49 6e 66 6f 72  ffects:. *.Infor
5870: 6d 61 74 69 6f 6e 20 61 70 70 65 61 72 73 20 6f  mation appears o
5880: 6e 20 74 68 65 20 73 63 72 65 65 6e 2e 0a 20 2a  n the screen.. *
5890: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
58a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
58b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
58c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
58d0: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f  -. */..static vo
58e0: 69 64 0a 44 69 73 70 6c 61 79 45 6e 74 72 79 28  id.DisplayEntry(
58f0: 63 6c 69 65 6e 74 44 61 74 61 29 0a 20 20 20 20  clientData).    
5900: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e  ClientData clien
5910: 74 44 61 74 61 3b 09 2f 2a 20 49 6e 66 6f 72 6d  tData;./* Inform
5920: 61 74 69 6f 6e 20 61 62 6f 75 74 20 77 69 6e 64  ation about wind
5930: 6f 77 2e 20 2a 2f 0a 7b 0a 20 20 20 20 72 65 67  ow. */.{.    reg
5940: 69 73 74 65 72 20 45 6e 74 72 79 20 2a 65 6e 74  ister Entry *ent
5950: 72 79 50 74 72 20 3d 20 28 45 6e 74 72 79 20 2a  ryPtr = (Entry *
5960: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20  ) clientData;.  
5970: 20 20 72 65 67 69 73 74 65 72 20 54 6b 5f 57 69    register Tk_Wi
5980: 6e 64 6f 77 20 74 6b 77 69 6e 20 3d 20 65 6e 74  ndow tkwin = ent
5990: 72 79 50 74 72 2d 3e 74 6b 77 69 6e 3b 0a 20 20  ryPtr->tkwin;.  
59a0: 20 20 69 6e 74 20 62 61 73 65 59 2c 20 73 65 6c    int baseY, sel
59b0: 53 74 61 72 74 58 2c 20 73 65 6c 45 6e 64 58 2c  StartX, selEndX,
59c0: 20 69 6e 64 65 78 2c 20 63 75 72 73 6f 72 58 3b   index, cursorX;
59d0: 0a 20 20 20 20 69 6e 74 20 78 42 6f 75 6e 64 2c  .    int xBound,
59e0: 20 63 6f 75 6e 74 3b 0a 20 20 20 20 63 68 61 72   count;.    char
59f0: 20 2a 64 69 73 70 6c 61 79 53 74 72 69 6e 67 3b   *displayString;
5a00: 0a 0a 20 20 20 20 69 66 20 28 28 65 6e 74 72 79  ..    if ((entry
5a10: 50 74 72 2d 3e 74 6b 77 69 6e 20 3d 3d 20 4e 55  Ptr->tkwin == NU
5a20: 4c 4c 29 20 7c 7c 20 21 54 6b 5f 49 73 4d 61 70  LL) || !Tk_IsMap
5a30: 70 65 64 28 74 6b 77 69 6e 29 29 20 7b 0a 09 67  ped(tkwin)) {..g
5a40: 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a  oto done;.    }.
5a50: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 55  .    /*.     * U
5a60: 70 64 61 74 65 20 74 68 65 20 73 63 72 6f 6c 6c  pdate the scroll
5a70: 62 61 72 20 69 66 20 74 68 61 74 27 73 20 6e 65  bar if that's ne
5a80: 65 64 65 64 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20  eded..     */.. 
5a90: 20 20 20 69 66 20 28 65 6e 74 72 79 50 74 72 2d     if (entryPtr-
5aa0: 3e 66 6c 61 67 73 20 26 20 55 50 44 41 54 45 5f  >flags & UPDATE_
5ab0: 53 43 52 4f 4c 4c 42 41 52 29 20 7b 0a 09 45 6e  SCROLLBAR) {..En
5ac0: 74 72 79 55 70 64 61 74 65 53 63 72 6f 6c 6c 62  tryUpdateScrollb
5ad0: 61 72 28 65 6e 74 72 79 50 74 72 29 3b 0a 20 20  ar(entryPtr);.  
5ae0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20    }..    /*.    
5af0: 20 2a 20 43 6f 6d 70 75 74 65 20 78 2d 63 6f 6f   * Compute x-coo
5b00: 72 64 69 6e 61 74 65 20 6f 66 20 74 68 65 20 70  rdinate of the p
5b10: 69 78 65 6c 20 6a 75 73 74 20 61 66 74 65 72 20  ixel just after 
5b20: 6c 61 73 74 20 76 69 73 69 62 6c 65 0a 20 20 20  last visible.   
5b30: 20 20 2a 20 6f 6e 65 2c 20 70 6c 75 73 20 76 65    * one, plus ve
5b40: 72 74 69 63 61 6c 20 70 6f 73 69 74 69 6f 6e 20  rtical position 
5b50: 6f 66 20 62 61 73 65 6c 69 6e 65 20 6f 66 20 74  of baseline of t
5b60: 65 78 74 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20  ext..     */..  
5b70: 20 20 78 42 6f 75 6e 64 20 3d 20 54 6b 5f 57 69    xBound = Tk_Wi
5b80: 64 74 68 28 74 6b 77 69 6e 29 20 2d 20 65 6e 74  dth(tkwin) - ent
5b90: 72 79 50 74 72 2d 3e 62 6f 72 64 65 72 57 69 64  ryPtr->borderWid
5ba0: 74 68 3b 0a 20 20 20 20 62 61 73 65 59 20 3d 20  th;.    baseY = 
5bb0: 54 6b 5f 48 65 69 67 68 74 28 74 6b 77 69 6e 29  Tk_Height(tkwin)
5bc0: 2f 32 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20  /2;..    /*.    
5bd0: 20 2a 20 44 72 61 77 20 74 68 65 20 62 61 63 6b   * Draw the back
5be0: 67 72 6f 75 6e 64 2e 0a 20 20 20 20 20 2a 2f 0a  ground..     */.
5bf0: 0a 20 20 20 20 43 74 6b 5f 46 69 6c 6c 52 65 63  .    Ctk_FillRec
5c00: 74 28 74 6b 77 69 6e 2c 20 65 6e 74 72 79 50 74  t(tkwin, entryPt
5c10: 72 2d 3e 62 6f 72 64 65 72 57 69 64 74 68 2c 20  r->borderWidth, 
5c20: 62 61 73 65 59 2c 20 78 42 6f 75 6e 64 2c 20 62  baseY, xBound, b
5c30: 61 73 65 59 2b 31 2c 0a 20 20 20 20 09 20 20 20  aseY+1,.    .   
5c40: 43 54 4b 5f 55 4e 44 45 52 4c 49 4e 45 5f 53 54  CTK_UNDERLINE_ST
5c50: 59 4c 45 2c 20 27 20 27 29 3b 0a 0a 20 20 20 20  YLE, ' ');..    
5c60: 69 66 20 28 65 6e 74 72 79 50 74 72 2d 3e 64 69  if (entryPtr->di
5c70: 73 70 6c 61 79 53 74 72 69 6e 67 20 3d 3d 20 4e  splayString == N
5c80: 55 4c 4c 29 20 7b 0a 09 64 69 73 70 6c 61 79 53  ULL) {..displayS
5c90: 74 72 69 6e 67 20 3d 20 65 6e 74 72 79 50 74 72  tring = entryPtr
5ca0: 2d 3e 73 74 72 69 6e 67 3b 0a 20 20 20 20 7d 20  ->string;.    } 
5cb0: 65 6c 73 65 20 7b 0a 09 64 69 73 70 6c 61 79 53  else {..displayS
5cc0: 74 72 69 6e 67 20 3d 20 65 6e 74 72 79 50 74 72  tring = entryPtr
5cd0: 2d 3e 64 69 73 70 6c 61 79 53 74 72 69 6e 67 3b  ->displayString;
5ce0: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 65  .    }.    if (e
5cf0: 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65 63 74 4c  ntryPtr->selectL
5d00: 61 73 74 20 3e 20 65 6e 74 72 79 50 74 72 2d 3e  ast > entryPtr->
5d10: 6c 65 66 74 49 6e 64 65 78 29 20 7b 0a 09 69 66  leftIndex) {..if
5d20: 20 28 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65   (entryPtr->sele
5d30: 63 74 46 69 72 73 74 20 3c 3d 20 65 6e 74 72 79  ctFirst <= entry
5d40: 50 74 72 2d 3e 6c 65 66 74 49 6e 64 65 78 29 20  Ptr->leftIndex) 
5d50: 7b 0a 09 20 20 20 20 73 65 6c 53 74 61 72 74 58  {..    selStartX
5d60: 20 3d 20 65 6e 74 72 79 50 74 72 2d 3e 6c 65 66   = entryPtr->lef
5d70: 74 58 3b 0a 09 20 20 20 20 69 6e 64 65 78 20 3d  tX;..    index =
5d80: 20 65 6e 74 72 79 50 74 72 2d 3e 6c 65 66 74 49   entryPtr->leftI
5d90: 6e 64 65 78 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a  ndex;..} else {.
5da0: 09 20 20 20 20 28 76 6f 69 64 29 20 54 6b 4d 65  .    (void) TkMe
5db0: 61 73 75 72 65 43 68 61 72 73 28 0a 09 09 20 20  asureChars(...  
5dc0: 20 20 64 69 73 70 6c 61 79 53 74 72 69 6e 67 20    displayString 
5dd0: 2b 20 65 6e 74 72 79 50 74 72 2d 3e 6c 65 66 74  + entryPtr->left
5de0: 49 6e 64 65 78 2c 0a 09 09 20 20 20 20 65 6e 74  Index,...    ent
5df0: 72 79 50 74 72 2d 3e 73 65 6c 65 63 74 46 69 72  ryPtr->selectFir
5e00: 73 74 20 2d 20 65 6e 74 72 79 50 74 72 2d 3e 6c  st - entryPtr->l
5e10: 65 66 74 49 6e 64 65 78 2c 0a 09 09 20 20 20 20  eftIndex,...    
5e20: 65 6e 74 72 79 50 74 72 2d 3e 6c 65 66 74 58 2c  entryPtr->leftX,
5e30: 20 78 42 6f 75 6e 64 2c 20 65 6e 74 72 79 50 74   xBound, entryPt
5e40: 72 2d 3e 74 61 62 4f 72 69 67 69 6e 2c 0a 09 09  r->tabOrigin,...
5e50: 20 20 20 20 54 4b 5f 50 41 52 54 49 41 4c 5f 4f      TK_PARTIAL_O
5e60: 4b 7c 54 4b 5f 4e 45 57 4c 49 4e 45 53 5f 4e 4f  K|TK_NEWLINES_NO
5e70: 54 5f 53 50 45 43 49 41 4c 2c 20 26 73 65 6c 53  T_SPECIAL, &selS
5e80: 74 61 72 74 58 29 3b 0a 09 20 20 20 20 69 6e 64  tartX);..    ind
5e90: 65 78 20 3d 20 65 6e 74 72 79 50 74 72 2d 3e 73  ex = entryPtr->s
5ea0: 65 6c 65 63 74 46 69 72 73 74 3b 0a 09 7d 0a 09  electFirst;..}..
5eb0: 69 66 20 28 73 65 6c 53 74 61 72 74 58 20 3c 20  if (selStartX < 
5ec0: 78 42 6f 75 6e 64 29 20 7b 0a 09 20 20 20 20 28  xBound) {..    (
5ed0: 76 6f 69 64 29 20 54 6b 4d 65 61 73 75 72 65 43  void) TkMeasureC
5ee0: 68 61 72 73 28 0a 09 09 20 20 20 20 64 69 73 70  hars(...    disp
5ef0: 6c 61 79 53 74 72 69 6e 67 20 2b 20 69 6e 64 65  layString + inde
5f00: 78 2c 20 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c  x, entryPtr->sel
5f10: 65 63 74 4c 61 73 74 20 2d 20 69 6e 64 65 78 2c  ectLast - index,
5f20: 0a 09 09 20 20 20 20 73 65 6c 53 74 61 72 74 58  ...    selStartX
5f30: 2c 20 78 42 6f 75 6e 64 2c 20 65 6e 74 72 79 50  , xBound, entryP
5f40: 74 72 2d 3e 74 61 62 4f 72 69 67 69 6e 2c 0a 09  tr->tabOrigin,..
5f50: 09 20 20 20 20 54 4b 5f 50 41 52 54 49 41 4c 5f  .    TK_PARTIAL_
5f60: 4f 4b 7c 54 4b 5f 4e 45 57 4c 49 4e 45 53 5f 4e  OK|TK_NEWLINES_N
5f70: 4f 54 5f 53 50 45 43 49 41 4c 2c 20 26 73 65 6c  OT_SPECIAL, &sel
5f80: 45 6e 64 58 29 3b 0a 09 7d 20 65 6c 73 65 20 7b  EndX);..} else {
5f90: 0a 09 20 20 20 20 73 65 6c 45 6e 64 58 20 3d 20  ..    selEndX = 
5fa0: 78 42 6f 75 6e 64 3b 0a 09 7d 0a 20 20 20 20 7d  xBound;..}.    }
5fb0: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20  ..    /*.     * 
5fc0: 44 72 61 77 20 74 68 65 20 74 65 78 74 20 69 6e  Draw the text in
5fd0: 20 74 68 72 65 65 20 70 69 65 63 65 73 3a 20 20   three pieces:  
5fe0: 66 69 72 73 74 20 74 68 65 20 70 69 65 63 65 20  first the piece 
5ff0: 74 6f 20 74 68 65 20 6c 65 66 74 20 6f 66 0a 20  to the left of. 
6000: 20 20 20 20 2a 20 74 68 65 20 73 65 6c 65 63 74      * the select
6010: 69 6f 6e 2c 20 74 68 65 6e 20 74 68 65 20 73 65  ion, then the se
6020: 6c 65 63 74 69 6f 6e 2c 20 74 68 65 6e 20 74 68  lection, then th
6030: 65 20 70 69 65 63 65 20 74 6f 20 74 68 65 20 72  e piece to the r
6040: 69 67 68 74 0a 20 20 20 20 20 2a 20 6f 66 20 74  ight.     * of t
6050: 68 65 20 73 65 6c 65 63 74 69 6f 6e 2e 0a 20 20  he selection..  
6060: 20 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20 28 65     */..    if (e
6070: 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65 63 74 4c  ntryPtr->selectL
6080: 61 73 74 20 3c 3d 20 65 6e 74 72 79 50 74 72 2d  ast <= entryPtr-
6090: 3e 6c 65 66 74 49 6e 64 65 78 29 20 7b 0a 09 54  >leftIndex) {..T
60a0: 6b 44 69 73 70 6c 61 79 43 68 61 72 73 28 74 6b  kDisplayChars(tk
60b0: 77 69 6e 2c 20 43 54 4b 5f 55 4e 44 45 52 4c 49  win, CTK_UNDERLI
60c0: 4e 45 5f 53 54 59 4c 45 2c 0a 09 09 64 69 73 70  NE_STYLE,...disp
60d0: 6c 61 79 53 74 72 69 6e 67 20 2b 20 65 6e 74 72  layString + entr
60e0: 79 50 74 72 2d 3e 6c 65 66 74 49 6e 64 65 78 2c  yPtr->leftIndex,
60f0: 0a 09 09 65 6e 74 72 79 50 74 72 2d 3e 6e 75 6d  ...entryPtr->num
6100: 43 68 61 72 73 20 2d 20 65 6e 74 72 79 50 74 72  Chars - entryPtr
6110: 2d 3e 6c 65 66 74 49 6e 64 65 78 2c 20 65 6e 74  ->leftIndex, ent
6120: 72 79 50 74 72 2d 3e 6c 65 66 74 58 2c 0a 09 09  ryPtr->leftX,...
6130: 62 61 73 65 59 2c 20 65 6e 74 72 79 50 74 72 2d  baseY, entryPtr-
6140: 3e 74 61 62 4f 72 69 67 69 6e 2c 20 54 4b 5f 4e  >tabOrigin, TK_N
6150: 45 57 4c 49 4e 45 53 5f 4e 4f 54 5f 53 50 45 43  EWLINES_NOT_SPEC
6160: 49 41 4c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65  IAL);.    } else
6170: 20 7b 0a 09 63 6f 75 6e 74 20 3d 20 65 6e 74 72   {..count = entr
6180: 79 50 74 72 2d 3e 73 65 6c 65 63 74 46 69 72 73  yPtr->selectFirs
6190: 74 20 2d 20 65 6e 74 72 79 50 74 72 2d 3e 6c 65  t - entryPtr->le
61a0: 66 74 49 6e 64 65 78 3b 0a 09 69 66 20 28 63 6f  ftIndex;..if (co
61b0: 75 6e 74 20 3e 20 30 29 20 7b 0a 09 20 20 20 20  unt > 0) {..    
61c0: 54 6b 44 69 73 70 6c 61 79 43 68 61 72 73 28 74  TkDisplayChars(t
61d0: 6b 77 69 6e 2c 20 43 54 4b 5f 55 4e 44 45 52 4c  kwin, CTK_UNDERL
61e0: 49 4e 45 5f 53 54 59 4c 45 2c 0a 09 20 20 20 20  INE_STYLE,..    
61f0: 09 20 20 20 20 64 69 73 70 6c 61 79 53 74 72 69  .    displayStri
6200: 6e 67 20 2b 20 65 6e 74 72 79 50 74 72 2d 3e 6c  ng + entryPtr->l
6210: 65 66 74 49 6e 64 65 78 2c 0a 09 09 20 20 20 20  eftIndex,...    
6220: 63 6f 75 6e 74 2c 20 65 6e 74 72 79 50 74 72 2d  count, entryPtr-
6230: 3e 6c 65 66 74 58 2c 20 62 61 73 65 59 2c 20 65  >leftX, baseY, e
6240: 6e 74 72 79 50 74 72 2d 3e 74 61 62 4f 72 69 67  ntryPtr->tabOrig
6250: 69 6e 2c 0a 09 09 20 20 20 20 54 4b 5f 4e 45 57  in,...    TK_NEW
6260: 4c 49 4e 45 53 5f 4e 4f 54 5f 53 50 45 43 49 41  LINES_NOT_SPECIA
6270: 4c 29 3b 0a 09 20 20 20 20 69 6e 64 65 78 20 3d  L);..    index =
6280: 20 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65 63   entryPtr->selec
6290: 74 46 69 72 73 74 3b 0a 09 7d 20 65 6c 73 65 20  tFirst;..} else 
62a0: 7b 0a 09 20 20 20 20 69 6e 64 65 78 20 3d 20 65  {..    index = e
62b0: 6e 74 72 79 50 74 72 2d 3e 6c 65 66 74 49 6e 64  ntryPtr->leftInd
62c0: 65 78 3b 0a 09 7d 0a 09 63 6f 75 6e 74 20 3d 20  ex;..}..count = 
62d0: 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65 63 74  entryPtr->select
62e0: 4c 61 73 74 20 2d 20 69 6e 64 65 78 3b 0a 09 69  Last - index;..i
62f0: 66 20 28 28 73 65 6c 53 74 61 72 74 58 20 3c 20  f ((selStartX < 
6300: 78 42 6f 75 6e 64 29 20 26 26 20 28 63 6f 75 6e  xBound) && (coun
6310: 74 20 3e 20 30 29 29 20 7b 0a 09 20 20 20 20 54  t > 0)) {..    T
6320: 6b 44 69 73 70 6c 61 79 43 68 61 72 73 28 74 6b  kDisplayChars(tk
6330: 77 69 6e 2c 20 43 54 4b 5f 53 45 4c 45 43 54 45  win, CTK_SELECTE
6340: 44 5f 53 54 59 4c 45 2c 0a 09 09 20 20 20 20 64  D_STYLE,...    d
6350: 69 73 70 6c 61 79 53 74 72 69 6e 67 20 2b 20 69  isplayString + i
6360: 6e 64 65 78 2c 20 63 6f 75 6e 74 2c 0a 09 09 20  ndex, count,... 
6370: 20 20 20 73 65 6c 53 74 61 72 74 58 2c 20 62 61     selStartX, ba
6380: 73 65 59 2c 20 65 6e 74 72 79 50 74 72 2d 3e 74  seY, entryPtr->t
6390: 61 62 4f 72 69 67 69 6e 2c 0a 09 09 20 20 20 20  abOrigin,...    
63a0: 54 4b 5f 4e 45 57 4c 49 4e 45 53 5f 4e 4f 54 5f  TK_NEWLINES_NOT_
63b0: 53 50 45 43 49 41 4c 29 3b 0a 09 7d 0a 09 63 6f  SPECIAL);..}..co
63c0: 75 6e 74 20 3d 20 65 6e 74 72 79 50 74 72 2d 3e  unt = entryPtr->
63d0: 6e 75 6d 43 68 61 72 73 20 2d 20 65 6e 74 72 79  numChars - entry
63e0: 50 74 72 2d 3e 73 65 6c 65 63 74 4c 61 73 74 3b  Ptr->selectLast;
63f0: 0a 09 69 66 20 28 28 73 65 6c 45 6e 64 58 20 3c  ..if ((selEndX <
6400: 20 78 42 6f 75 6e 64 29 20 26 26 20 28 63 6f 75   xBound) && (cou
6410: 6e 74 20 3e 20 30 29 29 20 7b 0a 09 20 20 20 20  nt > 0)) {..    
6420: 54 6b 44 69 73 70 6c 61 79 43 68 61 72 73 28 74  TkDisplayChars(t
6430: 6b 77 69 6e 2c 20 43 54 4b 5f 55 4e 44 45 52 4c  kwin, CTK_UNDERL
6440: 49 4e 45 5f 53 54 59 4c 45 2c 0a 09 09 20 20 20  INE_STYLE,...   
6450: 20 64 69 73 70 6c 61 79 53 74 72 69 6e 67 20 2b   displayString +
6460: 20 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65 63   entryPtr->selec
6470: 74 4c 61 73 74 2c 0a 09 09 20 20 20 20 63 6f 75  tLast,...    cou
6480: 6e 74 2c 20 73 65 6c 45 6e 64 58 2c 20 62 61 73  nt, selEndX, bas
6490: 65 59 2c 20 65 6e 74 72 79 50 74 72 2d 3e 74 61  eY, entryPtr->ta
64a0: 62 4f 72 69 67 69 6e 2c 0a 09 09 20 20 20 20 54  bOrigin,...    T
64b0: 4b 5f 4e 45 57 4c 49 4e 45 53 5f 4e 4f 54 5f 53  K_NEWLINES_NOT_S
64c0: 50 45 43 49 41 4c 29 3b 0a 09 7d 0a 20 20 20 20  PECIAL);..}.    
64d0: 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a  }..    /*.     *
64e0: 20 50 6f 73 69 74 69 6f 6e 20 74 68 65 20 63 75   Position the cu
64f0: 72 73 6f 72 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20  rsor..     */.. 
6500: 20 20 20 69 66 20 28 28 65 6e 74 72 79 50 74 72     if ((entryPtr
6510: 2d 3e 69 6e 73 65 72 74 50 6f 73 20 3e 3d 20 65  ->insertPos >= e
6520: 6e 74 72 79 50 74 72 2d 3e 6c 65 66 74 49 6e 64  ntryPtr->leftInd
6530: 65 78 29 0a 09 20 20 20 20 26 26 20 28 65 6e 74  ex)..    && (ent
6540: 72 79 50 74 72 2d 3e 73 74 61 74 65 20 3d 3d 20  ryPtr->state == 
6550: 74 6b 4e 6f 72 6d 61 6c 55 69 64 29 0a 09 20 20  tkNormalUid)..  
6560: 20 20 26 26 20 28 65 6e 74 72 79 50 74 72 2d 3e    && (entryPtr->
6570: 66 6c 61 67 73 20 26 20 47 4f 54 5f 46 4f 43 55  flags & GOT_FOCU
6580: 53 29 29 20 7b 0a 09 28 76 6f 69 64 29 20 54 6b  S)) {..(void) Tk
6590: 4d 65 61 73 75 72 65 43 68 61 72 73 28 0a 09 09  MeasureChars(...
65a0: 64 69 73 70 6c 61 79 53 74 72 69 6e 67 20 2b 20  displayString + 
65b0: 65 6e 74 72 79 50 74 72 2d 3e 6c 65 66 74 49 6e  entryPtr->leftIn
65c0: 64 65 78 2c 0a 09 09 65 6e 74 72 79 50 74 72 2d  dex,...entryPtr-
65d0: 3e 69 6e 73 65 72 74 50 6f 73 20 2d 20 65 6e 74  >insertPos - ent
65e0: 72 79 50 74 72 2d 3e 6c 65 66 74 49 6e 64 65 78  ryPtr->leftIndex
65f0: 2c 20 65 6e 74 72 79 50 74 72 2d 3e 6c 65 66 74  , entryPtr->left
6600: 58 2c 0a 09 09 78 42 6f 75 6e 64 2c 20 65 6e 74  X,...xBound, ent
6610: 72 79 50 74 72 2d 3e 74 61 62 4f 72 69 67 69 6e  ryPtr->tabOrigin
6620: 2c 0a 09 09 54 4b 5f 50 41 52 54 49 41 4c 5f 4f  ,...TK_PARTIAL_O
6630: 4b 7c 54 4b 5f 4e 45 57 4c 49 4e 45 53 5f 4e 4f  K|TK_NEWLINES_NO
6640: 54 5f 53 50 45 43 49 41 4c 2c 20 26 63 75 72 73  T_SPECIAL, &curs
6650: 6f 72 58 29 3b 0a 09 69 66 20 28 63 75 72 73 6f  orX);..if (curso
6660: 72 58 20 3c 20 78 42 6f 75 6e 64 29 20 7b 0a 09  rX < xBound) {..
6670: 20 20 20 20 43 74 6b 5f 53 65 74 43 75 72 73 6f      Ctk_SetCurso
6680: 72 28 74 6b 77 69 6e 2c 20 63 75 72 73 6f 72 58  r(tkwin, cursorX
6690: 2c 20 62 61 73 65 59 29 3b 0a 09 7d 0a 20 20 20  , baseY);..}.   
66a0: 20 7d 0a 0a 20 20 20 20 69 66 20 28 65 6e 74 72   }..    if (entr
66b0: 79 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 42 4f  yPtr->flags & BO
66c0: 52 44 45 52 5f 4e 45 45 44 45 44 29 20 7b 0a 09  RDER_NEEDED) {..
66d0: 43 74 6b 5f 44 72 61 77 42 6f 72 64 65 72 28 74  Ctk_DrawBorder(t
66e0: 6b 77 69 6e 2c 20 43 54 4b 5f 50 4c 41 49 4e 5f  kwin, CTK_PLAIN_
66f0: 53 54 59 4c 45 2c 20 28 63 68 61 72 20 2a 29 4e  STYLE, (char *)N
6700: 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  ULL);.    }..   
6710: 20 64 6f 6e 65 3a 0a 20 20 20 20 65 6e 74 72 79   done:.    entry
6720: 50 74 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 28  Ptr->flags &= ~(
6730: 52 45 44 52 41 57 5f 50 45 4e 44 49 4e 47 7c 42  REDRAW_PENDING|B
6740: 4f 52 44 45 52 5f 4e 45 45 44 45 44 29 3b 0a 7d  ORDER_NEEDED);.}
6750: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  .../*. *--------
6760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
67a0: 2a 0a 20 2a 20 45 6e 74 72 79 43 6f 6d 70 75 74  *. * EntryComput
67b0: 65 47 65 6f 6d 65 74 72 79 20 2d 2d 0a 20 2a 0a  eGeometry --. *.
67c0: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72   *.This procedur
67d0: 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20  e is invoked to 
67e0: 72 65 63 6f 6d 70 75 74 65 20 69 6e 66 6f 72 6d  recompute inform
67f0: 61 74 69 6f 6e 20 61 62 6f 75 74 20 77 68 65 72  ation about wher
6800: 65 0a 20 2a 09 69 6e 20 69 74 73 20 77 69 6e 64  e. *.in its wind
6810: 6f 77 20 61 6e 20 65 6e 74 72 79 27 73 20 73 74  ow an entry's st
6820: 72 69 6e 67 20 77 69 6c 6c 20 62 65 20 64 69 73  ring will be dis
6830: 70 6c 61 79 65 64 2e 20 20 49 74 20 61 6c 73 6f  played.  It also
6840: 0a 20 2a 09 63 6f 6d 70 75 74 65 73 20 74 68 65  . *.computes the
6850: 20 72 65 71 75 65 73 74 65 64 20 73 69 7a 65 20   requested size 
6860: 66 6f 72 20 74 68 65 20 77 69 6e 64 6f 77 2e 0a  for the window..
6870: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20   *. * Results:. 
6880: 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69  *.None.. *. * Si
6890: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 54  de effects:. *.T
68a0: 68 65 20 6c 65 66 74 58 20 61 6e 64 20 74 61 62  he leftX and tab
68b0: 4f 72 69 67 69 6e 20 66 69 65 6c 64 73 20 61 72  Origin fields ar
68c0: 65 20 72 65 63 6f 6d 70 75 74 65 64 20 66 6f 72  e recomputed for
68d0: 20 65 6e 74 72 79 50 74 72 2c 0a 20 2a 09 61 6e   entryPtr,. *.an
68e0: 64 20 6c 65 66 74 49 6e 64 65 78 20 6d 61 79 20  d leftIndex may 
68f0: 62 65 20 61 64 6a 75 73 74 65 64 2e 20 20 54 6b  be adjusted.  Tk
6900: 5f 47 65 6f 6d 65 74 72 79 52 65 71 75 65 73 74  _GeometryRequest
6910: 20 69 73 20 63 61 6c 6c 65 64 0a 20 2a 09 74 6f   is called. *.to
6920: 20 72 65 67 69 73 74 65 72 20 74 68 65 20 64 65   register the de
6930: 73 69 72 65 64 20 64 69 6d 65 6e 73 69 6f 6e 73  sired dimensions
6940: 20 66 6f 72 20 74 68 65 20 77 69 6e 64 6f 77 2e   for the window.
6950: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *. *----------
6960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
69a0: 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 45 6e  ..static void.En
69b0: 74 72 79 43 6f 6d 70 75 74 65 47 65 6f 6d 65 74  tryComputeGeomet
69c0: 72 79 28 65 6e 74 72 79 50 74 72 29 0a 20 20 20  ry(entryPtr).   
69d0: 20 45 6e 74 72 79 20 2a 65 6e 74 72 79 50 74 72   Entry *entryPtr
69e0: 3b 09 09 09 2f 2a 20 57 69 64 67 65 74 20 72 65  ;.../* Widget re
69f0: 63 6f 72 64 20 66 6f 72 20 65 6e 74 72 79 2e 20  cord for entry. 
6a00: 2a 2f 0a 7b 0a 20 20 20 20 69 6e 74 20 74 6f 74  */.{.    int tot
6a10: 61 6c 4c 65 6e 67 74 68 2c 20 6f 76 65 72 66 6c  alLength, overfl
6a20: 6f 77 2c 20 6d 61 78 4f 66 66 53 63 72 65 65 6e  ow, maxOffScreen
6a30: 2c 20 72 69 67 68 74 58 3b 0a 20 20 20 20 69 6e  , rightX;.    in
6a40: 74 20 68 65 69 67 68 74 2c 20 77 69 64 74 68 2c  t height, width,
6a50: 20 69 3b 0a 20 20 20 20 63 68 61 72 20 2a 70 2c   i;.    char *p,
6a60: 20 2a 64 69 73 70 6c 61 79 53 74 72 69 6e 67 3b   *displayString;
6a70: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20  ..    /*.     * 
6a80: 49 66 20 77 65 27 72 65 20 64 69 73 70 6c 61 79  If we're display
6a90: 69 6e 67 20 61 20 73 70 65 63 69 61 6c 20 63 68  ing a special ch
6aa0: 61 72 61 63 74 65 72 20 69 6e 73 74 65 61 64 20  aracter instead 
6ab0: 6f 66 20 74 68 65 20 76 61 6c 75 65 20 6f 66 0a  of the value of.
6ac0: 20 20 20 20 20 2a 20 74 68 65 20 65 6e 74 72 79       * the entry
6ad0: 2c 20 72 65 63 6f 6d 70 75 74 65 20 74 68 65 20  , recompute the 
6ae0: 64 69 73 70 6c 61 79 53 74 72 69 6e 67 2e 0a 20  displayString.. 
6af0: 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20 28      */..    if (
6b00: 65 6e 74 72 79 50 74 72 2d 3e 64 69 73 70 6c 61  entryPtr->displa
6b10: 79 53 74 72 69 6e 67 20 21 3d 20 4e 55 4c 4c 29  yString != NULL)
6b20: 20 7b 0a 09 63 6b 66 72 65 65 28 65 6e 74 72 79   {..ckfree(entry
6b30: 50 74 72 2d 3e 64 69 73 70 6c 61 79 53 74 72 69  Ptr->displayStri
6b40: 6e 67 29 3b 0a 09 65 6e 74 72 79 50 74 72 2d 3e  ng);..entryPtr->
6b50: 64 69 73 70 6c 61 79 53 74 72 69 6e 67 20 3d 20  displayString = 
6b60: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20  NULL;.    }.    
6b70: 69 66 20 28 65 6e 74 72 79 50 74 72 2d 3e 73 68  if (entryPtr->sh
6b80: 6f 77 43 68 61 72 20 21 3d 20 4e 55 4c 4c 29 20  owChar != NULL) 
6b90: 7b 0a 09 65 6e 74 72 79 50 74 72 2d 3e 64 69 73  {..entryPtr->dis
6ba0: 70 6c 61 79 53 74 72 69 6e 67 20 3d 20 28 63 68  playString = (ch
6bb0: 61 72 20 2a 29 20 63 6b 61 6c 6c 6f 63 28 28 75  ar *) ckalloc((u
6bc0: 6e 73 69 67 6e 65 64 29 0a 09 09 28 65 6e 74 72  nsigned)...(entr
6bd0: 79 50 74 72 2d 3e 6e 75 6d 43 68 61 72 73 20 2b  yPtr->numChars +
6be0: 20 31 29 29 3b 0a 09 66 6f 72 20 28 70 20 3d 20   1));..for (p = 
6bf0: 65 6e 74 72 79 50 74 72 2d 3e 64 69 73 70 6c 61  entryPtr->displa
6c00: 79 53 74 72 69 6e 67 2c 20 69 20 3d 20 65 6e 74  yString, i = ent
6c10: 72 79 50 74 72 2d 3e 6e 75 6d 43 68 61 72 73 3b  ryPtr->numChars;
6c20: 20 69 20 3e 20 30 3b 0a 09 09 69 2d 2d 2c 20 70   i > 0;...i--, p
6c30: 2b 2b 29 20 7b 0a 09 20 20 20 20 2a 70 20 3d 20  ++) {..    *p = 
6c40: 65 6e 74 72 79 50 74 72 2d 3e 73 68 6f 77 43 68  entryPtr->showCh
6c50: 61 72 5b 30 5d 3b 0a 09 7d 0a 09 2a 70 20 3d 20  ar[0];..}..*p = 
6c60: 30 3b 0a 09 64 69 73 70 6c 61 79 53 74 72 69 6e  0;..displayStrin
6c70: 67 20 3d 20 65 6e 74 72 79 50 74 72 2d 3e 64 69  g = entryPtr->di
6c80: 73 70 6c 61 79 53 74 72 69 6e 67 3b 0a 20 20 20  splayString;.   
6c90: 20 7d 20 65 6c 73 65 20 7b 0a 09 64 69 73 70 6c   } else {..displ
6ca0: 61 79 53 74 72 69 6e 67 20 3d 20 65 6e 74 72 79  ayString = entry
6cb0: 50 74 72 2d 3e 73 74 72 69 6e 67 3b 0a 20 20 20  Ptr->string;.   
6cc0: 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20   }..    /*.     
6cd0: 2a 20 52 65 63 6f 6d 70 75 74 65 20 77 68 65 72  * Recompute wher
6ce0: 65 20 74 68 65 20 6c 65 66 74 6d 6f 73 74 20 63  e the leftmost c
6cf0: 68 61 72 61 63 74 65 72 20 6f 6e 20 74 68 65 20  haracter on the 
6d00: 64 69 73 70 6c 61 79 20 77 69 6c 6c 0a 20 20 20  display will.   
6d10: 20 20 2a 20 62 65 20 64 72 61 77 6e 20 28 65 6e    * be drawn (en
6d20: 74 72 79 50 74 72 2d 3e 6c 65 66 74 58 29 20 61  tryPtr->leftX) a
6d30: 6e 64 20 61 64 6a 75 73 74 20 6c 65 66 74 49 6e  nd adjust leftIn
6d40: 64 65 78 20 69 66 20 6e 65 63 65 73 73 61 72 79  dex if necessary
6d50: 0a 20 20 20 20 20 2a 20 73 6f 20 74 68 61 74 20  .     * so that 
6d60: 77 65 20 64 6f 6e 27 74 20 6c 65 74 20 63 68 61  we don't let cha
6d70: 72 61 63 74 65 72 73 20 68 61 6e 67 20 6f 66 66  racters hang off
6d80: 20 74 68 65 20 65 64 67 65 20 6f 66 20 74 68 65   the edge of the
6d90: 0a 20 20 20 20 20 2a 20 77 69 6e 64 6f 77 20 75  .     * window u
6da0: 6e 6c 65 73 73 20 74 68 65 20 65 6e 74 69 72 65  nless the entire
6db0: 20 77 69 6e 64 6f 77 20 69 73 20 66 75 6c 6c 2e   window is full.
6dc0: 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 54 6b  .     */..    Tk
6dd0: 4d 65 61 73 75 72 65 43 68 61 72 73 28 64 69 73  MeasureChars(dis
6de0: 70 6c 61 79 53 74 72 69 6e 67 2c 20 65 6e 74 72  playString, entr
6df0: 79 50 74 72 2d 3e 6e 75 6d 43 68 61 72 73 2c 0a  yPtr->numChars,.
6e00: 09 20 20 20 20 30 2c 20 49 4e 54 5f 4d 41 58 2c  .    0, INT_MAX,
6e10: 20 30 2c 20 54 4b 5f 4e 45 57 4c 49 4e 45 53 5f   0, TK_NEWLINES_
6e20: 4e 4f 54 5f 53 50 45 43 49 41 4c 2c 20 26 74 6f  NOT_SPECIAL, &to
6e30: 74 61 6c 4c 65 6e 67 74 68 29 3b 0a 20 20 20 20  talLength);.    
6e40: 74 6f 74 61 6c 4c 65 6e 67 74 68 2b 2b 3b 0a 20  totalLength++;. 
6e50: 20 20 20 6f 76 65 72 66 6c 6f 77 20 3d 20 74 6f     overflow = to
6e60: 74 61 6c 4c 65 6e 67 74 68 0a 20 20 20 20 09 20  talLength.    . 
6e70: 20 20 20 2d 20 28 54 6b 5f 57 69 64 74 68 28 65     - (Tk_Width(e
6e80: 6e 74 72 79 50 74 72 2d 3e 74 6b 77 69 6e 29 20  ntryPtr->tkwin) 
6e90: 2d 20 32 2a 65 6e 74 72 79 50 74 72 2d 3e 62 6f  - 2*entryPtr->bo
6ea0: 72 64 65 72 57 69 64 74 68 29 3b 0a 20 20 20 20  rderWidth);.    
6eb0: 69 66 20 28 6f 76 65 72 66 6c 6f 77 20 3c 3d 20  if (overflow <= 
6ec0: 30 29 20 7b 0a 09 65 6e 74 72 79 50 74 72 2d 3e  0) {..entryPtr->
6ed0: 6c 65 66 74 49 6e 64 65 78 20 3d 20 30 3b 0a 09  leftIndex = 0;..
6ee0: 69 66 20 28 65 6e 74 72 79 50 74 72 2d 3e 6a 75  if (entryPtr->ju
6ef0: 73 74 69 66 79 20 3d 3d 20 54 4b 5f 4a 55 53 54  stify == TK_JUST
6f00: 49 46 59 5f 4c 45 46 54 29 20 7b 0a 09 20 20 20  IFY_LEFT) {..   
6f10: 20 65 6e 74 72 79 50 74 72 2d 3e 6c 65 66 74 58   entryPtr->leftX
6f20: 20 3d 20 65 6e 74 72 79 50 74 72 2d 3e 62 6f 72   = entryPtr->bor
6f30: 64 65 72 57 69 64 74 68 3b 0a 09 7d 20 65 6c 73  derWidth;..} els
6f40: 65 20 69 66 20 28 65 6e 74 72 79 50 74 72 2d 3e  e if (entryPtr->
6f50: 6a 75 73 74 69 66 79 20 3d 3d 20 54 4b 5f 4a 55  justify == TK_JU
6f60: 53 54 49 46 59 5f 52 49 47 48 54 29 20 7b 0a 09  STIFY_RIGHT) {..
6f70: 20 20 20 20 65 6e 74 72 79 50 74 72 2d 3e 6c 65      entryPtr->le
6f80: 66 74 58 20 3d 20 54 6b 5f 57 69 64 74 68 28 65  ftX = Tk_Width(e
6f90: 6e 74 72 79 50 74 72 2d 3e 74 6b 77 69 6e 29 20  ntryPtr->tkwin) 
6fa0: 2d 20 65 6e 74 72 79 50 74 72 2d 3e 62 6f 72 64  - entryPtr->bord
6fb0: 65 72 57 69 64 74 68 0a 09 09 20 20 20 20 2d 20  erWidth...    - 
6fc0: 74 6f 74 61 6c 4c 65 6e 67 74 68 3b 0a 09 7d 20  totalLength;..} 
6fd0: 65 6c 73 65 20 7b 0a 09 20 20 20 20 65 6e 74 72  else {..    entr
6fe0: 79 50 74 72 2d 3e 6c 65 66 74 58 20 3d 20 28 54  yPtr->leftX = (T
6ff0: 6b 5f 57 69 64 74 68 28 65 6e 74 72 79 50 74 72  k_Width(entryPtr
7000: 2d 3e 74 6b 77 69 6e 29 20 2d 20 74 6f 74 61 6c  ->tkwin) - total
7010: 4c 65 6e 67 74 68 29 2f 32 3b 0a 09 7d 0a 09 65  Length)/2;..}..e
7020: 6e 74 72 79 50 74 72 2d 3e 74 61 62 4f 72 69 67  ntryPtr->tabOrig
7030: 69 6e 20 3d 20 65 6e 74 72 79 50 74 72 2d 3e 6c  in = entryPtr->l
7040: 65 66 74 58 3b 0a 20 20 20 20 7d 20 65 6c 73 65  eftX;.    } else
7050: 20 7b 0a 09 2f 2a 0a 09 20 2a 20 54 68 65 20 77   {../*.. * The w
7060: 68 6f 6c 65 20 73 74 72 69 6e 67 20 63 61 6e 27  hole string can'
7070: 74 20 66 69 74 20 69 6e 20 74 68 65 20 77 69 6e  t fit in the win
7080: 64 6f 77 2e 20 20 43 6f 6d 70 75 74 65 20 74 68  dow.  Compute th
7090: 65 0a 09 20 2a 20 6d 61 78 69 6d 75 6d 20 6e 75  e.. * maximum nu
70a0: 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65  mber of characte
70b0: 72 73 20 74 68 61 74 20 6d 61 79 20 62 65 20 6f  rs that may be o
70c0: 66 66 2d 73 63 72 65 65 6e 20 74 6f 0a 09 20 2a  ff-screen to.. *
70d0: 20 74 68 65 20 6c 65 66 74 20 77 69 74 68 6f 75   the left withou
70e0: 74 20 6c 65 61 76 69 6e 67 20 6d 6f 72 65 20 74  t leaving more t
70f0: 68 61 6e 20 6f 6e 65 20 65 6d 70 74 79 20 73 70  han one empty sp
7100: 61 63 65 20 6f 6e 0a 09 20 2a 20 74 68 65 20 72  ace on.. * the r
7110: 69 67 68 74 20 6f 66 20 74 68 65 20 77 69 6e 64  ight of the wind
7120: 6f 77 2c 20 74 68 65 6e 20 64 6f 6e 27 74 20 6c  ow, then don't l
7130: 65 74 20 6c 65 66 74 49 6e 64 65 78 20 62 65 20  et leftIndex be 
7140: 61 6e 79 0a 09 20 2a 20 67 72 65 61 74 65 72 20  any.. * greater 
7150: 74 68 61 6e 20 74 68 61 74 2e 0a 09 20 2a 2f 0a  than that... */.
7160: 0a 09 6d 61 78 4f 66 66 53 63 72 65 65 6e 20 3d  ..maxOffScreen =
7170: 20 54 6b 4d 65 61 73 75 72 65 43 68 61 72 73 28   TkMeasureChars(
7180: 64 69 73 70 6c 61 79 53 74 72 69 6e 67 2c 0a 09  displayString,..
7190: 20 20 20 20 65 6e 74 72 79 50 74 72 2d 3e 6e 75      entryPtr->nu
71a0: 6d 43 68 61 72 73 2c 20 30 2c 20 6f 76 65 72 66  mChars, 0, overf
71b0: 6c 6f 77 2c 20 30 2c 0a 09 20 20 20 20 54 4b 5f  low, 0,..    TK_
71c0: 4e 45 57 4c 49 4e 45 53 5f 4e 4f 54 5f 53 50 45  NEWLINES_NOT_SPE
71d0: 43 49 41 4c 7c 54 4b 5f 50 41 52 54 49 41 4c 5f  CIAL|TK_PARTIAL_
71e0: 4f 4b 2c 20 26 72 69 67 68 74 58 29 3b 0a 09 69  OK, &rightX);..i
71f0: 66 20 28 72 69 67 68 74 58 20 3c 20 6f 76 65 72  f (rightX < over
7200: 66 6c 6f 77 29 20 7b 0a 09 20 20 20 20 6d 61 78  flow) {..    max
7210: 4f 66 66 53 63 72 65 65 6e 20 2b 3d 20 31 3b 0a  OffScreen += 1;.
7220: 09 7d 0a 09 69 66 20 28 65 6e 74 72 79 50 74 72  .}..if (entryPtr
7230: 2d 3e 6c 65 66 74 49 6e 64 65 78 20 3e 20 6d 61  ->leftIndex > ma
7240: 78 4f 66 66 53 63 72 65 65 6e 29 20 7b 0a 09 20  xOffScreen) {.. 
7250: 20 20 20 65 6e 74 72 79 50 74 72 2d 3e 6c 65 66     entryPtr->lef
7260: 74 49 6e 64 65 78 20 3d 20 6d 61 78 4f 66 66 53  tIndex = maxOffS
7270: 63 72 65 65 6e 3b 0a 09 7d 0a 09 54 6b 4d 65 61  creen;..}..TkMea
7280: 73 75 72 65 43 68 61 72 73 28 64 69 73 70 6c 61  sureChars(displa
7290: 79 53 74 72 69 6e 67 2c 0a 09 09 65 6e 74 72 79  yString,...entry
72a0: 50 74 72 2d 3e 6c 65 66 74 49 6e 64 65 78 2c 20  Ptr->leftIndex, 
72b0: 30 2c 20 49 4e 54 5f 4d 41 58 2c 20 30 2c 0a 09  0, INT_MAX, 0,..
72c0: 09 54 4b 5f 4e 45 57 4c 49 4e 45 53 5f 4e 4f 54  .TK_NEWLINES_NOT
72d0: 5f 53 50 45 43 49 41 4c 7c 54 4b 5f 50 41 52 54  _SPECIAL|TK_PART
72e0: 49 41 4c 5f 4f 4b 2c 20 26 72 69 67 68 74 58 29  IAL_OK, &rightX)
72f0: 3b 0a 09 65 6e 74 72 79 50 74 72 2d 3e 6c 65 66  ;..entryPtr->lef
7300: 74 58 20 3d 20 65 6e 74 72 79 50 74 72 2d 3e 62  tX = entryPtr->b
7310: 6f 72 64 65 72 57 69 64 74 68 3b 0a 09 65 6e 74  orderWidth;..ent
7320: 72 79 50 74 72 2d 3e 74 61 62 4f 72 69 67 69 6e  ryPtr->tabOrigin
7330: 20 3d 20 65 6e 74 72 79 50 74 72 2d 3e 6c 65 66   = entryPtr->lef
7340: 74 58 20 2d 20 72 69 67 68 74 58 3b 0a 20 20 20  tX - rightX;.   
7350: 20 7d 0a 0a 20 20 20 20 68 65 69 67 68 74 20 3d   }..    height =
7360: 20 31 20 2b 20 32 2a 65 6e 74 72 79 50 74 72 2d   1 + 2*entryPtr-
7370: 3e 62 6f 72 64 65 72 57 69 64 74 68 20 2b 20 32  >borderWidth + 2
7380: 2a 28 59 50 41 44 2d 58 50 41 44 29 3b 0a 20 20  *(YPAD-XPAD);.  
7390: 20 20 69 66 20 28 65 6e 74 72 79 50 74 72 2d 3e    if (entryPtr->
73a0: 70 72 65 66 57 69 64 74 68 20 3e 20 30 29 20 7b  prefWidth > 0) {
73b0: 0a 09 77 69 64 74 68 20 3d 20 65 6e 74 72 79 50  ..width = entryP
73c0: 74 72 2d 3e 70 72 65 66 57 69 64 74 68 20 2b 20  tr->prefWidth + 
73d0: 32 2a 65 6e 74 72 79 50 74 72 2d 3e 62 6f 72 64  2*entryPtr->bord
73e0: 65 72 57 69 64 74 68 3b 0a 20 20 20 20 7d 20 65  erWidth;.    } e
73f0: 6c 73 65 20 7b 0a 09 69 66 20 28 74 6f 74 61 6c  lse {..if (total
7400: 4c 65 6e 67 74 68 20 3d 3d 20 30 29 20 7b 0a 09  Length == 0) {..
7410: 20 20 20 20 77 69 64 74 68 20 3d 20 31 20 2b 20      width = 1 + 
7420: 32 2a 65 6e 74 72 79 50 74 72 2d 3e 62 6f 72 64  2*entryPtr->bord
7430: 65 72 57 69 64 74 68 3b 0a 09 7d 20 65 6c 73 65  erWidth;..} else
7440: 20 7b 0a 09 20 20 20 20 77 69 64 74 68 20 3d 20   {..    width = 
7450: 74 6f 74 61 6c 4c 65 6e 67 74 68 20 2b 20 32 2a  totalLength + 2*
7460: 65 6e 74 72 79 50 74 72 2d 3e 62 6f 72 64 65 72  entryPtr->border
7470: 57 69 64 74 68 3b 0a 09 7d 0a 20 20 20 20 7d 0a  Width;..}.    }.
7480: 20 20 20 20 54 6b 5f 47 65 6f 6d 65 74 72 79 52      Tk_GeometryR
7490: 65 71 75 65 73 74 28 65 6e 74 72 79 50 74 72 2d  equest(entryPtr-
74a0: 3e 74 6b 77 69 6e 2c 20 77 69 64 74 68 2c 20 68  >tkwin, width, h
74b0: 65 69 67 68 74 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20  eight);.}.../*. 
74c0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
74d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
74e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
74f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7500: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 49 6e  -------. *. * In
7510: 73 65 72 74 43 68 61 72 73 20 2d 2d 0a 20 2a 0a  sertChars --. *.
7520: 20 2a 09 41 64 64 20 6e 65 77 20 63 68 61 72 61   *.Add new chara
7530: 63 74 65 72 73 20 74 6f 20 61 6e 20 65 6e 74 72  cters to an entr
7540: 79 20 77 69 64 67 65 74 2e 0a 20 2a 0a 20 2a 20  y widget.. *. * 
7550: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65  Results:. *.None
7560: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66  .. *. * Side eff
7570: 65 63 74 73 3a 0a 20 2a 09 4e 65 77 20 69 6e 66  ects:. *.New inf
7580: 6f 72 6d 61 74 69 6f 6e 20 67 65 74 73 20 61 64  ormation gets ad
7590: 64 65 64 20 74 6f 20 65 6e 74 72 79 50 74 72 3b  ded to entryPtr;
75a0: 20 20 69 74 20 77 69 6c 6c 20 62 65 20 72 65 64    it will be red
75b0: 69 73 70 6c 61 79 65 64 0a 20 2a 09 73 6f 6f 6e  isplayed. *.soon
75c0: 2c 20 62 75 74 20 6e 6f 74 20 6e 65 63 65 73 73  , but not necess
75d0: 61 72 69 6c 79 20 69 6d 6d 65 64 69 61 74 65 6c  arily immediatel
75e0: 79 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  y.. *. *--------
75f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
7630: 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 0a  */..static void.
7640: 49 6e 73 65 72 74 43 68 61 72 73 28 65 6e 74 72  InsertChars(entr
7650: 79 50 74 72 2c 20 69 6e 64 65 78 2c 20 73 74 72  yPtr, index, str
7660: 69 6e 67 29 0a 20 20 20 20 72 65 67 69 73 74 65  ing).    registe
7670: 72 20 45 6e 74 72 79 20 2a 65 6e 74 72 79 50 74  r Entry *entryPt
7680: 72 3b 09 2f 2a 20 45 6e 74 72 79 20 74 68 61 74  r;./* Entry that
7690: 20 69 73 20 74 6f 20 67 65 74 20 74 68 65 20 6e   is to get the n
76a0: 65 77 0a 09 09 09 09 20 2a 20 65 6c 65 6d 65 6e  ew..... * elemen
76b0: 74 73 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 69  ts. */.    int i
76c0: 6e 64 65 78 3b 09 09 09 2f 2a 20 41 64 64 20 74  ndex;.../* Add t
76d0: 68 65 20 6e 65 77 20 65 6c 65 6d 65 6e 74 73 20  he new elements 
76e0: 62 65 66 6f 72 65 20 74 68 69 73 0a 09 09 09 09  before this.....
76f0: 20 2a 20 65 6c 65 6d 65 6e 74 2e 20 2a 2f 0a 20   * element. */. 
7700: 20 20 20 63 68 61 72 20 2a 73 74 72 69 6e 67 3b     char *string;
7710: 09 09 2f 2a 20 4e 65 77 20 63 68 61 72 61 63 74  ../* New charact
7720: 65 72 73 20 74 6f 20 61 64 64 20 28 4e 55 4c 4c  ers to add (NULL
7730: 2d 74 65 72 6d 69 6e 61 74 65 64 0a 09 09 09 09  -terminated.....
7740: 20 2a 20 73 74 72 69 6e 67 29 2e 20 2a 2f 0a 7b   * string). */.{
7750: 0a 20 20 20 20 69 6e 74 20 6c 65 6e 67 74 68 3b  .    int length;
7760: 0a 20 20 20 20 63 68 61 72 20 2a 6e 65 77 3b 0a  .    char *new;.
7770: 0a 20 20 20 20 6c 65 6e 67 74 68 20 3d 20 73 74  .    length = st
7780: 72 6c 65 6e 28 73 74 72 69 6e 67 29 3b 0a 20 20  rlen(string);.  
7790: 20 20 69 66 20 28 6c 65 6e 67 74 68 20 3d 3d 20    if (length == 
77a0: 30 29 20 7b 0a 09 72 65 74 75 72 6e 3b 0a 20 20  0) {..return;.  
77b0: 20 20 7d 0a 20 20 20 20 6e 65 77 20 3d 20 28 63    }.    new = (c
77c0: 68 61 72 20 2a 29 20 63 6b 61 6c 6c 6f 63 28 28  har *) ckalloc((
77d0: 75 6e 73 69 67 6e 65 64 29 20 28 65 6e 74 72 79  unsigned) (entry
77e0: 50 74 72 2d 3e 6e 75 6d 43 68 61 72 73 20 2b 20  Ptr->numChars + 
77f0: 6c 65 6e 67 74 68 20 2b 20 31 29 29 3b 0a 20 20  length + 1));.  
7800: 20 20 73 74 72 6e 63 70 79 28 6e 65 77 2c 20 65    strncpy(new, e
7810: 6e 74 72 79 50 74 72 2d 3e 73 74 72 69 6e 67 2c  ntryPtr->string,
7820: 20 28 73 69 7a 65 5f 74 29 20 69 6e 64 65 78 29   (size_t) index)
7830: 3b 0a 20 20 20 20 73 74 72 63 70 79 28 6e 65 77  ;.    strcpy(new
7840: 2b 69 6e 64 65 78 2c 20 73 74 72 69 6e 67 29 3b  +index, string);
7850: 0a 20 20 20 20 73 74 72 63 70 79 28 6e 65 77 2b  .    strcpy(new+
7860: 69 6e 64 65 78 2b 6c 65 6e 67 74 68 2c 20 65 6e  index+length, en
7870: 74 72 79 50 74 72 2d 3e 73 74 72 69 6e 67 2b 69  tryPtr->string+i
7880: 6e 64 65 78 29 3b 0a 20 20 20 20 63 6b 66 72 65  ndex);.    ckfre
7890: 65 28 65 6e 74 72 79 50 74 72 2d 3e 73 74 72 69  e(entryPtr->stri
78a0: 6e 67 29 3b 0a 20 20 20 20 65 6e 74 72 79 50 74  ng);.    entryPt
78b0: 72 2d 3e 73 74 72 69 6e 67 20 3d 20 6e 65 77 3b  r->string = new;
78c0: 0a 20 20 20 20 65 6e 74 72 79 50 74 72 2d 3e 6e  .    entryPtr->n
78d0: 75 6d 43 68 61 72 73 20 2b 3d 20 6c 65 6e 67 74  umChars += lengt
78e0: 68 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20  h;..    /*.     
78f0: 2a 20 49 6e 73 65 72 74 69 6e 67 20 63 68 61 72  * Inserting char
7900: 61 63 74 65 72 73 20 69 6e 76 61 6c 69 64 61 74  acters invalidat
7910: 65 73 20 61 6c 6c 20 69 6e 64 65 78 65 73 20 69  es all indexes i
7920: 6e 74 6f 20 74 68 65 20 73 74 72 69 6e 67 2e 0a  nto the string..
7930: 20 20 20 20 20 2a 20 54 6f 75 63 68 20 75 70 20       * Touch up 
7940: 74 68 65 20 69 6e 64 65 78 65 73 20 73 6f 20 74  the indexes so t
7950: 68 61 74 20 74 68 65 79 20 73 74 69 6c 6c 20 72  hat they still r
7960: 65 66 65 72 20 74 6f 20 74 68 65 20 73 61 6d 65  efer to the same
7970: 0a 20 20 20 20 20 2a 20 63 68 61 72 61 63 74 65  .     * characte
7980: 72 73 20 28 61 74 20 6e 65 77 20 70 6f 73 69 74  rs (at new posit
7990: 69 6f 6e 73 29 2e 20 20 57 68 65 6e 20 75 70 64  ions).  When upd
79a0: 61 74 69 6e 67 20 74 68 65 20 73 65 6c 65 63 74  ating the select
79b0: 69 6f 6e 0a 20 20 20 20 20 2a 20 65 6e 64 2d 70  ion.     * end-p
79c0: 6f 69 6e 74 73 2c 20 64 6f 6e 27 74 20 69 6e 63  oints, don't inc
79d0: 6c 75 64 65 20 74 68 65 20 6e 65 77 20 74 65 78  lude the new tex
79e0: 74 20 69 6e 20 74 68 65 20 73 65 6c 65 63 74 69  t in the selecti
79f0: 6f 6e 20 75 6e 6c 65 73 73 0a 20 20 20 20 20 2a  on unless.     *
7a00: 20 69 74 20 77 61 73 20 63 6f 6d 70 6c 65 74 65   it was complete
7a10: 6c 79 20 73 75 72 72 6f 75 6e 64 65 64 20 62 79  ly surrounded by
7a20: 20 74 68 65 20 73 65 6c 65 63 74 69 6f 6e 2e 0a   the selection..
7a30: 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20       */..    if 
7a40: 28 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65 63  (entryPtr->selec
7a50: 74 46 69 72 73 74 20 3e 3d 20 69 6e 64 65 78 29  tFirst >= index)
7a60: 20 7b 0a 09 65 6e 74 72 79 50 74 72 2d 3e 73 65   {..entryPtr->se
7a70: 6c 65 63 74 46 69 72 73 74 20 2b 3d 20 6c 65 6e  lectFirst += len
7a80: 67 74 68 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69  gth;.    }.    i
7a90: 66 20 28 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c  f (entryPtr->sel
7aa0: 65 63 74 4c 61 73 74 20 3e 20 69 6e 64 65 78 29  ectLast > index)
7ab0: 20 7b 0a 09 65 6e 74 72 79 50 74 72 2d 3e 73 65   {..entryPtr->se
7ac0: 6c 65 63 74 4c 61 73 74 20 2b 3d 20 6c 65 6e 67  lectLast += leng
7ad0: 74 68 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66  th;.    }.    if
7ae0: 20 28 28 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c   ((entryPtr->sel
7af0: 65 63 74 41 6e 63 68 6f 72 20 3e 20 69 6e 64 65  ectAnchor > inde
7b00: 78 29 20 7c 7c 20 28 65 6e 74 72 79 50 74 72 2d  x) || (entryPtr-
7b10: 3e 73 65 6c 65 63 74 46 69 72 73 74 20 3e 3d 20  >selectFirst >= 
7b20: 69 6e 64 65 78 29 29 20 7b 0a 09 65 6e 74 72 79  index)) {..entry
7b30: 50 74 72 2d 3e 73 65 6c 65 63 74 41 6e 63 68 6f  Ptr->selectAncho
7b40: 72 20 2b 3d 20 6c 65 6e 67 74 68 3b 0a 20 20 20  r += length;.   
7b50: 20 7d 0a 20 20 20 20 69 66 20 28 65 6e 74 72 79   }.    if (entry
7b60: 50 74 72 2d 3e 6c 65 66 74 49 6e 64 65 78 20 3e  Ptr->leftIndex >
7b70: 20 69 6e 64 65 78 29 20 7b 0a 09 65 6e 74 72 79   index) {..entry
7b80: 50 74 72 2d 3e 6c 65 66 74 49 6e 64 65 78 20 2b  Ptr->leftIndex +
7b90: 3d 20 6c 65 6e 67 74 68 3b 0a 20 20 20 20 7d 0a  = length;.    }.
7ba0: 20 20 20 20 69 66 20 28 65 6e 74 72 79 50 74 72      if (entryPtr
7bb0: 2d 3e 69 6e 73 65 72 74 50 6f 73 20 3e 3d 20 69  ->insertPos >= i
7bc0: 6e 64 65 78 29 20 7b 0a 09 65 6e 74 72 79 50 74  ndex) {..entryPt
7bd0: 72 2d 3e 69 6e 73 65 72 74 50 6f 73 20 2b 3d 20  r->insertPos += 
7be0: 6c 65 6e 67 74 68 3b 0a 20 20 20 20 7d 0a 20 20  length;.    }.  
7bf0: 20 20 45 6e 74 72 79 56 61 6c 75 65 43 68 61 6e    EntryValueChan
7c00: 67 65 64 28 65 6e 74 72 79 50 74 72 29 3b 0a 7d  ged(entryPtr);.}
7c10: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  .../*. *--------
7c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
7c60: 2a 0a 20 2a 20 44 65 6c 65 74 65 43 68 61 72 73  *. * DeleteChars
7c70: 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 6d 6f 76 65   --. *. *.Remove
7c80: 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 63 68 61   one or more cha
7c90: 72 61 63 74 65 72 73 20 66 72 6f 6d 20 61 6e 20  racters from an 
7ca0: 65 6e 74 72 79 20 77 69 64 67 65 74 2e 0a 20 2a  entry widget.. *
7cb0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09  . * Results:. *.
7cc0: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65  None.. *. * Side
7cd0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d 65 6d   effects:. *.Mem
7ce0: 6f 72 79 20 67 65 74 73 20 66 72 65 65 64 2c 20  ory gets freed, 
7cf0: 74 68 65 20 65 6e 74 72 79 20 67 65 74 73 20 6d  the entry gets m
7d00: 6f 64 69 66 69 65 64 20 61 6e 64 20 28 65 76 65  odified and (eve
7d10: 6e 74 75 61 6c 6c 79 29 0a 20 2a 09 72 65 64 69  ntually). *.redi
7d20: 73 70 6c 61 79 65 64 2e 0a 20 2a 0a 20 2a 2d 2d  splayed.. *. *--
7d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7d70: 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63  ----. */..static
7d80: 20 76 6f 69 64 0a 44 65 6c 65 74 65 43 68 61 72   void.DeleteChar
7d90: 73 28 65 6e 74 72 79 50 74 72 2c 20 69 6e 64 65  s(entryPtr, inde
7da0: 78 2c 20 63 6f 75 6e 74 29 0a 20 20 20 20 72 65  x, count).    re
7db0: 67 69 73 74 65 72 20 45 6e 74 72 79 20 2a 65 6e  gister Entry *en
7dc0: 74 72 79 50 74 72 3b 09 2f 2a 20 45 6e 74 72 79  tryPtr;./* Entry
7dd0: 20 77 69 64 67 65 74 20 74 6f 20 6d 6f 64 69 66   widget to modif
7de0: 79 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 69 6e  y. */.    int in
7df0: 64 65 78 3b 09 09 09 2f 2a 20 49 6e 64 65 78 20  dex;.../* Index 
7e00: 6f 66 20 66 69 72 73 74 20 63 68 61 72 61 63 74  of first charact
7e10: 65 72 20 74 6f 20 64 65 6c 65 74 65 2e 20 2a 2f  er to delete. */
7e20: 0a 20 20 20 20 69 6e 74 20 63 6f 75 6e 74 3b 09  .    int count;.
7e30: 09 09 2f 2a 20 48 6f 77 20 6d 61 6e 79 20 63 68  ../* How many ch
7e40: 61 72 61 63 74 65 72 73 20 74 6f 20 64 65 6c 65  aracters to dele
7e50: 74 65 2e 20 2a 2f 0a 7b 0a 20 20 20 20 63 68 61  te. */.{.    cha
7e60: 72 20 2a 6e 65 77 3b 0a 0a 20 20 20 20 69 66 20  r *new;..    if 
7e70: 28 28 69 6e 64 65 78 20 2b 20 63 6f 75 6e 74 29  ((index + count)
7e80: 20 3e 20 65 6e 74 72 79 50 74 72 2d 3e 6e 75 6d   > entryPtr->num
7e90: 43 68 61 72 73 29 20 7b 0a 09 63 6f 75 6e 74 20  Chars) {..count 
7ea0: 3d 20 65 6e 74 72 79 50 74 72 2d 3e 6e 75 6d 43  = entryPtr->numC
7eb0: 68 61 72 73 20 2d 20 69 6e 64 65 78 3b 0a 20 20  hars - index;.  
7ec0: 20 20 7d 0a 20 20 20 20 69 66 20 28 63 6f 75 6e    }.    if (coun
7ed0: 74 20 3c 3d 20 30 29 20 7b 0a 09 72 65 74 75 72  t <= 0) {..retur
7ee0: 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6e 65  n;.    }..    ne
7ef0: 77 20 3d 20 28 63 68 61 72 20 2a 29 20 63 6b 61  w = (char *) cka
7f00: 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 29 20  lloc((unsigned) 
7f10: 28 65 6e 74 72 79 50 74 72 2d 3e 6e 75 6d 43 68  (entryPtr->numCh
7f20: 61 72 73 20 2b 20 31 20 2d 20 63 6f 75 6e 74 29  ars + 1 - count)
7f30: 29 3b 0a 20 20 20 20 73 74 72 6e 63 70 79 28 6e  );.    strncpy(n
7f40: 65 77 2c 20 65 6e 74 72 79 50 74 72 2d 3e 73 74  ew, entryPtr->st
7f50: 72 69 6e 67 2c 20 28 73 69 7a 65 5f 74 29 20 69  ring, (size_t) i
7f60: 6e 64 65 78 29 3b 0a 20 20 20 20 73 74 72 63 70  ndex);.    strcp
7f70: 79 28 6e 65 77 2b 69 6e 64 65 78 2c 20 65 6e 74  y(new+index, ent
7f80: 72 79 50 74 72 2d 3e 73 74 72 69 6e 67 2b 69 6e  ryPtr->string+in
7f90: 64 65 78 2b 63 6f 75 6e 74 29 3b 0a 20 20 20 20  dex+count);.    
7fa0: 63 6b 66 72 65 65 28 65 6e 74 72 79 50 74 72 2d  ckfree(entryPtr-
7fb0: 3e 73 74 72 69 6e 67 29 3b 0a 20 20 20 20 65 6e  >string);.    en
7fc0: 74 72 79 50 74 72 2d 3e 73 74 72 69 6e 67 20 3d  tryPtr->string =
7fd0: 20 6e 65 77 3b 0a 20 20 20 20 65 6e 74 72 79 50   new;.    entryP
7fe0: 74 72 2d 3e 6e 75 6d 43 68 61 72 73 20 2d 3d 20  tr->numChars -= 
7ff0: 63 6f 75 6e 74 3b 0a 0a 20 20 20 20 2f 2a 0a 20  count;..    /*. 
8000: 20 20 20 20 2a 20 44 65 6c 65 74 69 6e 67 20 63      * Deleting c
8010: 68 61 72 61 63 74 65 72 73 20 72 65 73 75 6c 74  haracters result
8020: 73 20 69 6e 20 74 68 65 20 72 65 6d 61 69 6e 69  s in the remaini
8030: 6e 67 20 63 68 61 72 61 63 74 65 72 73 20 62 65  ng characters be
8040: 69 6e 67 0a 20 20 20 20 20 2a 20 72 65 6e 75 6d  ing.     * renum
8050: 62 65 72 65 64 2e 20 20 55 70 64 61 74 65 20 74  bered.  Update t
8060: 68 65 20 76 61 72 69 6f 75 73 20 69 6e 64 65 78  he various index
8070: 65 73 20 69 6e 74 6f 20 74 68 65 20 73 74 72 69  es into the stri
8080: 6e 67 20 74 6f 20 72 65 66 6c 65 63 74 0a 20 20  ng to reflect.  
8090: 20 20 20 2a 20 74 68 69 73 20 63 68 61 6e 67 65     * this change
80a0: 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69  ..     */..    i
80b0: 66 20 28 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c  f (entryPtr->sel
80c0: 65 63 74 46 69 72 73 74 20 3e 3d 20 69 6e 64 65  ectFirst >= inde
80d0: 78 29 20 7b 0a 09 69 66 20 28 65 6e 74 72 79 50  x) {..if (entryP
80e0: 74 72 2d 3e 73 65 6c 65 63 74 46 69 72 73 74 20  tr->selectFirst 
80f0: 3e 3d 20 28 69 6e 64 65 78 2b 63 6f 75 6e 74 29  >= (index+count)
8100: 29 20 7b 0a 09 20 20 20 20 65 6e 74 72 79 50 74  ) {..    entryPt
8110: 72 2d 3e 73 65 6c 65 63 74 46 69 72 73 74 20 2d  r->selectFirst -
8120: 3d 20 63 6f 75 6e 74 3b 0a 09 7d 20 65 6c 73 65  = count;..} else
8130: 20 7b 0a 09 20 20 20 20 65 6e 74 72 79 50 74 72   {..    entryPtr
8140: 2d 3e 73 65 6c 65 63 74 46 69 72 73 74 20 3d 20  ->selectFirst = 
8150: 69 6e 64 65 78 3b 0a 09 7d 0a 20 20 20 20 7d 0a  index;..}.    }.
8160: 20 20 20 20 69 66 20 28 65 6e 74 72 79 50 74 72      if (entryPtr
8170: 2d 3e 73 65 6c 65 63 74 4c 61 73 74 20 3e 3d 20  ->selectLast >= 
8180: 69 6e 64 65 78 29 20 7b 0a 09 69 66 20 28 65 6e  index) {..if (en
8190: 74 72 79 50 74 72 2d 3e 73 65 6c 65 63 74 4c 61  tryPtr->selectLa
81a0: 73 74 20 3e 3d 20 28 69 6e 64 65 78 2b 63 6f 75  st >= (index+cou
81b0: 6e 74 29 29 20 7b 0a 09 20 20 20 20 65 6e 74 72  nt)) {..    entr
81c0: 79 50 74 72 2d 3e 73 65 6c 65 63 74 4c 61 73 74  yPtr->selectLast
81d0: 20 2d 3d 20 63 6f 75 6e 74 3b 0a 09 7d 20 65 6c   -= count;..} el
81e0: 73 65 20 7b 0a 09 20 20 20 20 65 6e 74 72 79 50  se {..    entryP
81f0: 74 72 2d 3e 73 65 6c 65 63 74 4c 61 73 74 20 3d  tr->selectLast =
8200: 20 69 6e 64 65 78 3b 0a 09 7d 0a 20 20 20 20 7d   index;..}.    }
8210: 0a 20 20 20 20 69 66 20 28 65 6e 74 72 79 50 74  .    if (entryPt
8220: 72 2d 3e 73 65 6c 65 63 74 4c 61 73 74 20 3c 3d  r->selectLast <=
8230: 20 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65 63   entryPtr->selec
8240: 74 46 69 72 73 74 29 20 7b 0a 09 65 6e 74 72 79  tFirst) {..entry
8250: 50 74 72 2d 3e 73 65 6c 65 63 74 46 69 72 73 74  Ptr->selectFirst
8260: 20 3d 20 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c   = entryPtr->sel
8270: 65 63 74 4c 61 73 74 20 3d 20 2d 31 3b 0a 20 20  ectLast = -1;.  
8280: 20 20 7d 0a 20 20 20 20 69 66 20 28 65 6e 74 72    }.    if (entr
8290: 79 50 74 72 2d 3e 73 65 6c 65 63 74 41 6e 63 68  yPtr->selectAnch
82a0: 6f 72 20 3e 3d 20 69 6e 64 65 78 29 20 7b 0a 09  or >= index) {..
82b0: 69 66 20 28 65 6e 74 72 79 50 74 72 2d 3e 73 65  if (entryPtr->se
82c0: 6c 65 63 74 41 6e 63 68 6f 72 20 3e 3d 20 28 69  lectAnchor >= (i
82d0: 6e 64 65 78 2b 63 6f 75 6e 74 29 29 20 7b 0a 09  ndex+count)) {..
82e0: 20 20 20 20 65 6e 74 72 79 50 74 72 2d 3e 73 65      entryPtr->se
82f0: 6c 65 63 74 41 6e 63 68 6f 72 20 2d 3d 20 63 6f  lectAnchor -= co
8300: 75 6e 74 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09  unt;..} else {..
8310: 20 20 20 20 65 6e 74 72 79 50 74 72 2d 3e 73 65      entryPtr->se
8320: 6c 65 63 74 41 6e 63 68 6f 72 20 3d 20 69 6e 64  lectAnchor = ind
8330: 65 78 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20  ex;..}.    }.   
8340: 20 69 66 20 28 65 6e 74 72 79 50 74 72 2d 3e 6c   if (entryPtr->l
8350: 65 66 74 49 6e 64 65 78 20 3e 20 69 6e 64 65 78  eftIndex > index
8360: 29 20 7b 0a 09 69 66 20 28 65 6e 74 72 79 50 74  ) {..if (entryPt
8370: 72 2d 3e 6c 65 66 74 49 6e 64 65 78 20 3e 3d 20  r->leftIndex >= 
8380: 28 69 6e 64 65 78 2b 63 6f 75 6e 74 29 29 20 7b  (index+count)) {
8390: 0a 09 20 20 20 20 65 6e 74 72 79 50 74 72 2d 3e  ..    entryPtr->
83a0: 6c 65 66 74 49 6e 64 65 78 20 2d 3d 20 63 6f 75  leftIndex -= cou
83b0: 6e 74 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20  nt;..} else {.. 
83c0: 20 20 20 65 6e 74 72 79 50 74 72 2d 3e 6c 65 66     entryPtr->lef
83d0: 74 49 6e 64 65 78 20 3d 20 69 6e 64 65 78 3b 0a  tIndex = index;.
83e0: 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20  .}.    }.    if 
83f0: 28 65 6e 74 72 79 50 74 72 2d 3e 69 6e 73 65 72  (entryPtr->inser
8400: 74 50 6f 73 20 3e 3d 20 69 6e 64 65 78 29 20 7b  tPos >= index) {
8410: 0a 09 69 66 20 28 65 6e 74 72 79 50 74 72 2d 3e  ..if (entryPtr->
8420: 69 6e 73 65 72 74 50 6f 73 20 3e 3d 20 28 69 6e  insertPos >= (in
8430: 64 65 78 2b 63 6f 75 6e 74 29 29 20 7b 0a 09 20  dex+count)) {.. 
8440: 20 20 20 65 6e 74 72 79 50 74 72 2d 3e 69 6e 73     entryPtr->ins
8450: 65 72 74 50 6f 73 20 2d 3d 20 63 6f 75 6e 74 3b  ertPos -= count;
8460: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20  ..} else {..    
8470: 65 6e 74 72 79 50 74 72 2d 3e 69 6e 73 65 72 74  entryPtr->insert
8480: 50 6f 73 20 3d 20 69 6e 64 65 78 3b 0a 09 7d 0a  Pos = index;..}.
8490: 20 20 20 20 7d 0a 20 20 20 20 45 6e 74 72 79 56      }.    EntryV
84a0: 61 6c 75 65 43 68 61 6e 67 65 64 28 65 6e 74 72  alueChanged(entr
84b0: 79 50 74 72 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a  yPtr);.}.../*. *
84c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
84d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
84e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
84f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8500: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 74  ------. *. * Ent
8510: 72 79 56 61 6c 75 65 43 68 61 6e 67 65 64 20 2d  ryValueChanged -
8520: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f  -. *. *.This pro
8530: 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65  cedure is invoke
8540: 64 20 77 68 65 6e 20 63 68 61 72 61 63 74 65 72  d when character
8550: 73 20 61 72 65 20 69 6e 73 65 72 74 65 64 20 69  s are inserted i
8560: 6e 74 6f 0a 20 2a 09 61 6e 20 65 6e 74 72 79 20  nto. *.an entry 
8570: 6f 72 20 64 65 6c 65 74 65 64 20 66 72 6f 6d 20  or deleted from 
8580: 69 74 2e 20 20 49 74 20 75 70 64 61 74 65 73 20  it.  It updates 
8590: 74 68 65 20 65 6e 74 72 79 27 73 20 61 73 73 6f  the entry's asso
85a0: 63 69 61 74 65 64 0a 20 2a 09 76 61 72 69 61 62  ciated. *.variab
85b0: 6c 65 2c 20 69 66 20 74 68 65 72 65 20 69 73 20  le, if there is 
85c0: 6f 6e 65 2c 20 61 6e 64 20 64 6f 65 73 20 6f 74  one, and does ot
85d0: 68 65 72 20 62 6f 6f 6b 6b 65 65 70 69 6e 67 20  her bookkeeping 
85e0: 73 75 63 68 0a 20 2a 09 61 73 20 61 72 72 61 6e  such. *.as arran
85f0: 67 69 6e 67 20 66 6f 72 20 72 65 64 69 73 70 6c  ging for redispl
8600: 61 79 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74  ay.. *. * Result
8610: 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20  s:. *.None.. *. 
8620: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
8630: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d   *.None.. *. *--
8640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a 2f 0a 0a 73 74 61 74 69 63  ----. */..static
8690: 20 76 6f 69 64 0a 45 6e 74 72 79 56 61 6c 75 65   void.EntryValue
86a0: 43 68 61 6e 67 65 64 28 65 6e 74 72 79 50 74 72  Changed(entryPtr
86b0: 29 0a 20 20 20 20 45 6e 74 72 79 20 2a 65 6e 74  ).    Entry *ent
86c0: 72 79 50 74 72 3b 09 09 2f 2a 20 45 6e 74 72 79  ryPtr;../* Entry
86d0: 20 77 68 6f 73 65 20 76 61 6c 75 65 20 6a 75 73   whose value jus
86e0: 74 20 63 68 61 6e 67 65 64 2e 20 2a 2f 0a 7b 0a  t changed. */.{.
86f0: 20 20 20 20 63 68 61 72 20 2a 6e 65 77 56 61 6c      char *newVal
8700: 75 65 3b 0a 0a 20 20 20 20 69 66 20 28 65 6e 74  ue;..    if (ent
8710: 72 79 50 74 72 2d 3e 74 65 78 74 56 61 72 4e 61  ryPtr->textVarNa
8720: 6d 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6e  me == NULL) {..n
8730: 65 77 56 61 6c 75 65 20 3d 20 4e 55 4c 4c 3b 0a  ewValue = NULL;.
8740: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 6e 65      } else {..ne
8750: 77 56 61 6c 75 65 20 3d 20 54 63 6c 5f 53 65 74  wValue = Tcl_Set
8760: 56 61 72 28 65 6e 74 72 79 50 74 72 2d 3e 69 6e  Var(entryPtr->in
8770: 74 65 72 70 2c 20 65 6e 74 72 79 50 74 72 2d 3e  terp, entryPtr->
8780: 74 65 78 74 56 61 72 4e 61 6d 65 2c 0a 09 09 65  textVarName,...e
8790: 6e 74 72 79 50 74 72 2d 3e 73 74 72 69 6e 67 2c  ntryPtr->string,
87a0: 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59   TCL_GLOBAL_ONLY
87b0: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66  );.    }..    if
87c0: 20 28 28 6e 65 77 56 61 6c 75 65 20 21 3d 20 4e   ((newValue != N
87d0: 55 4c 4c 29 20 26 26 20 28 73 74 72 63 6d 70 28  ULL) && (strcmp(
87e0: 6e 65 77 56 61 6c 75 65 2c 20 65 6e 74 72 79 50  newValue, entryP
87f0: 74 72 2d 3e 73 74 72 69 6e 67 29 20 21 3d 20 30  tr->string) != 0
8800: 29 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 54 68 65  )) {../*.. * The
8810: 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 76 61   value of the va
8820: 72 69 61 62 6c 65 20 69 73 20 64 69 66 66 65 72  riable is differ
8830: 65 6e 74 20 74 68 61 6e 20 77 68 61 74 20 77 65  ent than what we
8840: 20 61 73 6b 65 64 20 66 6f 72 2e 0a 09 20 2a 20   asked for... * 
8850: 54 68 69 73 20 6d 65 61 6e 73 20 74 68 61 74 20  This means that 
8860: 61 20 74 72 61 63 65 20 6f 6e 20 74 68 65 20 76  a trace on the v
8870: 61 72 69 61 62 6c 65 20 6d 6f 64 69 66 69 65 64  ariable modified
8880: 20 69 74 2e 20 20 49 6e 20 74 68 69 73 0a 09 20   it.  In this.. 
8890: 2a 20 63 61 73 65 20 6f 75 72 20 74 72 61 63 65  * case our trace
88a0: 20 70 72 6f 63 65 64 75 72 65 20 77 61 73 6e 27   procedure wasn'
88b0: 74 20 69 6e 76 6f 6b 65 64 20 73 69 6e 63 65 20  t invoked since 
88c0: 74 68 65 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e  the modification
88d0: 0a 09 20 2a 20 63 61 6d 65 20 77 68 69 6c 65 20  .. * came while 
88e0: 61 20 74 72 61 63 65 20 77 61 73 20 61 6c 72 65  a trace was alre
88f0: 61 64 79 20 61 63 74 69 76 65 20 6f 6e 20 74 68  ady active on th
8900: 65 20 76 61 72 69 61 62 6c 65 2e 20 20 53 6f 2c  e variable.  So,
8910: 0a 09 20 2a 20 75 70 64 61 74 65 20 6f 75 72 20  .. * update our 
8920: 76 61 6c 75 65 20 74 6f 20 72 65 66 6c 65 63 74  value to reflect
8930: 20 74 68 65 20 76 61 72 69 61 62 6c 65 27 73 20   the variable's 
8940: 6c 61 74 65 73 74 20 76 61 6c 75 65 2e 0a 09 20  latest value... 
8950: 2a 2f 0a 0a 09 45 6e 74 72 79 53 65 74 56 61 6c  */...EntrySetVal
8960: 75 65 28 65 6e 74 72 79 50 74 72 2c 20 6e 65 77  ue(entryPtr, new
8970: 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d 20 65 6c  Value);.    } el
8980: 73 65 20 7b 0a 09 2f 2a 0a 09 20 2a 20 41 72 72  se {../*.. * Arr
8990: 61 6e 67 65 20 66 6f 72 20 72 65 64 69 73 70 6c  ange for redispl
89a0: 61 79 2e 0a 09 20 2a 2f 0a 0a 09 65 6e 74 72 79  ay... */...entry
89b0: 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 55 50  Ptr->flags |= UP
89c0: 44 41 54 45 5f 53 43 52 4f 4c 4c 42 41 52 3b 0a  DATE_SCROLLBAR;.
89d0: 09 45 6e 74 72 79 43 6f 6d 70 75 74 65 47 65 6f  .EntryComputeGeo
89e0: 6d 65 74 72 79 28 65 6e 74 72 79 50 74 72 29 3b  metry(entryPtr);
89f0: 0a 09 45 76 65 6e 74 75 61 6c 6c 79 52 65 64 72  ..EventuallyRedr
8a00: 61 77 28 65 6e 74 72 79 50 74 72 29 3b 0a 20 20  aw(entryPtr);.  
8a10: 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d    }.}.../*. *---
8a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8a60: 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 74 72 79 53  ---. *. * EntryS
8a70: 65 74 56 61 6c 75 65 20 2d 2d 0a 20 2a 0a 20 2a  etValue --. *. *
8a80: 09 52 65 70 6c 61 63 65 20 74 68 65 20 63 6f 6e  .Replace the con
8a90: 74 65 6e 74 73 20 6f 66 20 61 20 74 65 78 74 20  tents of a text 
8aa0: 65 6e 74 72 79 20 77 69 74 68 20 61 20 67 69 76  entry with a giv
8ab0: 65 6e 20 76 61 6c 75 65 2e 20 20 54 68 69 73 0a  en value.  This.
8ac0: 20 2a 09 70 72 6f 63 65 64 75 72 65 20 69 73 20   *.procedure is 
8ad0: 69 6e 76 6f 6b 65 64 20 77 68 65 6e 20 75 70 64  invoked when upd
8ae0: 61 74 69 6e 67 20 74 68 65 20 65 6e 74 72 79 20  ating the entry 
8af0: 66 72 6f 6d 20 74 68 65 20 65 6e 74 72 79 27 73  from the entry's
8b00: 0a 20 2a 09 61 73 73 6f 63 69 61 74 65 64 20 76  . *.associated v
8b10: 61 72 69 61 62 6c 65 2e 0a 20 2a 0a 20 2a 20 52  ariable.. *. * R
8b20: 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e  esults:. *.None.
8b30: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65  . *. * Side effe
8b40: 63 74 73 3a 0a 20 2a 09 54 68 65 20 73 74 72 69  cts:. *.The stri
8b50: 6e 67 20 64 69 73 70 6c 61 79 65 64 20 69 6e 20  ng displayed in 
8b60: 74 68 65 20 65 6e 74 72 79 20 77 69 6c 6c 20 63  the entry will c
8b70: 68 61 6e 67 65 2e 20 20 41 6e 79 20 73 65 6c 65  hange.  Any sele
8b80: 63 74 69 6f 6e 0a 20 2a 09 69 6e 20 74 68 65 20  ction. *.in the 
8b90: 65 6e 74 72 79 20 69 73 20 6c 6f 73 74 20 61 6e  entry is lost an
8ba0: 64 20 74 68 65 20 69 6e 73 65 72 74 69 6f 6e 20  d the insertion 
8bb0: 70 6f 69 6e 74 20 67 65 74 73 20 73 65 74 20 74  point gets set t
8bc0: 6f 20 74 68 65 0a 20 2a 09 65 6e 64 20 6f 66 20  o the. *.end of 
8bd0: 74 68 65 20 65 6e 74 72 79 2e 20 20 4e 6f 74 65  the entry.  Note
8be0: 3a 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65  : this procedure
8bf0: 20 64 6f 65 73 20 2a 6e 6f 74 2a 20 75 70 64 61   does *not* upda
8c00: 74 65 20 74 68 65 0a 20 2a 09 65 6e 74 72 79 27  te the. *.entry'
8c10: 73 20 61 73 73 6f 63 69 61 74 65 64 20 76 61 72  s associated var
8c20: 69 61 62 6c 65 2c 20 73 69 6e 63 65 20 74 68 61  iable, since tha
8c30: 74 20 63 6f 75 6c 64 20 72 65 73 75 6c 74 20 69  t could result i
8c40: 6e 20 61 6e 0a 20 2a 09 69 6e 66 69 6e 69 74 65  n an. *.infinite
8c50: 20 6c 6f 6f 70 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d   loop.. *. *----
8c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8ca0: 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76  --. */..static v
8cb0: 6f 69 64 0a 45 6e 74 72 79 53 65 74 56 61 6c 75  oid.EntrySetValu
8cc0: 65 28 65 6e 74 72 79 50 74 72 2c 20 76 61 6c 75  e(entryPtr, valu
8cd0: 65 29 0a 20 20 20 20 72 65 67 69 73 74 65 72 20  e).    register 
8ce0: 45 6e 74 72 79 20 2a 65 6e 74 72 79 50 74 72 3b  Entry *entryPtr;
8cf0: 09 09 2f 2a 20 45 6e 74 72 79 20 77 68 6f 73 65  ../* Entry whose
8d00: 20 76 61 6c 75 65 20 69 73 20 74 6f 20 62 65 0a   value is to be.
8d10: 09 09 09 09 09 20 2a 20 63 68 61 6e 67 65 64 2e  ..... * changed.
8d20: 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a 76 61   */.    char *va
8d30: 6c 75 65 3b 09 09 09 2f 2a 20 4e 65 77 20 74 65  lue;.../* New te
8d40: 78 74 20 74 6f 20 64 69 73 70 6c 61 79 20 69 6e  xt to display in
8d50: 20 65 6e 74 72 79 2e 20 2a 2f 0a 7b 0a 20 20 20   entry. */.{.   
8d60: 20 63 6b 66 72 65 65 28 65 6e 74 72 79 50 74 72   ckfree(entryPtr
8d70: 2d 3e 73 74 72 69 6e 67 29 3b 0a 20 20 20 20 65  ->string);.    e
8d80: 6e 74 72 79 50 74 72 2d 3e 6e 75 6d 43 68 61 72  ntryPtr->numChar
8d90: 73 20 3d 20 73 74 72 6c 65 6e 28 76 61 6c 75 65  s = strlen(value
8da0: 29 3b 0a 20 20 20 20 65 6e 74 72 79 50 74 72 2d  );.    entryPtr-
8db0: 3e 73 74 72 69 6e 67 20 3d 20 28 63 68 61 72 20  >string = (char 
8dc0: 2a 29 20 63 6b 61 6c 6c 6f 63 28 28 75 6e 73 69  *) ckalloc((unsi
8dd0: 67 6e 65 64 29 20 28 65 6e 74 72 79 50 74 72 2d  gned) (entryPtr-
8de0: 3e 6e 75 6d 43 68 61 72 73 20 2b 20 31 29 29 3b  >numChars + 1));
8df0: 0a 20 20 20 20 73 74 72 63 70 79 28 65 6e 74 72  .    strcpy(entr
8e00: 79 50 74 72 2d 3e 73 74 72 69 6e 67 2c 20 76 61  yPtr->string, va
8e10: 6c 75 65 29 3b 0a 20 20 20 20 65 6e 74 72 79 50  lue);.    entryP
8e20: 74 72 2d 3e 73 65 6c 65 63 74 46 69 72 73 74 20  tr->selectFirst 
8e30: 3d 20 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65  = entryPtr->sele
8e40: 63 74 4c 61 73 74 20 3d 20 2d 31 3b 0a 20 20 20  ctLast = -1;.   
8e50: 20 65 6e 74 72 79 50 74 72 2d 3e 6c 65 66 74 49   entryPtr->leftI
8e60: 6e 64 65 78 20 3d 20 30 3b 0a 20 20 20 20 65 6e  ndex = 0;.    en
8e70: 74 72 79 50 74 72 2d 3e 69 6e 73 65 72 74 50 6f  tryPtr->insertPo
8e80: 73 20 3d 20 65 6e 74 72 79 50 74 72 2d 3e 6e 75  s = entryPtr->nu
8e90: 6d 43 68 61 72 73 3b 0a 0a 20 20 20 20 65 6e 74  mChars;..    ent
8ea0: 72 79 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20  ryPtr->flags |= 
8eb0: 55 50 44 41 54 45 5f 53 43 52 4f 4c 4c 42 41 52  UPDATE_SCROLLBAR
8ec0: 3b 0a 20 20 20 20 45 6e 74 72 79 43 6f 6d 70 75  ;.    EntryCompu
8ed0: 74 65 47 65 6f 6d 65 74 72 79 28 65 6e 74 72 79  teGeometry(entry
8ee0: 50 74 72 29 3b 0a 20 20 20 20 45 76 65 6e 74 75  Ptr);.    Eventu
8ef0: 61 6c 6c 79 52 65 64 72 61 77 28 65 6e 74 72 79  allyRedraw(entry
8f00: 50 74 72 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d  Ptr);.}.../*. *-
8f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
8f50: 0a 20 2a 20 45 6e 74 72 79 45 76 65 6e 74 50 72  . * EntryEventPr
8f60: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73  oc --. *. *.This
8f70: 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e   procedure is in
8f80: 76 6f 6b 65 64 20 62 79 20 74 68 65 20 54 6b 20  voked by the Tk 
8f90: 64 69 73 70 61 74 63 68 65 72 20 66 6f 72 20 76  dispatcher for v
8fa0: 61 72 69 6f 75 73 0a 20 2a 09 65 76 65 6e 74 73  arious. *.events
8fb0: 20 6f 6e 20 65 6e 74 72 79 65 73 2e 0a 20 2a 0a   on entryes.. *.
8fc0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e   * Results:. *.N
8fd0: 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20  one.. *. * Side 
8fe0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 57 68 65 6e  effects:. *.When
8ff0: 20 74 68 65 20 77 69 6e 64 6f 77 20 67 65 74 73   the window gets
9000: 20 64 65 6c 65 74 65 64 2c 20 69 6e 74 65 72 6e   deleted, intern
9010: 61 6c 20 73 74 72 75 63 74 75 72 65 73 20 67 65  al structures ge
9020: 74 0a 20 2a 09 63 6c 65 61 6e 65 64 20 75 70 2e  t. *.cleaned up.
9030: 20 20 57 68 65 6e 20 69 74 20 67 65 74 73 20 65    When it gets e
9040: 78 70 6f 73 65 64 2c 20 69 74 20 69 73 20 72 65  xposed, it is re
9050: 64 69 73 70 6c 61 79 65 64 2e 0a 20 2a 0a 20 2a  displayed.. *. *
9060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
90a0: 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 0a  */..static void.
90b0: 45 6e 74 72 79 45 76 65 6e 74 50 72 6f 63 28 63  EntryEventProc(c
90c0: 6c 69 65 6e 74 44 61 74 61 2c 20 65 76 65 6e 74  lientData, event
90d0: 50 74 72 29 0a 20 20 20 20 43 6c 69 65 6e 74 44  Ptr).    ClientD
90e0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09  ata clientData;.
90f0: 2f 2a 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 61  /* Information a
9100: 62 6f 75 74 20 77 69 6e 64 6f 77 2e 20 2a 2f 0a  bout window. */.
9110: 20 20 20 20 58 45 76 65 6e 74 20 2a 65 76 65 6e      XEvent *even
9120: 74 50 74 72 3b 09 09 2f 2a 20 49 6e 66 6f 72 6d  tPtr;../* Inform
9130: 61 74 69 6f 6e 20 61 62 6f 75 74 20 65 76 65 6e  ation about even
9140: 74 2e 20 2a 2f 0a 7b 0a 20 20 20 20 45 6e 74 72  t. */.{.    Entr
9150: 79 20 2a 65 6e 74 72 79 50 74 72 20 3d 20 28 45  y *entryPtr = (E
9160: 6e 74 72 79 20 2a 29 20 63 6c 69 65 6e 74 44 61  ntry *) clientDa
9170: 74 61 3b 0a 20 20 20 20 69 66 20 28 65 76 65 6e  ta;.    if (even
9180: 74 50 74 72 2d 3e 74 79 70 65 20 3d 3d 20 43 54  tPtr->type == CT
9190: 4b 5f 45 58 50 4f 53 45 5f 45 56 45 4e 54 29 20  K_EXPOSE_EVENT) 
91a0: 7b 0a 09 45 76 65 6e 74 75 61 6c 6c 79 52 65 64  {..EventuallyRed
91b0: 72 61 77 28 65 6e 74 72 79 50 74 72 29 3b 0a 09  raw(entryPtr);..
91c0: 65 6e 74 72 79 50 74 72 2d 3e 66 6c 61 67 73 20  entryPtr->flags 
91d0: 7c 3d 20 42 4f 52 44 45 52 5f 4e 45 45 44 45 44  |= BORDER_NEEDED
91e0: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20  ;.    } else if 
91f0: 28 65 76 65 6e 74 50 74 72 2d 3e 74 79 70 65 20  (eventPtr->type 
9200: 3d 3d 20 43 54 4b 5f 44 45 53 54 52 4f 59 5f 45  == CTK_DESTROY_E
9210: 56 45 4e 54 29 20 7b 0a 09 69 66 20 28 65 6e 74  VENT) {..if (ent
9220: 72 79 50 74 72 2d 3e 74 6b 77 69 6e 20 21 3d 20  ryPtr->tkwin != 
9230: 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 65 6e 74  NULL) {..    ent
9240: 72 79 50 74 72 2d 3e 74 6b 77 69 6e 20 3d 20 4e  ryPtr->tkwin = N
9250: 55 4c 4c 3b 0a 09 20 20 20 20 54 63 6c 5f 44 65  ULL;..    Tcl_De
9260: 6c 65 74 65 43 6f 6d 6d 61 6e 64 28 65 6e 74 72  leteCommand(entr
9270: 79 50 74 72 2d 3e 69 6e 74 65 72 70 2c 0a 09 09  yPtr->interp,...
9280: 20 20 20 20 54 63 6c 5f 47 65 74 43 6f 6d 6d 61      Tcl_GetComma
9290: 6e 64 4e 61 6d 65 28 65 6e 74 72 79 50 74 72 2d  ndName(entryPtr-
92a0: 3e 69 6e 74 65 72 70 2c 20 65 6e 74 72 79 50 74  >interp, entryPt
92b0: 72 2d 3e 77 69 64 67 65 74 43 6d 64 29 29 3b 0a  r->widgetCmd));.
92c0: 09 7d 0a 09 69 66 20 28 65 6e 74 72 79 50 74 72  .}..if (entryPtr
92d0: 2d 3e 66 6c 61 67 73 20 26 20 52 45 44 52 41 57  ->flags & REDRAW
92e0: 5f 50 45 4e 44 49 4e 47 29 20 7b 0a 09 20 20 20  _PENDING) {..   
92f0: 20 54 63 6c 5f 43 61 6e 63 65 6c 49 64 6c 65 43   Tcl_CancelIdleC
9300: 61 6c 6c 28 44 69 73 70 6c 61 79 45 6e 74 72 79  all(DisplayEntry
9310: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 65  , (ClientData) e
9320: 6e 74 72 79 50 74 72 29 3b 0a 09 7d 0a 09 54 6b  ntryPtr);..}..Tk
9330: 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 28  _EventuallyFree(
9340: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 65 6e 74  (ClientData) ent
9350: 72 79 50 74 72 2c 20 44 65 73 74 72 6f 79 45 6e  ryPtr, DestroyEn
9360: 74 72 79 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65  try);.    } else
9370: 20 69 66 20 28 65 76 65 6e 74 50 74 72 2d 3e 74   if (eventPtr->t
9380: 79 70 65 20 3d 3d 20 43 54 4b 5f 4d 41 50 5f 45  ype == CTK_MAP_E
9390: 56 45 4e 54 29 20 7b 0a 09 54 6b 5f 50 72 65 73  VENT) {..Tk_Pres
93a0: 65 72 76 65 28 28 43 6c 69 65 6e 74 44 61 74 61  erve((ClientData
93b0: 29 20 65 6e 74 72 79 50 74 72 29 3b 0a 09 65 6e  ) entryPtr);..en
93c0: 74 72 79 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d  tryPtr->flags |=
93d0: 20 55 50 44 41 54 45 5f 53 43 52 4f 4c 4c 42 41   UPDATE_SCROLLBA
93e0: 52 3b 0a 09 45 6e 74 72 79 43 6f 6d 70 75 74 65  R;..EntryCompute
93f0: 47 65 6f 6d 65 74 72 79 28 65 6e 74 72 79 50 74  Geometry(entryPt
9400: 72 29 3b 0a 09 45 76 65 6e 74 75 61 6c 6c 79 52  r);..EventuallyR
9410: 65 64 72 61 77 28 65 6e 74 72 79 50 74 72 29 3b  edraw(entryPtr);
9420: 0a 09 54 6b 5f 52 65 6c 65 61 73 65 28 28 43 6c  ..Tk_Release((Cl
9430: 69 65 6e 74 44 61 74 61 29 20 65 6e 74 72 79 50  ientData) entryP
9440: 74 72 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20  tr);.    } else 
9450: 69 66 20 28 65 76 65 6e 74 50 74 72 2d 3e 74 79  if (eventPtr->ty
9460: 70 65 20 3d 3d 20 43 54 4b 5f 46 4f 43 55 53 5f  pe == CTK_FOCUS_
9470: 45 56 45 4e 54 29 20 7b 0a 09 65 6e 74 72 79 50  EVENT) {..entryP
9480: 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 47 4f 54  tr->flags |= GOT
9490: 5f 46 4f 43 55 53 3b 0a 09 45 76 65 6e 74 75 61  _FOCUS;..Eventua
94a0: 6c 6c 79 52 65 64 72 61 77 28 65 6e 74 72 79 50  llyRedraw(entryP
94b0: 74 72 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20  tr);.    } else 
94c0: 69 66 20 28 65 76 65 6e 74 50 74 72 2d 3e 74 79  if (eventPtr->ty
94d0: 70 65 20 3d 3d 20 43 54 4b 5f 55 4e 46 4f 43 55  pe == CTK_UNFOCU
94e0: 53 5f 45 56 45 4e 54 29 20 7b 0a 09 65 6e 74 72  S_EVENT) {..entr
94f0: 79 50 74 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e  yPtr->flags &= ~
9500: 47 4f 54 5f 46 4f 43 55 53 3b 0a 20 20 20 20 7d  GOT_FOCUS;.    }
9510: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  .}.../*. *------
9520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9560: 0a 20 2a 0a 20 2a 20 45 6e 74 72 79 43 6d 64 44  . *. * EntryCmdD
9570: 65 6c 65 74 65 64 50 72 6f 63 20 2d 2d 0a 20 2a  eletedProc --. *
9580: 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75  . *.This procedu
9590: 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 77 68  re is invoked wh
95a0: 65 6e 20 61 20 77 69 64 67 65 74 20 63 6f 6d 6d  en a widget comm
95b0: 61 6e 64 20 69 73 20 64 65 6c 65 74 65 64 2e 20  and is deleted. 
95c0: 20 49 66 0a 20 2a 09 74 68 65 20 77 69 64 67 65   If. *.the widge
95d0: 74 20 69 73 6e 27 74 20 61 6c 72 65 61 64 79 20  t isn't already 
95e0: 69 6e 20 74 68 65 20 70 72 6f 63 65 73 73 20 6f  in the process o
95f0: 66 20 62 65 69 6e 67 20 64 65 73 74 72 6f 79 65  f being destroye
9600: 64 2c 0a 20 2a 09 74 68 69 73 20 63 6f 6d 6d 61  d,. *.this comma
9610: 6e 64 20 64 65 73 74 72 6f 79 73 20 69 74 2e 0a  nd destroys it..
9620: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20   *. * Results:. 
9630: 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69  *.None.. *. * Si
9640: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 54  de effects:. *.T
9650: 68 65 20 77 69 64 67 65 74 20 69 73 20 64 65 73  he widget is des
9660: 74 72 6f 79 65 64 2e 0a 20 2a 0a 20 2a 2d 2d 2d  troyed.. *. *---
9670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
96a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
96b0: 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20  ---. */..static 
96c0: 76 6f 69 64 0a 45 6e 74 72 79 43 6d 64 44 65 6c  void.EntryCmdDel
96d0: 65 74 65 64 50 72 6f 63 28 63 6c 69 65 6e 74 44  etedProc(clientD
96e0: 61 74 61 29 0a 20 20 20 20 43 6c 69 65 6e 74 44  ata).    ClientD
96f0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09  ata clientData;.
9700: 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 77 69  /* Pointer to wi
9710: 64 67 65 74 20 72 65 63 6f 72 64 20 66 6f 72 20  dget record for 
9720: 77 69 64 67 65 74 2e 20 2a 2f 0a 7b 0a 20 20 20  widget. */.{.   
9730: 20 45 6e 74 72 79 20 2a 65 6e 74 72 79 50 74 72   Entry *entryPtr
9740: 20 3d 20 28 45 6e 74 72 79 20 2a 29 20 63 6c 69   = (Entry *) cli
9750: 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 6b 5f  entData;.    Tk_
9760: 57 69 6e 64 6f 77 20 74 6b 77 69 6e 20 3d 20 65  Window tkwin = e
9770: 6e 74 72 79 50 74 72 2d 3e 74 6b 77 69 6e 3b 0a  ntryPtr->tkwin;.
9780: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 54  .    /*.     * T
9790: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 63 6f  his procedure co
97a0: 75 6c 64 20 62 65 20 69 6e 76 6f 6b 65 64 20 65  uld be invoked e
97b0: 69 74 68 65 72 20 62 65 63 61 75 73 65 20 74 68  ither because th
97c0: 65 20 77 69 6e 64 6f 77 20 77 61 73 0a 20 20 20  e window was.   
97d0: 20 20 2a 20 64 65 73 74 72 6f 79 65 64 20 61 6e    * destroyed an
97e0: 64 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 77 61  d the command wa
97f0: 73 20 74 68 65 6e 20 64 65 6c 65 74 65 64 20 28  s then deleted (
9800: 69 6e 20 77 68 69 63 68 20 63 61 73 65 20 74 6b  in which case tk
9810: 77 69 6e 0a 20 20 20 20 20 2a 20 69 73 20 4e 55  win.     * is NU
9820: 4c 4c 29 20 6f 72 20 62 65 63 61 75 73 65 20 74  LL) or because t
9830: 68 65 20 63 6f 6d 6d 61 6e 64 20 77 61 73 20 64  he command was d
9840: 65 6c 65 74 65 64 2c 20 61 6e 64 20 74 68 65 6e  eleted, and then
9850: 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 0a   this procedure.
9860: 20 20 20 20 20 2a 20 64 65 73 74 72 6f 79 73 20       * destroys 
9870: 74 68 65 20 77 69 64 67 65 74 2e 0a 20 20 20 20  the widget..    
9880: 20 2a 2f 0a 0a 20 20 20 20 69 66 20 28 74 6b 77   */..    if (tkw
9890: 69 6e 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 65  in != NULL) {..e
98a0: 6e 74 72 79 50 74 72 2d 3e 74 6b 77 69 6e 20 3d  ntryPtr->tkwin =
98b0: 20 4e 55 4c 4c 3b 0a 09 54 6b 5f 44 65 73 74 72   NULL;..Tk_Destr
98c0: 6f 79 57 69 6e 64 6f 77 28 74 6b 77 69 6e 29 3b  oyWindow(tkwin);
98d0: 0a 20 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a  .    }.}.../*. *
98e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
98f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
9920: 2a 0a 20 2a 20 47 65 74 45 6e 74 72 79 49 6e 64  *. * GetEntryInd
9930: 65 78 20 2d 2d 0a 20 2a 0a 20 2a 09 50 61 72 73  ex --. *. *.Pars
9940: 65 20 61 6e 20 69 6e 64 65 78 20 69 6e 74 6f 20  e an index into 
9950: 61 6e 20 65 6e 74 72 79 20 61 6e 64 20 72 65 74  an entry and ret
9960: 75 72 6e 20 65 69 74 68 65 72 20 69 74 73 20 76  urn either its v
9970: 61 6c 75 65 0a 20 2a 09 6f 72 20 61 6e 20 65 72  alue. *.or an er
9980: 72 6f 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c  ror.. *. * Resul
9990: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72  ts:. *.A standar
99a0: 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 20 20 49  d Tcl result.  I
99b0: 66 20 61 6c 6c 20 77 65 6e 74 20 77 65 6c 6c 2c  f all went well,
99c0: 20 74 68 65 6e 20 2a 69 6e 64 65 78 50 74 72 20   then *indexPtr 
99d0: 69 73 0a 20 2a 09 66 69 6c 6c 65 64 20 69 6e 20  is. *.filled in 
99e0: 77 69 74 68 20 74 68 65 20 69 6e 64 65 78 20 28  with the index (
99f0: 69 6e 74 6f 20 65 6e 74 72 79 50 74 72 29 20 63  into entryPtr) c
9a00: 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 0a  orresponding to.
9a10: 20 2a 09 73 74 72 69 6e 67 2e 20 20 54 68 65 20   *.string.  The 
9a20: 69 6e 64 65 78 20 76 61 6c 75 65 20 69 73 20 67  index value is g
9a30: 75 61 72 61 6e 74 65 65 64 20 74 6f 20 6c 69 65  uaranteed to lie
9a40: 20 62 65 74 77 65 65 6e 20 30 20 61 6e 64 0a 20   between 0 and. 
9a50: 2a 09 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20  *.the number of 
9a60: 63 68 61 72 61 63 74 65 72 73 20 69 6e 20 74 68  characters in th
9a70: 65 20 73 74 72 69 6e 67 2c 20 69 6e 63 6c 75 73  e string, inclus
9a80: 69 76 65 2e 20 20 49 66 20 61 6e 0a 20 2a 09 65  ive.  If an. *.e
9a90: 72 72 6f 72 20 6f 63 63 75 72 73 20 74 68 65 6e  rror occurs then
9aa0: 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 67   an error messag
9ab0: 65 20 69 73 20 6c 65 66 74 20 69 6e 20 69 6e 74  e is left in int
9ac0: 65 72 70 2d 3e 72 65 73 75 6c 74 2e 0a 20 2a 0a  erp->result.. *.
9ad0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a   * Side effects:
9ae0: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d  . *.None.. *. *-
9af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
9b30: 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 47 65  /..static int.Ge
9b40: 74 45 6e 74 72 79 49 6e 64 65 78 28 69 6e 74 65  tEntryIndex(inte
9b50: 72 70 2c 20 65 6e 74 72 79 50 74 72 2c 20 73 74  rp, entryPtr, st
9b60: 72 69 6e 67 2c 20 69 6e 64 65 78 50 74 72 29 0a  ring, indexPtr).
9b70: 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a      Tcl_Interp *
9b80: 69 6e 74 65 72 70 3b 09 09 2f 2a 20 46 6f 72 20  interp;../* For 
9b90: 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 2e 20  error messages. 
9ba0: 2a 2f 0a 20 20 20 20 45 6e 74 72 79 20 2a 65 6e  */.    Entry *en
9bb0: 74 72 79 50 74 72 3b 09 09 2f 2a 20 45 6e 74 72  tryPtr;../* Entr
9bc0: 79 20 66 6f 72 20 77 68 69 63 68 20 74 68 65 20  y for which the 
9bd0: 69 6e 64 65 78 20 69 73 20 62 65 69 6e 67 0a 09  index is being..
9be0: 09 09 09 20 2a 20 73 70 65 63 69 66 69 65 64 2e  ... * specified.
9bf0: 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a 73 74   */.    char *st
9c00: 72 69 6e 67 3b 09 09 2f 2a 20 53 70 65 63 69 66  ring;../* Specif
9c10: 69 65 73 20 63 68 61 72 61 63 74 65 72 20 69 6e  ies character in
9c20: 20 65 6e 74 72 79 50 74 72 2e 20 2a 2f 0a 20 20   entryPtr. */.  
9c30: 20 20 69 6e 74 20 2a 69 6e 64 65 78 50 74 72 3b    int *indexPtr;
9c40: 09 09 2f 2a 20 57 68 65 72 65 20 74 6f 20 73 74  ../* Where to st
9c50: 6f 72 65 20 63 6f 6e 76 65 72 74 65 64 20 69 6e  ore converted in
9c60: 64 65 78 2e 20 2a 2f 0a 7b 0a 20 20 20 20 73 69  dex. */.{.    si
9c70: 7a 65 5f 74 20 6c 65 6e 67 74 68 3b 0a 0a 20 20  ze_t length;..  
9c80: 20 20 6c 65 6e 67 74 68 20 3d 20 73 74 72 6c 65    length = strle
9c90: 6e 28 73 74 72 69 6e 67 29 3b 0a 0a 20 20 20 20  n(string);..    
9ca0: 69 66 20 28 73 74 72 69 6e 67 5b 30 5d 20 3d 3d  if (string[0] ==
9cb0: 20 27 61 27 29 20 7b 0a 09 69 66 20 28 73 74 72   'a') {..if (str
9cc0: 6e 63 6d 70 28 73 74 72 69 6e 67 2c 20 22 61 6e  ncmp(string, "an
9cd0: 63 68 6f 72 22 2c 20 6c 65 6e 67 74 68 29 20 3d  chor", length) =
9ce0: 3d 20 30 29 20 7b 0a 09 20 20 20 20 2a 69 6e 64  = 0) {..    *ind
9cf0: 65 78 50 74 72 20 3d 20 65 6e 74 72 79 50 74 72  exPtr = entryPtr
9d00: 2d 3e 73 65 6c 65 63 74 41 6e 63 68 6f 72 3b 0a  ->selectAnchor;.
9d10: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 62  .} else {..    b
9d20: 61 64 49 6e 64 65 78 3a 0a 0a 09 20 20 20 20 2f  adIndex:...    /
9d30: 2a 0a 09 20 20 20 20 20 2a 20 53 6f 6d 65 20 6f  *..     * Some o
9d40: 66 20 74 68 65 20 70 61 74 68 73 20 68 65 72 65  f the paths here
9d50: 20 6c 65 61 76 65 20 6d 65 73 73 61 67 65 73 20   leave messages 
9d60: 69 6e 20 69 6e 74 65 72 70 2d 3e 72 65 73 75 6c  in interp->resul
9d70: 74 2c 0a 09 20 20 20 20 20 2a 20 73 6f 20 77 65  t,..     * so we
9d80: 20 68 61 76 65 20 74 6f 20 63 6c 65 61 72 20 69   have to clear i
9d90: 74 20 6f 75 74 20 62 65 66 6f 72 65 20 73 74 6f  t out before sto
9da0: 72 69 6e 67 20 6f 75 72 20 6f 77 6e 20 6d 65 73  ring our own mes
9db0: 73 61 67 65 2e 0a 09 20 20 20 20 20 2a 2f 0a 0a  sage...     */..
9dc0: 09 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75  .    Tcl_SetResu
9dd0: 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72  lt(interp, (char
9de0: 20 2a 29 20 4e 55 4c 4c 2c 20 54 43 4c 5f 53 54   *) NULL, TCL_ST
9df0: 41 54 49 43 29 3b 0a 09 20 20 20 20 54 63 6c 5f  ATIC);..    Tcl_
9e00: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
9e10: 65 72 70 2c 20 22 62 61 64 20 65 6e 74 72 79 20  erp, "bad entry 
9e20: 69 6e 64 65 78 20 5c 22 22 2c 20 73 74 72 69 6e  index \"", strin
9e30: 67 2c 0a 09 09 20 20 20 20 22 5c 22 22 2c 20 28  g,...    "\"", (
9e40: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09  char *) NULL);..
9e50: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
9e60: 52 52 4f 52 3b 0a 09 7d 0a 20 20 20 20 7d 20 65  RROR;..}.    } e
9e70: 6c 73 65 20 69 66 20 28 73 74 72 69 6e 67 5b 30  lse if (string[0
9e80: 5d 20 3d 3d 20 27 65 27 29 20 7b 0a 09 69 66 20  ] == 'e') {..if 
9e90: 28 73 74 72 6e 63 6d 70 28 73 74 72 69 6e 67 2c  (strncmp(string,
9ea0: 20 22 65 6e 64 22 2c 20 6c 65 6e 67 74 68 29 20   "end", length) 
9eb0: 3d 3d 20 30 29 20 7b 0a 09 20 20 20 20 2a 69 6e  == 0) {..    *in
9ec0: 64 65 78 50 74 72 20 3d 20 65 6e 74 72 79 50 74  dexPtr = entryPt
9ed0: 72 2d 3e 6e 75 6d 43 68 61 72 73 3b 0a 09 7d 20  r->numChars;..} 
9ee0: 65 6c 73 65 20 7b 0a 09 20 20 20 20 67 6f 74 6f  else {..    goto
9ef0: 20 62 61 64 49 6e 64 65 78 3b 0a 09 7d 0a 20 20   badIndex;..}.  
9f00: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72    } else if (str
9f10: 69 6e 67 5b 30 5d 20 3d 3d 20 27 69 27 29 20 7b  ing[0] == 'i') {
9f20: 0a 09 69 66 20 28 73 74 72 6e 63 6d 70 28 73 74  ..if (strncmp(st
9f30: 72 69 6e 67 2c 20 22 69 6e 73 65 72 74 22 2c 20  ring, "insert", 
9f40: 6c 65 6e 67 74 68 29 20 3d 3d 20 30 29 20 7b 0a  length) == 0) {.
9f50: 09 20 20 20 20 2a 69 6e 64 65 78 50 74 72 20 3d  .    *indexPtr =
9f60: 20 65 6e 74 72 79 50 74 72 2d 3e 69 6e 73 65 72   entryPtr->inser
9f70: 74 50 6f 73 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a  tPos;..} else {.
9f80: 09 20 20 20 20 67 6f 74 6f 20 62 61 64 49 6e 64  .    goto badInd
9f90: 65 78 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73  ex;..}.    } els
9fa0: 65 20 69 66 20 28 73 74 72 69 6e 67 5b 30 5d 20  e if (string[0] 
9fb0: 3d 3d 20 27 73 27 29 20 7b 0a 09 69 66 20 28 65  == 's') {..if (e
9fc0: 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65 63 74 46  ntryPtr->selectF
9fd0: 69 72 73 74 20 3d 3d 20 2d 31 29 20 7b 0a 09 20  irst == -1) {.. 
9fe0: 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74     Tcl_SetResult
9ff0: 28 69 6e 74 65 72 70 2c 22 73 65 6c 65 63 74 69  (interp,"selecti
a000: 6f 6e 20 69 73 6e 27 74 20 69 6e 20 65 6e 74 72  on isn't in entr
a010: 79 22 2c 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a  y",TCL_STATIC);.
a020: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
a030: 45 52 52 4f 52 3b 0a 09 7d 0a 09 69 66 20 28 6c  ERROR;..}..if (l
a040: 65 6e 67 74 68 20 3c 20 35 29 20 7b 0a 09 20 20  ength < 5) {..  
a050: 20 20 67 6f 74 6f 20 62 61 64 49 6e 64 65 78 3b    goto badIndex;
a060: 0a 09 7d 0a 09 69 66 20 28 73 74 72 6e 63 6d 70  ..}..if (strncmp
a070: 28 73 74 72 69 6e 67 2c 20 22 73 65 6c 2e 66 69  (string, "sel.fi
a080: 72 73 74 22 2c 20 6c 65 6e 67 74 68 29 20 3d 3d  rst", length) ==
a090: 20 30 29 20 7b 0a 09 20 20 20 20 2a 69 6e 64 65   0) {..    *inde
a0a0: 78 50 74 72 20 3d 20 65 6e 74 72 79 50 74 72 2d  xPtr = entryPtr-
a0b0: 3e 73 65 6c 65 63 74 46 69 72 73 74 3b 0a 09 7d  >selectFirst;..}
a0c0: 20 65 6c 73 65 20 69 66 20 28 73 74 72 6e 63 6d   else if (strncm
a0d0: 70 28 73 74 72 69 6e 67 2c 20 22 73 65 6c 2e 6c  p(string, "sel.l
a0e0: 61 73 74 22 2c 20 6c 65 6e 67 74 68 29 20 3d 3d  ast", length) ==
a0f0: 20 30 29 20 7b 0a 09 20 20 20 20 2a 69 6e 64 65   0) {..    *inde
a100: 78 50 74 72 20 3d 20 65 6e 74 72 79 50 74 72 2d  xPtr = entryPtr-
a110: 3e 73 65 6c 65 63 74 4c 61 73 74 3b 0a 09 7d 20  >selectLast;..} 
a120: 65 6c 73 65 20 7b 0a 09 20 20 20 20 67 6f 74 6f  else {..    goto
a130: 20 62 61 64 49 6e 64 65 78 3b 0a 09 7d 0a 20 20   badIndex;..}.  
a140: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72    } else if (str
a150: 69 6e 67 5b 30 5d 20 3d 3d 20 27 40 27 29 20 7b  ing[0] == '@') {
a160: 0a 09 69 6e 74 20 78 2c 20 64 75 6d 6d 79 2c 20  ..int x, dummy, 
a170: 72 6f 75 6e 64 55 70 3b 0a 0a 09 69 66 20 28 54  roundUp;...if (T
a180: 63 6c 5f 47 65 74 49 6e 74 28 69 6e 74 65 72 70  cl_GetInt(interp
a190: 2c 20 73 74 72 69 6e 67 2b 31 2c 20 26 78 29 20  , string+1, &x) 
a1a0: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20  != TCL_OK) {..  
a1b0: 20 20 67 6f 74 6f 20 62 61 64 49 6e 64 65 78 3b    goto badIndex;
a1c0: 0a 09 7d 0a 09 69 66 20 28 78 20 3c 20 65 6e 74  ..}..if (x < ent
a1d0: 72 79 50 74 72 2d 3e 62 6f 72 64 65 72 57 69 64  ryPtr->borderWid
a1e0: 74 68 29 20 7b 0a 09 20 20 20 20 78 20 3d 20 65  th) {..    x = e
a1f0: 6e 74 72 79 50 74 72 2d 3e 62 6f 72 64 65 72 57  ntryPtr->borderW
a200: 69 64 74 68 3b 0a 09 7d 0a 09 72 6f 75 6e 64 55  idth;..}..roundU
a210: 70 20 3d 20 30 3b 0a 09 69 66 20 28 78 20 3e 3d  p = 0;..if (x >=
a220: 20 28 54 6b 5f 57 69 64 74 68 28 65 6e 74 72 79   (Tk_Width(entry
a230: 50 74 72 2d 3e 74 6b 77 69 6e 29 20 2d 20 65 6e  Ptr->tkwin) - en
a240: 74 72 79 50 74 72 2d 3e 62 6f 72 64 65 72 57 69  tryPtr->borderWi
a250: 64 74 68 29 29 20 7b 0a 09 20 20 20 20 78 20 3d  dth)) {..    x =
a260: 20 54 6b 5f 57 69 64 74 68 28 65 6e 74 72 79 50   Tk_Width(entryP
a270: 74 72 2d 3e 74 6b 77 69 6e 29 20 2d 20 65 6e 74  tr->tkwin) - ent
a280: 72 79 50 74 72 2d 3e 62 6f 72 64 65 72 57 69 64  ryPtr->borderWid
a290: 74 68 20 2d 20 31 3b 0a 09 20 20 20 20 72 6f 75  th - 1;..    rou
a2a0: 6e 64 55 70 20 3d 20 31 3b 0a 09 7d 0a 09 69 66  ndUp = 1;..}..if
a2b0: 20 28 65 6e 74 72 79 50 74 72 2d 3e 6e 75 6d 43   (entryPtr->numC
a2c0: 68 61 72 73 20 3d 3d 20 30 29 20 7b 0a 09 20 20  hars == 0) {..  
a2d0: 20 20 2a 69 6e 64 65 78 50 74 72 20 3d 20 30 3b    *indexPtr = 0;
a2e0: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20  ..} else {..    
a2f0: 2a 69 6e 64 65 78 50 74 72 20 3d 20 54 6b 4d 65  *indexPtr = TkMe
a300: 61 73 75 72 65 43 68 61 72 73 28 0a 09 09 20 20  asureChars(...  
a310: 20 20 28 65 6e 74 72 79 50 74 72 2d 3e 64 69 73    (entryPtr->dis
a320: 70 6c 61 79 53 74 72 69 6e 67 20 3d 3d 20 4e 55  playString == NU
a330: 4c 4c 29 20 3f 20 65 6e 74 72 79 50 74 72 2d 3e  LL) ? entryPtr->
a340: 73 74 72 69 6e 67 0a 09 09 20 20 20 20 3a 20 65  string...    : e
a350: 6e 74 72 79 50 74 72 2d 3e 64 69 73 70 6c 61 79  ntryPtr->display
a360: 53 74 72 69 6e 67 2c 0a 09 09 20 20 20 20 65 6e  String,...    en
a370: 74 72 79 50 74 72 2d 3e 6e 75 6d 43 68 61 72 73  tryPtr->numChars
a380: 2c 20 65 6e 74 72 79 50 74 72 2d 3e 74 61 62 4f  , entryPtr->tabO
a390: 72 69 67 69 6e 2c 20 78 2c 0a 09 09 20 20 20 20  rigin, x,...    
a3a0: 65 6e 74 72 79 50 74 72 2d 3e 74 61 62 4f 72 69  entryPtr->tabOri
a3b0: 67 69 6e 2c 20 54 4b 5f 4e 45 57 4c 49 4e 45 53  gin, TK_NEWLINES
a3c0: 5f 4e 4f 54 5f 53 50 45 43 49 41 4c 2c 20 26 64  _NOT_SPECIAL, &d
a3d0: 75 6d 6d 79 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09  ummy);..}.../*..
a3e0: 20 2a 20 53 70 65 63 69 61 6c 20 74 72 69 63 6b   * Special trick
a3f0: 3a 20 20 69 66 20 74 68 65 20 78 2d 70 6f 73 69  :  if the x-posi
a400: 74 69 6f 6e 20 77 61 73 20 6f 66 66 2d 73 63 72  tion was off-scr
a410: 65 65 6e 20 74 6f 20 74 68 65 20 72 69 67 68 74  een to the right
a420: 2c 0a 09 20 2a 20 72 6f 75 6e 64 20 74 68 65 20  ,.. * round the 
a430: 69 6e 64 65 78 20 75 70 20 74 6f 20 72 65 66 65  index up to refe
a440: 72 20 74 6f 20 74 68 65 20 63 68 61 72 61 63 74  r to the charact
a450: 65 72 20 6a 75 73 74 20 61 66 74 65 72 20 74 68  er just after th
a460: 65 0a 09 20 2a 20 6c 61 73 74 20 76 69 73 69 62  e.. * last visib
a470: 6c 65 20 6f 6e 65 20 6f 6e 20 74 68 65 20 73 63  le one on the sc
a480: 72 65 65 6e 2e 20 20 54 68 69 73 20 69 73 20 6e  reen.  This is n
a490: 65 65 64 65 64 20 74 6f 20 65 6e 61 62 6c 65 20  eeded to enable 
a4a0: 74 68 65 0a 09 20 2a 20 6c 61 73 74 20 63 68 61  the.. * last cha
a4b0: 72 61 63 74 65 72 20 74 6f 20 62 65 20 73 65 6c  racter to be sel
a4c0: 65 63 74 65 64 2c 20 66 6f 72 20 65 78 61 6d 70  ected, for examp
a4d0: 6c 65 2e 0a 09 20 2a 2f 0a 0a 09 69 66 20 28 72  le... */...if (r
a4e0: 6f 75 6e 64 55 70 20 26 26 20 28 2a 69 6e 64 65  oundUp && (*inde
a4f0: 78 50 74 72 20 3c 20 65 6e 74 72 79 50 74 72 2d  xPtr < entryPtr-
a500: 3e 6e 75 6d 43 68 61 72 73 29 29 20 7b 0a 09 20  >numChars)) {.. 
a510: 20 20 20 2a 69 6e 64 65 78 50 74 72 20 2b 3d 20     *indexPtr += 
a520: 31 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65  1;..}.    } else
a530: 20 7b 0a 09 69 66 20 28 54 63 6c 5f 47 65 74 49   {..if (Tcl_GetI
a540: 6e 74 28 69 6e 74 65 72 70 2c 20 73 74 72 69 6e  nt(interp, strin
a550: 67 2c 20 69 6e 64 65 78 50 74 72 29 20 21 3d 20  g, indexPtr) != 
a560: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 67  TCL_OK) {..    g
a570: 6f 74 6f 20 62 61 64 49 6e 64 65 78 3b 0a 09 7d  oto badIndex;..}
a580: 0a 09 69 66 20 28 2a 69 6e 64 65 78 50 74 72 20  ..if (*indexPtr 
a590: 3c 20 30 29 7b 0a 09 20 20 20 20 2a 69 6e 64 65  < 0){..    *inde
a5a0: 78 50 74 72 20 3d 20 30 3b 0a 09 7d 20 65 6c 73  xPtr = 0;..} els
a5b0: 65 20 69 66 20 28 2a 69 6e 64 65 78 50 74 72 20  e if (*indexPtr 
a5c0: 3e 20 65 6e 74 72 79 50 74 72 2d 3e 6e 75 6d 43  > entryPtr->numC
a5d0: 68 61 72 73 29 20 7b 0a 09 20 20 20 20 2a 69 6e  hars) {..    *in
a5e0: 64 65 78 50 74 72 20 3d 20 65 6e 74 72 79 50 74  dexPtr = entryPt
a5f0: 72 2d 3e 6e 75 6d 43 68 61 72 73 3b 0a 09 7d 0a  r->numChars;..}.
a600: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e      }.    return
a610: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a   TCL_OK;.}.../*.
a620: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
a630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a660: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45  --------. *. * E
a670: 6e 74 72 79 53 65 6c 65 63 74 54 6f 20 2d 2d 0a  ntrySelectTo --.
a680: 20 2a 0a 20 2a 09 4d 6f 64 69 66 79 20 74 68 65   *. *.Modify the
a690: 20 73 65 6c 65 63 74 69 6f 6e 20 62 79 20 6d 6f   selection by mo
a6a0: 76 69 6e 67 20 69 74 73 20 75 6e 2d 61 6e 63 68  ving its un-anch
a6b0: 6f 72 65 64 20 65 6e 64 2e 20 20 54 68 69 73 20  ored end.  This 
a6c0: 63 6f 75 6c 64 0a 20 2a 09 6d 61 6b 65 20 74 68  could. *.make th
a6d0: 65 20 73 65 6c 65 63 74 69 6f 6e 20 65 69 74 68  e selection eith
a6e0: 65 72 20 6c 61 72 67 65 72 20 6f 72 20 73 6d 61  er larger or sma
a6f0: 6c 6c 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75  ller.. *. * Resu
a700: 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a  lts:. *.None.. *
a710: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73  . * Side effects
a720: 3a 0a 20 2a 09 54 68 65 20 73 65 6c 65 63 74 69  :. *.The selecti
a730: 6f 6e 20 63 68 61 6e 67 65 73 2e 0a 20 2a 0a 20  on changes.. *. 
a740: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
a750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a780: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61  -------. */..sta
a790: 74 69 63 20 76 6f 69 64 0a 45 6e 74 72 79 53 65  tic void.EntrySe
a7a0: 6c 65 63 74 54 6f 28 65 6e 74 72 79 50 74 72 2c  lectTo(entryPtr,
a7b0: 20 69 6e 64 65 78 29 0a 20 20 20 20 72 65 67 69   index).    regi
a7c0: 73 74 65 72 20 45 6e 74 72 79 20 2a 65 6e 74 72  ster Entry *entr
a7d0: 79 50 74 72 3b 09 09 2f 2a 20 49 6e 66 6f 72 6d  yPtr;../* Inform
a7e0: 61 74 69 6f 6e 20 61 62 6f 75 74 20 77 69 64 67  ation about widg
a7f0: 65 74 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 69  et. */.    int i
a800: 6e 64 65 78 3b 09 09 09 09 2f 2a 20 49 6e 64 65  ndex;..../* Inde
a810: 78 20 6f 66 20 65 6c 65 6d 65 6e 74 20 74 68 61  x of element tha
a820: 74 20 69 73 20 74 6f 0a 09 09 09 09 09 20 2a 20  t is to...... * 
a830: 62 65 63 6f 6d 65 20 74 68 65 20 22 6f 74 68 65  become the "othe
a840: 72 22 20 65 6e 64 20 6f 66 20 74 68 65 0a 09 09  r" end of the...
a850: 09 09 09 20 2a 20 73 65 6c 65 63 74 69 6f 6e 2e  ... * selection.
a860: 20 2a 2f 0a 7b 0a 20 20 20 20 69 6e 74 20 6e 65   */.{.    int ne
a870: 77 46 69 72 73 74 2c 20 6e 65 77 4c 61 73 74 3b  wFirst, newLast;
a880: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20  ..    /*.     * 
a890: 50 69 63 6b 20 6e 65 77 20 73 74 61 72 74 69 6e  Pick new startin
a8a0: 67 20 61 6e 64 20 65 6e 64 69 6e 67 20 70 6f 69  g and ending poi
a8b0: 6e 74 73 20 66 6f 72 20 74 68 65 20 73 65 6c 65  nts for the sele
a8c0: 63 74 69 6f 6e 2e 0a 20 20 20 20 20 2a 2f 0a 0a  ction..     */..
a8d0: 20 20 20 20 69 66 20 28 65 6e 74 72 79 50 74 72      if (entryPtr
a8e0: 2d 3e 73 65 6c 65 63 74 41 6e 63 68 6f 72 20 3e  ->selectAnchor >
a8f0: 20 65 6e 74 72 79 50 74 72 2d 3e 6e 75 6d 43 68   entryPtr->numCh
a900: 61 72 73 29 20 7b 0a 09 65 6e 74 72 79 50 74 72  ars) {..entryPtr
a910: 2d 3e 73 65 6c 65 63 74 41 6e 63 68 6f 72 20 3d  ->selectAnchor =
a920: 20 65 6e 74 72 79 50 74 72 2d 3e 6e 75 6d 43 68   entryPtr->numCh
a930: 61 72 73 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69  ars;.    }.    i
a940: 66 20 28 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c  f (entryPtr->sel
a950: 65 63 74 41 6e 63 68 6f 72 20 3c 3d 20 69 6e 64  ectAnchor <= ind
a960: 65 78 29 20 7b 0a 09 6e 65 77 46 69 72 73 74 20  ex) {..newFirst 
a970: 3d 20 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65  = entryPtr->sele
a980: 63 74 41 6e 63 68 6f 72 3b 0a 09 6e 65 77 4c 61  ctAnchor;..newLa
a990: 73 74 20 3d 20 69 6e 64 65 78 3b 0a 20 20 20 20  st = index;.    
a9a0: 7d 20 65 6c 73 65 20 7b 0a 09 6e 65 77 46 69 72  } else {..newFir
a9b0: 73 74 20 3d 20 69 6e 64 65 78 3b 0a 09 6e 65 77  st = index;..new
a9c0: 4c 61 73 74 20 3d 20 65 6e 74 72 79 50 74 72 2d  Last = entryPtr-
a9d0: 3e 73 65 6c 65 63 74 41 6e 63 68 6f 72 3b 0a 09  >selectAnchor;..
a9e0: 69 66 20 28 6e 65 77 4c 61 73 74 20 3c 20 30 29  if (newLast < 0)
a9f0: 20 7b 0a 09 20 20 20 20 6e 65 77 46 69 72 73 74   {..    newFirst
aa00: 20 3d 20 6e 65 77 4c 61 73 74 20 3d 20 2d 31 3b   = newLast = -1;
aa10: 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66  ..}.    }.    if
aa20: 20 28 28 65 6e 74 72 79 50 74 72 2d 3e 73 65 6c   ((entryPtr->sel
aa30: 65 63 74 46 69 72 73 74 20 3d 3d 20 6e 65 77 46  ectFirst == newF
aa40: 69 72 73 74 29 0a 09 20 20 20 20 26 26 20 28 65  irst)..    && (e
aa50: 6e 74 72 79 50 74 72 2d 3e 73 65 6c 65 63 74 4c  ntryPtr->selectL
aa60: 61 73 74 20 3d 3d 20 6e 65 77 4c 61 73 74 29 29  ast == newLast))
aa70: 20 7b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 20   {..return;.    
aa80: 7d 0a 20 20 20 20 65 6e 74 72 79 50 74 72 2d 3e  }.    entryPtr->
aa90: 73 65 6c 65 63 74 46 69 72 73 74 20 3d 20 6e 65  selectFirst = ne
aaa0: 77 46 69 72 73 74 3b 0a 20 20 20 20 65 6e 74 72  wFirst;.    entr
aab0: 79 50 74 72 2d 3e 73 65 6c 65 63 74 4c 61 73 74  yPtr->selectLast
aac0: 20 3d 20 6e 65 77 4c 61 73 74 3b 0a 20 20 20 20   = newLast;.    
aad0: 45 76 65 6e 74 75 61 6c 6c 79 52 65 64 72 61 77  EventuallyRedraw
aae0: 28 65 6e 74 72 79 50 74 72 29 3b 0a 7d 0a 0c 0a  (entryPtr);.}...
aaf0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  /*. *-----------
ab00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ab10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ab20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ab30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20  -----------. *. 
ab40: 2a 20 45 76 65 6e 74 75 61 6c 6c 79 52 65 64 72  * EventuallyRedr
ab50: 61 77 20 2d 2d 0a 20 2a 0a 20 2a 09 45 6e 73 75  aw --. *. *.Ensu
ab60: 72 65 20 74 68 61 74 20 61 6e 20 65 6e 74 72 79  re that an entry
ab70: 20 69 73 20 65 76 65 6e 74 75 61 6c 6c 79 20 72   is eventually r
ab80: 65 64 72 61 77 6e 20 6f 6e 20 74 68 65 20 64 69  edrawn on the di
ab90: 73 70 6c 61 79 2e 0a 20 2a 0a 20 2a 20 52 65 73  splay.. *. * Res
aba0: 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20  ults:. *.None.. 
abb0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74  *. * Side effect
abc0: 73 3a 0a 20 2a 09 49 6e 66 6f 72 6d 61 74 69 6f  s:. *.Informatio
abd0: 6e 20 67 65 74 73 20 72 65 64 69 73 70 6c 61 79  n gets redisplay
abe0: 65 64 2e 20 20 52 69 67 68 74 20 6e 6f 77 20 77  ed.  Right now w
abf0: 65 20 64 6f 6e 27 74 20 64 6f 20 73 65 6c 65 63  e don't do selec
ac00: 74 69 76 65 0a 20 2a 09 72 65 64 69 73 70 6c 61  tive. *.redispla
ac10: 79 73 3a 20 20 74 68 65 20 77 68 6f 6c 65 20 77  ys:  the whole w
ac20: 69 6e 64 6f 77 20 77 69 6c 6c 20 62 65 20 72 65  indow will be re
ac30: 64 72 61 77 6e 2e 20 20 54 68 69 73 20 64 6f 65  drawn.  This doe
ac40: 73 6e 27 74 0a 20 2a 09 73 65 65 6d 20 74 6f 20  sn't. *.seem to 
ac50: 68 75 72 74 20 70 65 72 66 6f 72 6d 61 6e 63 65  hurt performance
ac60: 20 6e 6f 74 69 63 65 61 62 6c 79 2c 20 62 75 74   noticeably, but
ac70: 20 69 66 20 69 74 20 64 6f 65 73 20 74 68 65 6e   if it does then
ac80: 20 74 68 69 73 0a 20 2a 09 63 6f 75 6c 64 20 62   this. *.could b
ac90: 65 20 63 68 61 6e 67 65 64 2e 0a 20 2a 0a 20 2a  e changed.. *. *
aca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
acb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
acc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
acd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ace0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74  ------. */..stat
acf0: 69 63 20 76 6f 69 64 0a 45 76 65 6e 74 75 61 6c  ic void.Eventual
ad00: 6c 79 52 65 64 72 61 77 28 65 6e 74 72 79 50 74  lyRedraw(entryPt
ad10: 72 29 0a 20 20 20 20 72 65 67 69 73 74 65 72 20  r).    register 
ad20: 45 6e 74 72 79 20 2a 65 6e 74 72 79 50 74 72 3b  Entry *entryPtr;
ad30: 09 09 2f 2a 20 49 6e 66 6f 72 6d 61 74 69 6f 6e  ../* Information
ad40: 20 61 62 6f 75 74 20 77 69 64 67 65 74 2e 20 2a   about widget. *
ad50: 2f 0a 7b 0a 20 20 20 20 69 66 20 28 28 65 6e 74  /.{.    if ((ent
ad60: 72 79 50 74 72 2d 3e 74 6b 77 69 6e 20 3d 3d 20  ryPtr->tkwin == 
ad70: 4e 55 4c 4c 29 20 7c 7c 20 21 54 6b 5f 49 73 4d  NULL) || !Tk_IsM
ad80: 61 70 70 65 64 28 65 6e 74 72 79 50 74 72 2d 3e  apped(entryPtr->
ad90: 74 6b 77 69 6e 29 29 20 7b 0a 09 72 65 74 75 72  tkwin)) {..retur
ada0: 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a  n;.    }..    /*
adb0: 0a 20 20 20 20 20 2a 20 52 69 67 68 74 20 6e 6f  .     * Right no
adc0: 77 20 77 65 20 64 6f 6e 27 74 20 64 6f 20 73 65  w we don't do se
add0: 6c 65 63 74 69 76 65 20 72 65 64 69 73 70 6c 61  lective redispla
ade0: 79 73 3a 20 20 74 68 65 20 77 68 6f 6c 65 20 77  ys:  the whole w
adf0: 69 6e 64 6f 77 0a 20 20 20 20 20 2a 20 77 69 6c  indow.     * wil
ae00: 6c 20 62 65 20 72 65 64 72 61 77 6e 2e 20 20 54  l be redrawn.  T
ae10: 68 69 73 20 64 6f 65 73 6e 27 74 20 73 65 65 6d  his doesn't seem
ae20: 20 74 6f 20 68 75 72 74 20 70 65 72 66 6f 72 6d   to hurt perform
ae30: 61 6e 63 65 20 6e 6f 74 69 63 65 61 62 6c 79 2c  ance noticeably,
ae40: 0a 20 20 20 20 20 2a 20 62 75 74 20 69 66 20 69  .     * but if i
ae50: 74 20 64 6f 65 73 20 74 68 65 6e 20 74 68 69 73  t does then this
ae60: 20 63 6f 75 6c 64 20 62 65 20 63 68 61 6e 67 65   could be change
ae70: 64 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20  d..     */..    
ae80: 69 66 20 28 21 28 65 6e 74 72 79 50 74 72 2d 3e  if (!(entryPtr->
ae90: 66 6c 61 67 73 20 26 20 52 45 44 52 41 57 5f 50  flags & REDRAW_P
aea0: 45 4e 44 49 4e 47 29 29 20 7b 0a 09 65 6e 74 72  ENDING)) {..entr
aeb0: 79 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 52  yPtr->flags |= R
aec0: 45 44 52 41 57 5f 50 45 4e 44 49 4e 47 3b 0a 09  EDRAW_PENDING;..
aed0: 54 63 6c 5f 44 6f 57 68 65 6e 49 64 6c 65 28 44  Tcl_DoWhenIdle(D
aee0: 69 73 70 6c 61 79 45 6e 74 72 79 2c 20 28 43 6c  isplayEntry, (Cl
aef0: 69 65 6e 74 44 61 74 61 29 20 65 6e 74 72 79 50  ientData) entryP
af00: 74 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0c 0a 2f  tr);.    }.}.../
af10: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
af20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
af30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
af40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
af50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a  ----------. *. *
af60: 20 45 6e 74 72 79 56 69 73 69 62 6c 65 52 61 6e   EntryVisibleRan
af70: 67 65 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75  ge --. *. *.Retu
af80: 72 6e 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61  rn information a
af90: 62 6f 75 74 20 74 68 65 20 72 61 6e 67 65 20 6f  bout the range o
afa0: 66 20 74 68 65 20 65 6e 74 72 79 20 74 68 61 74  f the entry that
afb0: 20 69 73 0a 20 2a 09 63 75 72 72 65 6e 74 6c 79   is. *.currently
afc0: 20 76 69 73 69 62 6c 65 2e 0a 20 2a 0a 20 2a 20   visible.. *. * 
afd0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 2a 66 69 72  Results:. *.*fir
afe0: 73 74 50 74 72 20 61 6e 64 20 2a 6c 61 73 74 50  stPtr and *lastP
aff0: 74 72 20 61 72 65 20 6d 6f 64 69 66 69 65 64 20  tr are modified 
b000: 74 6f 20 68 6f 6c 64 20 66 72 61 63 74 69 6f 6e  to hold fraction
b010: 73 20 62 65 74 77 65 65 6e 0a 20 2a 09 30 20 61  s between. *.0 a
b020: 6e 64 20 31 20 69 64 65 6e 74 69 66 79 69 6e 67  nd 1 identifying
b030: 20 74 68 65 20 72 61 6e 67 65 20 6f 66 20 63 68   the range of ch
b040: 61 72 61 63 74 65 72 73 20 76 69 73 69 62 6c 65  aracters visible
b050: 20 69 6e 20 74 68 65 0a 20 2a 09 65 6e 74 72 79   in the. *.entry
b060: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66  .. *. * Side eff
b070: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20  ects:. *.None.. 
b080: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
b090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b0a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b0b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b0c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a  ----------. */..
b0d0: 73 74 61 74 69 63 20 76 6f 69 64 0a 45 6e 74 72  static void.Entr
b0e0: 79 56 69 73 69 62 6c 65 52 61 6e 67 65 28 65 6e  yVisibleRange(en
b0f0: 74 72 79 50 74 72 2c 20 66 69 72 73 74 50 74 72  tryPtr, firstPtr
b100: 2c 20 6c 61 73 74 50 74 72 29 0a 20 20 20 20 45  , lastPtr).    E
b110: 6e 74 72 79 20 2a 65 6e 74 72 79 50 74 72 3b 09  ntry *entryPtr;.
b120: 09 09 2f 2a 20 49 6e 66 6f 72 6d 61 74 69 6f 6e  ../* Information
b130: 20 61 62 6f 75 74 20 77 69 64 67 65 74 2e 20 2a   about widget. *
b140: 2f 0a 20 20 20 20 64 6f 75 62 6c 65 20 2a 66 69  /.    double *fi
b150: 72 73 74 50 74 72 3b 09 09 09 2f 2a 20 52 65 74  rstPtr;.../* Ret
b160: 75 72 6e 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20  urn position of 
b170: 66 69 72 73 74 20 76 69 73 69 62 6c 65 0a 09 09  first visible...
b180: 09 09 09 20 2a 20 63 68 61 72 61 63 74 65 72 20  ... * character 
b190: 69 6e 20 77 69 64 67 65 74 2e 20 2a 2f 0a 20 20  in widget. */.  
b1a0: 20 20 64 6f 75 62 6c 65 20 2a 6c 61 73 74 50 74    double *lastPt
b1b0: 72 3b 09 09 09 2f 2a 20 52 65 74 75 72 6e 20 70  r;.../* Return p
b1c0: 6f 73 69 74 69 6f 6e 20 6f 66 20 63 68 61 72 20  osition of char 
b1d0: 6a 75 73 74 20 61 66 74 65 72 0a 09 09 09 09 09  just after......
b1e0: 20 2a 20 6c 61 73 74 20 76 69 73 69 62 6c 65 20   * last visible 
b1f0: 6f 6e 65 2e 20 2a 2f 0a 7b 0a 20 20 20 20 63 68  one. */.{.    ch
b200: 61 72 20 2a 64 69 73 70 6c 61 79 53 74 72 69 6e  ar *displayStrin
b210: 67 3b 0a 20 20 20 20 69 6e 74 20 63 68 61 72 73  g;.    int chars
b220: 49 6e 57 69 6e 64 6f 77 2c 20 65 6e 64 58 3b 0a  InWindow, endX;.
b230: 0a 20 20 20 20 69 66 20 28 65 6e 74 72 79 50 74  .    if (entryPt
b240: 72 2d 3e 64 69 73 70 6c 61 79 53 74 72 69 6e 67  r->displayString
b250: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 64 69 73   == NULL) {..dis
b260: 70 6c 61 79 53 74 72 69 6e 67 20 3d 20 65 6e 74  playString = ent
b270: 72 79 50 74 72 2d 3e 73 74 72 69 6e 67 3b 0a 20  ryPtr->string;. 
b280: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 64 69 73     } else {..dis
b290: 70 6c 61 79 53 74 72 69 6e 67 20 3d 20 65 6e 74  playString = ent
b2a0: 72 79 50 74 72 2d 3e 64 69 73 70 6c 61 79 53 74  ryPtr->displaySt
b2b0: 72 69 6e 67 3b 0a 20 20 20 20 7d 0a 20 20 20 20  ring;.    }.    
b2c0: 69 66 20 28 65 6e 74 72 79 50 74 72 2d 3e 6e 75  if (entryPtr->nu
b2d0: 6d 43 68 61 72 73 20 3d 3d 20 30 29 20 7b 0a 09  mChars == 0) {..
b2e0: 2a 66 69 72 73 74 50 74 72 20 3d 20 30 2e 30 3b  *firstPtr = 0.0;
b2f0: 0a 09 2a 6c 61 73 74 50 74 72 20 3d 20 31 2e 30  ..*lastPtr = 1.0
b300: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09  ;.    } else {..
b310: 63 68 61 72 73 49 6e 57 69 6e 64 6f 77 20 3d 20  charsInWindow = 
b320: 54 6b 4d 65 61 73 75 72 65 43 68 61 72 73 28 0a  TkMeasureChars(.
b330: 09 09 64 69 73 70 6c 61 79 53 74 72 69 6e 67 20  ..displayString 
b340: 2b 20 65 6e 74 72 79 50 74 72 2d 3e 6c 65 66 74  + entryPtr->left
b350: 49 6e 64 65 78 2c 0a 09 09 65 6e 74 72 79 50 74  Index,...entryPt
b360: 72 2d 3e 6e 75 6d 43 68 61 72 73 20 2d 20 65 6e  r->numChars - en
b370: 74 72 79 50 74 72 2d 3e 6c 65 66 74 49 6e 64 65  tryPtr->leftInde
b380: 78 2c 20 65 6e 74 72 79 50 74 72 2d 3e 62 6f 72  x, entryPtr->bor
b390: 64 65 72 57 69 64 74 68 2c 0a 09 09 54 6b 5f 57  derWidth,...Tk_W
b3a0: 69 64 74 68 28 65 6e 74 72 79 50 74 72 2d 3e 74  idth(entryPtr->t
b3b0: 6b 77 69 6e 29 20 2d 20 65 6e 74 72 79 50 74 72  kwin) - entryPtr
b3c0: 2d 3e 62 6f 72 64 65 72 57 69 64 74 68 2c 20 65  ->borderWidth, e
b3d0: 6e 74 72 79 50 74 72 2d 3e 62 6f 72 64 65 72 57  ntryPtr->borderW
b3e0: 69 64 74 68 2c 0a 09 09 54 4b 5f 41 54 5f 4c 45  idth,...TK_AT_LE
b3f0: 41 53 54 5f 4f 4e 45 7c 54 4b 5f 4e 45 57 4c 49  AST_ONE|TK_NEWLI
b400: 4e 45 53 5f 4e 4f 54 5f 53 50 45 43 49 41 4c 2c  NES_NOT_SPECIAL,
b410: 20 26 65 6e 64 58 29 3b 0a 09 2a 66 69 72 73 74   &endX);..*first
b420: 50 74 72 20 3d 20 28 28 64 6f 75 62 6c 65 29 20  Ptr = ((double) 
b430: 65 6e 74 72 79 50 74 72 2d 3e 6c 65 66 74 49 6e  entryPtr->leftIn
b440: 64 65 78 29 2f 65 6e 74 72 79 50 74 72 2d 3e 6e  dex)/entryPtr->n
b450: 75 6d 43 68 61 72 73 3b 0a 09 2a 6c 61 73 74 50  umChars;..*lastP
b460: 74 72 20 3d 20 28 28 64 6f 75 62 6c 65 29 20 28  tr = ((double) (
b470: 65 6e 74 72 79 50 74 72 2d 3e 6c 65 66 74 49 6e  entryPtr->leftIn
b480: 64 65 78 20 2b 20 63 68 61 72 73 49 6e 57 69 6e  dex + charsInWin
b490: 64 6f 77 29 29 0a 09 09 2f 65 6e 74 72 79 50 74  dow)).../entryPt
b4a0: 72 2d 3e 6e 75 6d 43 68 61 72 73 3b 0a 20 20 20  r->numChars;.   
b4b0: 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d   }.}.../*. *----
b4c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b4d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b4e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b4f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b500: 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 74 72 79 55 70  --. *. * EntryUp
b510: 64 61 74 65 53 63 72 6f 6c 6c 62 61 72 20 2d 2d  dateScrollbar --
b520: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63  . *. *.This proc
b530: 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64  edure is invoked
b540: 20 77 68 65 6e 65 76 65 72 20 69 6e 66 6f 72 6d   whenever inform
b550: 61 74 69 6f 6e 20 68 61 73 20 63 68 61 6e 67 65  ation has change
b560: 64 20 69 6e 0a 20 2a 09 61 6e 20 65 6e 74 72 79  d in. *.an entry
b570: 20 69 6e 20 61 20 77 61 79 20 74 68 61 74 20 77   in a way that w
b580: 6f 75 6c 64 20 69 6e 76 61 6c 69 64 61 74 65 20  ould invalidate 
b590: 61 20 73 63 72 6f 6c 6c 62 61 72 20 64 69 73 70  a scrollbar disp
b5a0: 6c 61 79 2e 0a 20 2a 09 49 66 20 74 68 65 72 65  lay.. *.If there
b5b0: 20 69 73 20 61 6e 20 61 73 73 6f 63 69 61 74 65   is an associate
b5c0: 64 20 73 63 72 6f 6c 6c 62 61 72 2c 20 74 68 65  d scrollbar, the
b5d0: 6e 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65  n this procedure
b5e0: 20 75 70 64 61 74 65 73 0a 20 2a 09 69 74 20 62   updates. *.it b
b5f0: 79 20 69 6e 76 6f 6b 69 6e 67 20 61 20 54 63 6c  y invoking a Tcl
b600: 20 63 6f 6d 6d 61 6e 64 2e 0a 20 2a 0a 20 2a 20   command.. *. * 
b610: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65  Results:. *.None
b620: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66  .. *. * Side eff
b630: 65 63 74 73 3a 0a 20 2a 09 41 20 54 63 6c 20 63  ects:. *.A Tcl c
b640: 6f 6d 6d 61 6e 64 20 69 73 20 69 6e 76 6f 6b 65  ommand is invoke
b650: 64 2c 20 61 6e 64 20 61 6e 20 61 64 64 69 74 69  d, and an additi
b660: 6f 6e 61 6c 20 63 6f 6d 6d 61 6e 64 20 6d 61 79  onal command may
b670: 20 62 65 0a 20 2a 09 69 6e 76 6f 6b 65 64 20 74   be. *.invoked t
b680: 6f 20 70 72 6f 63 65 73 73 20 65 72 72 6f 72 73  o process errors
b690: 20 69 6e 20 74 68 65 20 63 6f 6d 6d 61 6e 64 2e   in the command.
b6a0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *. *----------
b6b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b6c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b6d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b6e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
b6f0: 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 45 6e  ..static void.En
b700: 74 72 79 55 70 64 61 74 65 53 63 72 6f 6c 6c 62  tryUpdateScrollb
b710: 61 72 28 65 6e 74 72 79 50 74 72 29 0a 20 20 20  ar(entryPtr).   
b720: 20 45 6e 74 72 79 20 2a 65 6e 74 72 79 50 74 72   Entry *entryPtr
b730: 3b 09 09 09 2f 2a 20 49 6e 66 6f 72 6d 61 74 69  ;.../* Informati
b740: 6f 6e 20 61 62 6f 75 74 20 77 69 64 67 65 74 2e  on about widget.
b750: 20 2a 2f 0a 7b 0a 20 20 20 20 63 68 61 72 20 61   */.{.    char a
b760: 72 67 73 5b 31 30 30 5d 3b 0a 20 20 20 20 69 6e  rgs[100];.    in
b770: 74 20 63 6f 64 65 3b 0a 20 20 20 20 64 6f 75 62  t code;.    doub
b780: 6c 65 20 66 69 72 73 74 2c 20 6c 61 73 74 3b 0a  le first, last;.
b790: 0a 20 20 20 20 69 66 20 28 65 6e 74 72 79 50 74  .    if (entryPt
b7a0: 72 2d 3e 73 63 72 6f 6c 6c 43 6d 64 20 3d 3d 20  r->scrollCmd == 
b7b0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 3b  NULL) {..return;
b7c0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 45 6e 74 72  .    }..    Entr
b7d0: 79 56 69 73 69 62 6c 65 52 61 6e 67 65 28 65 6e  yVisibleRange(en
b7e0: 74 72 79 50 74 72 2c 20 26 66 69 72 73 74 2c 20  tryPtr, &first, 
b7f0: 26 6c 61 73 74 29 3b 0a 20 20 20 20 73 70 72 69  &last);.    spri
b800: 6e 74 66 28 61 72 67 73 2c 20 22 20 25 67 20 25  ntf(args, " %g %
b810: 67 22 2c 20 66 69 72 73 74 2c 20 6c 61 73 74 29  g", first, last)
b820: 3b 0a 20 20 20 20 63 6f 64 65 20 3d 20 54 63 6c  ;.    code = Tcl
b830: 5f 56 61 72 45 76 61 6c 28 65 6e 74 72 79 50 74  _VarEval(entryPt
b840: 72 2d 3e 69 6e 74 65 72 70 2c 20 65 6e 74 72 79  r->interp, entry
b850: 50 74 72 2d 3e 73 63 72 6f 6c 6c 43 6d 64 2c 20  Ptr->scrollCmd, 
b860: 61 72 67 73 2c 0a 09 20 20 20 20 28 63 68 61 72  args,..    (char
b870: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69   *) NULL);.    i
b880: 66 20 28 63 6f 64 65 20 21 3d 20 54 43 4c 5f 4f  f (code != TCL_O
b890: 4b 29 20 7b 0a 09 54 63 6c 5f 41 64 64 45 72 72  K) {..Tcl_AddErr
b8a0: 6f 72 49 6e 66 6f 28 65 6e 74 72 79 50 74 72 2d  orInfo(entryPtr-
b8b0: 3e 69 6e 74 65 72 70 2c 0a 09 09 22 5c 6e 20 20  >interp,..."\n  
b8c0: 20 20 28 68 6f 72 69 7a 6f 6e 74 61 6c 20 73 63    (horizontal sc
b8d0: 72 6f 6c 6c 69 6e 67 20 63 6f 6d 6d 61 6e 64 20  rolling command 
b8e0: 65 78 65 63 75 74 65 64 20 62 79 20 65 6e 74 72  executed by entr
b8f0: 79 29 22 29 3b 0a 09 54 63 6c 5f 42 61 63 6b 67  y)");..Tcl_Backg
b900: 72 6f 75 6e 64 45 72 72 6f 72 28 65 6e 74 72 79  roundError(entry
b910: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20  Ptr->interp);.  
b920: 20 20 7d 0a 20 20 20 20 54 63 6c 5f 53 65 74 52    }.    Tcl_SetR
b930: 65 73 75 6c 74 28 65 6e 74 72 79 50 74 72 2d 3e  esult(entryPtr->
b940: 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29  interp, (char *)
b950: 20 4e 55 4c 4c 2c 20 54 43 4c 5f 53 54 41 54 49   NULL, TCL_STATI
b960: 43 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d  C);.}.../*. *---
b970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b9a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20  -----------. *. 
b9b0: 2a 20 45 6e 74 72 79 54 65 78 74 56 61 72 50 72  * EntryTextVarPr
b9c0: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73  oc --. *. *.This
b9d0: 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e   procedure is in
b9e0: 76 6f 6b 65 64 20 77 68 65 6e 20 73 6f 6d 65 6f  voked when someo
b9f0: 6e 65 20 63 68 61 6e 67 65 73 20 74 68 65 20 76  ne changes the v
ba00: 61 72 69 61 62 6c 65 0a 20 2a 09 77 68 6f 73 65  ariable. *.whose
ba10: 20 63 6f 6e 74 65 6e 74 73 20 61 72 65 20 74 6f   contents are to
ba20: 20 62 65 20 64 69 73 70 6c 61 79 65 64 20 69 6e   be displayed in
ba30: 20 61 6e 20 65 6e 74 72 79 2e 0a 20 2a 0a 20 2a   an entry.. *. *
ba40: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 55 4c   Results:. *.NUL
ba50: 4c 20 69 73 20 61 6c 77 61 79 73 20 72 65 74 75  L is always retu
ba60: 72 6e 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65  rned.. *. * Side
ba70: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 54 68 65   effects:. *.The
ba80: 20 74 65 78 74 20 64 69 73 70 6c 61 79 65 64 20   text displayed 
ba90: 69 6e 20 74 68 65 20 65 6e 74 72 79 20 77 69 6c  in the entry wil
baa0: 6c 20 63 68 61 6e 67 65 20 74 6f 20 6d 61 74 63  l change to matc
bab0: 68 20 74 68 65 0a 20 2a 09 76 61 72 69 61 62 6c  h the. *.variabl
bac0: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  e.. *. *--------
bad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
bae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
baf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
bb00: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 09 2f 2a 20  ------. */.../* 
bb10: 41 52 47 53 55 53 45 44 20 2a 2f 0a 73 74 61 74  ARGSUSED */.stat
bb20: 69 63 20 63 68 61 72 20 2a 0a 45 6e 74 72 79 54  ic char *.EntryT
bb30: 65 78 74 56 61 72 50 72 6f 63 28 63 6c 69 65 6e  extVarProc(clien
bb40: 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6e  tData, interp, n
bb50: 61 6d 65 31 2c 20 6e 61 6d 65 32 2c 20 66 6c 61  ame1, name2, fla
bb60: 67 73 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61  gs).    ClientDa
bb70: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f  ta clientData;./
bb80: 2a 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62  * Information ab
bb90: 6f 75 74 20 62 75 74 74 6f 6e 2e 20 2a 2f 0a 20  out button. */. 
bba0: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69     Tcl_Interp *i
bbb0: 6e 74 65 72 70 3b 09 09 2f 2a 20 49 6e 74 65 72  nterp;../* Inter
bbc0: 70 72 65 74 65 72 20 63 6f 6e 74 61 69 6e 69 6e  preter containin
bbd0: 67 20 76 61 72 69 61 62 6c 65 2e 20 2a 2f 0a 20  g variable. */. 
bbe0: 20 20 20 63 68 61 72 20 2a 6e 61 6d 65 31 3b 09     char *name1;.
bbf0: 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f  ./* Not used. */
bc00: 0a 20 20 20 20 63 68 61 72 20 2a 6e 61 6d 65 32  .    char *name2
bc10: 3b 09 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20  ;../* Not used. 
bc20: 2a 2f 0a 20 20 20 20 69 6e 74 20 66 6c 61 67 73  */.    int flags
bc30: 3b 09 09 09 2f 2a 20 49 6e 66 6f 72 6d 61 74 69  ;.../* Informati
bc40: 6f 6e 20 61 62 6f 75 74 20 77 68 61 74 20 68 61  on about what ha
bc50: 70 70 65 6e 65 64 2e 20 2a 2f 0a 7b 0a 20 20 20  ppened. */.{.   
bc60: 20 72 65 67 69 73 74 65 72 20 45 6e 74 72 79 20   register Entry 
bc70: 2a 65 6e 74 72 79 50 74 72 20 3d 20 28 45 6e 74  *entryPtr = (Ent
bc80: 72 79 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61  ry *) clientData
bc90: 3b 0a 20 20 20 20 63 68 61 72 20 2a 76 61 6c 75  ;.    char *valu
bca0: 65 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20  e;..    /*.     
bcb0: 2a 20 49 66 20 74 68 65 20 76 61 72 69 61 62 6c  * If the variabl
bcc0: 65 20 69 73 20 75 6e 73 65 74 2c 20 74 68 65 6e  e is unset, then
bcd0: 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 72 65 63   immediately rec
bce0: 72 65 61 74 65 20 69 74 20 75 6e 6c 65 73 73 0a  reate it unless.
bcf0: 20 20 20 20 20 2a 20 74 68 65 20 77 68 6f 6c 65       * the whole
bd00: 20 69 6e 74 65 72 70 72 65 74 65 72 20 69 73 20   interpreter is 
bd10: 67 6f 69 6e 67 20 61 77 61 79 2e 0a 20 20 20 20  going away..    
bd20: 20 2a 2f 0a 0a 20 20 20 20 69 66 20 28 66 6c 61   */..    if (fla
bd30: 67 73 20 26 20 54 43 4c 5f 54 52 41 43 45 5f 55  gs & TCL_TRACE_U
bd40: 4e 53 45 54 53 29 20 7b 0a 09 69 66 20 28 28 66  NSETS) {..if ((f
bd50: 6c 61 67 73 20 26 20 54 43 4c 5f 54 52 41 43 45  lags & TCL_TRACE
bd60: 5f 44 45 53 54 52 4f 59 45 44 29 20 26 26 20 21  _DESTROYED) && !
bd70: 28 66 6c 61 67 73 20 26 20 54 43 4c 5f 49 4e 54  (flags & TCL_INT
bd80: 45 52 50 5f 44 45 53 54 52 4f 59 45 44 29 29 20  ERP_DESTROYED)) 
bd90: 7b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 56 61  {..    Tcl_SetVa
bda0: 72 28 69 6e 74 65 72 70 2c 20 65 6e 74 72 79 50  r(interp, entryP
bdb0: 74 72 2d 3e 74 65 78 74 56 61 72 4e 61 6d 65 2c  tr->textVarName,
bdc0: 20 65 6e 74 72 79 50 74 72 2d 3e 73 74 72 69 6e   entryPtr->strin
bdd0: 67 2c 0a 09 09 20 20 20 20 54 43 4c 5f 47 4c 4f  g,...    TCL_GLO
bde0: 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 09 20 20 20 20  BAL_ONLY);..    
bdf0: 54 63 6c 5f 54 72 61 63 65 56 61 72 28 69 6e 74  Tcl_TraceVar(int
be00: 65 72 70 2c 20 65 6e 74 72 79 50 74 72 2d 3e 74  erp, entryPtr->t
be10: 65 78 74 56 61 72 4e 61 6d 65 2c 0a 09 09 20 20  extVarName,...  
be20: 20 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c    TCL_GLOBAL_ONL
be30: 59 7c 54 43 4c 5f 54 52 41 43 45 5f 57 52 49 54  Y|TCL_TRACE_WRIT
be40: 45 53 7c 54 43 4c 5f 54 52 41 43 45 5f 55 4e 53  ES|TCL_TRACE_UNS
be50: 45 54 53 2c 0a 09 09 20 20 20 20 45 6e 74 72 79  ETS,...    Entry
be60: 54 65 78 74 56 61 72 50 72 6f 63 2c 20 63 6c 69  TextVarProc, cli
be70: 65 6e 74 44 61 74 61 29 3b 0a 09 7d 0a 09 72 65  entData);..}..re
be80: 74 75 72 6e 20 28 63 68 61 72 20 2a 29 20 4e 55  turn (char *) NU
be90: 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f  LL;.    }..    /
bea0: 2a 0a 20 20 20 20 20 2a 20 55 70 64 61 74 65 20  *.     * Update 
beb0: 74 68 65 20 65 6e 74 72 79 27 73 20 74 65 78 74  the entry's text
bec0: 20 77 69 74 68 20 74 68 65 20 76 61 6c 75 65 20   with the value 
bed0: 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 2c  of the variable,
bee0: 20 75 6e 6c 65 73 73 0a 20 20 20 20 20 2a 20 74   unless.     * t
bef0: 68 65 20 65 6e 74 72 79 20 61 6c 72 65 61 64 79  he entry already
bf00: 20 68 61 73 20 74 68 61 74 20 76 61 6c 75 65 20   has that value 
bf10: 28 74 68 69 73 20 68 61 70 70 65 6e 73 20 77 68  (this happens wh
bf20: 65 6e 20 74 68 65 20 76 61 72 69 61 62 6c 65 0a  en the variable.
bf30: 20 20 20 20 20 2a 20 63 68 61 6e 67 65 73 20 76       * changes v
bf40: 61 6c 75 65 20 62 65 63 61 75 73 65 20 77 65 20  alue because we 
bf50: 63 68 61 6e 67 65 64 20 69 74 20 62 65 63 61 75  changed it becau
bf60: 73 65 20 73 6f 6d 65 6f 6e 65 20 74 79 70 65 64  se someone typed
bf70: 20 69 6e 0a 20 20 20 20 20 2a 20 74 68 65 20 65   in.     * the e
bf80: 6e 74 72 79 29 2e 0a 20 20 20 20 20 2a 2f 0a 0a  ntry)..     */..
bf90: 20 20 20 20 76 61 6c 75 65 20 3d 20 54 63 6c 5f      value = Tcl_
bfa0: 47 65 74 56 61 72 28 69 6e 74 65 72 70 2c 20 65  GetVar(interp, e
bfb0: 6e 74 72 79 50 74 72 2d 3e 74 65 78 74 56 61 72  ntryPtr->textVar
bfc0: 4e 61 6d 65 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c  Name, TCL_GLOBAL
bfd0: 5f 4f 4e 4c 59 29 3b 0a 20 20 20 20 69 66 20 28  _ONLY);.    if (
bfe0: 76 61 6c 75 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b  value == NULL) {
bff0: 0a 09 76 61 6c 75 65 20 3d 20 22 22 3b 0a 20 20  ..value = "";.  
c000: 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 72 63    }.    if (strc
c010: 6d 70 28 76 61 6c 75 65 2c 20 65 6e 74 72 79 50  mp(value, entryP
c020: 74 72 2d 3e 73 74 72 69 6e 67 29 20 21 3d 20 30  tr->string) != 0
c030: 29 20 7b 0a 09 45 6e 74 72 79 53 65 74 56 61 6c  ) {..EntrySetVal
c040: 75 65 28 65 6e 74 72 79 50 74 72 2c 20 76 61 6c  ue(entryPtr, val
c050: 75 65 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72  ue);.    }.    r
c060: 65 74 75 72 6e 20 28 63 68 61 72 20 2a 29 20 4e  eturn (char *) N
c070: 55 4c 4c 3b 0a 7d 0a                             ULL;.}.