Hex Artifact Content

Artifact f9ec53b4a8a051535b45dd72ef1393b54628de24:


0000: 2f 2a 20 0a 20 2a 20 74 6b 4d 65 6e 75 62 75 74  /* . * tkMenubut
0010: 74 6f 6e 2e 63 20 28 43 54 6b 29 20 2d 2d 0a 20  ton.c (CTk) --. 
0020: 2a 0a 20 2a 09 54 68 69 73 20 6d 6f 64 75 6c 65  *. *.This module
0030: 20 69 6d 70 6c 65 6d 65 6e 74 73 20 62 75 74 74   implements butt
0040: 6f 6e 2d 6c 69 6b 65 20 77 69 64 67 65 74 73 20  on-like widgets 
0050: 74 68 61 74 20 61 72 65 20 75 73 65 64 0a 20 2a  that are used. *
0060: 09 74 6f 20 69 6e 76 6f 6b 65 20 70 75 6c 6c 2d  .to invoke pull-
0070: 64 6f 77 6e 20 6d 65 6e 75 73 2e 0a 20 2a 0a 20  down menus.. *. 
0080: 2a 20 43 6f 70 79 72 69 67 68 74 20 28 63 29 20  * Copyright (c) 
0090: 31 39 39 30 2d 31 39 39 34 20 54 68 65 20 52 65  1990-1994 The Re
00a0: 67 65 6e 74 73 20 6f 66 20 74 68 65 20 55 6e 69  gents of the Uni
00b0: 76 65 72 73 69 74 79 20 6f 66 20 43 61 6c 69 66  versity of Calif
00c0: 6f 72 6e 69 61 2e 0a 20 2a 20 43 6f 70 79 72 69  ornia.. * Copyri
00d0: 67 68 74 20 28 63 29 20 31 39 39 34 2d 31 39 39  ght (c) 1994-199
00e0: 35 20 53 75 6e 20 4d 69 63 72 6f 73 79 73 74 65  5 Sun Microsyste
00f0: 6d 73 2c 20 49 6e 63 2e 0a 20 2a 20 43 6f 70 79  ms, Inc.. * Copy
0100: 72 69 67 68 74 20 28 63 29 20 31 39 39 34 2d 31  right (c) 1994-1
0110: 39 39 35 20 43 6c 65 76 65 6c 61 6e 64 20 43 6c  995 Cleveland Cl
0120: 69 6e 69 63 20 46 6f 75 6e 64 61 74 69 6f 6e 0a  inic Foundation.
0130: 20 2a 0a 20 2a 20 53 65 65 20 74 68 65 20 66 69   *. * See the fi
0140: 6c 65 20 22 6c 69 63 65 6e 73 65 2e 74 65 72 6d  le "license.term
0150: 73 22 20 66 6f 72 20 69 6e 66 6f 72 6d 61 74 69  s" for informati
0160: 6f 6e 20 6f 6e 20 75 73 61 67 65 20 61 6e 64 20  on on usage and 
0170: 72 65 64 69 73 74 72 69 62 75 74 69 6f 6e 0a 20  redistribution. 
0180: 2a 20 6f 66 20 74 68 69 73 20 66 69 6c 65 2c 20  * of this file, 
0190: 61 6e 64 20 66 6f 72 20 61 20 44 49 53 43 4c 41  and for a DISCLA
01a0: 49 4d 45 52 20 4f 46 20 41 4c 4c 20 57 41 52 52  IMER OF ALL WARR
01b0: 41 4e 54 49 45 53 2e 0a 20 2a 0a 20 2a 20 40 28  ANTIES.. *. * @(
01c0: 23 29 20 24 49 64 3a 20 63 74 6b 2e 73 68 61 72  #) $Id: ctk.shar
01d0: 2c 76 20 31 2e 35 30 20 31 39 39 36 2f 30 31 2f  ,v 1.50 1996/01/
01e0: 31 35 20 31 34 3a 34 37 3a 31 36 20 61 6e 64 72  15 14:47:16 andr
01f0: 65 77 6d 20 45 78 70 20 61 6e 64 72 65 77 6d 20  ewm Exp andrewm 
0200: 24 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20  $. */..#include 
0210: 22 74 6b 50 6f 72 74 2e 68 22 0a 23 69 6e 63 6c  "tkPort.h".#incl
0220: 75 64 65 20 22 64 65 66 61 75 6c 74 2e 68 22 0a  ude "default.h".
0230: 23 69 6e 63 6c 75 64 65 20 22 74 6b 49 6e 74 2e  #include "tkInt.
0240: 68 22 0a 0a 2f 2a 0a 20 2a 20 41 20 64 61 74 61  h"../*. * A data
0250: 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 74 68   structure of th
0260: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 79 70 65  e following type
0270: 20 69 73 20 6b 65 70 74 20 66 6f 72 20 65 61 63   is kept for eac
0280: 68 0a 20 2a 20 77 69 64 67 65 74 20 6d 61 6e 61  h. * widget mana
0290: 67 65 64 20 62 79 20 74 68 69 73 20 66 69 6c 65  ged by this file
02a0: 3a 0a 20 2a 2f 0a 0a 74 79 70 65 64 65 66 20 73  :. */..typedef s
02b0: 74 72 75 63 74 20 7b 0a 20 20 20 20 54 6b 5f 57  truct {.    Tk_W
02c0: 69 6e 64 6f 77 20 74 6b 77 69 6e 3b 09 09 2f 2a  indow tkwin;../*
02d0: 20 57 69 6e 64 6f 77 20 74 68 61 74 20 65 6d 62   Window that emb
02e0: 6f 64 69 65 73 20 74 68 65 20 77 69 64 67 65 74  odies the widget
02f0: 2e 20 20 4e 55 4c 4c 0a 09 09 09 09 20 2a 20 6d  .  NULL..... * m
0300: 65 61 6e 73 20 74 68 61 74 20 74 68 65 20 77 69  eans that the wi
0310: 6e 64 6f 77 20 68 61 73 20 62 65 65 6e 20 64 65  ndow has been de
0320: 73 74 72 6f 79 65 64 0a 09 09 09 09 20 2a 20 62  stroyed..... * b
0330: 75 74 20 74 68 65 20 64 61 74 61 20 73 74 72 75  ut the data stru
0340: 63 74 75 72 65 73 20 68 61 76 65 6e 27 74 20 79  ctures haven't y
0350: 65 74 20 62 65 65 6e 0a 09 09 09 09 20 2a 20 63  et been..... * c
0360: 6c 65 61 6e 65 64 20 75 70 2e 2a 2f 0a 20 20 20  leaned up.*/.   
0370: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74   Tcl_Interp *int
0380: 65 72 70 3b 09 09 2f 2a 20 49 6e 74 65 72 70 72  erp;../* Interpr
0390: 65 74 65 72 20 61 73 73 6f 63 69 61 74 65 64 20  eter associated 
03a0: 77 69 74 68 20 6d 65 6e 75 62 75 74 74 6f 6e 2e  with menubutton.
03b0: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 43 6f 6d 6d   */.    Tcl_Comm
03c0: 61 6e 64 20 77 69 64 67 65 74 43 6d 64 3b 09 2f  and widgetCmd;./
03d0: 2a 20 54 6f 6b 65 6e 20 66 6f 72 20 6d 65 6e 75  * Token for menu
03e0: 62 75 74 74 6f 6e 27 73 20 77 69 64 67 65 74 20  button's widget 
03f0: 63 6f 6d 6d 61 6e 64 2e 20 2a 2f 0a 20 20 20 20  command. */.    
0400: 63 68 61 72 20 2a 6d 65 6e 75 4e 61 6d 65 3b 09  char *menuName;.
0410: 09 2f 2a 20 4e 61 6d 65 20 6f 66 20 6d 65 6e 75  ./* Name of menu
0420: 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68   associated with
0430: 20 77 69 64 67 65 74 2e 0a 09 09 09 09 20 2a 20   widget...... * 
0440: 4d 61 6c 6c 6f 63 2d 65 64 2e 20 2a 2f 0a 0a 20  Malloc-ed. */.. 
0450: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 49 6e 66     /*.     * Inf
0460: 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 77  ormation about w
0470: 68 61 74 27 73 20 64 69 73 70 6c 61 79 65 64 20  hat's displayed 
0480: 69 6e 20 74 68 65 20 6d 65 6e 75 20 62 75 74 74  in the menu butt
0490: 6f 6e 3a 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20  on:.     */..   
04a0: 20 63 68 61 72 20 2a 74 65 78 74 3b 09 09 09 2f   char *text;.../
04b0: 2a 20 54 65 78 74 20 74 6f 20 64 69 73 70 6c 61  * Text to displa
04c0: 79 20 69 6e 20 62 75 74 74 6f 6e 20 28 6d 61 6c  y in button (mal
04d0: 6c 6f 63 27 65 64 29 0a 09 09 09 09 20 2a 20 6f  loc'ed)..... * o
04e0: 72 20 4e 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 69  r NULL. */.    i
04f0: 6e 74 20 6e 75 6d 43 68 61 72 73 3b 09 09 2f 2a  nt numChars;../*
0500: 20 23 20 6f 66 20 63 68 61 72 61 63 74 65 72 73   # of characters
0510: 20 69 6e 20 74 65 78 74 2e 20 2a 2f 0a 20 20 20   in text. */.   
0520: 20 69 6e 74 20 75 6e 64 65 72 6c 69 6e 65 3b 09   int underline;.
0530: 09 2f 2a 20 49 6e 64 65 78 20 6f 66 20 63 68 61  ./* Index of cha
0540: 72 61 63 74 65 72 20 74 6f 20 75 6e 64 65 72 6c  racter to underl
0550: 69 6e 65 2e 20 2a 2f 0a 20 20 20 20 63 68 61 72  ine. */.    char
0560: 20 2a 74 65 78 74 56 61 72 4e 61 6d 65 3b 09 09   *textVarName;..
0570: 2f 2a 20 4e 61 6d 65 20 6f 66 20 76 61 72 69 61  /* Name of varia
0580: 62 6c 65 20 28 6d 61 6c 6c 6f 63 27 65 64 29 20  ble (malloc'ed) 
0590: 6f 72 20 4e 55 4c 4c 2e 0a 09 09 09 09 20 2a 20  or NULL...... * 
05a0: 49 66 20 6e 6f 6e 2d 4e 55 4c 4c 2c 20 62 75 74  If non-NULL, but
05b0: 74 6f 6e 20 64 69 73 70 6c 61 79 73 20 74 68 65  ton displays the
05c0: 20 63 6f 6e 74 65 6e 74 73 0a 09 09 09 09 20 2a   contents..... *
05d0: 20 6f 66 20 74 68 69 73 20 76 61 72 69 61 62 6c   of this variabl
05e0: 65 2e 20 2a 2f 0a 0a 20 20 20 20 2f 2a 0a 20 20  e. */..    /*.  
05f0: 20 20 20 2a 20 49 6e 66 6f 72 6d 61 74 69 6f 6e     * Information
0600: 20 75 73 65 64 20 77 68 65 6e 20 64 69 73 70 6c   used when displ
0610: 61 79 69 6e 67 20 77 69 64 67 65 74 3a 0a 20 20  aying widget:.  
0620: 20 20 20 2a 2f 0a 0a 20 20 20 20 54 6b 5f 55 69     */..    Tk_Ui
0630: 64 20 73 74 61 74 65 3b 09 09 2f 2a 20 53 74 61  d state;../* Sta
0640: 74 65 20 6f 66 20 62 75 74 74 6f 6e 20 66 6f 72  te of button for
0650: 20 64 69 73 70 6c 61 79 20 70 75 72 70 6f 73 65   display purpose
0660: 73 3a 0a 09 09 09 09 20 2a 20 6e 6f 72 6d 61 6c  s:..... * normal
0670: 2c 20 61 63 74 69 76 65 2c 20 6f 72 20 64 69 73  , active, or dis
0680: 61 62 6c 65 64 2e 20 2a 2f 0a 20 20 20 20 69 6e  abled. */.    in
0690: 74 20 62 6f 72 64 65 72 57 69 64 74 68 3b 09 09  t borderWidth;..
06a0: 2f 2a 20 57 69 64 74 68 20 6f 66 20 62 6f 72 64  /* Width of bord
06b0: 65 72 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 77  er. */.    int w
06c0: 69 64 74 68 2c 20 68 65 69 67 68 74 3b 09 09 2f  idth, height;../
06d0: 2a 20 49 66 20 3e 20 30 2c 20 74 68 65 73 65 20  * If > 0, these 
06e0: 73 70 65 63 69 66 79 20 64 69 6d 65 6e 73 69 6f  specify dimensio
06f0: 6e 73 20 74 6f 20 72 65 71 75 65 73 74 0a 09 09  ns to request...
0700: 09 09 20 2a 20 66 6f 72 20 77 69 6e 64 6f 77 2c  .. * for window,
0710: 20 69 6e 20 63 68 61 72 61 63 74 65 72 73 20 66   in characters f
0720: 6f 72 20 74 65 78 74 20 61 6e 64 20 69 6e 0a 09  or text and in..
0730: 09 09 09 20 2a 20 70 69 78 65 6c 73 20 66 6f 72  ... * pixels for
0740: 20 62 69 74 6d 61 70 73 2e 20 20 49 6e 20 74 68   bitmaps.  In th
0750: 69 73 20 63 61 73 65 20 74 68 65 20 61 63 74 75  is case the actu
0760: 61 6c 0a 09 09 09 09 20 2a 20 73 69 7a 65 20 6f  al..... * size o
0770: 66 20 74 68 65 20 74 65 78 74 20 73 74 72 69 6e  f the text strin
0780: 67 20 6f 72 20 62 69 74 6d 61 70 20 69 73 0a 09  g or bitmap is..
0790: 09 09 09 20 2a 20 69 67 6e 6f 72 65 64 20 69 6e  ... * ignored in
07a0: 20 63 6f 6d 70 75 74 69 6e 67 20 64 65 73 69 72   computing desir
07b0: 65 64 20 77 69 6e 64 6f 77 20 73 69 7a 65 2e 20  ed window size. 
07c0: 2a 2f 0a 20 20 20 20 69 6e 74 20 77 72 61 70 4c  */.    int wrapL
07d0: 65 6e 67 74 68 3b 09 09 2f 2a 20 4c 69 6e 65 20  ength;../* Line 
07e0: 6c 65 6e 67 74 68 20 28 69 6e 20 70 69 78 65 6c  length (in pixel
07f0: 73 29 20 61 74 20 77 68 69 63 68 20 74 6f 20 77  s) at which to w
0800: 72 61 70 0a 09 09 09 09 20 2a 20 6f 6e 74 6f 20  rap..... * onto 
0810: 6e 65 78 74 20 6c 69 6e 65 2e 20 20 3c 3d 20 30  next line.  <= 0
0820: 20 6d 65 61 6e 73 20 64 6f 6e 27 74 20 77 72 61   means don't wra
0830: 70 0a 09 09 09 09 20 2a 20 65 78 63 65 70 74 20  p..... * except 
0840: 61 74 20 6e 65 77 6c 69 6e 65 73 2e 20 2a 2f 0a  at newlines. */.
0850: 20 20 20 20 69 6e 74 20 70 61 64 58 2c 20 70 61      int padX, pa
0860: 64 59 3b 09 09 2f 2a 20 45 78 74 72 61 20 73 70  dY;../* Extra sp
0870: 61 63 65 20 61 72 6f 75 6e 64 20 74 65 78 74 20  ace around text 
0880: 6f 72 20 62 69 74 6d 61 70 20 28 70 69 78 65 6c  or bitmap (pixel
0890: 73 0a 09 09 09 09 20 2a 20 6f 6e 20 65 61 63 68  s..... * on each
08a0: 20 73 69 64 65 29 2e 20 2a 2f 0a 20 20 20 20 54   side). */.    T
08b0: 6b 5f 41 6e 63 68 6f 72 20 61 6e 63 68 6f 72 3b  k_Anchor anchor;
08c0: 09 09 2f 2a 20 57 68 65 72 65 20 74 65 78 74 2f  ../* Where text/
08d0: 62 69 74 6d 61 70 20 73 68 6f 75 6c 64 20 62 65  bitmap should be
08e0: 20 64 69 73 70 6c 61 79 65 64 0a 09 09 09 09 20   displayed..... 
08f0: 2a 20 69 6e 73 69 64 65 20 77 69 6e 64 6f 77 20  * inside window 
0900: 72 65 67 69 6f 6e 2e 20 2a 2f 0a 20 20 20 20 54  region. */.    T
0910: 6b 5f 4a 75 73 74 69 66 79 20 6a 75 73 74 69 66  k_Justify justif
0920: 79 3b 09 09 2f 2a 20 4a 75 73 74 69 66 69 63 61  y;../* Justifica
0930: 74 69 6f 6e 20 74 6f 20 75 73 65 20 66 6f 72 20  tion to use for 
0940: 6d 75 6c 74 69 2d 6c 69 6e 65 20 74 65 78 74 2e  multi-line text.
0950: 20 2a 2f 0a 20 20 20 20 69 6e 74 20 74 65 78 74   */.    int text
0960: 57 69 64 74 68 3b 09 09 2f 2a 20 57 69 64 74 68  Width;../* Width
0970: 20 6e 65 65 64 65 64 20 74 6f 20 64 69 73 70 6c   needed to displ
0980: 61 79 20 74 65 78 74 20 61 73 20 72 65 71 75 65  ay text as reque
0990: 73 74 65 64 2c 0a 09 09 09 09 20 2a 20 69 6e 20  sted,..... * in 
09a0: 70 69 78 65 6c 73 2e 20 2a 2f 0a 20 20 20 20 69  pixels. */.    i
09b0: 6e 74 20 74 65 78 74 48 65 69 67 68 74 3b 09 09  nt textHeight;..
09c0: 2f 2a 20 48 65 69 67 68 74 20 6e 65 65 64 65 64  /* Height needed
09d0: 20 74 6f 20 64 69 73 70 6c 61 79 20 74 65 78 74   to display text
09e0: 20 61 73 20 72 65 71 75 65 73 74 65 64 2c 0a 09   as requested,..
09f0: 09 09 09 20 2a 20 69 6e 20 70 69 78 65 6c 73 2e  ... * in pixels.
0a00: 20 2a 2f 0a 20 20 20 20 69 6e 74 20 69 6e 64 69   */.    int indi
0a10: 63 61 74 6f 72 4f 6e 3b 09 09 2f 2a 20 4e 6f 6e  catorOn;../* Non
0a20: 2d 7a 65 72 6f 20 6d 65 61 6e 73 20 64 69 73 70  -zero means disp
0a30: 6c 61 79 20 69 6e 64 69 63 61 74 6f 72 3b 20 20  lay indicator;  
0a40: 30 20 6d 65 61 6e 73 0a 09 09 09 09 20 2a 20 64  0 means..... * d
0a50: 6f 6e 27 74 20 64 69 73 70 6c 61 79 2e 20 2a 2f  on't display. */
0a60: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20  ..    /*.     * 
0a70: 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 20 69 6e  Miscellaneous in
0a80: 66 6f 72 6d 61 74 69 6f 6e 3a 0a 20 20 20 20 20  formation:.     
0a90: 2a 2f 0a 0a 20 20 20 20 63 68 61 72 20 2a 74 61  */..    char *ta
0aa0: 6b 65 46 6f 63 75 73 3b 09 09 2f 2a 20 56 61 6c  keFocus;../* Val
0ab0: 75 65 20 6f 66 20 2d 74 61 6b 65 66 6f 63 75 73  ue of -takefocus
0ac0: 20 6f 70 74 69 6f 6e 3b 20 20 6e 6f 74 20 75 73   option;  not us
0ad0: 65 64 20 69 6e 0a 09 09 09 09 20 2a 20 74 68 65  ed in..... * the
0ae0: 20 43 20 63 6f 64 65 2c 20 62 75 74 20 75 73 65   C code, but use
0af0: 64 20 62 79 20 6b 65 79 62 6f 61 72 64 20 74 72  d by keyboard tr
0b00: 61 76 65 72 73 61 6c 0a 09 09 09 09 20 2a 20 73  aversal..... * s
0b10: 63 72 69 70 74 73 2e 20 20 4d 61 6c 6c 6f 63 27  cripts.  Malloc'
0b20: 65 64 2c 20 62 75 74 20 6d 61 79 20 62 65 20 4e  ed, but may be N
0b30: 55 4c 4c 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20  ULL. */.    int 
0b40: 66 6c 61 67 73 3b 09 09 09 2f 2a 20 56 61 72 69  flags;.../* Vari
0b50: 6f 75 73 20 66 6c 61 67 73 3b 20 20 73 65 65 20  ous flags;  see 
0b60: 62 65 6c 6f 77 20 66 6f 72 0a 09 09 09 09 20 2a  below for..... *
0b70: 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 20 2a 2f   definitions. */
0b80: 0a 7d 20 4d 65 6e 75 42 75 74 74 6f 6e 3b 0a 0a  .} MenuButton;..
0b90: 2f 2a 0a 20 2a 20 46 6c 61 67 20 62 69 74 73 20  /*. * Flag bits 
0ba0: 66 6f 72 20 62 75 74 74 6f 6e 73 3a 0a 20 2a 0a  for buttons:. *.
0bb0: 20 2a 20 52 45 44 52 41 57 5f 50 45 4e 44 49 4e   * REDRAW_PENDIN
0bc0: 47 3a 09 09 4e 6f 6e 2d 7a 65 72 6f 20 6d 65 61  G:..Non-zero mea
0bd0: 6e 73 20 61 20 44 6f 57 68 65 6e 49 64 6c 65 20  ns a DoWhenIdle 
0be0: 68 61 6e 64 6c 65 72 0a 20 2a 09 09 09 09 68 61  handler. *....ha
0bf0: 73 20 61 6c 72 65 61 64 79 20 62 65 65 6e 20 71  s already been q
0c00: 75 65 75 65 64 20 74 6f 20 72 65 64 72 61 77 0a  ueued to redraw.
0c10: 20 2a 09 09 09 09 74 68 69 73 20 77 69 6e 64 6f   *....this windo
0c20: 77 2e 0a 20 2a 20 50 4f 53 54 45 44 3a 09 09 09  w.. * POSTED:...
0c30: 4e 6f 6e 2d 7a 65 72 6f 20 6d 65 61 6e 73 20 74  Non-zero means t
0c40: 68 61 74 20 74 68 65 20 6d 65 6e 75 20 61 73 73  hat the menu ass
0c50: 6f 63 69 61 74 65 64 0a 20 2a 09 09 09 09 77 69  ociated. *....wi
0c60: 74 68 20 74 68 69 73 20 62 75 74 74 6f 6e 20 68  th this button h
0c70: 61 73 20 62 65 65 6e 20 70 6f 73 74 65 64 20 28  as been posted (
0c80: 74 79 70 69 63 61 6c 6c 79 0a 20 2a 09 09 09 09  typically. *....
0c90: 62 65 63 61 75 73 65 20 6f 66 20 61 6e 20 61 63  because of an ac
0ca0: 74 69 76 65 20 62 75 74 74 6f 6e 20 70 72 65 73  tive button pres
0cb0: 73 29 2e 0a 20 2a 20 47 4f 54 5f 46 4f 43 55 53  s).. * GOT_FOCUS
0cc0: 3a 09 09 09 4e 6f 6e 2d 7a 65 72 6f 20 6d 65 61  :...Non-zero mea
0cd0: 6e 73 20 74 68 69 73 20 62 75 74 74 6f 6e 20 63  ns this button c
0ce0: 75 72 72 65 6e 74 6c 79 0a 20 2a 09 09 09 09 68  urrently. *....h
0cf0: 61 73 20 74 68 65 20 69 6e 70 75 74 20 66 6f 63  as the input foc
0d00: 75 73 2e 0a 20 2a 2f 0a 0a 23 64 65 66 69 6e 65  us.. */..#define
0d10: 20 52 45 44 52 41 57 5f 50 45 4e 44 49 4e 47 09   REDRAW_PENDING.
0d20: 09 31 0a 23 64 65 66 69 6e 65 20 50 4f 53 54 45  .1.#define POSTE
0d30: 44 09 09 09 32 0a 23 64 65 66 69 6e 65 20 47 4f  D...2.#define GO
0d40: 54 5f 46 4f 43 55 53 09 09 34 0a 0a 2f 2a 0a 20  T_FOCUS..4../*. 
0d50: 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20  * The following 
0d60: 63 6f 6e 73 74 61 6e 74 73 20 64 65 66 69 6e 65  constants define
0d70: 20 74 68 65 20 64 69 6d 65 6e 73 69 6f 6e 73 20   the dimensions 
0d80: 6f 66 20 74 68 65 20 63 61 73 63 61 64 65 20 69  of the cascade i
0d90: 6e 64 69 63 61 74 6f 72 2c 0a 20 2a 20 77 68 69  ndicator,. * whi
0da0: 63 68 20 69 73 20 64 69 73 70 6c 61 79 65 64 20  ch is displayed 
0db0: 69 66 20 74 68 65 20 22 2d 69 6e 64 69 63 61 74  if the "-indicat
0dc0: 6f 72 6f 6e 22 20 6f 70 74 69 6f 6e 20 69 73 20  oron" option is 
0dd0: 74 72 75 65 2e 20 20 54 68 65 20 75 6e 69 74 73  true.  The units
0de0: 20 66 6f 72 0a 20 2a 20 74 68 65 73 65 20 6f 70   for. * these op
0df0: 74 69 6f 6e 73 20 61 72 65 20 70 69 78 65 6c 73  tions are pixels
0e00: 20 28 63 68 61 72 61 63 74 65 72 73 29 2e 0a 20   (characters).. 
0e10: 2a 2f 0a 0a 23 64 65 66 69 6e 65 20 49 4e 44 49  */..#define INDI
0e20: 43 41 54 4f 52 5f 57 49 44 54 48 09 09 31 0a 0a  CATOR_WIDTH..1..
0e30: 2f 2a 0a 20 2a 20 49 6e 66 6f 72 6d 61 74 69 6f  /*. * Informatio
0e40: 6e 20 75 73 65 64 20 66 6f 72 20 70 61 72 73 69  n used for parsi
0e50: 6e 67 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e  ng configuration
0e60: 20 73 70 65 63 73 3a 0a 20 2a 2f 0a 0a 73 74 61   specs:. */..sta
0e70: 74 69 63 20 54 6b 5f 43 6f 6e 66 69 67 53 70 65  tic Tk_ConfigSpe
0e80: 63 20 63 6f 6e 66 69 67 53 70 65 63 73 5b 5d 20  c configSpecs[] 
0e90: 3d 20 7b 0a 20 20 20 20 7b 54 4b 5f 43 4f 4e 46  = {.    {TK_CONF
0ea0: 49 47 5f 41 4e 43 48 4f 52 2c 20 22 2d 61 6e 63  IG_ANCHOR, "-anc
0eb0: 68 6f 72 22 2c 20 22 61 6e 63 68 6f 72 22 2c 20  hor", "anchor", 
0ec0: 22 41 6e 63 68 6f 72 22 2c 0a 09 44 45 46 5f 4d  "Anchor",..DEF_M
0ed0: 45 4e 55 42 55 54 54 4f 4e 5f 41 4e 43 48 4f 52  ENUBUTTON_ANCHOR
0ee0: 2c 20 54 6b 5f 4f 66 66 73 65 74 28 4d 65 6e 75  , Tk_Offset(Menu
0ef0: 42 75 74 74 6f 6e 2c 20 61 6e 63 68 6f 72 29 2c  Button, anchor),
0f00: 20 30 7d 2c 0a 20 20 20 20 7b 54 4b 5f 43 4f 4e   0},.    {TK_CON
0f10: 46 49 47 5f 53 59 4e 4f 4e 59 4d 2c 20 22 2d 62  FIG_SYNONYM, "-b
0f20: 64 22 2c 20 22 62 6f 72 64 65 72 57 69 64 74 68  d", "borderWidth
0f30: 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c  ", (char *) NULL
0f40: 2c 0a 09 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c  ,..(char *) NULL
0f50: 2c 20 30 2c 20 30 7d 2c 0a 20 20 20 20 7b 54 4b  , 0, 0},.    {TK
0f60: 5f 43 4f 4e 46 49 47 5f 50 49 58 45 4c 53 2c 20  _CONFIG_PIXELS, 
0f70: 22 2d 62 6f 72 64 65 72 77 69 64 74 68 22 2c 20  "-borderwidth", 
0f80: 22 62 6f 72 64 65 72 57 69 64 74 68 22 2c 20 22  "borderWidth", "
0f90: 42 6f 72 64 65 72 57 69 64 74 68 22 2c 0a 09 44  BorderWidth",..D
0fa0: 45 46 5f 4d 45 4e 55 42 55 54 54 4f 4e 5f 42 4f  EF_MENUBUTTON_BO
0fb0: 52 44 45 52 5f 57 49 44 54 48 2c 20 54 6b 5f 4f  RDER_WIDTH, Tk_O
0fc0: 66 66 73 65 74 28 4d 65 6e 75 42 75 74 74 6f 6e  ffset(MenuButton
0fd0: 2c 20 62 6f 72 64 65 72 57 69 64 74 68 29 2c 20  , borderWidth), 
0fe0: 30 7d 2c 0a 20 20 20 20 7b 54 4b 5f 43 4f 4e 46  0},.    {TK_CONF
0ff0: 49 47 5f 49 4e 54 2c 20 22 2d 68 65 69 67 68 74  IG_INT, "-height
1000: 22 2c 20 22 68 65 69 67 68 74 22 2c 20 22 48 65  ", "height", "He
1010: 69 67 68 74 22 2c 0a 09 44 45 46 5f 4d 45 4e 55  ight",..DEF_MENU
1020: 42 55 54 54 4f 4e 5f 48 45 49 47 48 54 2c 20 54  BUTTON_HEIGHT, T
1030: 6b 5f 4f 66 66 73 65 74 28 4d 65 6e 75 42 75 74  k_Offset(MenuBut
1040: 74 6f 6e 2c 20 68 65 69 67 68 74 29 2c 20 30 7d  ton, height), 0}
1050: 2c 0a 20 20 20 20 7b 54 4b 5f 43 4f 4e 46 49 47  ,.    {TK_CONFIG
1060: 5f 42 4f 4f 4c 45 41 4e 2c 20 22 2d 69 6e 64 69  _BOOLEAN, "-indi
1070: 63 61 74 6f 72 6f 6e 22 2c 20 22 69 6e 64 69 63  catoron", "indic
1080: 61 74 6f 72 4f 6e 22 2c 20 22 49 6e 64 69 63 61  atorOn", "Indica
1090: 74 6f 72 4f 6e 22 2c 0a 09 44 45 46 5f 4d 45 4e  torOn",..DEF_MEN
10a0: 55 42 55 54 54 4f 4e 5f 49 4e 44 49 43 41 54 4f  UBUTTON_INDICATO
10b0: 52 2c 20 54 6b 5f 4f 66 66 73 65 74 28 4d 65 6e  R, Tk_Offset(Men
10c0: 75 42 75 74 74 6f 6e 2c 20 69 6e 64 69 63 61 74  uButton, indicat
10d0: 6f 72 4f 6e 29 2c 20 30 7d 2c 0a 20 20 20 20 7b  orOn), 0},.    {
10e0: 54 4b 5f 43 4f 4e 46 49 47 5f 4a 55 53 54 49 46  TK_CONFIG_JUSTIF
10f0: 59 2c 20 22 2d 6a 75 73 74 69 66 79 22 2c 20 22  Y, "-justify", "
1100: 6a 75 73 74 69 66 79 22 2c 20 22 4a 75 73 74 69  justify", "Justi
1110: 66 79 22 2c 0a 09 44 45 46 5f 4d 45 4e 55 42 55  fy",..DEF_MENUBU
1120: 54 54 4f 4e 5f 4a 55 53 54 49 46 59 2c 20 54 6b  TTON_JUSTIFY, Tk
1130: 5f 4f 66 66 73 65 74 28 4d 65 6e 75 42 75 74 74  _Offset(MenuButt
1140: 6f 6e 2c 20 6a 75 73 74 69 66 79 29 2c 20 30 7d  on, justify), 0}
1150: 2c 0a 20 20 20 20 7b 54 4b 5f 43 4f 4e 46 49 47  ,.    {TK_CONFIG
1160: 5f 53 54 52 49 4e 47 2c 20 22 2d 6d 65 6e 75 22  _STRING, "-menu"
1170: 2c 20 22 6d 65 6e 75 22 2c 20 22 4d 65 6e 75 22  , "menu", "Menu"
1180: 2c 0a 09 44 45 46 5f 4d 45 4e 55 42 55 54 54 4f  ,..DEF_MENUBUTTO
1190: 4e 5f 4d 45 4e 55 2c 20 54 6b 5f 4f 66 66 73 65  N_MENU, Tk_Offse
11a0: 74 28 4d 65 6e 75 42 75 74 74 6f 6e 2c 20 6d 65  t(MenuButton, me
11b0: 6e 75 4e 61 6d 65 29 2c 0a 09 54 4b 5f 43 4f 4e  nuName),..TK_CON
11c0: 46 49 47 5f 4e 55 4c 4c 5f 4f 4b 7d 2c 0a 20 20  FIG_NULL_OK},.  
11d0: 20 20 7b 54 4b 5f 43 4f 4e 46 49 47 5f 50 49 58    {TK_CONFIG_PIX
11e0: 45 4c 53 2c 20 22 2d 70 61 64 78 22 2c 20 22 70  ELS, "-padx", "p
11f0: 61 64 58 22 2c 20 22 50 61 64 22 2c 0a 09 44 45  adX", "Pad",..DE
1200: 46 5f 4d 45 4e 55 42 55 54 54 4f 4e 5f 50 41 44  F_MENUBUTTON_PAD
1210: 58 2c 20 54 6b 5f 4f 66 66 73 65 74 28 4d 65 6e  X, Tk_Offset(Men
1220: 75 42 75 74 74 6f 6e 2c 20 70 61 64 58 29 2c 20  uButton, padX), 
1230: 30 7d 2c 0a 20 20 20 20 7b 54 4b 5f 43 4f 4e 46  0},.    {TK_CONF
1240: 49 47 5f 50 49 58 45 4c 53 2c 20 22 2d 70 61 64  IG_PIXELS, "-pad
1250: 79 22 2c 20 22 70 61 64 59 22 2c 20 22 50 61 64  y", "padY", "Pad
1260: 22 2c 0a 09 44 45 46 5f 4d 45 4e 55 42 55 54 54  ",..DEF_MENUBUTT
1270: 4f 4e 5f 50 41 44 59 2c 20 54 6b 5f 4f 66 66 73  ON_PADY, Tk_Offs
1280: 65 74 28 4d 65 6e 75 42 75 74 74 6f 6e 2c 20 70  et(MenuButton, p
1290: 61 64 59 29 2c 20 30 7d 2c 0a 20 20 20 20 7b 54  adY), 0},.    {T
12a0: 4b 5f 43 4f 4e 46 49 47 5f 55 49 44 2c 20 22 2d  K_CONFIG_UID, "-
12b0: 73 74 61 74 65 22 2c 20 22 73 74 61 74 65 22 2c  state", "state",
12c0: 20 22 53 74 61 74 65 22 2c 0a 09 44 45 46 5f 4d   "State",..DEF_M
12d0: 45 4e 55 42 55 54 54 4f 4e 5f 53 54 41 54 45 2c  ENUBUTTON_STATE,
12e0: 20 54 6b 5f 4f 66 66 73 65 74 28 4d 65 6e 75 42   Tk_Offset(MenuB
12f0: 75 74 74 6f 6e 2c 20 73 74 61 74 65 29 2c 20 30  utton, state), 0
1300: 7d 2c 0a 20 20 20 20 7b 54 4b 5f 43 4f 4e 46 49  },.    {TK_CONFI
1310: 47 5f 53 54 52 49 4e 47 2c 20 22 2d 74 61 6b 65  G_STRING, "-take
1320: 66 6f 63 75 73 22 2c 20 22 74 61 6b 65 46 6f 63  focus", "takeFoc
1330: 75 73 22 2c 20 22 54 61 6b 65 46 6f 63 75 73 22  us", "TakeFocus"
1340: 2c 0a 09 44 45 46 5f 4d 45 4e 55 42 55 54 54 4f  ,..DEF_MENUBUTTO
1350: 4e 5f 54 41 4b 45 5f 46 4f 43 55 53 2c 20 54 6b  N_TAKE_FOCUS, Tk
1360: 5f 4f 66 66 73 65 74 28 4d 65 6e 75 42 75 74 74  _Offset(MenuButt
1370: 6f 6e 2c 20 74 61 6b 65 46 6f 63 75 73 29 2c 0a  on, takeFocus),.
1380: 09 54 4b 5f 43 4f 4e 46 49 47 5f 4e 55 4c 4c 5f  .TK_CONFIG_NULL_
1390: 4f 4b 7d 2c 0a 20 20 20 20 7b 54 4b 5f 43 4f 4e  OK},.    {TK_CON
13a0: 46 49 47 5f 53 54 52 49 4e 47 2c 20 22 2d 74 65  FIG_STRING, "-te
13b0: 78 74 22 2c 20 22 74 65 78 74 22 2c 20 22 54 65  xt", "text", "Te
13c0: 78 74 22 2c 0a 09 44 45 46 5f 4d 45 4e 55 42 55  xt",..DEF_MENUBU
13d0: 54 54 4f 4e 5f 54 45 58 54 2c 20 54 6b 5f 4f 66  TTON_TEXT, Tk_Of
13e0: 66 73 65 74 28 4d 65 6e 75 42 75 74 74 6f 6e 2c  fset(MenuButton,
13f0: 20 74 65 78 74 29 2c 20 30 7d 2c 0a 20 20 20 20   text), 0},.    
1400: 7b 54 4b 5f 43 4f 4e 46 49 47 5f 53 54 52 49 4e  {TK_CONFIG_STRIN
1410: 47 2c 20 22 2d 74 65 78 74 76 61 72 69 61 62 6c  G, "-textvariabl
1420: 65 22 2c 20 22 74 65 78 74 56 61 72 69 61 62 6c  e", "textVariabl
1430: 65 22 2c 20 22 56 61 72 69 61 62 6c 65 22 2c 0a  e", "Variable",.
1440: 09 44 45 46 5f 4d 45 4e 55 42 55 54 54 4f 4e 5f  .DEF_MENUBUTTON_
1450: 54 45 58 54 5f 56 41 52 49 41 42 4c 45 2c 20 54  TEXT_VARIABLE, T
1460: 6b 5f 4f 66 66 73 65 74 28 4d 65 6e 75 42 75 74  k_Offset(MenuBut
1470: 74 6f 6e 2c 20 74 65 78 74 56 61 72 4e 61 6d 65  ton, textVarName
1480: 29 2c 0a 09 54 4b 5f 43 4f 4e 46 49 47 5f 4e 55  ),..TK_CONFIG_NU
1490: 4c 4c 5f 4f 4b 7d 2c 0a 20 20 20 20 7b 54 4b 5f  LL_OK},.    {TK_
14a0: 43 4f 4e 46 49 47 5f 49 4e 54 2c 20 22 2d 75 6e  CONFIG_INT, "-un
14b0: 64 65 72 6c 69 6e 65 22 2c 20 22 75 6e 64 65 72  derline", "under
14c0: 6c 69 6e 65 22 2c 20 22 55 6e 64 65 72 6c 69 6e  line", "Underlin
14d0: 65 22 2c 0a 09 44 45 46 5f 4d 45 4e 55 42 55 54  e",..DEF_MENUBUT
14e0: 54 4f 4e 5f 55 4e 44 45 52 4c 49 4e 45 2c 20 54  TON_UNDERLINE, T
14f0: 6b 5f 4f 66 66 73 65 74 28 4d 65 6e 75 42 75 74  k_Offset(MenuBut
1500: 74 6f 6e 2c 20 75 6e 64 65 72 6c 69 6e 65 29 2c  ton, underline),
1510: 20 30 7d 2c 0a 20 20 20 20 7b 54 4b 5f 43 4f 4e   0},.    {TK_CON
1520: 46 49 47 5f 49 4e 54 2c 20 22 2d 77 69 64 74 68  FIG_INT, "-width
1530: 22 2c 20 22 77 69 64 74 68 22 2c 20 22 57 69 64  ", "width", "Wid
1540: 74 68 22 2c 0a 09 44 45 46 5f 4d 45 4e 55 42 55  th",..DEF_MENUBU
1550: 54 54 4f 4e 5f 57 49 44 54 48 2c 20 54 6b 5f 4f  TTON_WIDTH, Tk_O
1560: 66 66 73 65 74 28 4d 65 6e 75 42 75 74 74 6f 6e  ffset(MenuButton
1570: 2c 20 77 69 64 74 68 29 2c 20 30 7d 2c 0a 20 20  , width), 0},.  
1580: 20 20 7b 54 4b 5f 43 4f 4e 46 49 47 5f 50 49 58    {TK_CONFIG_PIX
1590: 45 4c 53 2c 20 22 2d 77 72 61 70 6c 65 6e 67 74  ELS, "-wraplengt
15a0: 68 22 2c 20 22 77 72 61 70 4c 65 6e 67 74 68 22  h", "wrapLength"
15b0: 2c 20 22 57 72 61 70 4c 65 6e 67 74 68 22 2c 0a  , "WrapLength",.
15c0: 09 44 45 46 5f 4d 45 4e 55 42 55 54 54 4f 4e 5f  .DEF_MENUBUTTON_
15d0: 57 52 41 50 5f 4c 45 4e 47 54 48 2c 20 54 6b 5f  WRAP_LENGTH, Tk_
15e0: 4f 66 66 73 65 74 28 4d 65 6e 75 42 75 74 74 6f  Offset(MenuButto
15f0: 6e 2c 20 77 72 61 70 4c 65 6e 67 74 68 29 2c 20  n, wrapLength), 
1600: 30 7d 2c 0a 20 20 20 20 7b 54 4b 5f 43 4f 4e 46  0},.    {TK_CONF
1610: 49 47 5f 45 4e 44 2c 20 28 63 68 61 72 20 2a 29  IG_END, (char *)
1620: 20 4e 55 4c 4c 2c 20 28 63 68 61 72 20 2a 29 20   NULL, (char *) 
1630: 4e 55 4c 4c 2c 20 28 63 68 61 72 20 2a 29 20 4e  NULL, (char *) N
1640: 55 4c 4c 2c 0a 09 28 63 68 61 72 20 2a 29 20 4e  ULL,..(char *) N
1650: 55 4c 4c 2c 20 30 2c 20 30 7d 0a 7d 3b 0a 0a 2f  ULL, 0, 0}.};../
1660: 2a 0a 20 2a 20 46 6f 72 77 61 72 64 20 64 65 63  *. * Forward dec
1670: 6c 61 72 61 74 69 6f 6e 73 20 66 6f 72 20 70 72  larations for pr
1680: 6f 63 65 64 75 72 65 73 20 64 65 66 69 6e 65 64  ocedures defined
1690: 20 6c 61 74 65 72 20 69 6e 20 74 68 69 73 20 66   later in this f
16a0: 69 6c 65 3a 0a 20 2a 2f 0a 0a 73 74 61 74 69 63  ile:. */..static
16b0: 20 76 6f 69 64 09 09 43 6f 6d 70 75 74 65 4d 65   void..ComputeMe
16c0: 6e 75 42 75 74 74 6f 6e 47 65 6f 6d 65 74 72 79  nuButtonGeometry
16d0: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 0a 09   _ANSI_ARGS_((..
16e0: 09 09 20 20 20 20 4d 65 6e 75 42 75 74 74 6f 6e  ..    MenuButton
16f0: 20 2a 6d 62 50 74 72 29 29 3b 0a 73 74 61 74 69   *mbPtr));.stati
1700: 63 20 76 6f 69 64 09 09 4d 65 6e 75 42 75 74 74  c void..MenuButt
1710: 6f 6e 43 6d 64 44 65 6c 65 74 65 64 50 72 6f 63  onCmdDeletedProc
1720: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 0a 09   _ANSI_ARGS_((..
1730: 09 09 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61  ..    ClientData
1740: 20 63 6c 69 65 6e 74 44 61 74 61 29 29 3b 0a 73   clientData));.s
1750: 74 61 74 69 63 20 76 6f 69 64 09 09 4d 65 6e 75  tatic void..Menu
1760: 42 75 74 74 6f 6e 45 76 65 6e 74 50 72 6f 63 20  ButtonEventProc 
1770: 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c 69  _ANSI_ARGS_((Cli
1780: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61  entData clientDa
1790: 74 61 2c 0a 09 09 09 20 20 20 20 58 45 76 65 6e  ta,....    XEven
17a0: 74 20 2a 65 76 65 6e 74 50 74 72 29 29 3b 0a 73  t *eventPtr));.s
17b0: 74 61 74 69 63 20 63 68 61 72 20 2a 09 09 4d 65  tatic char *..Me
17c0: 6e 75 42 75 74 74 6f 6e 54 65 78 74 56 61 72 50  nuButtonTextVarP
17d0: 72 6f 63 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28  roc _ANSI_ARGS_(
17e0: 28 0a 09 09 09 20 20 20 20 43 6c 69 65 6e 74 44  (....    ClientD
17f0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20  ata clientData, 
1800: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
1810: 72 70 2c 0a 09 09 09 20 20 20 20 63 68 61 72 20  rp,....    char 
1820: 2a 6e 61 6d 65 31 2c 20 63 68 61 72 20 2a 6e 61  *name1, char *na
1830: 6d 65 32 2c 20 69 6e 74 20 66 6c 61 67 73 29 29  me2, int flags))
1840: 3b 0a 73 74 61 74 69 63 20 69 6e 74 09 09 4d 65  ;.static int..Me
1850: 6e 75 42 75 74 74 6f 6e 57 69 64 67 65 74 43 6d  nuButtonWidgetCm
1860: 64 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 43  d _ANSI_ARGS_((C
1870: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74  lientData client
1880: 44 61 74 61 2c 0a 09 09 09 20 20 20 20 54 63 6c  Data,....    Tcl
1890: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
18a0: 20 69 6e 74 20 61 72 67 63 2c 20 63 68 61 72 20   int argc, char 
18b0: 2a 2a 61 72 67 76 29 29 3b 0a 73 74 61 74 69 63  **argv));.static
18c0: 20 69 6e 74 09 09 43 6f 6e 66 69 67 75 72 65 4d   int..ConfigureM
18d0: 65 6e 75 42 75 74 74 6f 6e 20 5f 41 4e 53 49 5f  enuButton _ANSI_
18e0: 41 52 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72  ARGS_((Tcl_Inter
18f0: 70 20 2a 69 6e 74 65 72 70 2c 0a 09 09 09 20 20  p *interp,....  
1900: 20 20 4d 65 6e 75 42 75 74 74 6f 6e 20 2a 6d 62    MenuButton *mb
1910: 50 74 72 2c 20 69 6e 74 20 61 72 67 63 2c 20 63  Ptr, int argc, c
1920: 68 61 72 20 2a 2a 61 72 67 76 2c 0a 09 09 09 20  har **argv,.... 
1930: 20 20 20 69 6e 74 20 66 6c 61 67 73 29 29 3b 0a     int flags));.
1940: 73 74 61 74 69 63 20 76 6f 69 64 09 09 44 65 73  static void..Des
1950: 74 72 6f 79 4d 65 6e 75 42 75 74 74 6f 6e 20 5f  troyMenuButton _
1960: 41 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 65  ANSI_ARGS_((Clie
1970: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74  ntData clientDat
1980: 61 29 29 3b 0a 73 74 61 74 69 63 20 76 6f 69 64  a));.static void
1990: 09 09 44 69 73 70 6c 61 79 4d 65 6e 75 42 75 74  ..DisplayMenuBut
19a0: 74 6f 6e 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28  ton _ANSI_ARGS_(
19b0: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65  (ClientData clie
19c0: 6e 74 44 61 74 61 29 29 3b 0a 0c 0a 2f 2a 0a 20  ntData));.../*. 
19d0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
19e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
19f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
1a10: 20 2a 0a 20 2a 20 54 6b 5f 4d 65 6e 75 62 75 74   *. * Tk_Menubut
1a20: 74 6f 6e 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09  tonCmd --. *. *.
1a30: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69  This procedure i
1a40: 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 70 72 6f  s invoked to pro
1a50: 63 65 73 73 20 74 68 65 20 22 62 75 74 74 6f 6e  cess the "button
1a60: 22 2c 20 22 6c 61 62 65 6c 22 2c 0a 20 2a 09 22  ", "label",. *."
1a70: 72 61 64 69 6f 62 75 74 74 6f 6e 22 2c 20 61 6e  radiobutton", an
1a80: 64 20 22 63 68 65 63 6b 62 75 74 74 6f 6e 22 20  d "checkbutton" 
1a90: 54 63 6c 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 53  Tcl commands.  S
1aa0: 65 65 20 74 68 65 0a 20 2a 09 75 73 65 72 20 64  ee the. *.user d
1ab0: 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72  ocumentation for
1ac0: 20 64 65 74 61 69 6c 73 20 6f 6e 20 77 68 61 74   details on what
1ad0: 20 69 74 20 64 6f 65 73 2e 0a 20 2a 0a 20 2a 20   it does.. *. * 
1ae0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74  Results:. *.A st
1af0: 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c  andard Tcl resul
1b00: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66  t.. *. * Side ef
1b10: 66 65 63 74 73 3a 0a 20 2a 09 53 65 65 20 74 68  fects:. *.See th
1b20: 65 20 75 73 65 72 20 64 6f 63 75 6d 65 6e 74 61  e user documenta
1b30: 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d  tion.. *. *-----
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 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 69  ---------. */..i
1b80: 6e 74 0a 54 6b 5f 4d 65 6e 75 62 75 74 74 6f 6e  nt.Tk_Menubutton
1b90: 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20  Cmd(clientData, 
1ba0: 69 6e 74 65 72 70 2c 20 61 72 67 63 2c 20 61 72  interp, argc, ar
1bb0: 67 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61  gv).    ClientDa
1bc0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f  ta clientData;./
1bd0: 2a 20 4d 61 69 6e 20 77 69 6e 64 6f 77 20 61 73  * Main window as
1be0: 73 6f 63 69 61 74 65 64 20 77 69 74 68 0a 09 09  sociated with...
1bf0: 09 09 20 2a 20 69 6e 74 65 72 70 72 65 74 65 72  .. * interpreter
1c00: 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74  . */.    Tcl_Int
1c10: 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 09 2f 2a  erp *interp;../*
1c20: 20 43 75 72 72 65 6e 74 20 69 6e 74 65 72 70 72   Current interpr
1c30: 65 74 65 72 2e 20 2a 2f 0a 20 20 20 20 69 6e 74  eter. */.    int
1c40: 20 61 72 67 63 3b 09 09 09 2f 2a 20 4e 75 6d 62   argc;.../* Numb
1c50: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2e  er of arguments.
1c60: 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a 2a 61   */.    char **a
1c70: 72 67 76 3b 09 09 2f 2a 20 41 72 67 75 6d 65 6e  rgv;../* Argumen
1c80: 74 20 73 74 72 69 6e 67 73 2e 20 2a 2f 0a 7b 0a  t strings. */.{.
1c90: 20 20 20 20 72 65 67 69 73 74 65 72 20 4d 65 6e      register Men
1ca0: 75 42 75 74 74 6f 6e 20 2a 6d 62 50 74 72 3b 0a  uButton *mbPtr;.
1cb0: 20 20 20 20 54 6b 5f 57 69 6e 64 6f 77 20 74 6b      Tk_Window tk
1cc0: 77 69 6e 20 3d 20 28 54 6b 5f 57 69 6e 64 6f 77  win = (Tk_Window
1cd0: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20  ) clientData;.  
1ce0: 20 20 54 6b 5f 57 69 6e 64 6f 77 20 6e 65 77 3b    Tk_Window new;
1cf0: 0a 0a 20 20 20 20 69 66 20 28 61 72 67 63 20 3c  ..    if (argc <
1d00: 20 32 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e   2) {..Tcl_Appen
1d10: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
1d20: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 20  "wrong # args:  
1d30: 73 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 0a 09  should be \"",..
1d40: 09 61 72 67 76 5b 30 5d 2c 20 22 20 70 61 74 68  .argv[0], " path
1d50: 4e 61 6d 65 20 3f 6f 70 74 69 6f 6e 73 3f 5c 22  Name ?options?\"
1d60: 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c  ", (char *) NULL
1d70: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45  );..return TCL_E
1d80: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  RROR;.    }..   
1d90: 20 2f 2a 0a 20 20 20 20 20 2a 20 43 72 65 61 74   /*.     * Creat
1da0: 65 20 74 68 65 20 6e 65 77 20 77 69 6e 64 6f 77  e the new window
1db0: 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 6e  ..     */..    n
1dc0: 65 77 20 3d 20 54 6b 5f 43 72 65 61 74 65 57 69  ew = Tk_CreateWi
1dd0: 6e 64 6f 77 46 72 6f 6d 50 61 74 68 28 69 6e 74  ndowFromPath(int
1de0: 65 72 70 2c 20 74 6b 77 69 6e 2c 20 61 72 67 76  erp, tkwin, argv
1df0: 5b 31 5d 2c 20 28 63 68 61 72 20 2a 29 20 4e 55  [1], (char *) NU
1e00: 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 6e 65 77  LL);.    if (new
1e10: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74   == NULL) {..ret
1e20: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
1e30: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20     }..    /*.   
1e40: 20 20 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 74    * Initialize t
1e50: 68 65 20 64 61 74 61 20 73 74 72 75 63 74 75 72  he data structur
1e60: 65 20 66 6f 72 20 74 68 65 20 62 75 74 74 6f 6e  e for the button
1e70: 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 6d  ..     */..    m
1e80: 62 50 74 72 20 3d 20 28 4d 65 6e 75 42 75 74 74  bPtr = (MenuButt
1e90: 6f 6e 20 2a 29 20 63 6b 61 6c 6c 6f 63 28 73 69  on *) ckalloc(si
1ea0: 7a 65 6f 66 28 4d 65 6e 75 42 75 74 74 6f 6e 29  zeof(MenuButton)
1eb0: 29 3b 0a 20 20 20 20 6d 62 50 74 72 2d 3e 74 6b  );.    mbPtr->tk
1ec0: 77 69 6e 20 3d 20 6e 65 77 3b 0a 20 20 20 20 6d  win = new;.    m
1ed0: 62 50 74 72 2d 3e 69 6e 74 65 72 70 20 3d 20 69  bPtr->interp = i
1ee0: 6e 74 65 72 70 3b 0a 20 20 20 20 6d 62 50 74 72  nterp;.    mbPtr
1ef0: 2d 3e 77 69 64 67 65 74 43 6d 64 20 3d 20 54 63  ->widgetCmd = Tc
1f00: 6c 5f 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28  l_CreateCommand(
1f10: 69 6e 74 65 72 70 2c 20 54 6b 5f 50 61 74 68 4e  interp, Tk_PathN
1f20: 61 6d 65 28 6d 62 50 74 72 2d 3e 74 6b 77 69 6e  ame(mbPtr->tkwin
1f30: 29 2c 0a 09 20 20 20 20 4d 65 6e 75 42 75 74 74  ),..    MenuButt
1f40: 6f 6e 57 69 64 67 65 74 43 6d 64 2c 20 28 43 6c  onWidgetCmd, (Cl
1f50: 69 65 6e 74 44 61 74 61 29 20 6d 62 50 74 72 2c  ientData) mbPtr,
1f60: 20 4d 65 6e 75 42 75 74 74 6f 6e 43 6d 64 44 65   MenuButtonCmdDe
1f70: 6c 65 74 65 64 50 72 6f 63 29 3b 0a 20 20 20 20  letedProc);.    
1f80: 6d 62 50 74 72 2d 3e 6d 65 6e 75 4e 61 6d 65 20  mbPtr->menuName 
1f90: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 6d 62 50 74  = NULL;.    mbPt
1fa0: 72 2d 3e 74 65 78 74 20 3d 20 4e 55 4c 4c 3b 0a  r->text = NULL;.
1fb0: 20 20 20 20 6d 62 50 74 72 2d 3e 6e 75 6d 43 68      mbPtr->numCh
1fc0: 61 72 73 20 3d 20 30 3b 0a 20 20 20 20 6d 62 50  ars = 0;.    mbP
1fd0: 74 72 2d 3e 75 6e 64 65 72 6c 69 6e 65 20 3d 20  tr->underline = 
1fe0: 2d 31 3b 0a 20 20 20 20 6d 62 50 74 72 2d 3e 74  -1;.    mbPtr->t
1ff0: 65 78 74 56 61 72 4e 61 6d 65 20 3d 20 4e 55 4c  extVarName = NUL
2000: 4c 3b 0a 20 20 20 20 6d 62 50 74 72 2d 3e 73 74  L;.    mbPtr->st
2010: 61 74 65 20 3d 20 74 6b 4e 6f 72 6d 61 6c 55 69  ate = tkNormalUi
2020: 64 3b 0a 20 20 20 20 6d 62 50 74 72 2d 3e 62 6f  d;.    mbPtr->bo
2030: 72 64 65 72 57 69 64 74 68 20 3d 20 30 3b 0a 20  rderWidth = 0;. 
2040: 20 20 20 6d 62 50 74 72 2d 3e 77 69 64 74 68 20     mbPtr->width 
2050: 3d 20 30 3b 0a 20 20 20 20 6d 62 50 74 72 2d 3e  = 0;.    mbPtr->
2060: 68 65 69 67 68 74 20 3d 20 30 3b 0a 20 20 20 20  height = 0;.    
2070: 6d 62 50 74 72 2d 3e 77 72 61 70 4c 65 6e 67 74  mbPtr->wrapLengt
2080: 68 20 3d 20 30 3b 0a 20 20 20 20 6d 62 50 74 72  h = 0;.    mbPtr
2090: 2d 3e 70 61 64 58 20 3d 20 30 3b 0a 20 20 20 20  ->padX = 0;.    
20a0: 6d 62 50 74 72 2d 3e 70 61 64 59 20 3d 20 30 3b  mbPtr->padY = 0;
20b0: 0a 20 20 20 20 6d 62 50 74 72 2d 3e 61 6e 63 68  .    mbPtr->anch
20c0: 6f 72 20 3d 20 54 4b 5f 41 4e 43 48 4f 52 5f 43  or = TK_ANCHOR_C
20d0: 45 4e 54 45 52 3b 0a 20 20 20 20 6d 62 50 74 72  ENTER;.    mbPtr
20e0: 2d 3e 6a 75 73 74 69 66 79 20 3d 20 54 4b 5f 4a  ->justify = TK_J
20f0: 55 53 54 49 46 59 5f 43 45 4e 54 45 52 3b 0a 20  USTIFY_CENTER;. 
2100: 20 20 20 6d 62 50 74 72 2d 3e 69 6e 64 69 63 61     mbPtr->indica
2110: 74 6f 72 4f 6e 20 3d 20 30 3b 0a 20 20 20 20 6d  torOn = 0;.    m
2120: 62 50 74 72 2d 3e 74 61 6b 65 46 6f 63 75 73 20  bPtr->takeFocus 
2130: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 6d 62 50 74  = NULL;.    mbPt
2140: 72 2d 3e 66 6c 61 67 73 20 3d 20 30 3b 0a 0a 20  r->flags = 0;.. 
2150: 20 20 20 54 6b 5f 53 65 74 43 6c 61 73 73 28 6d     Tk_SetClass(m
2160: 62 50 74 72 2d 3e 74 6b 77 69 6e 2c 20 22 4d 65  bPtr->tkwin, "Me
2170: 6e 75 62 75 74 74 6f 6e 22 29 3b 0a 20 20 20 20  nubutton");.    
2180: 54 6b 5f 43 72 65 61 74 65 45 76 65 6e 74 48 61  Tk_CreateEventHa
2190: 6e 64 6c 65 72 28 6d 62 50 74 72 2d 3e 74 6b 77  ndler(mbPtr->tkw
21a0: 69 6e 2c 0a 20 20 20 20 09 20 20 20 20 43 54 4b  in,.    .    CTK
21b0: 5f 45 58 50 4f 53 45 5f 45 56 45 4e 54 5f 4d 41  _EXPOSE_EVENT_MA
21c0: 53 4b 7c 43 54 4b 5f 44 45 53 54 52 4f 59 5f 45  SK|CTK_DESTROY_E
21d0: 56 45 4e 54 5f 4d 41 53 4b 7c 43 54 4b 5f 46 4f  VENT_MASK|CTK_FO
21e0: 43 55 53 5f 45 56 45 4e 54 5f 4d 41 53 4b 2c 0a  CUS_EVENT_MASK,.
21f0: 09 20 20 20 20 4d 65 6e 75 42 75 74 74 6f 6e 45  .    MenuButtonE
2200: 76 65 6e 74 50 72 6f 63 2c 20 28 43 6c 69 65 6e  ventProc, (Clien
2210: 74 44 61 74 61 29 20 6d 62 50 74 72 29 3b 0a 20  tData) mbPtr);. 
2220: 20 20 20 69 66 20 28 43 6f 6e 66 69 67 75 72 65     if (Configure
2230: 4d 65 6e 75 42 75 74 74 6f 6e 28 69 6e 74 65 72  MenuButton(inter
2240: 70 2c 20 6d 62 50 74 72 2c 20 61 72 67 63 2d 32  p, mbPtr, argc-2
2250: 2c 20 61 72 67 76 2b 32 2c 20 30 29 20 21 3d 20  , argv+2, 0) != 
2260: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 54 6b 5f 44 65  TCL_OK) {..Tk_De
2270: 73 74 72 6f 79 57 69 6e 64 6f 77 28 6d 62 50 74  stroyWindow(mbPt
2280: 72 2d 3e 74 6b 77 69 6e 29 3b 0a 09 72 65 74 75  r->tkwin);..retu
2290: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
22a0: 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74    }..    Tcl_Set
22b0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 54 6b  Result(interp,Tk
22c0: 5f 50 61 74 68 4e 61 6d 65 28 6d 62 50 74 72 2d  _PathName(mbPtr-
22d0: 3e 74 6b 77 69 6e 29 2c 54 43 4c 5f 56 4f 4c 41  >tkwin),TCL_VOLA
22e0: 54 49 4c 45 29 3b 0a 20 20 20 20 72 65 74 75 72  TILE);.    retur
22f0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a  n TCL_OK;.}.../*
2300: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
2310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2340: 2d 0a 20 2a 0a 20 2a 20 4d 65 6e 75 42 75 74 74  -. *. * MenuButt
2350: 6f 6e 57 69 64 67 65 74 43 6d 64 20 2d 2d 0a 20  onWidgetCmd --. 
2360: 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64  *. *.This proced
2370: 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 74  ure is invoked t
2380: 6f 20 70 72 6f 63 65 73 73 20 74 68 65 20 54 63  o process the Tc
2390: 6c 20 63 6f 6d 6d 61 6e 64 0a 20 2a 09 74 68 61  l command. *.tha
23a0: 74 20 63 6f 72 72 65 73 70 6f 6e 64 73 20 74 6f  t corresponds to
23b0: 20 61 20 77 69 64 67 65 74 20 6d 61 6e 61 67 65   a widget manage
23c0: 64 20 62 79 20 74 68 69 73 20 6d 6f 64 75 6c 65  d by this module
23d0: 2e 0a 20 2a 09 53 65 65 20 74 68 65 20 75 73 65  .. *.See the use
23e0: 72 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20  r documentation 
23f0: 66 6f 72 20 64 65 74 61 69 6c 73 20 6f 6e 20 77  for details on w
2400: 68 61 74 20 69 74 20 64 6f 65 73 2e 0a 20 2a 0a  hat it does.. *.
2410: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41   * Results:. *.A
2420: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65   standard Tcl re
2430: 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65  sult.. *. * Side
2440: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 65   effects:. *.See
2450: 20 74 68 65 20 75 73 65 72 20 64 6f 63 75 6d 65   the user docume
2460: 6e 74 61 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 2d 2d  ntation.. *. *--
2470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
24a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
24b0: 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 4d 65 6e  ..static int.Men
24c0: 75 42 75 74 74 6f 6e 57 69 64 67 65 74 43 6d 64  uButtonWidgetCmd
24d0: 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74  (clientData, int
24e0: 65 72 70 2c 20 61 72 67 63 2c 20 61 72 67 76 29  erp, argc, argv)
24f0: 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20  .    ClientData 
2500: 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 49  clientData;./* I
2510: 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74  nformation about
2520: 20 62 75 74 74 6f 6e 20 77 69 64 67 65 74 2e 20   button widget. 
2530: 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72  */.    Tcl_Inter
2540: 70 20 2a 69 6e 74 65 72 70 3b 09 09 2f 2a 20 43  p *interp;../* C
2550: 75 72 72 65 6e 74 20 69 6e 74 65 72 70 72 65 74  urrent interpret
2560: 65 72 2e 20 2a 2f 0a 20 20 20 20 69 6e 74 20 61  er. */.    int a
2570: 72 67 63 3b 09 09 09 2f 2a 20 4e 75 6d 62 65 72  rgc;.../* Number
2580: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 2e 20 2a   of arguments. *
2590: 2f 0a 20 20 20 20 63 68 61 72 20 2a 2a 61 72 67  /.    char **arg
25a0: 76 3b 09 09 2f 2a 20 41 72 67 75 6d 65 6e 74 20  v;../* Argument 
25b0: 73 74 72 69 6e 67 73 2e 20 2a 2f 0a 7b 0a 20 20  strings. */.{.  
25c0: 20 20 72 65 67 69 73 74 65 72 20 4d 65 6e 75 42    register MenuB
25d0: 75 74 74 6f 6e 20 2a 6d 62 50 74 72 20 3d 20 28  utton *mbPtr = (
25e0: 4d 65 6e 75 42 75 74 74 6f 6e 20 2a 29 20 63 6c  MenuButton *) cl
25f0: 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 69 6e  ientData;.    in
2600: 74 20 72 65 73 75 6c 74 20 3d 20 54 43 4c 5f 4f  t result = TCL_O
2610: 4b 3b 0a 20 20 20 20 73 69 7a 65 5f 74 20 6c 65  K;.    size_t le
2620: 6e 67 74 68 3b 0a 20 20 20 20 69 6e 74 20 63 3b  ngth;.    int c;
2630: 0a 0a 20 20 20 20 69 66 20 28 61 72 67 63 20 3c  ..    if (argc <
2640: 20 32 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e   2) {..Tcl_Appen
2650: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
2660: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73  "wrong # args: s
2670: 68 6f 75 6c 64 20 62 65 20 5c 22 22 2c 20 61 72  hould be \"", ar
2680: 67 76 5b 30 5d 2c 0a 09 09 22 20 6f 70 74 69 6f  gv[0],..." optio
2690: 6e 20 3f 61 72 67 20 61 72 67 20 2e 2e 2e 3f 5c  n ?arg arg ...?\
26a0: 22 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c  "", (char *) NUL
26b0: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f  L);..return TCL_
26c0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20  ERROR;.    }.   
26d0: 20 54 6b 5f 50 72 65 73 65 72 76 65 28 28 43 6c   Tk_Preserve((Cl
26e0: 69 65 6e 74 44 61 74 61 29 20 6d 62 50 74 72 29  ientData) mbPtr)
26f0: 3b 0a 20 20 20 20 63 20 3d 20 61 72 67 76 5b 31  ;.    c = argv[1
2700: 5d 5b 30 5d 3b 0a 20 20 20 20 6c 65 6e 67 74 68  ][0];.    length
2710: 20 3d 20 73 74 72 6c 65 6e 28 61 72 67 76 5b 31   = strlen(argv[1
2720: 5d 29 3b 0a 20 20 20 20 69 66 20 28 28 63 20 3d  ]);.    if ((c =
2730: 3d 20 27 63 27 29 20 26 26 20 28 73 74 72 6e 63  = 'c') && (strnc
2740: 6d 70 28 61 72 67 76 5b 31 5d 2c 20 22 63 67 65  mp(argv[1], "cge
2750: 74 22 2c 20 6c 65 6e 67 74 68 29 20 3d 3d 20 30  t", length) == 0
2760: 29 0a 09 20 20 20 20 26 26 20 28 6c 65 6e 67 74  )..    && (lengt
2770: 68 20 3e 3d 20 32 29 29 20 7b 0a 09 69 66 20 28  h >= 2)) {..if (
2780: 61 72 67 63 20 21 3d 20 33 29 20 7b 0a 09 20 20  argc != 3) {..  
2790: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
27a0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e  lt(interp, "wron
27b0: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64  g # args: should
27c0: 20 62 65 20 5c 22 22 2c 0a 09 09 20 20 20 20 61   be \"",...    a
27d0: 72 67 76 5b 30 5d 2c 20 22 20 63 67 65 74 20 6f  rgv[0], " cget o
27e0: 70 74 69 6f 6e 5c 22 22 2c 0a 09 09 20 20 20 20  ption\"",...    
27f0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a  (char *) NULL);.
2800: 09 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 3b  .    goto error;
2810: 0a 09 7d 0a 09 72 65 73 75 6c 74 20 3d 20 54 6b  ..}..result = Tk
2820: 5f 43 6f 6e 66 69 67 75 72 65 56 61 6c 75 65 28  _ConfigureValue(
2830: 69 6e 74 65 72 70 2c 20 6d 62 50 74 72 2d 3e 74  interp, mbPtr->t
2840: 6b 77 69 6e 2c 20 63 6f 6e 66 69 67 53 70 65 63  kwin, configSpec
2850: 73 2c 0a 09 09 28 63 68 61 72 20 2a 29 20 6d 62  s,...(char *) mb
2860: 50 74 72 2c 20 61 72 67 76 5b 32 5d 2c 20 30 29  Ptr, argv[2], 0)
2870: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20  ;.    } else if 
2880: 28 28 63 20 3d 3d 20 27 63 27 29 20 26 26 20 28  ((c == 'c') && (
2890: 73 74 72 6e 63 6d 70 28 61 72 67 76 5b 31 5d 2c  strncmp(argv[1],
28a0: 20 22 63 6f 6e 66 69 67 75 72 65 22 2c 20 6c 65   "configure", le
28b0: 6e 67 74 68 29 20 3d 3d 20 30 29 0a 09 20 20 20  ngth) == 0)..   
28c0: 20 26 26 20 28 6c 65 6e 67 74 68 20 3e 3d 20 32   && (length >= 2
28d0: 29 29 20 7b 0a 09 69 66 20 28 61 72 67 63 20 3d  )) {..if (argc =
28e0: 3d 20 32 29 20 7b 0a 09 20 20 20 20 72 65 73 75  = 2) {..    resu
28f0: 6c 74 20 3d 20 54 6b 5f 43 6f 6e 66 69 67 75 72  lt = Tk_Configur
2900: 65 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 6d 62  eInfo(interp, mb
2910: 50 74 72 2d 3e 74 6b 77 69 6e 2c 20 63 6f 6e 66  Ptr->tkwin, conf
2920: 69 67 53 70 65 63 73 2c 0a 09 09 20 20 20 20 28  igSpecs,...    (
2930: 63 68 61 72 20 2a 29 20 6d 62 50 74 72 2c 20 28  char *) mbPtr, (
2940: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 2c 20 30 29  char *) NULL, 0)
2950: 3b 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 61 72  ;..} else if (ar
2960: 67 63 20 3d 3d 20 33 29 20 7b 0a 09 20 20 20 20  gc == 3) {..    
2970: 72 65 73 75 6c 74 20 3d 20 54 6b 5f 43 6f 6e 66  result = Tk_Conf
2980: 69 67 75 72 65 49 6e 66 6f 28 69 6e 74 65 72 70  igureInfo(interp
2990: 2c 20 6d 62 50 74 72 2d 3e 74 6b 77 69 6e 2c 20  , mbPtr->tkwin, 
29a0: 63 6f 6e 66 69 67 53 70 65 63 73 2c 0a 09 09 20  configSpecs,... 
29b0: 20 20 20 28 63 68 61 72 20 2a 29 20 6d 62 50 74     (char *) mbPt
29c0: 72 2c 20 61 72 67 76 5b 32 5d 2c 20 30 29 3b 0a  r, argv[2], 0);.
29d0: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 72  .} else {..    r
29e0: 65 73 75 6c 74 20 3d 20 43 6f 6e 66 69 67 75 72  esult = Configur
29f0: 65 4d 65 6e 75 42 75 74 74 6f 6e 28 69 6e 74 65  eMenuButton(inte
2a00: 72 70 2c 20 6d 62 50 74 72 2c 20 61 72 67 63 2d  rp, mbPtr, argc-
2a10: 32 2c 20 61 72 67 76 2b 32 2c 0a 09 09 20 20 20  2, argv+2,...   
2a20: 20 54 4b 5f 43 4f 4e 46 49 47 5f 41 52 47 56 5f   TK_CONFIG_ARGV_
2a30: 4f 4e 4c 59 29 3b 0a 09 7d 0a 20 20 20 20 7d 20  ONLY);..}.    } 
2a40: 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 70 70 65  else {..Tcl_Appe
2a50: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
2a60: 20 22 62 61 64 20 6f 70 74 69 6f 6e 20 5c 22 22   "bad option \""
2a70: 2c 20 61 72 67 76 5b 31 5d 2c 0a 09 09 22 5c 22  , argv[1],..."\"
2a80: 3a 20 20 6d 75 73 74 20 62 65 20 63 67 65 74 20  :  must be cget 
2a90: 6f 72 20 63 6f 6e 66 69 67 75 72 65 22 2c 0a 09  or configure",..
2aa0: 09 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b  .(char *) NULL);
2ab0: 0a 09 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20  ..goto error;.  
2ac0: 20 20 7d 0a 20 20 20 20 54 6b 5f 52 65 6c 65 61    }.    Tk_Relea
2ad0: 73 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20  se((ClientData) 
2ae0: 6d 62 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75  mbPtr);.    retu
2af0: 72 6e 20 72 65 73 75 6c 74 3b 0a 0a 20 20 20 20  rn result;..    
2b00: 65 72 72 6f 72 3a 0a 20 20 20 20 54 6b 5f 52 65  error:.    Tk_Re
2b10: 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 44 61 74  lease((ClientDat
2b20: 61 29 20 6d 62 50 74 72 29 3b 0a 20 20 20 20 72  a) mbPtr);.    r
2b30: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
2b40: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  .}.../*. *------
2b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2b90: 0a 20 2a 0a 20 2a 20 44 65 73 74 72 6f 79 4d 65  . *. * DestroyMe
2ba0: 6e 75 42 75 74 74 6f 6e 20 2d 2d 0a 20 2a 0a 20  nuButton --. *. 
2bb0: 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65  *.This procedure
2bc0: 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 72   is invoked to r
2bd0: 65 63 79 63 6c 65 20 61 6c 6c 20 6f 66 20 74 68  ecycle all of th
2be0: 65 20 72 65 73 6f 75 72 63 65 73 0a 20 2a 09 61  e resources. *.a
2bf0: 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 61  ssociated with a
2c00: 20 62 75 74 74 6f 6e 20 77 69 64 67 65 74 2e 20   button widget. 
2c10: 20 49 74 20 69 73 20 69 6e 76 6f 6b 65 64 20 61   It is invoked a
2c20: 73 20 61 0a 20 2a 09 77 68 65 6e 2d 69 64 6c 65  s a. *.when-idle
2c30: 20 68 61 6e 64 6c 65 72 20 69 6e 20 6f 72 64 65   handler in orde
2c40: 72 20 74 6f 20 6d 61 6b 65 20 73 75 72 65 20 74  r to make sure t
2c50: 68 61 74 20 74 68 65 72 65 20 69 73 20 6e 6f 0a  hat there is no.
2c60: 20 2a 09 6f 74 68 65 72 20 75 73 65 20 6f 66 20   *.other use of 
2c70: 74 68 65 20 62 75 74 74 6f 6e 20 70 65 6e 64 69  the button pendi
2c80: 6e 67 20 61 74 20 74 68 65 20 74 69 6d 65 20 6f  ng at the time o
2c90: 66 20 74 68 65 20 64 65 6c 65 74 69 6f 6e 2e 0a  f the deletion..
2ca0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20   *. * Results:. 
2cb0: 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69  *.None.. *. * Si
2cc0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 45  de effects:. *.E
2cd0: 76 65 72 79 74 68 69 6e 67 20 61 73 73 6f 63 69  verything associ
2ce0: 61 74 65 64 20 77 69 74 68 20 74 68 65 20 77 69  ated with the wi
2cf0: 64 67 65 74 20 69 73 20 66 72 65 65 64 20 75 70  dget is freed up
2d00: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  .. *. *---------
2d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
2d50: 2f 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 44  /..static void.D
2d60: 65 73 74 72 6f 79 4d 65 6e 75 42 75 74 74 6f 6e  estroyMenuButton
2d70: 28 63 6c 69 65 6e 74 44 61 74 61 29 0a 20 20 20  (clientData).   
2d80: 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65   ClientData clie
2d90: 6e 74 44 61 74 61 3b 09 2f 2a 20 49 6e 66 6f 20  ntData;./* Info 
2da0: 61 62 6f 75 74 20 62 75 74 74 6f 6e 20 77 69 64  about button wid
2db0: 67 65 74 2e 20 2a 2f 0a 7b 0a 20 20 20 20 72 65  get. */.{.    re
2dc0: 67 69 73 74 65 72 20 4d 65 6e 75 42 75 74 74 6f  gister MenuButto
2dd0: 6e 20 2a 6d 62 50 74 72 20 3d 20 28 4d 65 6e 75  n *mbPtr = (Menu
2de0: 42 75 74 74 6f 6e 20 2a 29 20 63 6c 69 65 6e 74  Button *) client
2df0: 44 61 74 61 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20  Data;..    /*.  
2e00: 20 20 20 2a 20 46 72 65 65 20 75 70 20 61 6c 6c     * Free up all
2e10: 20 74 68 65 20 73 74 75 66 66 20 74 68 61 74 20   the stuff that 
2e20: 72 65 71 75 69 72 65 73 20 73 70 65 63 69 61 6c  requires special
2e30: 20 68 61 6e 64 6c 69 6e 67 2c 20 74 68 65 6e 0a   handling, then.
2e40: 20 20 20 20 20 2a 20 6c 65 74 20 54 6b 5f 46 72       * let Tk_Fr
2e50: 65 65 4f 70 74 69 6f 6e 73 20 68 61 6e 64 6c 65  eeOptions handle
2e60: 20 61 6c 6c 20 74 68 65 20 73 74 61 6e 64 61 72   all the standar
2e70: 64 20 6f 70 74 69 6f 6e 2d 72 65 6c 61 74 65 64  d option-related
2e80: 0a 20 20 20 20 20 2a 20 73 74 75 66 66 2e 0a 20  .     * stuff.. 
2e90: 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20 28      */..    if (
2ea0: 6d 62 50 74 72 2d 3e 74 65 78 74 56 61 72 4e 61  mbPtr->textVarNa
2eb0: 6d 65 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54  me != NULL) {..T
2ec0: 63 6c 5f 55 6e 74 72 61 63 65 56 61 72 28 6d 62  cl_UntraceVar(mb
2ed0: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 6d 62 50  Ptr->interp, mbP
2ee0: 74 72 2d 3e 74 65 78 74 56 61 72 4e 61 6d 65 2c  tr->textVarName,
2ef0: 0a 09 09 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e  ...TCL_GLOBAL_ON
2f00: 4c 59 7c 54 43 4c 5f 54 52 41 43 45 5f 57 52 49  LY|TCL_TRACE_WRI
2f10: 54 45 53 7c 54 43 4c 5f 54 52 41 43 45 5f 55 4e  TES|TCL_TRACE_UN
2f20: 53 45 54 53 2c 0a 09 09 4d 65 6e 75 42 75 74 74  SETS,...MenuButt
2f30: 6f 6e 54 65 78 74 56 61 72 50 72 6f 63 2c 20 28  onTextVarProc, (
2f40: 43 6c 69 65 6e 74 44 61 74 61 29 20 6d 62 50 74  ClientData) mbPt
2f50: 72 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 6b  r);.    }.    Tk
2f60: 5f 46 72 65 65 4f 70 74 69 6f 6e 73 28 63 6f 6e  _FreeOptions(con
2f70: 66 69 67 53 70 65 63 73 2c 20 28 63 68 61 72 20  figSpecs, (char 
2f80: 2a 29 20 6d 62 50 74 72 2c 20 30 29 3b 0a 20 20  *) mbPtr, 0);.  
2f90: 20 20 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a    ckfree((char *
2fa0: 29 20 6d 62 50 74 72 29 3b 0a 7d 0a 0c 0a 2f 2a  ) mbPtr);.}.../*
2fb0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
2fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20  ---------. *. * 
3000: 43 6f 6e 66 69 67 75 72 65 4d 65 6e 75 42 75 74  ConfigureMenuBut
3010: 74 6f 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69  ton --. *. *.Thi
3020: 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 63  s procedure is c
3030: 61 6c 6c 65 64 20 74 6f 20 70 72 6f 63 65 73 73  alled to process
3040: 20 61 6e 20 61 72 67 76 2f 61 72 67 63 20 6c 69   an argv/argc li
3050: 73 74 2c 20 70 6c 75 73 0a 20 2a 09 74 68 65 20  st, plus. *.the 
3060: 54 6b 20 6f 70 74 69 6f 6e 20 64 61 74 61 62 61  Tk option databa
3070: 73 65 2c 20 69 6e 20 6f 72 64 65 72 20 74 6f 20  se, in order to 
3080: 63 6f 6e 66 69 67 75 72 65 20 28 6f 72 0a 20 2a  configure (or. *
3090: 09 72 65 63 6f 6e 66 69 67 75 72 65 29 20 61 20  .reconfigure) a 
30a0: 6d 65 6e 75 62 75 74 74 6f 6e 20 77 69 64 67 65  menubutton widge
30b0: 74 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73  t.. *. * Results
30c0: 3a 0a 20 2a 09 54 68 65 20 72 65 74 75 72 6e 20  :. *.The return 
30d0: 76 61 6c 75 65 20 69 73 20 61 20 73 74 61 6e 64  value is a stand
30e0: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 20  ard Tcl result. 
30f0: 20 49 66 20 54 43 4c 5f 45 52 52 4f 52 20 69 73   If TCL_ERROR is
3100: 0a 20 2a 09 72 65 74 75 72 6e 65 64 2c 20 74 68  . *.returned, th
3110: 65 6e 20 69 6e 74 65 72 70 2d 3e 72 65 73 75 6c  en interp->resul
3120: 74 20 63 6f 6e 74 61 69 6e 73 20 61 6e 20 65 72  t contains an er
3130: 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a 0a  ror message.. *.
3140: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a   * Side effects:
3150: 0a 20 2a 09 43 6f 6e 66 69 67 75 72 61 74 69 6f  . *.Configuratio
3160: 6e 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 20 73  n information, s
3170: 75 63 68 20 61 73 20 74 65 78 74 20 73 74 72 69  uch as text stri
3180: 6e 67 2c 20 63 6f 6c 6f 72 73 2c 20 66 6f 6e 74  ng, colors, font
3190: 2c 0a 20 2a 09 65 74 63 2e 20 67 65 74 20 73 65  ,. *.etc. get se
31a0: 74 20 66 6f 72 20 6d 62 50 74 72 3b 20 20 6f 6c  t for mbPtr;  ol
31b0: 64 20 72 65 73 6f 75 72 63 65 73 20 67 65 74 20  d resources get 
31c0: 66 72 65 65 64 2c 20 69 66 20 74 68 65 72 65 0a  freed, if there.
31d0: 20 2a 09 77 65 72 65 20 61 6e 79 2e 20 20 54 68   *.were any.  Th
31e0: 65 20 6d 65 6e 75 62 75 74 74 6f 6e 20 69 73 20  e menubutton is 
31f0: 72 65 64 69 73 70 6c 61 79 65 64 2e 0a 20 2a 0a  redisplayed.. *.
3200: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
3210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3240: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74  --------. */..st
3250: 61 74 69 63 20 69 6e 74 0a 43 6f 6e 66 69 67 75  atic int.Configu
3260: 72 65 4d 65 6e 75 42 75 74 74 6f 6e 28 69 6e 74  reMenuButton(int
3270: 65 72 70 2c 20 6d 62 50 74 72 2c 20 61 72 67 63  erp, mbPtr, argc
3280: 2c 20 61 72 67 76 2c 20 66 6c 61 67 73 29 0a 20  , argv, flags). 
3290: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69     Tcl_Interp *i
32a0: 6e 74 65 72 70 3b 09 09 2f 2a 20 55 73 65 64 20  nterp;../* Used 
32b0: 66 6f 72 20 65 72 72 6f 72 20 72 65 70 6f 72 74  for error report
32c0: 69 6e 67 2e 20 2a 2f 0a 20 20 20 20 72 65 67 69  ing. */.    regi
32d0: 73 74 65 72 20 4d 65 6e 75 42 75 74 74 6f 6e 20  ster MenuButton 
32e0: 2a 6d 62 50 74 72 3b 09 2f 2a 20 49 6e 66 6f 72  *mbPtr;./* Infor
32f0: 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 77 69 64  mation about wid
3300: 67 65 74 3b 20 20 6d 61 79 20 6f 72 20 6d 61 79  get;  may or may
3310: 0a 09 09 09 09 20 2a 20 6e 6f 74 20 61 6c 72 65  ..... * not alre
3320: 61 64 79 20 68 61 76 65 20 76 61 6c 75 65 73 20  ady have values 
3330: 66 6f 72 20 73 6f 6d 65 20 66 69 65 6c 64 73 2e  for some fields.
3340: 20 2a 2f 0a 20 20 20 20 69 6e 74 20 61 72 67 63   */.    int argc
3350: 3b 09 09 09 2f 2a 20 4e 75 6d 62 65 72 20 6f 66  ;.../* Number of
3360: 20 76 61 6c 69 64 20 65 6e 74 72 69 65 73 20 69   valid entries i
3370: 6e 20 61 72 67 76 2e 20 2a 2f 0a 20 20 20 20 63  n argv. */.    c
3380: 68 61 72 20 2a 2a 61 72 67 76 3b 09 09 2f 2a 20  har **argv;../* 
3390: 41 72 67 75 6d 65 6e 74 73 2e 20 2a 2f 0a 20 20  Arguments. */.  
33a0: 20 20 69 6e 74 20 66 6c 61 67 73 3b 09 09 09 2f    int flags;.../
33b0: 2a 20 46 6c 61 67 73 20 74 6f 20 70 61 73 73 20  * Flags to pass 
33c0: 74 6f 20 54 6b 5f 43 6f 6e 66 69 67 75 72 65 57  to Tk_ConfigureW
33d0: 69 64 67 65 74 2e 20 2a 2f 0a 7b 0a 20 20 20 20  idget. */.{.    
33e0: 69 6e 74 20 72 65 73 75 6c 74 3b 0a 0a 20 20 20  int result;..   
33f0: 20 2f 2a 0a 20 20 20 20 20 2a 20 45 6c 69 6d 69   /*.     * Elimi
3400: 6e 61 74 65 20 61 6e 79 20 65 78 69 73 74 69 6e  nate any existin
3410: 67 20 74 72 61 63 65 20 6f 6e 20 76 61 72 69 61  g trace on varia
3420: 62 6c 65 73 20 6d 6f 6e 69 74 6f 72 65 64 20 62  bles monitored b
3430: 79 20 74 68 65 20 6d 65 6e 75 62 75 74 74 6f 6e  y the menubutton
3440: 2e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69  ..     */..    i
3450: 66 20 28 6d 62 50 74 72 2d 3e 74 65 78 74 56 61  f (mbPtr->textVa
3460: 72 4e 61 6d 65 20 21 3d 20 4e 55 4c 4c 29 20 7b  rName != NULL) {
3470: 0a 09 54 63 6c 5f 55 6e 74 72 61 63 65 56 61 72  ..Tcl_UntraceVar
3480: 28 69 6e 74 65 72 70 2c 20 6d 62 50 74 72 2d 3e  (interp, mbPtr->
3490: 74 65 78 74 56 61 72 4e 61 6d 65 2c 0a 09 09 54  textVarName,...T
34a0: 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 7c 54  CL_GLOBAL_ONLY|T
34b0: 43 4c 5f 54 52 41 43 45 5f 57 52 49 54 45 53 7c  CL_TRACE_WRITES|
34c0: 54 43 4c 5f 54 52 41 43 45 5f 55 4e 53 45 54 53  TCL_TRACE_UNSETS
34d0: 2c 0a 09 09 4d 65 6e 75 42 75 74 74 6f 6e 54 65  ,...MenuButtonTe
34e0: 78 74 56 61 72 50 72 6f 63 2c 20 28 43 6c 69 65  xtVarProc, (Clie
34f0: 6e 74 44 61 74 61 29 20 6d 62 50 74 72 29 3b 0a  ntData) mbPtr);.
3500: 20 20 20 20 7d 0a 0a 20 20 20 20 72 65 73 75 6c      }..    resul
3510: 74 20 3d 20 54 6b 5f 43 6f 6e 66 69 67 75 72 65  t = Tk_Configure
3520: 57 69 64 67 65 74 28 69 6e 74 65 72 70 2c 20 6d  Widget(interp, m
3530: 62 50 74 72 2d 3e 74 6b 77 69 6e 2c 20 63 6f 6e  bPtr->tkwin, con
3540: 66 69 67 53 70 65 63 73 2c 0a 09 20 20 20 20 61  figSpecs,..    a
3550: 72 67 63 2c 20 61 72 67 76 2c 20 28 63 68 61 72  rgc, argv, (char
3560: 20 2a 29 20 6d 62 50 74 72 2c 20 66 6c 61 67 73   *) mbPtr, flags
3570: 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c  );.    if (resul
3580: 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09  t != TCL_OK) {..
3590: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
35a0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a  ;.    }..    /*.
35b0: 20 20 20 20 20 2a 20 41 20 66 65 77 20 6f 70 74       * A few opt
35c0: 69 6f 6e 73 20 6e 65 65 64 20 73 70 65 63 69 61  ions need specia
35d0: 6c 20 70 72 6f 63 65 73 73 69 6e 67 2e 0a 20 20  l processing..  
35e0: 20 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20 28 28     */..    if ((
35f0: 6d 62 50 74 72 2d 3e 73 74 61 74 65 20 21 3d 20  mbPtr->state != 
3600: 74 6b 4e 6f 72 6d 61 6c 55 69 64 29 20 26 26 20  tkNormalUid) && 
3610: 28 6d 62 50 74 72 2d 3e 73 74 61 74 65 20 21 3d  (mbPtr->state !=
3620: 20 74 6b 41 63 74 69 76 65 55 69 64 29 0a 09 20   tkActiveUid).. 
3630: 20 20 20 26 26 20 28 6d 62 50 74 72 2d 3e 73 74     && (mbPtr->st
3640: 61 74 65 20 21 3d 20 74 6b 44 69 73 61 62 6c 65  ate != tkDisable
3650: 64 55 69 64 29 29 20 7b 0a 09 54 63 6c 5f 41 70  dUid)) {..Tcl_Ap
3660: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
3670: 70 2c 20 22 62 61 64 20 73 74 61 74 65 20 76 61  p, "bad state va
3680: 6c 75 65 20 5c 22 22 2c 20 6d 62 50 74 72 2d 3e  lue \"", mbPtr->
3690: 73 74 61 74 65 2c 0a 09 09 22 5c 22 3a 20 20 6d  state,..."\":  m
36a0: 75 73 74 20 62 65 20 6e 6f 72 6d 61 6c 2c 20 61  ust be normal, a
36b0: 63 74 69 76 65 2c 20 6f 72 20 64 69 73 61 62 6c  ctive, or disabl
36c0: 65 64 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55  ed", (char *) NU
36d0: 4c 4c 29 3b 0a 09 6d 62 50 74 72 2d 3e 73 74 61  LL);..mbPtr->sta
36e0: 74 65 20 3d 20 74 6b 4e 6f 72 6d 61 6c 55 69 64  te = tkNormalUid
36f0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52  ;..return TCL_ER
3700: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  ROR;.    }..    
3710: 69 66 20 28 6d 62 50 74 72 2d 3e 70 61 64 58 20  if (mbPtr->padX 
3720: 3c 20 30 29 20 7b 0a 09 6d 62 50 74 72 2d 3e 70  < 0) {..mbPtr->p
3730: 61 64 58 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20  adX = 0;.    }. 
3740: 20 20 20 69 66 20 28 6d 62 50 74 72 2d 3e 70 61     if (mbPtr->pa
3750: 64 59 20 3c 20 30 29 20 7b 0a 09 6d 62 50 74 72  dY < 0) {..mbPtr
3760: 2d 3e 70 61 64 59 20 3d 20 30 3b 0a 20 20 20 20  ->padY = 0;.    
3770: 7d 0a 0a 20 20 20 20 69 66 20 28 6d 62 50 74 72  }..    if (mbPtr
3780: 2d 3e 74 65 78 74 56 61 72 4e 61 6d 65 20 21 3d  ->textVarName !=
3790: 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a   NULL) {../*.. *
37a0: 20 54 68 65 20 6d 65 6e 75 62 75 74 74 6f 6e 20   The menubutton 
37b0: 64 69 73 70 6c 61 79 73 20 61 20 76 61 72 69 61  displays a varia
37c0: 62 6c 65 2e 20 20 53 65 74 20 75 70 20 61 20 74  ble.  Set up a t
37d0: 72 61 63 65 20 74 6f 20 77 61 74 63 68 0a 09 20  race to watch.. 
37e0: 2a 20 66 6f 72 20 61 6e 79 20 63 68 61 6e 67 65  * for any change
37f0: 73 20 69 6e 20 69 74 2e 0a 09 20 2a 2f 0a 0a 09  s in it... */...
3800: 63 68 61 72 20 2a 76 61 6c 75 65 3b 0a 0a 09 76  char *value;...v
3810: 61 6c 75 65 20 3d 20 54 63 6c 5f 47 65 74 56 61  alue = Tcl_GetVa
3820: 72 28 69 6e 74 65 72 70 2c 20 6d 62 50 74 72 2d  r(interp, mbPtr-
3830: 3e 74 65 78 74 56 61 72 4e 61 6d 65 2c 20 54 43  >textVarName, TC
3840: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
3850: 09 69 66 20 28 76 61 6c 75 65 20 3d 3d 20 4e 55  .if (value == NU
3860: 4c 4c 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 53  LL) {..    Tcl_S
3870: 65 74 56 61 72 28 69 6e 74 65 72 70 2c 20 6d 62  etVar(interp, mb
3880: 50 74 72 2d 3e 74 65 78 74 56 61 72 4e 61 6d 65  Ptr->textVarName
3890: 2c 20 6d 62 50 74 72 2d 3e 74 65 78 74 2c 0a 09  , mbPtr->text,..
38a0: 09 20 20 20 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f  .    TCL_GLOBAL_
38b0: 4f 4e 4c 59 29 3b 0a 09 7d 20 65 6c 73 65 20 7b  ONLY);..} else {
38c0: 0a 09 20 20 20 20 69 66 20 28 6d 62 50 74 72 2d  ..    if (mbPtr-
38d0: 3e 74 65 78 74 20 21 3d 20 4e 55 4c 4c 29 20 7b  >text != NULL) {
38e0: 0a 09 09 63 6b 66 72 65 65 28 6d 62 50 74 72 2d  ...ckfree(mbPtr-
38f0: 3e 74 65 78 74 29 3b 0a 09 20 20 20 20 7d 0a 09  >text);..    }..
3900: 20 20 20 20 6d 62 50 74 72 2d 3e 74 65 78 74 20      mbPtr->text 
3910: 3d 20 28 63 68 61 72 20 2a 29 20 63 6b 61 6c 6c  = (char *) ckall
3920: 6f 63 28 28 75 6e 73 69 67 6e 65 64 29 20 28 73  oc((unsigned) (s
3930: 74 72 6c 65 6e 28 76 61 6c 75 65 29 20 2b 20 31  trlen(value) + 1
3940: 29 29 3b 0a 09 20 20 20 20 73 74 72 63 70 79 28  ));..    strcpy(
3950: 6d 62 50 74 72 2d 3e 74 65 78 74 2c 20 76 61 6c  mbPtr->text, val
3960: 75 65 29 3b 0a 09 7d 0a 09 54 63 6c 5f 54 72 61  ue);..}..Tcl_Tra
3970: 63 65 56 61 72 28 69 6e 74 65 72 70 2c 20 6d 62  ceVar(interp, mb
3980: 50 74 72 2d 3e 74 65 78 74 56 61 72 4e 61 6d 65  Ptr->textVarName
3990: 2c 0a 09 09 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f  ,...TCL_GLOBAL_O
39a0: 4e 4c 59 7c 54 43 4c 5f 54 52 41 43 45 5f 57 52  NLY|TCL_TRACE_WR
39b0: 49 54 45 53 7c 54 43 4c 5f 54 52 41 43 45 5f 55  ITES|TCL_TRACE_U
39c0: 4e 53 45 54 53 2c 0a 09 09 4d 65 6e 75 42 75 74  NSETS,...MenuBut
39d0: 74 6f 6e 54 65 78 74 56 61 72 50 72 6f 63 2c 20  tonTextVarProc, 
39e0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 6d 62 50  (ClientData) mbP
39f0: 74 72 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  tr);.    }..    
3a00: 2f 2a 0a 20 20 20 20 20 2a 20 52 65 63 6f 6d 70  /*.     * Recomp
3a10: 75 74 65 20 74 68 65 20 67 65 6f 6d 65 74 72 79  ute the geometry
3a20: 20 66 6f 72 20 74 68 65 20 62 75 74 74 6f 6e 2e   for the button.
3a30: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 43 6f 6d  .     */.    Com
3a40: 70 75 74 65 4d 65 6e 75 42 75 74 74 6f 6e 47 65  puteMenuButtonGe
3a50: 6f 6d 65 74 72 79 28 6d 62 50 74 72 29 3b 0a 0a  ometry(mbPtr);..
3a60: 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 4c 61      /*.     * La
3a70: 73 74 6c 79 2c 20 61 72 72 61 6e 67 65 20 66 6f  stly, arrange fo
3a80: 72 20 74 68 65 20 62 75 74 74 6f 6e 20 74 6f 20  r the button to 
3a90: 62 65 20 72 65 64 69 73 70 6c 61 79 65 64 2e 0a  be redisplayed..
3aa0: 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20       */..    if 
3ab0: 28 54 6b 5f 49 73 4d 61 70 70 65 64 28 6d 62 50  (Tk_IsMapped(mbP
3ac0: 74 72 2d 3e 74 6b 77 69 6e 29 20 26 26 20 21 28  tr->tkwin) && !(
3ad0: 6d 62 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 52  mbPtr->flags & R
3ae0: 45 44 52 41 57 5f 50 45 4e 44 49 4e 47 29 29 20  EDRAW_PENDING)) 
3af0: 7b 0a 09 54 63 6c 5f 44 6f 57 68 65 6e 49 64 6c  {..Tcl_DoWhenIdl
3b00: 65 28 44 69 73 70 6c 61 79 4d 65 6e 75 42 75 74  e(DisplayMenuBut
3b10: 74 6f 6e 2c 20 28 43 6c 69 65 6e 74 44 61 74 61  ton, (ClientData
3b20: 29 20 6d 62 50 74 72 29 3b 0a 09 6d 62 50 74 72  ) mbPtr);..mbPtr
3b30: 2d 3e 66 6c 61 67 73 20 7c 3d 20 52 45 44 52 41  ->flags |= REDRA
3b40: 57 5f 50 45 4e 44 49 4e 47 3b 0a 20 20 20 20 7d  W_PENDING;.    }
3b50: 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ..    return TCL
3b60: 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d  _OK;.}.../*. *--
3b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3bb0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 73 70 6c  ----. *. * Displ
3bc0: 61 79 4d 65 6e 75 42 75 74 74 6f 6e 20 2d 2d 0a  ayMenuButton --.
3bd0: 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65   *. *.This proce
3be0: 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20  dure is invoked 
3bf0: 74 6f 20 64 69 73 70 6c 61 79 20 61 20 6d 65 6e  to display a men
3c00: 75 62 75 74 74 6f 6e 20 77 69 64 67 65 74 2e 0a  ubutton widget..
3c10: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20   *. * Results:. 
3c20: 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69  *.None.. *. * Si
3c30: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43  de effects:. *.C
3c40: 6f 6d 6d 61 6e 64 73 20 61 72 65 20 6f 75 74 70  ommands are outp
3c50: 75 74 20 74 6f 20 58 20 74 6f 20 64 69 73 70 6c  ut to X to displ
3c60: 61 79 20 74 68 65 20 6d 65 6e 75 62 75 74 74 6f  ay the menubutto
3c70: 6e 20 69 6e 20 69 74 73 0a 20 2a 09 63 75 72 72  n in its. *.curr
3c80: 65 6e 74 20 6d 6f 64 65 2e 0a 20 2a 0a 20 2a 2d  ent mode.. *. *-
3c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3cd0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69  -----. */..stati
3ce0: 63 20 76 6f 69 64 0a 44 69 73 70 6c 61 79 4d 65  c void.DisplayMe
3cf0: 6e 75 42 75 74 74 6f 6e 28 63 6c 69 65 6e 74 44  nuButton(clientD
3d00: 61 74 61 29 0a 20 20 20 20 43 6c 69 65 6e 74 44  ata).    ClientD
3d10: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09  ata clientData;.
3d20: 2f 2a 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 61  /* Information a
3d30: 62 6f 75 74 20 77 69 64 67 65 74 2e 20 2a 2f 0a  bout widget. */.
3d40: 7b 0a 20 20 20 20 72 65 67 69 73 74 65 72 20 4d  {.    register M
3d50: 65 6e 75 42 75 74 74 6f 6e 20 2a 6d 62 50 74 72  enuButton *mbPtr
3d60: 20 3d 20 28 4d 65 6e 75 42 75 74 74 6f 6e 20 2a   = (MenuButton *
3d70: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20  ) clientData;.  
3d80: 20 20 72 65 67 69 73 74 65 72 20 54 6b 5f 57 69    register Tk_Wi
3d90: 6e 64 6f 77 20 74 6b 77 69 6e 20 3d 20 6d 62 50  ndow tkwin = mbP
3da0: 74 72 2d 3e 74 6b 77 69 6e 3b 0a 20 20 20 20 43  tr->tkwin;.    C
3db0: 74 6b 5f 53 74 79 6c 65 20 73 74 79 6c 65 3b 0a  tk_Style style;.
3dc0: 20 20 20 20 69 6e 74 20 78 2c 20 79 3b 0a 20 20      int x, y;.  
3dd0: 20 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 77    unsigned int w
3de0: 69 64 74 68 20 3d 20 54 6b 5f 57 69 64 74 68 28  idth = Tk_Width(
3df0: 74 6b 77 69 6e 29 3b 0a 20 20 20 20 75 6e 73 69  tkwin);.    unsi
3e00: 67 6e 65 64 20 69 6e 74 20 68 65 69 67 68 74 20  gned int height 
3e10: 3d 20 54 6b 5f 48 65 69 67 68 74 28 74 6b 77 69  = Tk_Height(tkwi
3e20: 6e 29 3b 0a 20 20 20 20 69 6e 74 20 69 6e 64 69  n);.    int indi
3e30: 63 61 74 6f 72 53 70 61 63 65 20 3d 20 28 6d 62  catorSpace = (mb
3e40: 50 74 72 2d 3e 69 6e 64 69 63 61 74 6f 72 4f 6e  Ptr->indicatorOn
3e50: 29 20 3f 20 49 4e 44 49 43 41 54 4f 52 5f 57 49  ) ? INDICATOR_WI
3e60: 44 54 48 20 3a 20 30 3b 0a 0a 20 20 20 20 6d 62  DTH : 0;..    mb
3e70: 50 74 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 52  Ptr->flags &= ~R
3e80: 45 44 52 41 57 5f 50 45 4e 44 49 4e 47 3b 0a 20  EDRAW_PENDING;. 
3e90: 20 20 20 69 66 20 28 28 74 6b 77 69 6e 20 3d 3d     if ((tkwin ==
3ea0: 20 4e 55 4c 4c 29 20 7c 7c 20 21 54 6b 5f 49 73   NULL) || !Tk_Is
3eb0: 4d 61 70 70 65 64 28 74 6b 77 69 6e 29 29 20 7b  Mapped(tkwin)) {
3ec0: 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a  ..return;.    }.
3ed0: 0a 20 20 20 20 73 74 79 6c 65 20 3d 20 28 6d 62  .    style = (mb
3ee0: 50 74 72 2d 3e 73 74 61 74 65 20 3d 3d 20 74 6b  Ptr->state == tk
3ef0: 44 69 73 61 62 6c 65 64 55 69 64 29 0a 09 20 20  DisabledUid)..  
3f00: 20 20 3f 20 43 54 4b 5f 44 49 53 41 42 4c 45 44    ? CTK_DISABLED
3f10: 5f 53 54 59 4c 45 20 3a 20 43 54 4b 5f 42 55 54  _STYLE : CTK_BUT
3f20: 54 4f 4e 5f 53 54 59 4c 45 3b 0a 0a 20 20 20 20  TON_STYLE;..    
3f30: 73 77 69 74 63 68 20 28 6d 62 50 74 72 2d 3e 61  switch (mbPtr->a
3f40: 6e 63 68 6f 72 29 20 7b 0a 20 20 20 20 63 61 73  nchor) {.    cas
3f50: 65 20 54 4b 5f 41 4e 43 48 4f 52 5f 4e 57 3a 20  e TK_ANCHOR_NW: 
3f60: 63 61 73 65 20 54 4b 5f 41 4e 43 48 4f 52 5f 57  case TK_ANCHOR_W
3f70: 3a 20 63 61 73 65 20 54 4b 5f 41 4e 43 48 4f 52  : case TK_ANCHOR
3f80: 5f 53 57 3a 0a 09 78 20 3d 20 6d 62 50 74 72 2d  _SW:..x = mbPtr-
3f90: 3e 62 6f 72 64 65 72 57 69 64 74 68 20 2b 20 6d  >borderWidth + m
3fa0: 62 50 74 72 2d 3e 70 61 64 58 3b 0a 09 62 72 65  bPtr->padX;..bre
3fb0: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 54 4b 5f  ak;.    case TK_
3fc0: 41 4e 43 48 4f 52 5f 4e 3a 20 63 61 73 65 20 54  ANCHOR_N: case T
3fd0: 4b 5f 41 4e 43 48 4f 52 5f 43 45 4e 54 45 52 3a  K_ANCHOR_CENTER:
3fe0: 20 63 61 73 65 20 54 4b 5f 41 4e 43 48 4f 52 5f   case TK_ANCHOR_
3ff0: 53 3a 0a 09 78 20 3d 20 28 77 69 64 74 68 20 2d  S:..x = (width -
4000: 20 69 6e 64 69 63 61 74 6f 72 53 70 61 63 65 20   indicatorSpace 
4010: 2d 20 6d 62 50 74 72 2d 3e 74 65 78 74 57 69 64  - mbPtr->textWid
4020: 74 68 29 2f 32 3b 0a 09 62 72 65 61 6b 3b 0a 20  th)/2;..break;. 
4030: 20 20 20 64 65 66 61 75 6c 74 3a 0a 09 78 20 3d     default:..x =
4040: 20 77 69 64 74 68 20 2d 20 6d 62 50 74 72 2d 3e   width - mbPtr->
4050: 62 6f 72 64 65 72 57 69 64 74 68 20 2d 20 6d 62  borderWidth - mb
4060: 50 74 72 2d 3e 70 61 64 58 20 2d 20 69 6e 64 69  Ptr->padX - indi
4070: 63 61 74 6f 72 53 70 61 63 65 0a 09 09 2d 20 6d  catorSpace...- m
4080: 62 50 74 72 2d 3e 74 65 78 74 57 69 64 74 68 3b  bPtr->textWidth;
4090: 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20  ..break;.    }. 
40a0: 20 20 20 73 77 69 74 63 68 20 28 6d 62 50 74 72     switch (mbPtr
40b0: 2d 3e 61 6e 63 68 6f 72 29 20 7b 0a 20 20 20 20  ->anchor) {.    
40c0: 63 61 73 65 20 54 4b 5f 41 4e 43 48 4f 52 5f 4e  case TK_ANCHOR_N
40d0: 57 3a 20 63 61 73 65 20 54 4b 5f 41 4e 43 48 4f  W: case TK_ANCHO
40e0: 52 5f 4e 3a 20 63 61 73 65 20 54 4b 5f 41 4e 43  R_N: case TK_ANC
40f0: 48 4f 52 5f 4e 45 3a 0a 09 79 20 3d 20 6d 62 50  HOR_NE:..y = mbP
4100: 74 72 2d 3e 62 6f 72 64 65 72 57 69 64 74 68 20  tr->borderWidth 
4110: 2b 20 6d 62 50 74 72 2d 3e 70 61 64 59 3b 0a 09  + mbPtr->padY;..
4120: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20  break;.    case 
4130: 54 4b 5f 41 4e 43 48 4f 52 5f 57 3a 20 63 61 73  TK_ANCHOR_W: cas
4140: 65 20 54 4b 5f 41 4e 43 48 4f 52 5f 43 45 4e 54  e TK_ANCHOR_CENT
4150: 45 52 3a 20 63 61 73 65 20 54 4b 5f 41 4e 43 48  ER: case TK_ANCH
4160: 4f 52 5f 45 3a 0a 09 79 20 3d 20 28 68 65 69 67  OR_E:..y = (heig
4170: 68 74 20 2d 20 6d 62 50 74 72 2d 3e 74 65 78 74  ht - mbPtr->text
4180: 48 65 69 67 68 74 29 2f 32 3b 0a 09 62 72 65 61  Height)/2;..brea
4190: 6b 3b 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 0a  k;.    default:.
41a0: 09 79 20 3d 20 68 65 69 67 68 74 20 2d 20 6d 62  .y = height - mb
41b0: 50 74 72 2d 3e 62 6f 72 64 65 72 57 69 64 74 68  Ptr->borderWidth
41c0: 20 2d 20 6d 62 50 74 72 2d 3e 70 61 64 59 20 2d   - mbPtr->padY -
41d0: 20 6d 62 50 74 72 2d 3e 74 65 78 74 48 65 69 67   mbPtr->textHeig
41e0: 68 74 3b 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20  ht;..break;.    
41f0: 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a  }..    /*.     *
4200: 20 43 6c 65 61 72 20 72 65 63 74 2e 0a 20 20 20   Clear rect..   
4210: 20 20 2a 2f 0a 20 20 20 20 43 74 6b 5f 46 69 6c    */.    Ctk_Fil
4220: 6c 52 65 63 74 28 74 6b 77 69 6e 2c 20 30 2c 20  lRect(tkwin, 0, 
4230: 30 2c 20 77 69 64 74 68 2c 20 68 65 69 67 68 74  0, width, height
4240: 2c 20 73 74 79 6c 65 2c 20 27 20 27 29 3b 0a 0a  , style, ' ');..
4250: 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 44 72      /*.     * Dr
4260: 61 77 20 74 65 78 74 2e 0a 20 20 20 20 20 2a 2f  aw text..     */
4270: 0a 20 20 20 20 54 6b 44 69 73 70 6c 61 79 54 65  .    TkDisplayTe
4280: 78 74 28 74 6b 77 69 6e 2c 20 73 74 79 6c 65 2c  xt(tkwin, style,
4290: 20 6d 62 50 74 72 2d 3e 74 65 78 74 2c 20 6d 62   mbPtr->text, mb
42a0: 50 74 72 2d 3e 6e 75 6d 43 68 61 72 73 2c 0a 09  Ptr->numChars,..
42b0: 20 20 20 20 78 2c 20 79 2c 20 6d 62 50 74 72 2d      x, y, mbPtr-
42c0: 3e 74 65 78 74 57 69 64 74 68 2c 20 6d 62 50 74  >textWidth, mbPt
42d0: 72 2d 3e 6a 75 73 74 69 66 79 2c 20 6d 62 50 74  r->justify, mbPt
42e0: 72 2d 3e 75 6e 64 65 72 6c 69 6e 65 29 3b 0a 0a  r->underline);..
42f0: 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 44 72      /*.     * Dr
4300: 61 77 20 49 6e 64 69 63 61 74 6f 72 2e 0a 20 20  aw Indicator..  
4310: 20 20 20 2a 2f 0a 20 20 20 20 69 66 20 28 69 6e     */.    if (in
4320: 64 69 63 61 74 6f 72 53 70 61 63 65 29 20 7b 0a  dicatorSpace) {.
4330: 09 78 20 3d 20 77 69 64 74 68 20 2d 20 6d 62 50  .x = width - mbP
4340: 74 72 2d 3e 62 6f 72 64 65 72 57 69 64 74 68 20  tr->borderWidth 
4350: 2d 20 6d 62 50 74 72 2d 3e 70 61 64 58 20 2d 20  - mbPtr->padX - 
4360: 69 6e 64 69 63 61 74 6f 72 53 70 61 63 65 3b 0a  indicatorSpace;.
4370: 09 79 20 2b 3d 20 6d 62 50 74 72 2d 3e 74 65 78  .y += mbPtr->tex
4380: 74 48 65 69 67 68 74 2f 32 3b 0a 09 43 74 6b 5f  tHeight/2;..Ctk_
4390: 44 72 61 77 43 68 61 72 61 63 74 65 72 28 74 6b  DrawCharacter(tk
43a0: 77 69 6e 2c 20 78 2c 20 79 2c 20 73 74 79 6c 65  win, x, y, style
43b0: 2c 20 27 5e 27 29 3b 0a 20 20 20 20 7d 0a 0a 20  , '^');.    }.. 
43c0: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 44 72 61     /*.     * Dra
43d0: 77 20 62 6f 72 64 65 72 2e 0a 20 20 20 20 20 2a  w border..     *
43e0: 2f 0a 20 20 20 20 43 74 6b 5f 44 72 61 77 42 6f  /.    Ctk_DrawBo
43f0: 72 64 65 72 28 74 6b 77 69 6e 2c 20 73 74 79 6c  rder(tkwin, styl
4400: 65 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29  e, (char *)NULL)
4410: 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a  ;..    /*.     *
4420: 20 50 6f 73 69 74 69 6f 6e 20 63 75 72 73 6f 72   Position cursor
4430: 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 66  ..     */.    if
4440: 20 28 6d 62 50 74 72 2d 3e 66 6c 61 67 73 20 26   (mbPtr->flags &
4450: 20 47 4f 54 5f 46 4f 43 55 53 29 20 7b 0a 09 43   GOT_FOCUS) {..C
4460: 74 6b 5f 53 65 74 43 75 72 73 6f 72 28 74 6b 77  tk_SetCursor(tkw
4470: 69 6e 2c 20 6d 62 50 74 72 2d 3e 62 6f 72 64 65  in, mbPtr->borde
4480: 72 57 69 64 74 68 2c 20 6d 62 50 74 72 2d 3e 62  rWidth, mbPtr->b
4490: 6f 72 64 65 72 57 69 64 74 68 29 3b 0a 20 20 20  orderWidth);.   
44a0: 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d   }.}.../*. *----
44b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
44c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
44d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
44e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a  ----------. *. *
44f0: 20 4d 65 6e 75 42 75 74 74 6f 6e 45 76 65 6e 74   MenuButtonEvent
4500: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68  Proc --. *. *.Th
4510: 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20  is procedure is 
4520: 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 54  invoked by the T
4530: 6b 20 64 69 73 70 61 74 63 68 65 72 20 66 6f 72  k dispatcher for
4540: 20 76 61 72 69 6f 75 73 0a 20 2a 09 65 76 65 6e   various. *.even
4550: 74 73 20 6f 6e 20 62 75 74 74 6f 6e 73 2e 0a 20  ts on buttons.. 
4560: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a  *. * Results:. *
4570: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64  .None.. *. * Sid
4580: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 57 68  e effects:. *.Wh
4590: 65 6e 20 74 68 65 20 77 69 6e 64 6f 77 20 67 65  en the window ge
45a0: 74 73 20 64 65 6c 65 74 65 64 2c 20 69 6e 74 65  ts deleted, inte
45b0: 72 6e 61 6c 20 73 74 72 75 63 74 75 72 65 73 20  rnal structures 
45c0: 67 65 74 0a 20 2a 09 63 6c 65 61 6e 65 64 20 75  get. *.cleaned u
45d0: 70 2e 20 20 57 68 65 6e 20 69 74 20 67 65 74 73  p.  When it gets
45e0: 20 65 78 70 6f 73 65 64 2c 20 69 74 20 69 73 20   exposed, it is 
45f0: 72 65 64 69 73 70 6c 61 79 65 64 2e 0a 20 2a 0a  redisplayed.. *.
4600: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
4610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4640: 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f 69  . */..static voi
4650: 64 0a 4d 65 6e 75 42 75 74 74 6f 6e 45 76 65 6e  d.MenuButtonEven
4660: 74 50 72 6f 63 28 63 6c 69 65 6e 74 44 61 74 61  tProc(clientData
4670: 2c 20 65 76 65 6e 74 50 74 72 29 0a 20 20 20 20  , eventPtr).    
4680: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e  ClientData clien
4690: 74 44 61 74 61 3b 09 2f 2a 20 49 6e 66 6f 72 6d  tData;./* Inform
46a0: 61 74 69 6f 6e 20 61 62 6f 75 74 20 77 69 6e 64  ation about wind
46b0: 6f 77 2e 20 2a 2f 0a 20 20 20 20 58 45 76 65 6e  ow. */.    XEven
46c0: 74 20 2a 65 76 65 6e 74 50 74 72 3b 09 09 2f 2a  t *eventPtr;../*
46d0: 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 6f   Information abo
46e0: 75 74 20 65 76 65 6e 74 2e 20 2a 2f 0a 7b 0a 20  ut event. */.{. 
46f0: 20 20 20 4d 65 6e 75 42 75 74 74 6f 6e 20 2a 6d     MenuButton *m
4700: 62 50 74 72 20 3d 20 28 4d 65 6e 75 42 75 74 74  bPtr = (MenuButt
4710: 6f 6e 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61  on *) clientData
4720: 3b 0a 20 20 20 20 69 66 20 28 65 76 65 6e 74 50  ;.    if (eventP
4730: 74 72 2d 3e 74 79 70 65 20 3d 3d 20 43 54 4b 5f  tr->type == CTK_
4740: 45 58 50 4f 53 45 5f 45 56 45 4e 54 29 20 7b 0a  EXPOSE_EVENT) {.
4750: 09 69 66 20 28 28 6d 62 50 74 72 2d 3e 74 6b 77  .if ((mbPtr->tkw
4760: 69 6e 20 21 3d 20 4e 55 4c 4c 29 20 26 26 20 21  in != NULL) && !
4770: 28 6d 62 50 74 72 2d 3e 66 6c 61 67 73 20 26 20  (mbPtr->flags & 
4780: 52 45 44 52 41 57 5f 50 45 4e 44 49 4e 47 29 29  REDRAW_PENDING))
4790: 20 7b 0a 09 20 20 20 20 54 63 6c 5f 44 6f 57 68   {..    Tcl_DoWh
47a0: 65 6e 49 64 6c 65 28 44 69 73 70 6c 61 79 4d 65  enIdle(DisplayMe
47b0: 6e 75 42 75 74 74 6f 6e 2c 20 28 43 6c 69 65 6e  nuButton, (Clien
47c0: 74 44 61 74 61 29 20 6d 62 50 74 72 29 3b 0a 09  tData) mbPtr);..
47d0: 20 20 20 20 6d 62 50 74 72 2d 3e 66 6c 61 67 73      mbPtr->flags
47e0: 20 7c 3d 20 52 45 44 52 41 57 5f 50 45 4e 44 49   |= REDRAW_PENDI
47f0: 4e 47 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73  NG;..}.    } els
4800: 65 20 69 66 20 28 65 76 65 6e 74 50 74 72 2d 3e  e if (eventPtr->
4810: 74 79 70 65 20 3d 3d 20 43 54 4b 5f 44 45 53 54  type == CTK_DEST
4820: 52 4f 59 5f 45 56 45 4e 54 29 20 7b 0a 09 69 66  ROY_EVENT) {..if
4830: 20 28 6d 62 50 74 72 2d 3e 74 6b 77 69 6e 20 21   (mbPtr->tkwin !
4840: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 6d  = NULL) {..    m
4850: 62 50 74 72 2d 3e 74 6b 77 69 6e 20 3d 20 4e 55  bPtr->tkwin = NU
4860: 4c 4c 3b 0a 09 20 20 20 20 54 63 6c 5f 44 65 6c  LL;..    Tcl_Del
4870: 65 74 65 43 6f 6d 6d 61 6e 64 28 6d 62 50 74 72  eteCommand(mbPtr
4880: 2d 3e 69 6e 74 65 72 70 2c 0a 09 09 54 63 6c 5f  ->interp,...Tcl_
4890: 47 65 74 43 6f 6d 6d 61 6e 64 4e 61 6d 65 28 6d  GetCommandName(m
48a0: 62 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 6d 62  bPtr->interp, mb
48b0: 50 74 72 2d 3e 77 69 64 67 65 74 43 6d 64 29 29  Ptr->widgetCmd))
48c0: 3b 0a 09 7d 0a 09 69 66 20 28 6d 62 50 74 72 2d  ;..}..if (mbPtr-
48d0: 3e 66 6c 61 67 73 20 26 20 52 45 44 52 41 57 5f  >flags & REDRAW_
48e0: 50 45 4e 44 49 4e 47 29 20 7b 0a 09 20 20 20 20  PENDING) {..    
48f0: 54 63 6c 5f 43 61 6e 63 65 6c 49 64 6c 65 43 61  Tcl_CancelIdleCa
4900: 6c 6c 28 44 69 73 70 6c 61 79 4d 65 6e 75 42 75  ll(DisplayMenuBu
4910: 74 74 6f 6e 2c 20 28 43 6c 69 65 6e 74 44 61 74  tton, (ClientDat
4920: 61 29 20 6d 62 50 74 72 29 3b 0a 09 7d 0a 09 54  a) mbPtr);..}..T
4930: 6b 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 65  k_EventuallyFree
4940: 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 6d 62  ((ClientData) mb
4950: 50 74 72 2c 20 44 65 73 74 72 6f 79 4d 65 6e 75  Ptr, DestroyMenu
4960: 42 75 74 74 6f 6e 29 3b 0a 20 20 20 20 7d 20 65  Button);.    } e
4970: 6c 73 65 20 69 66 20 28 65 76 65 6e 74 50 74 72  lse if (eventPtr
4980: 2d 3e 74 79 70 65 20 3d 3d 20 43 54 4b 5f 46 4f  ->type == CTK_FO
4990: 43 55 53 5f 45 56 45 4e 54 29 20 7b 0a 09 6d 62  CUS_EVENT) {..mb
49a0: 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 47 4f  Ptr->flags |= GO
49b0: 54 5f 46 4f 43 55 53 3b 0a 09 43 74 6b 5f 53 65  T_FOCUS;..Ctk_Se
49c0: 74 43 75 72 73 6f 72 28 6d 62 50 74 72 2d 3e 74  tCursor(mbPtr->t
49d0: 6b 77 69 6e 2c 20 6d 62 50 74 72 2d 3e 62 6f 72  kwin, mbPtr->bor
49e0: 64 65 72 57 69 64 74 68 2c 20 6d 62 50 74 72 2d  derWidth, mbPtr-
49f0: 3e 62 6f 72 64 65 72 57 69 64 74 68 29 3b 0a 20  >borderWidth);. 
4a00: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 65 76     } else if (ev
4a10: 65 6e 74 50 74 72 2d 3e 74 79 70 65 20 3d 3d 20  entPtr->type == 
4a20: 43 54 4b 5f 55 4e 46 4f 43 55 53 5f 45 56 45 4e  CTK_UNFOCUS_EVEN
4a30: 54 29 20 7b 0a 09 6d 62 50 74 72 2d 3e 66 6c 61  T) {..mbPtr->fla
4a40: 67 73 20 26 3d 20 7e 47 4f 54 5f 46 4f 43 55 53  gs &= ~GOT_FOCUS
4a50: 3b 0a 20 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20  ;.    }.}.../*. 
4a60: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
4a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4aa0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 65  -------. *. * Me
4ab0: 6e 75 42 75 74 74 6f 6e 43 6d 64 44 65 6c 65 74  nuButtonCmdDelet
4ac0: 65 64 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09  edProc --. *. *.
4ad0: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69  This procedure i
4ae0: 73 20 69 6e 76 6f 6b 65 64 20 77 68 65 6e 20 61  s invoked when a
4af0: 20 77 69 64 67 65 74 20 63 6f 6d 6d 61 6e 64 20   widget command 
4b00: 69 73 20 64 65 6c 65 74 65 64 2e 20 20 49 66 0a  is deleted.  If.
4b10: 20 2a 09 74 68 65 20 77 69 64 67 65 74 20 69 73   *.the widget is
4b20: 6e 27 74 20 61 6c 72 65 61 64 79 20 69 6e 20 74  n't already in t
4b30: 68 65 20 70 72 6f 63 65 73 73 20 6f 66 20 62 65  he process of be
4b40: 69 6e 67 20 64 65 73 74 72 6f 79 65 64 2c 0a 20  ing destroyed,. 
4b50: 2a 09 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 64  *.this command d
4b60: 65 73 74 72 6f 79 73 20 69 74 2e 0a 20 2a 0a 20  estroys it.. *. 
4b70: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f  * Results:. *.No
4b80: 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  ne.. *. * Side e
4b90: 66 66 65 63 74 73 3a 0a 20 2a 09 54 68 65 20 77  ffects:. *.The w
4ba0: 69 64 67 65 74 20 69 73 20 64 65 73 74 72 6f 79  idget is destroy
4bb0: 65 64 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  ed.. *. *-------
4bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
4c00: 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f 69 64   */..static void
4c10: 0a 4d 65 6e 75 42 75 74 74 6f 6e 43 6d 64 44 65  .MenuButtonCmdDe
4c20: 6c 65 74 65 64 50 72 6f 63 28 63 6c 69 65 6e 74  letedProc(client
4c30: 44 61 74 61 29 0a 20 20 20 20 43 6c 69 65 6e 74  Data).    Client
4c40: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b  Data clientData;
4c50: 09 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 77  ./* Pointer to w
4c60: 69 64 67 65 74 20 72 65 63 6f 72 64 20 66 6f 72  idget record for
4c70: 20 77 69 64 67 65 74 2e 20 2a 2f 0a 7b 0a 20 20   widget. */.{.  
4c80: 20 20 4d 65 6e 75 42 75 74 74 6f 6e 20 2a 6d 62    MenuButton *mb
4c90: 50 74 72 20 3d 20 28 4d 65 6e 75 42 75 74 74 6f  Ptr = (MenuButto
4ca0: 6e 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b  n *) clientData;
4cb0: 0a 20 20 20 20 54 6b 5f 57 69 6e 64 6f 77 20 74  .    Tk_Window t
4cc0: 6b 77 69 6e 20 3d 20 6d 62 50 74 72 2d 3e 74 6b  kwin = mbPtr->tk
4cd0: 77 69 6e 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20  win;..    /*.   
4ce0: 20 20 2a 20 54 68 69 73 20 70 72 6f 63 65 64 75    * This procedu
4cf0: 72 65 20 63 6f 75 6c 64 20 62 65 20 69 6e 76 6f  re could be invo
4d00: 6b 65 64 20 65 69 74 68 65 72 20 62 65 63 61 75  ked either becau
4d10: 73 65 20 74 68 65 20 77 69 6e 64 6f 77 20 77 61  se the window wa
4d20: 73 0a 20 20 20 20 20 2a 20 64 65 73 74 72 6f 79  s.     * destroy
4d30: 65 64 20 61 6e 64 20 74 68 65 20 63 6f 6d 6d 61  ed and the comma
4d40: 6e 64 20 77 61 73 20 74 68 65 6e 20 64 65 6c 65  nd was then dele
4d50: 74 65 64 20 28 69 6e 20 77 68 69 63 68 20 63 61  ted (in which ca
4d60: 73 65 20 74 6b 77 69 6e 0a 20 20 20 20 20 2a 20  se tkwin.     * 
4d70: 69 73 20 4e 55 4c 4c 29 20 6f 72 20 62 65 63 61  is NULL) or beca
4d80: 75 73 65 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20  use the command 
4d90: 77 61 73 20 64 65 6c 65 74 65 64 2c 20 61 6e 64  was deleted, and
4da0: 20 74 68 65 6e 20 74 68 69 73 20 70 72 6f 63 65   then this proce
4db0: 64 75 72 65 0a 20 20 20 20 20 2a 20 64 65 73 74  dure.     * dest
4dc0: 72 6f 79 73 20 74 68 65 20 77 69 64 67 65 74 2e  roys the widget.
4dd0: 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69 66  .     */..    if
4de0: 20 28 74 6b 77 69 6e 20 21 3d 20 4e 55 4c 4c 29   (tkwin != NULL)
4df0: 20 7b 0a 09 6d 62 50 74 72 2d 3e 74 6b 77 69 6e   {..mbPtr->tkwin
4e00: 20 3d 20 4e 55 4c 4c 3b 0a 09 54 6b 5f 44 65 73   = NULL;..Tk_Des
4e10: 74 72 6f 79 57 69 6e 64 6f 77 28 74 6b 77 69 6e  troyWindow(tkwin
4e20: 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a  );.    }.}.../*.
4e30: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
4e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4e70: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43  --------. *. * C
4e80: 6f 6d 70 75 74 65 4d 65 6e 75 42 75 74 74 6f 6e  omputeMenuButton
4e90: 47 65 6f 6d 65 74 72 79 20 2d 2d 0a 20 2a 0a 20  Geometry --. *. 
4ea0: 2a 09 41 66 74 65 72 20 63 68 61 6e 67 65 73 20  *.After changes 
4eb0: 69 6e 20 61 20 6d 65 6e 75 20 62 75 74 74 6f 6e  in a menu button
4ec0: 27 73 20 74 65 78 74 20 6f 72 20 62 69 74 6d 61  's text or bitma
4ed0: 70 2c 20 74 68 69 73 20 70 72 6f 63 65 64 75 72  p, this procedur
4ee0: 65 0a 20 2a 09 72 65 63 6f 6d 70 75 74 65 73 20  e. *.recomputes 
4ef0: 74 68 65 20 6d 65 6e 75 20 62 75 74 74 6f 6e 27  the menu button'
4f00: 73 20 67 65 6f 6d 65 74 72 79 20 61 6e 64 20 70  s geometry and p
4f10: 61 73 73 65 73 20 74 68 69 73 20 69 6e 66 6f 72  asses this infor
4f20: 6d 61 74 69 6f 6e 0a 20 2a 09 61 6c 6f 6e 67 20  mation. *.along 
4f30: 74 6f 20 74 68 65 20 67 65 6f 6d 65 74 72 79 20  to the geometry 
4f40: 6d 61 6e 61 67 65 72 20 66 6f 72 20 74 68 65 20  manager for the 
4f50: 77 69 6e 64 6f 77 2e 0a 20 2a 0a 20 2a 20 52 65  window.. *. * Re
4f60: 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a  sults:. *.None..
4f70: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63   *. * Side effec
4f80: 74 73 3a 0a 20 2a 09 54 68 65 20 6d 65 6e 75 20  ts:. *.The menu 
4f90: 62 75 74 74 6f 6e 27 73 20 77 69 6e 64 6f 77 20  button's window 
4fa0: 6d 61 79 20 63 68 61 6e 67 65 20 73 69 7a 65 2e  may change size.
4fb0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *. *----------
4fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
5000: 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 43 6f  ..static void.Co
5010: 6d 70 75 74 65 4d 65 6e 75 42 75 74 74 6f 6e 47  mputeMenuButtonG
5020: 65 6f 6d 65 74 72 79 28 6d 62 50 74 72 29 0a 20  eometry(mbPtr). 
5030: 20 20 20 72 65 67 69 73 74 65 72 20 4d 65 6e 75     register Menu
5040: 42 75 74 74 6f 6e 20 2a 6d 62 50 74 72 3b 09 09  Button *mbPtr;..
5050: 2f 2a 20 57 69 64 67 65 74 20 72 65 63 6f 72 64  /* Widget record
5060: 20 66 6f 72 20 6d 65 6e 75 20 62 75 74 74 6f 6e   for menu button
5070: 2e 20 2a 2f 0a 7b 0a 20 20 20 20 69 6e 74 20 77  . */.{.    int w
5080: 69 64 74 68 2c 20 68 65 69 67 68 74 3b 0a 20 20  idth, height;.  
5090: 20 20 69 6e 74 20 69 6e 64 69 63 61 74 6f 72 53    int indicatorS
50a0: 70 61 63 65 20 3d 20 28 6d 62 50 74 72 2d 3e 69  pace = (mbPtr->i
50b0: 6e 64 69 63 61 74 6f 72 4f 6e 29 20 3f 20 49 4e  ndicatorOn) ? IN
50c0: 44 49 43 41 54 4f 52 5f 57 49 44 54 48 20 3a 20  DICATOR_WIDTH : 
50d0: 30 3b 0a 0a 20 20 20 20 6d 62 50 74 72 2d 3e 6e  0;..    mbPtr->n
50e0: 75 6d 43 68 61 72 73 20 3d 20 73 74 72 6c 65 6e  umChars = strlen
50f0: 28 6d 62 50 74 72 2d 3e 74 65 78 74 29 3b 0a 20  (mbPtr->text);. 
5100: 20 20 20 54 6b 43 6f 6d 70 75 74 65 54 65 78 74     TkComputeText
5110: 47 65 6f 6d 65 74 72 79 28 6d 62 50 74 72 2d 3e  Geometry(mbPtr->
5120: 74 65 78 74 2c 20 6d 62 50 74 72 2d 3e 6e 75 6d  text, mbPtr->num
5130: 43 68 61 72 73 2c 0a 20 20 20 20 09 20 20 20 20  Chars,.    .    
5140: 6d 62 50 74 72 2d 3e 77 72 61 70 4c 65 6e 67 74  mbPtr->wrapLengt
5150: 68 2c 0a 20 20 20 20 09 20 20 20 20 26 6d 62 50  h,.    .    &mbP
5160: 74 72 2d 3e 74 65 78 74 57 69 64 74 68 2c 20 26  tr->textWidth, &
5170: 6d 62 50 74 72 2d 3e 74 65 78 74 48 65 69 67 68  mbPtr->textHeigh
5180: 74 29 3b 0a 20 20 20 20 77 69 64 74 68 20 3d 20  t);.    width = 
5190: 6d 62 50 74 72 2d 3e 77 69 64 74 68 3b 0a 20 20  mbPtr->width;.  
51a0: 20 20 69 66 20 28 77 69 64 74 68 20 3c 20 30 29    if (width < 0)
51b0: 20 7b 0a 09 77 69 64 74 68 20 3d 20 6d 62 50 74   {..width = mbPt
51c0: 72 2d 3e 74 65 78 74 57 69 64 74 68 3b 0a 20 20  r->textWidth;.  
51d0: 20 20 7d 0a 20 20 20 20 68 65 69 67 68 74 20 3d    }.    height =
51e0: 20 6d 62 50 74 72 2d 3e 68 65 69 67 68 74 3b 0a   mbPtr->height;.
51f0: 20 20 20 20 69 66 20 28 68 65 69 67 68 74 20 3c      if (height <
5200: 20 30 29 20 7b 0a 09 68 65 69 67 68 74 20 3d 20   0) {..height = 
5210: 6d 62 50 74 72 2d 3e 74 65 78 74 48 65 69 67 68  mbPtr->textHeigh
5220: 74 3b 0a 20 20 20 20 7d 0a 20 20 20 20 77 69 64  t;.    }.    wid
5230: 74 68 20 2b 3d 20 32 2a 6d 62 50 74 72 2d 3e 70  th += 2*mbPtr->p
5240: 61 64 58 3b 0a 20 20 20 20 68 65 69 67 68 74 20  adX;.    height 
5250: 2b 3d 20 32 2a 6d 62 50 74 72 2d 3e 70 61 64 59  += 2*mbPtr->padY
5260: 3b 0a 0a 20 20 20 20 54 6b 5f 47 65 6f 6d 65 74  ;..    Tk_Geomet
5270: 72 79 52 65 71 75 65 73 74 28 6d 62 50 74 72 2d  ryRequest(mbPtr-
5280: 3e 74 6b 77 69 6e 2c 0a 20 20 20 20 09 20 20 20  >tkwin,.    .   
5290: 20 77 69 64 74 68 20 2b 20 69 6e 64 69 63 61 74   width + indicat
52a0: 6f 72 53 70 61 63 65 20 2b 20 32 2a 6d 62 50 74  orSpace + 2*mbPt
52b0: 72 2d 3e 62 6f 72 64 65 72 57 69 64 74 68 2c 0a  r->borderWidth,.
52c0: 20 20 20 20 09 20 20 20 20 68 65 69 67 68 74 20      .    height 
52d0: 2b 20 32 2a 6d 62 50 74 72 2d 3e 62 6f 72 64 65  + 2*mbPtr->borde
52e0: 72 57 69 64 74 68 29 3b 0a 7d 0a 0c 0a 2f 2a 0a  rWidth);.}.../*.
52f0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
5300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5330: 0a 20 2a 0a 20 2a 20 4d 65 6e 75 42 75 74 74 6f  . *. * MenuButto
5340: 6e 54 65 78 74 56 61 72 50 72 6f 63 20 2d 2d 0a  nTextVarProc --.
5350: 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65   *. *.This proce
5360: 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20  dure is invoked 
5370: 77 68 65 6e 20 73 6f 6d 65 6f 6e 65 20 63 68 61  when someone cha
5380: 6e 67 65 73 20 74 68 65 20 76 61 72 69 61 62 6c  nges the variabl
5390: 65 0a 20 2a 09 77 68 6f 73 65 20 63 6f 6e 74 65  e. *.whose conte
53a0: 6e 74 73 20 61 72 65 20 74 6f 20 62 65 20 64 69  nts are to be di
53b0: 73 70 6c 61 79 65 64 20 69 6e 20 61 20 6d 65 6e  splayed in a men
53c0: 75 20 62 75 74 74 6f 6e 2e 0a 20 2a 0a 20 2a 20  u button.. *. * 
53d0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 55 4c 4c  Results:. *.NULL
53e0: 20 69 73 20 61 6c 77 61 79 73 20 72 65 74 75 72   is always retur
53f0: 6e 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20  ned.. *. * Side 
5400: 65 66 66 65 63 74 73 3a 0a 20 2a 09 54 68 65 20  effects:. *.The 
5410: 74 65 78 74 20 64 69 73 70 6c 61 79 65 64 20 69  text displayed i
5420: 6e 20 74 68 65 20 6d 65 6e 75 20 62 75 74 74 6f  n the menu butto
5430: 6e 20 77 69 6c 6c 20 63 68 61 6e 67 65 20 74 6f  n will change to
5440: 20 6d 61 74 63 68 20 74 68 65 0a 20 2a 09 76 61   match the. *.va
5450: 72 69 61 62 6c 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d  riable.. *. *---
5460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a  -----------. */.
54a0: 0a 09 2f 2a 20 41 52 47 53 55 53 45 44 20 2a 2f  ../* ARGSUSED */
54b0: 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a 0a 4d  .static char *.M
54c0: 65 6e 75 42 75 74 74 6f 6e 54 65 78 74 56 61 72  enuButtonTextVar
54d0: 50 72 6f 63 28 63 6c 69 65 6e 74 44 61 74 61 2c  Proc(clientData,
54e0: 20 69 6e 74 65 72 70 2c 20 6e 61 6d 65 31 2c 20   interp, name1, 
54f0: 6e 61 6d 65 32 2c 20 66 6c 61 67 73 29 0a 20 20  name2, flags).  
5500: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69    ClientData cli
5510: 65 6e 74 44 61 74 61 3b 09 2f 2a 20 49 6e 66 6f  entData;./* Info
5520: 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 62 75  rmation about bu
5530: 74 74 6f 6e 2e 20 2a 2f 0a 20 20 20 20 54 63 6c  tton. */.    Tcl
5540: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b  _Interp *interp;
5550: 09 09 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 72  ../* Interpreter
5560: 20 63 6f 6e 74 61 69 6e 69 6e 67 20 76 61 72 69   containing vari
5570: 61 62 6c 65 2e 20 2a 2f 0a 20 20 20 20 63 68 61  able. */.    cha
5580: 72 20 2a 6e 61 6d 65 31 3b 09 09 2f 2a 20 4e 61  r *name1;../* Na
5590: 6d 65 20 6f 66 20 76 61 72 69 61 62 6c 65 2e 20  me of variable. 
55a0: 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a 6e 61 6d  */.    char *nam
55b0: 65 32 3b 09 09 2f 2a 20 53 65 63 6f 6e 64 20 70  e2;../* Second p
55c0: 61 72 74 20 6f 66 20 76 61 72 69 61 62 6c 65 20  art of variable 
55d0: 6e 61 6d 65 2e 20 2a 2f 0a 20 20 20 20 69 6e 74  name. */.    int
55e0: 20 66 6c 61 67 73 3b 09 09 09 2f 2a 20 49 6e 66   flags;.../* Inf
55f0: 6f 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 77  ormation about w
5600: 68 61 74 20 68 61 70 70 65 6e 65 64 2e 20 2a 2f  hat happened. */
5610: 0a 7b 0a 20 20 20 20 72 65 67 69 73 74 65 72 20  .{.    register 
5620: 4d 65 6e 75 42 75 74 74 6f 6e 20 2a 6d 62 50 74  MenuButton *mbPt
5630: 72 20 3d 20 28 4d 65 6e 75 42 75 74 74 6f 6e 20  r = (MenuButton 
5640: 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20  *) clientData;. 
5650: 20 20 20 63 68 61 72 20 2a 76 61 6c 75 65 3b 0a     char *value;.
5660: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 49  .    /*.     * I
5670: 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 69  f the variable i
5680: 73 20 75 6e 73 65 74 2c 20 74 68 65 6e 20 69 6d  s unset, then im
5690: 6d 65 64 69 61 74 65 6c 79 20 72 65 63 72 65 61  mediately recrea
56a0: 74 65 20 69 74 20 75 6e 6c 65 73 73 0a 20 20 20  te it unless.   
56b0: 20 20 2a 20 74 68 65 20 77 68 6f 6c 65 20 69 6e    * the whole in
56c0: 74 65 72 70 72 65 74 65 72 20 69 73 20 67 6f 69  terpreter is goi
56d0: 6e 67 20 61 77 61 79 2e 0a 20 20 20 20 20 2a 2f  ng away..     */
56e0: 0a 0a 20 20 20 20 69 66 20 28 66 6c 61 67 73 20  ..    if (flags 
56f0: 26 20 54 43 4c 5f 54 52 41 43 45 5f 55 4e 53 45  & TCL_TRACE_UNSE
5700: 54 53 29 20 7b 0a 09 69 66 20 28 28 66 6c 61 67  TS) {..if ((flag
5710: 73 20 26 20 54 43 4c 5f 54 52 41 43 45 5f 44 45  s & TCL_TRACE_DE
5720: 53 54 52 4f 59 45 44 29 20 26 26 20 21 28 66 6c  STROYED) && !(fl
5730: 61 67 73 20 26 20 54 43 4c 5f 49 4e 54 45 52 50  ags & TCL_INTERP
5740: 5f 44 45 53 54 52 4f 59 45 44 29 29 20 7b 0a 09  _DESTROYED)) {..
5750: 20 20 20 20 54 63 6c 5f 53 65 74 56 61 72 28 69      Tcl_SetVar(i
5760: 6e 74 65 72 70 2c 20 6d 62 50 74 72 2d 3e 74 65  nterp, mbPtr->te
5770: 78 74 56 61 72 4e 61 6d 65 2c 20 6d 62 50 74 72  xtVarName, mbPtr
5780: 2d 3e 74 65 78 74 2c 0a 09 09 20 20 20 20 54 43  ->text,...    TC
5790: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
57a0: 09 20 20 20 20 54 63 6c 5f 54 72 61 63 65 56 61  .    Tcl_TraceVa
57b0: 72 28 69 6e 74 65 72 70 2c 20 6d 62 50 74 72 2d  r(interp, mbPtr-
57c0: 3e 74 65 78 74 56 61 72 4e 61 6d 65 2c 0a 09 09  >textVarName,...
57d0: 20 20 20 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f      TCL_GLOBAL_O
57e0: 4e 4c 59 7c 54 43 4c 5f 54 52 41 43 45 5f 57 52  NLY|TCL_TRACE_WR
57f0: 49 54 45 53 7c 54 43 4c 5f 54 52 41 43 45 5f 55  ITES|TCL_TRACE_U
5800: 4e 53 45 54 53 2c 0a 09 09 20 20 20 20 4d 65 6e  NSETS,...    Men
5810: 75 42 75 74 74 6f 6e 54 65 78 74 56 61 72 50 72  uButtonTextVarPr
5820: 6f 63 2c 20 63 6c 69 65 6e 74 44 61 74 61 29 3b  oc, clientData);
5830: 0a 09 7d 0a 09 72 65 74 75 72 6e 20 28 63 68 61  ..}..return (cha
5840: 72 20 2a 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d  r *) NULL;.    }
5850: 0a 0a 20 20 20 20 76 61 6c 75 65 20 3d 20 54 63  ..    value = Tc
5860: 6c 5f 47 65 74 56 61 72 28 69 6e 74 65 72 70 2c  l_GetVar(interp,
5870: 20 6d 62 50 74 72 2d 3e 74 65 78 74 56 61 72 4e   mbPtr->textVarN
5880: 61 6d 65 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c 5f  ame, TCL_GLOBAL_
5890: 4f 4e 4c 59 29 3b 0a 20 20 20 20 69 66 20 28 76  ONLY);.    if (v
58a0: 61 6c 75 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  alue == NULL) {.
58b0: 09 76 61 6c 75 65 20 3d 20 22 22 3b 0a 20 20 20  .value = "";.   
58c0: 20 7d 0a 20 20 20 20 69 66 20 28 6d 62 50 74 72   }.    if (mbPtr
58d0: 2d 3e 74 65 78 74 20 21 3d 20 4e 55 4c 4c 29 20  ->text != NULL) 
58e0: 7b 0a 09 63 6b 66 72 65 65 28 6d 62 50 74 72 2d  {..ckfree(mbPtr-
58f0: 3e 74 65 78 74 29 3b 0a 20 20 20 20 7d 0a 20 20  >text);.    }.  
5900: 20 20 6d 62 50 74 72 2d 3e 74 65 78 74 20 3d 20    mbPtr->text = 
5910: 28 63 68 61 72 20 2a 29 20 63 6b 61 6c 6c 6f 63  (char *) ckalloc
5920: 28 28 75 6e 73 69 67 6e 65 64 29 20 28 73 74 72  ((unsigned) (str
5930: 6c 65 6e 28 76 61 6c 75 65 29 20 2b 20 31 29 29  len(value) + 1))
5940: 3b 0a 20 20 20 20 73 74 72 63 70 79 28 6d 62 50  ;.    strcpy(mbP
5950: 74 72 2d 3e 74 65 78 74 2c 20 76 61 6c 75 65 29  tr->text, value)
5960: 3b 0a 20 20 20 20 43 6f 6d 70 75 74 65 4d 65 6e  ;.    ComputeMen
5970: 75 42 75 74 74 6f 6e 47 65 6f 6d 65 74 72 79 28  uButtonGeometry(
5980: 6d 62 50 74 72 29 3b 0a 0a 20 20 20 20 69 66 20  mbPtr);..    if 
5990: 28 28 6d 62 50 74 72 2d 3e 74 6b 77 69 6e 20 21  ((mbPtr->tkwin !
59a0: 3d 20 4e 55 4c 4c 29 20 26 26 20 54 6b 5f 49 73  = NULL) && Tk_Is
59b0: 4d 61 70 70 65 64 28 6d 62 50 74 72 2d 3e 74 6b  Mapped(mbPtr->tk
59c0: 77 69 6e 29 0a 09 20 20 20 20 26 26 20 21 28 6d  win)..    && !(m
59d0: 62 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 52 45  bPtr->flags & RE
59e0: 44 52 41 57 5f 50 45 4e 44 49 4e 47 29 29 20 7b  DRAW_PENDING)) {
59f0: 0a 09 54 63 6c 5f 44 6f 57 68 65 6e 49 64 6c 65  ..Tcl_DoWhenIdle
5a00: 28 44 69 73 70 6c 61 79 4d 65 6e 75 42 75 74 74  (DisplayMenuButt
5a10: 6f 6e 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29  on, (ClientData)
5a20: 20 6d 62 50 74 72 29 3b 0a 09 6d 62 50 74 72 2d   mbPtr);..mbPtr-
5a30: 3e 66 6c 61 67 73 20 7c 3d 20 52 45 44 52 41 57  >flags |= REDRAW
5a40: 5f 50 45 4e 44 49 4e 47 3b 0a 20 20 20 20 7d 0a  _PENDING;.    }.
5a50: 20 20 20 20 72 65 74 75 72 6e 20 28 63 68 61 72      return (char
5a60: 20 2a 29 20 4e 55 4c 4c 3b 0a 7d 0a               *) NULL;.}.