开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
tkButton.c
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：59k
源码类别：

通讯编程

开发平台：

Visual C++

tkButton.c：源码内容
  1. /* 
  2.  * tkButton.c --
  3.  *
  4.  * This module implements a collection of button-like
  5.  * widgets for the Tk toolkit.  The widgets implemented
  6.  * include labels, buttons, checkbuttons, and radiobuttons.
  7.  *
  8.  * Copyright (c) 1990-1994 The Regents of the University of California.
  9.  * Copyright (c) 1994-1998 Sun Microsystems, Inc.
  10.  *
  11.  * See the file "license.terms" for information on usage and redistribution
  12.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  13.  *
  14.  * RCS: @(#) $Id: tkButton.c,v 1.20.2.2 2003/11/12 00:05:13 hobbs Exp $
  15.  */
  17. #include "tkButton.h"
  18. #include "default.h"
  20. typedef struct ThreadSpecificData { 
  21.     int defaultsInitialized;
  22. } ThreadSpecificData;
  23. static Tcl_ThreadDataKey dataKey;
  25. /*
  26.  * Class names for buttons, indexed by one of the type values defined
  27.  * in tkButton.h.
  28.  */
  30. static char *classNames[] = {"Label", "Button", "Checkbutton", "Radiobutton"};
  32. /*
  33.  * The following table defines the legal values for the -default option.
  34.  * It is used together with the "enum defaultValue" declaration in tkButton.h.
  35.  */
  37. static char *defaultStrings[] = {
  38.     "active", "disabled", "normal", (char *) NULL
  39. };
  41. /*
  42.  * The following table defines the legal values for the -state option.
  43.  * It is used together with the "enum state" declaration in tkButton.h.
  44.  */
  46. static char *stateStrings[] = {
  47.     "active", "disabled", "normal", (char *) NULL
  48. };
  50. /*
  51.  * The following table defines the legal values for the -compound option.
  52.  * It is used with the "enum compound" declaration in tkButton.h
  53.  */
  55. static char *compoundStrings[] = {
  56.     "bottom", "center", "left", "none", "right", "top", (char *) NULL
  57. };
  59. /*
  60.  * Information used for parsing configuration options.  There is a
  61.  * separate table for each of the four widget classes.
  62.  */
  64. static Tk_OptionSpec labelOptionSpecs[] = {
  65.     {TK_OPTION_BORDER, "-activebackground", "activeBackground", "Foreground",
  66. DEF_BUTTON_ACTIVE_BG_COLOR, -1, Tk_Offset(TkButton, activeBorder),
  67. 0, (ClientData) DEF_BUTTON_ACTIVE_BG_MONO, 0},
  68.     {TK_OPTION_COLOR, "-activeforeground", "activeForeground", "Background",
  69. DEF_BUTTON_ACTIVE_FG_COLOR, -1, Tk_Offset(TkButton, activeFg),
  70. TK_OPTION_NULL_OK, (ClientData) DEF_BUTTON_ACTIVE_FG_MONO, 0},
  71.     {TK_OPTION_ANCHOR, "-anchor", "anchor", "Anchor",
  72. DEF_BUTTON_ANCHOR, -1, Tk_Offset(TkButton, anchor), 0, 0, 0},
  73.     {TK_OPTION_BORDER, "-background", "background", "Background",
  74. DEF_BUTTON_BG_COLOR, -1, Tk_Offset(TkButton, normalBorder),
  75. 0, (ClientData) DEF_BUTTON_BG_MONO, 0},
  76.     {TK_OPTION_SYNONYM, "-bd", (char *) NULL, (char *) NULL,
  77. (char *) NULL, 0, -1, 0, (ClientData) "-borderwidth", 0},
  78.     {TK_OPTION_SYNONYM, "-bg", (char *) NULL, (char *) NULL,
  79. (char *) NULL, 0, -1, 0, (ClientData) "-background", 0},
  80.     {TK_OPTION_BITMAP, "-bitmap", "bitmap", "Bitmap",
  81. DEF_BUTTON_BITMAP, -1, Tk_Offset(TkButton, bitmap),
  82. TK_OPTION_NULL_OK, 0, 0},
  83.     {TK_OPTION_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
  84. DEF_BUTTON_BORDER_WIDTH, Tk_Offset(TkButton, borderWidthPtr),
  85. Tk_Offset(TkButton, borderWidth), 0, 0, 0},
  86.     {TK_OPTION_STRING_TABLE, "-compound", "compound", "Compound",
  87.  DEF_BUTTON_COMPOUND, -1, Tk_Offset(TkButton, compound), 0,
  88.  (ClientData) compoundStrings, 0},
  89.     {TK_OPTION_CURSOR, "-cursor", "cursor", "Cursor",
  90. DEF_BUTTON_CURSOR, -1, Tk_Offset(TkButton, cursor),
  91. TK_OPTION_NULL_OK, 0, 0},
  92.     {TK_OPTION_COLOR, "-disabledforeground", "disabledForeground",
  93. "DisabledForeground", DEF_BUTTON_DISABLED_FG_COLOR,
  94. -1, Tk_Offset(TkButton, disabledFg), TK_OPTION_NULL_OK,
  95. (ClientData) DEF_BUTTON_DISABLED_FG_MONO, 0},
  96.     {TK_OPTION_SYNONYM, "-fg", "foreground", (char *) NULL,
  97. (char *) NULL, 0, -1, 0, (ClientData) "-foreground", 0},
  98.     {TK_OPTION_FONT, "-font", "font", "Font",
  99. DEF_BUTTON_FONT, -1, Tk_Offset(TkButton, tkfont), 0, 0, 0},
  100.     {TK_OPTION_COLOR, "-foreground", "foreground", "Foreground",
  101. DEF_BUTTON_FG, -1, Tk_Offset(TkButton, normalFg), 0, 0, 0},
  102.     {TK_OPTION_STRING, "-height", "height", "Height",
  103. DEF_BUTTON_HEIGHT, Tk_Offset(TkButton, heightPtr), -1, 0, 0, 0},
  104.     {TK_OPTION_BORDER, "-highlightbackground", "highlightBackground",
  105. "HighlightBackground", DEF_BUTTON_HIGHLIGHT_BG_COLOR,
  106. -1, Tk_Offset(TkButton, highlightBorder), 0,
  107. (ClientData) DEF_BUTTON_HIGHLIGHT_BG_MONO, 0},
  108.     {TK_OPTION_COLOR, "-highlightcolor", "highlightColor", "HighlightColor",
  109. DEF_BUTTON_HIGHLIGHT, -1, Tk_Offset(TkButton, highlightColorPtr),
  110. 0, 0, 0},
  111.     {TK_OPTION_PIXELS, "-highlightthickness", "highlightThickness",
  112. "HighlightThickness", DEF_LABEL_HIGHLIGHT_WIDTH,
  113. Tk_Offset(TkButton, highlightWidthPtr),
  114. Tk_Offset(TkButton, highlightWidth), 0, 0, 0},
  115.     {TK_OPTION_STRING, "-image", "image", "Image",
  116. DEF_BUTTON_IMAGE, Tk_Offset(TkButton, imagePtr), -1,
  117. TK_OPTION_NULL_OK, 0, 0},
  118.     {TK_OPTION_JUSTIFY, "-justify", "justify", "Justify",
  119. DEF_BUTTON_JUSTIFY, -1, Tk_Offset(TkButton, justify), 0, 0, 0},
  120.     {TK_OPTION_PIXELS, "-padx", "padX", "Pad",
  121. DEF_LABCHKRAD_PADX, Tk_Offset(TkButton, padXPtr),
  122. Tk_Offset(TkButton, padX), 0, 0, 0},
  123.     {TK_OPTION_PIXELS, "-pady", "padY", "Pad",
  124. DEF_LABCHKRAD_PADY, Tk_Offset(TkButton, padYPtr),
  125. Tk_Offset(TkButton, padY), 0, 0, 0},
  126.     {TK_OPTION_RELIEF, "-relief", "relief", "Relief",
  127. DEF_LABCHKRAD_RELIEF, -1, Tk_Offset(TkButton, relief), 0, 0, 0},
  128.     {TK_OPTION_STRING_TABLE, "-state", "state", "State",
  129. DEF_BUTTON_STATE, -1, Tk_Offset(TkButton, state),
  130. 0, (ClientData) stateStrings, 0},
  131.     {TK_OPTION_STRING, "-takefocus", "takeFocus", "TakeFocus",
  132. DEF_LABEL_TAKE_FOCUS, Tk_Offset(TkButton, takeFocusPtr), -1,
  133. TK_OPTION_NULL_OK, 0, 0},
  134.     {TK_OPTION_STRING, "-text", "text", "Text",
  135. DEF_BUTTON_TEXT, Tk_Offset(TkButton, textPtr), -1, 0, 0, 0},
  136.     {TK_OPTION_STRING, "-textvariable", "textVariable", "Variable",
  137. DEF_BUTTON_TEXT_VARIABLE, Tk_Offset(TkButton, textVarNamePtr), -1,
  138. TK_OPTION_NULL_OK, 0, 0},
  139.     {TK_OPTION_INT, "-underline", "underline", "Underline",
  140. DEF_BUTTON_UNDERLINE, -1, Tk_Offset(TkButton, underline), 0, 0, 0},
  141.     {TK_OPTION_STRING, "-width", "width", "Width",
  142. DEF_BUTTON_WIDTH, Tk_Offset(TkButton, widthPtr), -1, 0, 0, 0},
  143.     {TK_OPTION_PIXELS, "-wraplength", "wrapLength", "WrapLength",
  144. DEF_BUTTON_WRAP_LENGTH, Tk_Offset(TkButton, wrapLengthPtr),
  145. Tk_Offset(TkButton, wrapLength), 0, 0, 0},
  146.     {TK_OPTION_END, (char *) NULL, (char *) NULL, (char *) NULL,
  147. (char *) NULL, 0, 0, 0, 0}
  148. };
  150. static Tk_OptionSpec buttonOptionSpecs[] = {
  151.     {TK_OPTION_BORDER, "-activebackground", "activeBackground", "Foreground",
  152. DEF_BUTTON_ACTIVE_BG_COLOR, -1, Tk_Offset(TkButton, activeBorder),
  153. 0, (ClientData) DEF_BUTTON_ACTIVE_BG_MONO, 0},
  154.     {TK_OPTION_COLOR, "-activeforeground", "activeForeground", "Background",
  155. DEF_BUTTON_ACTIVE_FG_COLOR, -1, Tk_Offset(TkButton, activeFg),
  156. TK_OPTION_NULL_OK, (ClientData) DEF_BUTTON_ACTIVE_FG_MONO, 0},
  157.     {TK_OPTION_ANCHOR, "-anchor", "anchor", "Anchor",
  158. DEF_BUTTON_ANCHOR, -1, Tk_Offset(TkButton, anchor), 0, 0, 0},
  159.     {TK_OPTION_BORDER, "-background", "background", "Background",
  160. DEF_BUTTON_BG_COLOR, -1, Tk_Offset(TkButton, normalBorder),
  161. 0, (ClientData) DEF_BUTTON_BG_MONO, 0},
  162.     {TK_OPTION_SYNONYM, "-bd", (char *) NULL, (char *) NULL,
  163. (char *) NULL, 0, -1, 0, (ClientData) "-borderwidth", 0},
  164.     {TK_OPTION_SYNONYM, "-bg", (char *) NULL, (char *) NULL,
  165. (char *) NULL, 0, -1, 0, (ClientData) "-background", 0},
  166.     {TK_OPTION_BITMAP, "-bitmap", "bitmap", "Bitmap",
  167. DEF_BUTTON_BITMAP, -1, Tk_Offset(TkButton, bitmap),
  168. TK_OPTION_NULL_OK, 0, 0},
  169.     {TK_OPTION_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
  170. DEF_BUTTON_BORDER_WIDTH, Tk_Offset(TkButton, borderWidthPtr),
  171. Tk_Offset(TkButton, borderWidth), 0, 0, 0},
  172.     {TK_OPTION_STRING, "-command", "command", "Command",
  173. DEF_BUTTON_COMMAND, Tk_Offset(TkButton, commandPtr), -1,
  174. TK_OPTION_NULL_OK, 0, 0},
  175.     {TK_OPTION_STRING_TABLE, "-compound", "compound", "Compound",
  176.  DEF_BUTTON_COMPOUND, -1, Tk_Offset(TkButton, compound), 0,
  177.  (ClientData) compoundStrings, 0},
  178.     {TK_OPTION_CURSOR, "-cursor", "cursor", "Cursor",
  179. DEF_BUTTON_CURSOR, -1, Tk_Offset(TkButton, cursor),
  180. TK_OPTION_NULL_OK, 0, 0},
  181.     {TK_OPTION_STRING_TABLE, "-default", "default", "Default",
  182.         DEF_BUTTON_DEFAULT, -1, Tk_Offset(TkButton, defaultState),
  183. 0, (ClientData) defaultStrings, 0},
  184.     {TK_OPTION_COLOR, "-disabledforeground", "disabledForeground",
  185. "DisabledForeground", DEF_BUTTON_DISABLED_FG_COLOR,
  186. -1, Tk_Offset(TkButton, disabledFg), TK_OPTION_NULL_OK,
  187. (ClientData) DEF_BUTTON_DISABLED_FG_MONO, 0},
  188.     {TK_OPTION_SYNONYM, "-fg", "foreground", (char *) NULL,
  189. (char *) NULL, 0, -1, 0, (ClientData) "-foreground", 0},
  190.     {TK_OPTION_FONT, "-font", "font", "Font",
  191. DEF_BUTTON_FONT, -1, Tk_Offset(TkButton, tkfont), 0, 0, 0},
  192.     {TK_OPTION_COLOR, "-foreground", "foreground", "Foreground",
  193. DEF_BUTTON_FG, -1, Tk_Offset(TkButton, normalFg), 0, 0, 0},
  194.     {TK_OPTION_STRING, "-height", "height", "Height",
  195. DEF_BUTTON_HEIGHT, Tk_Offset(TkButton, heightPtr), -1, 0, 0, 0},
  196.     {TK_OPTION_BORDER, "-highlightbackground", "highlightBackground",
  197. "HighlightBackground", DEF_BUTTON_HIGHLIGHT_BG_COLOR,
  198. -1, Tk_Offset(TkButton, highlightBorder), 0,
  199. (ClientData) DEF_BUTTON_HIGHLIGHT_BG_MONO, 0},
  200.     {TK_OPTION_COLOR, "-highlightcolor", "highlightColor", "HighlightColor",
  201. DEF_BUTTON_HIGHLIGHT, -1, Tk_Offset(TkButton, highlightColorPtr),
  202. 0, 0, 0},
  203.     {TK_OPTION_PIXELS, "-highlightthickness", "highlightThickness",
  204. "HighlightThickness", DEF_BUTTON_HIGHLIGHT_WIDTH,
  205. Tk_Offset(TkButton, highlightWidthPtr),
  206. Tk_Offset(TkButton, highlightWidth), 0, 0, 0},
  207.     {TK_OPTION_STRING, "-image", "image", "Image",
  208. DEF_BUTTON_IMAGE, Tk_Offset(TkButton, imagePtr), -1,
  209. TK_OPTION_NULL_OK, 0, 0},
  210.     {TK_OPTION_JUSTIFY, "-justify", "justify", "Justify",
  211. DEF_BUTTON_JUSTIFY, -1, Tk_Offset(TkButton, justify), 0, 0, 0},
  212.     {TK_OPTION_RELIEF, "-overrelief", "overRelief", "OverRelief",
  213.  DEF_BUTTON_OVER_RELIEF, -1, Tk_Offset(TkButton, overRelief),
  214.  TK_OPTION_NULL_OK, 0, 0},
  215.     {TK_OPTION_PIXELS, "-padx", "padX", "Pad",
  216. DEF_BUTTON_PADX, Tk_Offset(TkButton, padXPtr),
  217. Tk_Offset(TkButton, padX), 0, 0, 0},
  218.     {TK_OPTION_PIXELS, "-pady", "padY", "Pad",
  219. DEF_BUTTON_PADY, Tk_Offset(TkButton, padYPtr),
  220. Tk_Offset(TkButton, padY), 0, 0, 0},
  221.     {TK_OPTION_RELIEF, "-relief", "relief", "Relief",
  222. DEF_BUTTON_RELIEF, -1, Tk_Offset(TkButton, relief),
  223.  0, 0, 0},
  224.     {TK_OPTION_INT, "-repeatdelay", "repeatDelay", "RepeatDelay",
  225.  DEF_BUTTON_REPEAT_DELAY, -1, Tk_Offset(TkButton, repeatDelay),
  226.  0, 0, 0},
  227.     {TK_OPTION_INT, "-repeatinterval", "repeatInterval", "RepeatInterval",
  228.  DEF_BUTTON_REPEAT_INTERVAL, -1, Tk_Offset(TkButton, repeatInterval),
  229.  0, 0, 0},
  230.     {TK_OPTION_STRING_TABLE, "-state", "state", "State",
  231. DEF_BUTTON_STATE, -1, Tk_Offset(TkButton, state),
  232. 0, (ClientData) stateStrings, 0},
  233.     {TK_OPTION_STRING, "-takefocus", "takeFocus", "TakeFocus",
  234. DEF_BUTTON_TAKE_FOCUS, Tk_Offset(TkButton, takeFocusPtr), -1,
  235. TK_OPTION_NULL_OK, 0, 0},
  236.     {TK_OPTION_STRING, "-text", "text", "Text",
  237. DEF_BUTTON_TEXT, Tk_Offset(TkButton, textPtr), -1, 0, 0, 0},
  238.     {TK_OPTION_STRING, "-textvariable", "textVariable", "Variable",
  239. DEF_BUTTON_TEXT_VARIABLE, Tk_Offset(TkButton, textVarNamePtr), -1,
  240. TK_OPTION_NULL_OK, 0, 0},
  241.     {TK_OPTION_INT, "-underline", "underline", "Underline",
  242. DEF_BUTTON_UNDERLINE, -1, Tk_Offset(TkButton, underline), 0, 0, 0},
  243.     {TK_OPTION_STRING, "-width", "width", "Width",
  244. DEF_BUTTON_WIDTH, Tk_Offset(TkButton, widthPtr), -1, 0, 0, 0},
  245.     {TK_OPTION_PIXELS, "-wraplength", "wrapLength", "WrapLength",
  246. DEF_BUTTON_WRAP_LENGTH, Tk_Offset(TkButton, wrapLengthPtr),
  247. Tk_Offset(TkButton, wrapLength), 0, 0, 0},
  248.     {TK_OPTION_END, (char *) NULL, (char *) NULL, (char *) NULL,
  249. (char *) NULL, 0, -1, 0, 0, 0}
  250. };
  252. static Tk_OptionSpec checkbuttonOptionSpecs[] = {
  253.     {TK_OPTION_BORDER, "-activebackground", "activeBackground", "Foreground",
  254. DEF_BUTTON_ACTIVE_BG_COLOR, -1, Tk_Offset(TkButton, activeBorder),
  255. 0, (ClientData) DEF_BUTTON_ACTIVE_BG_MONO, 0},
  256.     {TK_OPTION_COLOR, "-activeforeground", "activeForeground", "Background",
  257. DEF_CHKRAD_ACTIVE_FG_COLOR, -1, Tk_Offset(TkButton, activeFg),
  258. TK_OPTION_NULL_OK, (ClientData) DEF_BUTTON_ACTIVE_FG_MONO, 0},
  259.     {TK_OPTION_ANCHOR, "-anchor", "anchor", "Anchor",
  260. DEF_BUTTON_ANCHOR, -1, Tk_Offset(TkButton, anchor), 0, 0, 0},
  261.     {TK_OPTION_BORDER, "-background", "background", "Background",
  262. DEF_BUTTON_BG_COLOR, -1, Tk_Offset(TkButton, normalBorder),
  263. 0, (ClientData) DEF_BUTTON_BG_MONO, 0},
  264.     {TK_OPTION_SYNONYM, "-bd", (char *) NULL, (char *) NULL,
  265. (char *) NULL, 0, -1, 0, (ClientData) "-borderwidth", 0},
  266.     {TK_OPTION_SYNONYM, "-bg", (char *) NULL, (char *) NULL,
  267. (char *) NULL, 0, -1, 0, (ClientData) "-background", 0},
  268.     {TK_OPTION_BITMAP, "-bitmap", "bitmap", "Bitmap",
  269. DEF_BUTTON_BITMAP, -1, Tk_Offset(TkButton, bitmap),
  270. TK_OPTION_NULL_OK, 0, 0},
  271.     {TK_OPTION_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
  272. DEF_BUTTON_BORDER_WIDTH, Tk_Offset(TkButton, borderWidthPtr),
  273. Tk_Offset(TkButton, borderWidth), 0, 0, 0},
  274.     {TK_OPTION_STRING, "-command", "command", "Command",
  275. DEF_BUTTON_COMMAND, Tk_Offset(TkButton, commandPtr), -1,
  276. TK_OPTION_NULL_OK, 0, 0},
  277.     {TK_OPTION_STRING_TABLE, "-compound", "compound", "Compound",
  278.  DEF_BUTTON_COMPOUND, -1, Tk_Offset(TkButton, compound), 0,
  279.  (ClientData) compoundStrings, 0},
  280.     {TK_OPTION_CURSOR, "-cursor", "cursor", "Cursor",
  281. DEF_BUTTON_CURSOR, -1, Tk_Offset(TkButton, cursor),
  282. TK_OPTION_NULL_OK, 0, 0},
  283.     {TK_OPTION_COLOR, "-disabledforeground", "disabledForeground",
  284. "DisabledForeground", DEF_BUTTON_DISABLED_FG_COLOR,
  285. -1, Tk_Offset(TkButton, disabledFg), TK_OPTION_NULL_OK,
  286. (ClientData) DEF_BUTTON_DISABLED_FG_MONO, 0},
  287.     {TK_OPTION_SYNONYM, "-fg", "foreground", (char *) NULL,
  288. (char *) NULL, 0, -1, 0, (ClientData) "-foreground", 0},
  289.     {TK_OPTION_FONT, "-font", "font", "Font",
  290. DEF_BUTTON_FONT, -1, Tk_Offset(TkButton, tkfont), 0, 0, 0},
  291.     {TK_OPTION_COLOR, "-foreground", "foreground", "Foreground",
  292. DEF_CHKRAD_FG, -1, Tk_Offset(TkButton, normalFg), 0, 0, 0},
  293.     {TK_OPTION_STRING, "-height", "height", "Height",
  294. DEF_BUTTON_HEIGHT, Tk_Offset(TkButton, heightPtr), -1, 0, 0, 0},
  295.     {TK_OPTION_BORDER, "-highlightbackground", "highlightBackground",
  296. "HighlightBackground", DEF_BUTTON_HIGHLIGHT_BG_COLOR,
  297. -1, Tk_Offset(TkButton, highlightBorder), 0,
  298. (ClientData) DEF_BUTTON_HIGHLIGHT_BG_MONO, 0},
  299.     {TK_OPTION_COLOR, "-highlightcolor", "highlightColor", "HighlightColor",
  300. DEF_BUTTON_HIGHLIGHT, -1, Tk_Offset(TkButton, highlightColorPtr),
  301. 0, 0, 0},
  302.     {TK_OPTION_PIXELS, "-highlightthickness", "highlightThickness",
  303. "HighlightThickness", DEF_BUTTON_HIGHLIGHT_WIDTH,
  304. Tk_Offset(TkButton, highlightWidthPtr),
  305. Tk_Offset(TkButton, highlightWidth), 0, 0, 0},
  306.     {TK_OPTION_STRING, "-image", "image", "Image",
  307. DEF_BUTTON_IMAGE, Tk_Offset(TkButton, imagePtr), -1,
  308. TK_OPTION_NULL_OK, 0, 0},
  309.     {TK_OPTION_BOOLEAN, "-indicatoron", "indicatorOn", "IndicatorOn",
  310. DEF_BUTTON_INDICATOR, -1, Tk_Offset(TkButton, indicatorOn), 0, 0, 0},
  311.     {TK_OPTION_JUSTIFY, "-justify", "justify", "Justify",
  312. DEF_BUTTON_JUSTIFY, -1, Tk_Offset(TkButton, justify), 0, 0, 0},
  313.     {TK_OPTION_RELIEF, "-offrelief", "offRelief", "OffRelief",
  314.  DEF_BUTTON_RELIEF, -1, Tk_Offset(TkButton, offRelief), 0, 0, 0},
  315.     {TK_OPTION_STRING, "-offvalue", "offValue", "Value",
  316. DEF_BUTTON_OFF_VALUE, Tk_Offset(TkButton, offValuePtr), -1, 0, 0, 0},
  317.     {TK_OPTION_STRING, "-onvalue", "onValue", "Value",
  318. DEF_BUTTON_ON_VALUE, Tk_Offset(TkButton, onValuePtr), -1, 0, 0, 0},
  319.     {TK_OPTION_RELIEF, "-overrelief", "overRelief", "OverRelief",
  320.  DEF_BUTTON_OVER_RELIEF, -1, Tk_Offset(TkButton, overRelief),
  321.  TK_OPTION_NULL_OK, 0, 0},
  322.     {TK_OPTION_PIXELS, "-padx", "padX", "Pad",
  323. DEF_LABCHKRAD_PADX, Tk_Offset(TkButton, padXPtr),
  324. Tk_Offset(TkButton, padX), 0, 0, 0},
  325.     {TK_OPTION_PIXELS, "-pady", "padY", "Pad",
  326. DEF_LABCHKRAD_PADY, Tk_Offset(TkButton, padYPtr),
  327. Tk_Offset(TkButton, padY), 0, 0, 0},
  328.     {TK_OPTION_RELIEF, "-relief", "relief", "Relief",
  329. DEF_LABCHKRAD_RELIEF, -1, Tk_Offset(TkButton, relief), 0, 0, 0},
  330.     {TK_OPTION_BORDER, "-selectcolor", "selectColor", "Background",
  331. DEF_BUTTON_SELECT_COLOR, -1, Tk_Offset(TkButton, selectBorder),
  332. TK_OPTION_NULL_OK, (ClientData) DEF_BUTTON_SELECT_MONO, 0},
  333.     {TK_OPTION_STRING, "-selectimage", "selectImage", "SelectImage",
  334. DEF_BUTTON_SELECT_IMAGE, Tk_Offset(TkButton, selectImagePtr), -1,
  335. TK_OPTION_NULL_OK, 0, 0},
  336.     {TK_OPTION_STRING_TABLE, "-state", "state", "State",
  337. DEF_BUTTON_STATE, -1, Tk_Offset(TkButton, state),
  338. 0, (ClientData) stateStrings, 0},
  339.     {TK_OPTION_STRING, "-takefocus", "takeFocus", "TakeFocus",
  340. DEF_BUTTON_TAKE_FOCUS, Tk_Offset(TkButton, takeFocusPtr), -1,
  341. TK_OPTION_NULL_OK, 0, 0},
  342.     {TK_OPTION_STRING, "-text", "text", "Text",
  343. DEF_BUTTON_TEXT, Tk_Offset(TkButton, textPtr), -1, 0, 0, 0},
  344.     {TK_OPTION_STRING, "-textvariable", "textVariable", "Variable",
  345. DEF_BUTTON_TEXT_VARIABLE, Tk_Offset(TkButton, textVarNamePtr), -1,
  346. TK_OPTION_NULL_OK, 0, 0},
  347.     {TK_OPTION_INT, "-underline", "underline", "Underline",
  348. DEF_BUTTON_UNDERLINE, -1, Tk_Offset(TkButton, underline), 0, 0, 0},
  349.     {TK_OPTION_STRING, "-variable", "variable", "Variable",
  350. DEF_CHECKBUTTON_VARIABLE, Tk_Offset(TkButton, selVarNamePtr), -1,
  351. TK_OPTION_NULL_OK, 0, 0},
  352.     {TK_OPTION_STRING, "-width", "width", "Width",
  353. DEF_BUTTON_WIDTH, Tk_Offset(TkButton, widthPtr), -1, 0, 0, 0},
  354.     {TK_OPTION_PIXELS, "-wraplength", "wrapLength", "WrapLength",
  355. DEF_BUTTON_WRAP_LENGTH, Tk_Offset(TkButton, wrapLengthPtr),
  356. Tk_Offset(TkButton, wrapLength), 0, 0, 0},
  357.     {TK_OPTION_END, (char *) NULL, (char *) NULL, (char *) NULL,
  358. (char *) NULL, 0, -1, 0, 0, 0}
  359. };
  361. static Tk_OptionSpec radiobuttonOptionSpecs[] = {
  362.     {TK_OPTION_BORDER, "-activebackground", "activeBackground", "Foreground",
  363. DEF_BUTTON_ACTIVE_BG_COLOR, -1, Tk_Offset(TkButton, activeBorder),
  364. 0, (ClientData) DEF_BUTTON_ACTIVE_BG_MONO, 0},
  365.     {TK_OPTION_COLOR, "-activeforeground", "activeForeground", "Background",
  366. DEF_CHKRAD_ACTIVE_FG_COLOR, -1, Tk_Offset(TkButton, activeFg),
  367. TK_OPTION_NULL_OK, (ClientData) DEF_BUTTON_ACTIVE_FG_MONO, 0},
  368.     {TK_OPTION_ANCHOR, "-anchor", "anchor", "Anchor",
  369. DEF_BUTTON_ANCHOR, -1, Tk_Offset(TkButton, anchor), 0, 0, 0},
  370.     {TK_OPTION_BORDER, "-background", "background", "Background",
  371. DEF_BUTTON_BG_COLOR, -1, Tk_Offset(TkButton, normalBorder),
  372. 0, (ClientData) DEF_BUTTON_BG_MONO, 0},
  373.     {TK_OPTION_SYNONYM, "-bd", (char *) NULL, (char *) NULL,
  374. (char *) NULL, 0, -1, 0, (ClientData) "-borderwidth", 0},
  375.     {TK_OPTION_SYNONYM, "-bg", (char *) NULL, (char *) NULL,
  376. (char *) NULL, 0, -1, 0, (ClientData) "-background", 0},
  377.     {TK_OPTION_BITMAP, "-bitmap", "bitmap", "Bitmap",
  378. DEF_BUTTON_BITMAP, -1, Tk_Offset(TkButton, bitmap),
  379. TK_OPTION_NULL_OK, 0, 0},
  380.     {TK_OPTION_PIXELS, "-borderwidth", "borderWidth", "BorderWidth",
  381. DEF_BUTTON_BORDER_WIDTH, Tk_Offset(TkButton, borderWidthPtr),
  382. Tk_Offset(TkButton, borderWidth), 0, 0, 0},
  383.     {TK_OPTION_STRING, "-command", "command", "Command",
  384. DEF_BUTTON_COMMAND, Tk_Offset(TkButton, commandPtr), -1,
  385. TK_OPTION_NULL_OK, 0, 0},
  386.     {TK_OPTION_STRING_TABLE, "-compound", "compound", "Compound",
  387.  DEF_BUTTON_COMPOUND, -1, Tk_Offset(TkButton, compound), 0,
  388.  (ClientData) compoundStrings, 0},
  389.     {TK_OPTION_CURSOR, "-cursor", "cursor", "Cursor",
  390. DEF_BUTTON_CURSOR, -1, Tk_Offset(TkButton, cursor),
  391. TK_OPTION_NULL_OK, 0, 0},
  392.     {TK_OPTION_COLOR, "-disabledforeground", "disabledForeground",
  393. "DisabledForeground", DEF_BUTTON_DISABLED_FG_COLOR,
  394. -1, Tk_Offset(TkButton, disabledFg), TK_OPTION_NULL_OK,
  395. (ClientData) DEF_BUTTON_DISABLED_FG_MONO, 0},
  396.     {TK_OPTION_SYNONYM, "-fg", "foreground", (char *) NULL,
  397. (char *) NULL, 0, -1, 0, (ClientData) "-foreground", 0},
  398.     {TK_OPTION_FONT, "-font", "font", "Font",
  399. DEF_BUTTON_FONT, -1, Tk_Offset(TkButton, tkfont), 0, 0, 0},
  400.     {TK_OPTION_COLOR, "-foreground", "foreground", "Foreground",
  401. DEF_CHKRAD_FG, -1, Tk_Offset(TkButton, normalFg), 0, 0, 0},
  402.     {TK_OPTION_STRING, "-height", "height", "Height",
  403. DEF_BUTTON_HEIGHT, Tk_Offset(TkButton, heightPtr), -1, 0, 0, 0},
  404.     {TK_OPTION_BORDER, "-highlightbackground", "highlightBackground",
  405. "HighlightBackground", DEF_BUTTON_HIGHLIGHT_BG_COLOR,
  406. -1, Tk_Offset(TkButton, highlightBorder), 0,
  407. (ClientData) DEF_BUTTON_HIGHLIGHT_BG_MONO, 0},
  408.     {TK_OPTION_COLOR, "-highlightcolor", "highlightColor", "HighlightColor",
  409. DEF_BUTTON_HIGHLIGHT, -1, Tk_Offset(TkButton, highlightColorPtr),
  410. 0, 0, 0},
  411.     {TK_OPTION_PIXELS, "-highlightthickness", "highlightThickness",
  412. "HighlightThickness", DEF_BUTTON_HIGHLIGHT_WIDTH,
  413. Tk_Offset(TkButton, highlightWidthPtr),
  414. Tk_Offset(TkButton, highlightWidth), 0, 0, 0},
  415.     {TK_OPTION_STRING, "-image", "image", "Image",
  416. DEF_BUTTON_IMAGE, Tk_Offset(TkButton, imagePtr), -1,
  417. TK_OPTION_NULL_OK, 0, 0},
  418.     {TK_OPTION_BOOLEAN, "-indicatoron", "indicatorOn", "IndicatorOn",
  419. DEF_BUTTON_INDICATOR, -1, Tk_Offset(TkButton, indicatorOn),
  420. 0, 0, 0},
  421.     {TK_OPTION_JUSTIFY, "-justify", "justify", "Justify",
  422. DEF_BUTTON_JUSTIFY, -1, Tk_Offset(TkButton, justify), 0, 0, 0},
  423.     {TK_OPTION_RELIEF, "-offrelief", "offRelief", "OffRelief",
  424.  DEF_BUTTON_RELIEF, -1, Tk_Offset(TkButton, offRelief), 0, 0, 0},
  425.     {TK_OPTION_RELIEF, "-overrelief", "overRelief", "OverRelief",
  426.  DEF_BUTTON_OVER_RELIEF, -1, Tk_Offset(TkButton, overRelief),
  427.  TK_OPTION_NULL_OK, 0, 0},
  428.     {TK_OPTION_PIXELS, "-padx", "padX", "Pad",
  429. DEF_LABCHKRAD_PADX, Tk_Offset(TkButton, padXPtr),
  430. Tk_Offset(TkButton, padX), 0, 0, 0},
  431.     {TK_OPTION_PIXELS, "-pady", "padY", "Pad",
  432. DEF_LABCHKRAD_PADY, Tk_Offset(TkButton, padYPtr),
  433. Tk_Offset(TkButton, padY), 0, 0, 0},
  434.     {TK_OPTION_RELIEF, "-relief", "relief", "Relief",
  435. DEF_LABCHKRAD_RELIEF, -1, Tk_Offset(TkButton, relief), 0, 0, 0},
  436.     {TK_OPTION_BORDER, "-selectcolor", "selectColor", "Background",
  437. DEF_BUTTON_SELECT_COLOR, -1, Tk_Offset(TkButton, selectBorder),
  438. TK_OPTION_NULL_OK, (ClientData) DEF_BUTTON_SELECT_MONO, 0},
  439.     {TK_OPTION_STRING, "-selectimage", "selectImage", "SelectImage",
  440. DEF_BUTTON_SELECT_IMAGE, Tk_Offset(TkButton, selectImagePtr), -1,
  441. TK_OPTION_NULL_OK, 0, 0},
  442.     {TK_OPTION_STRING_TABLE, "-state", "state", "State",
  443. DEF_BUTTON_STATE, -1, Tk_Offset(TkButton, state),
  444. 0, (ClientData) stateStrings, 0},
  445.     {TK_OPTION_STRING, "-takefocus", "takeFocus", "TakeFocus",
  446. DEF_BUTTON_TAKE_FOCUS, Tk_Offset(TkButton, takeFocusPtr), -1,
  447. TK_OPTION_NULL_OK, 0, 0},
  448.     {TK_OPTION_STRING, "-text", "text", "Text",
  449. DEF_BUTTON_TEXT, Tk_Offset(TkButton, textPtr), -1, 0, 0, 0},
  450.     {TK_OPTION_STRING, "-textvariable", "textVariable", "Variable",
  451. DEF_BUTTON_TEXT_VARIABLE, Tk_Offset(TkButton, textVarNamePtr), -1,
  452. TK_OPTION_NULL_OK, 0, 0},
  453.     {TK_OPTION_INT, "-underline", "underline", "Underline",
  454. DEF_BUTTON_UNDERLINE, -1, Tk_Offset(TkButton, underline), 0, 0, 0},
  455.     {TK_OPTION_STRING, "-value", "value", "Value",
  456. DEF_BUTTON_VALUE, Tk_Offset(TkButton, onValuePtr), -1, 0, 0, 0},
  457.     {TK_OPTION_STRING, "-variable", "variable", "Variable",
  458. DEF_RADIOBUTTON_VARIABLE, Tk_Offset(TkButton, selVarNamePtr), -1,
  459. 0, 0, 0},
  460.     {TK_OPTION_STRING, "-width", "width", "Width",
  461. DEF_BUTTON_WIDTH, Tk_Offset(TkButton, widthPtr), -1, 0, 0, 0},
  462.     {TK_OPTION_PIXELS, "-wraplength", "wrapLength", "WrapLength",
  463. DEF_BUTTON_WRAP_LENGTH, Tk_Offset(TkButton, wrapLengthPtr),
  464. Tk_Offset(TkButton, wrapLength), 0, 0, 0},
  465.     {TK_OPTION_END, (char *) NULL, (char *) NULL, (char *) NULL,
  466. (char *) NULL, 0, -1, 0, 0, 0}
  467. };
  469. /*
  470.  * The following table maps from one of the type values defined in
  471.  * tkButton.h, such as TYPE_LABEL, to the option template for that
  472.  * class of widgets.
  473.  */
  475. static Tk_OptionSpec *optionSpecs[] = {
  476.     labelOptionSpecs,
  477.     buttonOptionSpecs,
  478.     checkbuttonOptionSpecs,
  479.     radiobuttonOptionSpecs
  480. };
  482. /*
  483.  * The following tables define the widget commands supported by
  484.  * each of the classes, and map the indexes into the string tables
  485.  * into a single enumerated type used to dispatch the widget command.
  486.  */
  488. static CONST char *commandNames[][8] = {
  489.     {"cget", "configure", (char *) NULL},
  490.     {"cget", "configure", "flash", "invoke", (char *) NULL},
  491.     {"cget", "configure", "deselect", "flash", "invoke", "select",
  492.     "toggle", (char *) NULL},
  493.     {"cget", "configure", "deselect", "flash", "invoke", "select",
  494.     (char *) NULL}
  495. };
  496. enum command {
  497.     COMMAND_CGET, COMMAND_CONFIGURE, COMMAND_DESELECT, COMMAND_FLASH,
  498.     COMMAND_INVOKE, COMMAND_SELECT, COMMAND_TOGGLE
  499. };
  500. static enum command map[][8] = {
  501.     {COMMAND_CGET, COMMAND_CONFIGURE},
  502.     {COMMAND_CGET, COMMAND_CONFIGURE, COMMAND_FLASH, COMMAND_INVOKE},
  503.     {COMMAND_CGET, COMMAND_CONFIGURE, COMMAND_DESELECT, COMMAND_FLASH,
  504.     COMMAND_INVOKE, COMMAND_SELECT, COMMAND_TOGGLE},
  505.     {COMMAND_CGET, COMMAND_CONFIGURE, COMMAND_DESELECT, COMMAND_FLASH,
  506.     COMMAND_INVOKE, COMMAND_SELECT}
  507. };
  509. /*
  510.  * Forward declarations for procedures defined later in this file:
  511.  */
  513. static void ButtonCmdDeletedProc _ANSI_ARGS_((
  514.     ClientData clientData));
  515. static int ButtonCreate _ANSI_ARGS_((ClientData clientData,
  516.     Tcl_Interp *interp, int objc,
  517.     Tcl_Obj *CONST objv[], int type));
  518. static void ButtonEventProc _ANSI_ARGS_((ClientData clientData,
  519.     XEvent *eventPtr));
  520. static void ButtonImageProc _ANSI_ARGS_((ClientData clientData,
  521.     int x, int y, int width, int height,
  522.     int imgWidth, int imgHeight));
  523. static void ButtonSelectImageProc _ANSI_ARGS_((
  524.     ClientData clientData, int x, int y, int width,
  525.     int height, int imgWidth, int imgHeight));
  526. static char * ButtonTextVarProc _ANSI_ARGS_((ClientData clientData,
  527.     Tcl_Interp *interp, CONST char *name1,
  528.     CONST char *name2, int flags));
  529. static char * ButtonVarProc _ANSI_ARGS_((ClientData clientData,
  530.     Tcl_Interp *interp, CONST char *name1,
  531.     CONST char *name2, int flags));
  532. static int ButtonWidgetObjCmd _ANSI_ARGS_((ClientData clientData,
  533.     Tcl_Interp *interp, int objc,
  534.     Tcl_Obj *CONST objv[]));
  535. static int ConfigureButton _ANSI_ARGS_((Tcl_Interp *interp,
  536.     TkButton *butPtr, int objc,
  537.     Tcl_Obj *CONST objv[]));
  538. static void DestroyButton _ANSI_ARGS_((TkButton *butPtr));
  540. /*
  541.  *--------------------------------------------------------------
  542.  *
  543.  * Tk_ButtonCmd, Tk_CheckbuttonCmd, Tk_LabelCmd, Tk_RadiobuttonCmd --
  544.  *
  545.  * These procedures are invoked to process the "button", "label",
  546.  * "radiobutton", and "checkbutton" Tcl commands.  See the
  547.  * user documentation for details on what they do.
  548.  *
  549.  * Results:
  550.  * A standard Tcl result.
  551.  *
  552.  * Side effects:
  553.  * See the user documentation.  These procedures are just wrappers;
  554.  * they call ButtonCreate to do all of the real work.
  555.  *
  556.  *--------------------------------------------------------------
  557.  */
  559. int
  560. Tk_ButtonObjCmd(clientData, interp, objc, objv)
  561.     ClientData clientData; /* Either NULL or pointer to option table. */
  562.     Tcl_Interp *interp; /* Current interpreter. */
  563.     int objc; /* Number of arguments. */
  564.     Tcl_Obj *CONST objv[]; /* Argument values. */
  565. {
  566.     return ButtonCreate(clientData, interp, objc, objv, TYPE_BUTTON);
  567. }
  569. int
  570. Tk_CheckbuttonObjCmd(clientData, interp, objc, objv)
  571.     ClientData clientData; /* Either NULL or pointer to option table. */
  572.     Tcl_Interp *interp; /* Current interpreter. */
  573.     int objc; /* Number of arguments. */
  574.     Tcl_Obj *CONST objv[]; /* Argument values. */
  575. {
  576.     return ButtonCreate(clientData, interp, objc, objv, TYPE_CHECK_BUTTON);
  577. }
  579. int
  580. Tk_LabelObjCmd(clientData, interp, objc, objv)
  581.     ClientData clientData; /* Either NULL or pointer to option table. */
  582.     Tcl_Interp *interp; /* Current interpreter. */
  583.     int objc; /* Number of arguments. */
  584.     Tcl_Obj *CONST objv[]; /* Argument values. */
  585. {
  586.     return ButtonCreate(clientData, interp, objc, objv, TYPE_LABEL);
  587. }
  589. int
  590. Tk_RadiobuttonObjCmd(clientData, interp, objc, objv)
  591.     ClientData clientData; /* Either NULL or pointer to option table. */
  592.     Tcl_Interp *interp; /* Current interpreter. */
  593.     int objc; /* Number of arguments. */
  594.     Tcl_Obj *CONST objv[]; /* Argument values. */
  595. {
  596.     return ButtonCreate(clientData, interp, objc, objv, TYPE_RADIO_BUTTON);
  597. }
  599. /*
  600.  *--------------------------------------------------------------
  601.  *
  602.  * ButtonCreate --
  603.  *
  604.  * This procedure does all the real work of implementing the
  605.  * "button", "label", "radiobutton", and "checkbutton" Tcl
  606.  * commands.  See the user documentation for details on what it does.
  607.  *
  608.  * Results:
  609.  * A standard Tcl result.
  610.  *
  611.  * Side effects:
  612.  * See the user documentation.
  613.  *
  614.  *--------------------------------------------------------------
  615.  */
  617. static int
  618. ButtonCreate(clientData, interp, objc, objv, type)
  619.     ClientData clientData; /* NULL. */
  620.     Tcl_Interp *interp; /* Current interpreter. */
  621.     int objc; /* Number of arguments. */
  622.     Tcl_Obj *CONST objv[]; /* Argument values. */
  623.     int type; /* Type of button to create: TYPE_LABEL,
  624.  * TYPE_BUTTON, TYPE_CHECK_BUTTON, or
  625.  * TYPE_RADIO_BUTTON. */
  626. {
  627.     TkButton *butPtr;
  628.     Tk_OptionTable optionTable;
  629.     Tk_Window tkwin;
  630.     ThreadSpecificData *tsdPtr = (ThreadSpecificData *) 
  631. Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData));
  633.     if (!tsdPtr->defaultsInitialized) {
  634. TkpButtonSetDefaults(optionSpecs[type]);
  635. tsdPtr->defaultsInitialized = 1;
  636.     }
  638.     if (objc < 2) {
  639. Tcl_WrongNumArgs(interp, 1, objv, "pathName ?options?");
  640. return TCL_ERROR;
  641.     }
  643.     /*
  644.      * Create the new window.
  645.      */
  647.     tkwin = Tk_CreateWindowFromPath(interp, Tk_MainWindow(interp),
  648.     Tcl_GetString(objv[1]), (char *) NULL);
  649.     if (tkwin == NULL) {
  650. return TCL_ERROR;
  651.     }
  653.     /*
  654.      * Create the option table for this widget class.  If it has already
  655.      * been created, the cached pointer will be returned.
  656.      */
  658.     optionTable = Tk_CreateOptionTable(interp, optionSpecs[type]);
  660.     Tk_SetClass(tkwin, classNames[type]);
  661.     butPtr = TkpCreateButton(tkwin);
  663.     Tk_SetClassProcs(tkwin, &tkpButtonProcs, (ClientData) butPtr);
  665.     /*
  666.      * Initialize the data structure for the button.
  667.      */
  669.     butPtr->tkwin = tkwin;
  670.     butPtr->display = Tk_Display(tkwin);
  671.     butPtr->interp = interp;
  672.     butPtr->widgetCmd = Tcl_CreateObjCommand(interp, Tk_PathName(tkwin),
  673.     ButtonWidgetObjCmd, (ClientData) butPtr, ButtonCmdDeletedProc);
  674.     butPtr->type = type;
  675.     butPtr->optionTable = optionTable;
  676.     butPtr->textPtr = NULL;
  677.     butPtr->underline = -1;
  678.     butPtr->textVarNamePtr = NULL;
  679.     butPtr->bitmap = None;
  680.     butPtr->imagePtr = NULL;
  681.     butPtr->image = NULL;
  682.     butPtr->selectImagePtr = NULL;
  683.     butPtr->selectImage = NULL;
  684.     butPtr->state = STATE_NORMAL;
  685.     butPtr->normalBorder = NULL;
  686.     butPtr->activeBorder = NULL;
  687.     butPtr->borderWidthPtr = NULL;
  688.     butPtr->borderWidth = 0;
  689.     butPtr->relief = TK_RELIEF_FLAT;
  690.     butPtr->highlightWidthPtr = NULL;
  691.     butPtr->highlightWidth = 0;
  692.     butPtr->highlightBorder = NULL;
  693.     butPtr->highlightColorPtr = NULL;
  694.     butPtr->inset = 0;
  695.     butPtr->tkfont = NULL;
  696.     butPtr->normalFg = NULL;
  697.     butPtr->activeFg = NULL;
  698.     butPtr->disabledFg = NULL;
  699.     butPtr->normalTextGC = None;
  700.     butPtr->activeTextGC = None;
  701.     butPtr->disabledGC = None;
  702.     butPtr->stippleGC = None;
  703.     butPtr->gray = None;
  704.     butPtr->copyGC = None;
  705.     butPtr->widthPtr = NULL;
  706.     butPtr->width = 0;
  707.     butPtr->heightPtr = NULL;
  708.     butPtr->height = 0;
  709.     butPtr->wrapLengthPtr = NULL;
  710.     butPtr->wrapLength = 0;
  711.     butPtr->padXPtr = NULL;
  712.     butPtr->padX = 0;
  713.     butPtr->padYPtr = NULL;
  714.     butPtr->padY = 0;
  715.     butPtr->anchor = TK_ANCHOR_CENTER;
  716.     butPtr->justify = TK_JUSTIFY_CENTER;
  717.     butPtr->indicatorOn = 0;
  718.     butPtr->selectBorder = NULL;
  719.     butPtr->textWidth = 0;
  720.     butPtr->textHeight = 0;
  721.     butPtr->textLayout = NULL;
  722.     butPtr->indicatorSpace = 0;
  723.     butPtr->indicatorDiameter = 0;
  724.     butPtr->defaultState = DEFAULT_DISABLED;
  725.     butPtr->selVarNamePtr = NULL;
  726.     butPtr->onValuePtr = NULL;
  727.     butPtr->offValuePtr = NULL;
  728.     butPtr->cursor = None;
  729.     butPtr->takeFocusPtr = NULL;
  730.     butPtr->commandPtr = NULL;
  731.     butPtr->flags = 0;
  733.     Tk_CreateEventHandler(butPtr->tkwin,
  734.     ExposureMask|StructureNotifyMask|FocusChangeMask,
  735.     ButtonEventProc, (ClientData) butPtr);
  737.     if (Tk_InitOptions(interp, (char *) butPtr, optionTable, tkwin)
  738.     != TCL_OK) {
  739. Tk_DestroyWindow(butPtr->tkwin);
  740. return TCL_ERROR;
  741.     }
  742.     if (ConfigureButton(interp, butPtr, objc - 2, objv + 2) != TCL_OK) {
  743. Tk_DestroyWindow(butPtr->tkwin);
  744. return TCL_ERROR;
  745.     }
  747.     Tcl_SetStringObj(Tcl_GetObjResult(interp), Tk_PathName(butPtr->tkwin),
  748.     -1);
  749.     return TCL_OK;
  750. }
  752. /*
  753.  *--------------------------------------------------------------
  754.  *
  755.  * ButtonWidgetCmd --
  756.  *
  757.  * This procedure is invoked to process the Tcl command
  758.  * that corresponds to a widget managed by this module.
  759.  * See the user documentation for details on what it does.
  760.  *
  761.  * Results:
  762.  * A standard Tcl result.
  763.  *
  764.  * Side effects:
  765.  * See the user documentation.
  766.  *
  767.  *--------------------------------------------------------------
  768.  */
  770. static int
  771. ButtonWidgetObjCmd(clientData, interp, objc, objv)
  772.     ClientData clientData; /* Information about button widget. */
  773.     Tcl_Interp *interp; /* Current interpreter. */
  774.     int objc; /* Number of arguments. */
  775.     Tcl_Obj *CONST objv[]; /* Argument values. */
  776. {
  777.     TkButton *butPtr = (TkButton *) clientData;
  778.     int index;
  779.     int result;
  780.     Tcl_Obj *objPtr;
  782.     if (objc < 2) {
  783.         Tcl_WrongNumArgs(interp, 1, objv, "option ?arg arg ...?");
  784. return TCL_ERROR;
  785.     }
  786.     result = Tcl_GetIndexFromObj(interp, objv[1], commandNames[butPtr->type],
  787.     "option", 0, &index);
  788.     if (result != TCL_OK) {
  789. return result;
  790.     }
  791.     Tcl_Preserve((ClientData) butPtr);
  793.     switch (map[butPtr->type][index]) {
  794. case COMMAND_CGET: {
  795.     if (objc != 3) {
  796. Tcl_WrongNumArgs(interp, 1, objv, "cget option");
  797. goto error;
  798.     }
  799.     objPtr = Tk_GetOptionValue(interp, (char *) butPtr,
  800.     butPtr->optionTable, objv[2], butPtr->tkwin);
  801.     if (objPtr == NULL) {
  802.  goto error;
  803.     } else {
  804. Tcl_SetObjResult(interp, objPtr);
  805.     }
  806.     break;
  807. }
  809. case COMMAND_CONFIGURE: {
  810.     if (objc <= 3) {
  811. objPtr = Tk_GetOptionInfo(interp, (char *) butPtr,
  812. butPtr->optionTable,
  813. (objc == 3) ? objv[2] : (Tcl_Obj *) NULL,
  814. butPtr->tkwin);
  815. if (objPtr == NULL) {
  816.     goto error;
  817. } else {
  818.     Tcl_SetObjResult(interp, objPtr);
  819. }
  820.     } else {
  821. result = ConfigureButton(interp, butPtr, objc-2, objv+2);
  822.     }
  823.     break;
  824. }
  826. case COMMAND_DESELECT: {
  827.     if (objc > 2) {
  828. Tcl_WrongNumArgs(interp, 1, objv, "deselect");
  829. goto error;
  830.     }
  831.     if (butPtr->type == TYPE_CHECK_BUTTON) {
  832. if (Tcl_ObjSetVar2(interp, butPtr->selVarNamePtr, NULL,
  833. butPtr->offValuePtr, TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG)
  834. == NULL) {
  835.     goto error;
  836. }
  837.     } else if (butPtr->flags & SELECTED) {
  838. if (Tcl_ObjSetVar2(interp,
  839. butPtr->selVarNamePtr, NULL, Tcl_NewObj(),
  840. TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG)
  841. == NULL) {
  842.     goto error;
  843. }
  844.     }
  845.     break;
  846. }
  848. case COMMAND_FLASH: {
  849.     int i;
  851.     if (objc > 2) {
  852. Tcl_WrongNumArgs(interp, 1, objv, "flash");
  853. goto error;
  854.     }
  855.     if (butPtr->state != STATE_DISABLED) {
  856. for (i = 0; i < 4; i++) {
  857.     if (butPtr->state == STATE_NORMAL) {
  858. butPtr->state = STATE_ACTIVE; 
  859. Tk_SetBackgroundFromBorder(butPtr->tkwin,
  860. butPtr->activeBorder);
  861.     } else {
  862. butPtr->state = STATE_NORMAL; 
  863. Tk_SetBackgroundFromBorder(butPtr->tkwin,
  864. butPtr->normalBorder);
  865.     }
  866.     TkpDisplayButton((ClientData) butPtr);
  867.     
  868.     /*
  869.      * Special note: must cancel any existing idle handler
  870.      * for TkpDisplayButton;  it's no longer needed, and
  871.      * TkpDisplayButton cleared the REDRAW_PENDING flag.
  872.      */
  873.     
  874.     Tcl_CancelIdleCall(TkpDisplayButton, (ClientData) butPtr);
  875.     XFlush(butPtr->display);
  876.     Tcl_Sleep(50);
  877. }
  878.     }
  879.     break;
  880. }
  882. case COMMAND_INVOKE: {
  883.     if (objc > 2) {
  884. Tcl_WrongNumArgs(interp, 1, objv, "invoke");
  885. goto error;
  886.     }
  887.     if (butPtr->state != STATE_DISABLED) {
  888. result = TkInvokeButton(butPtr);
  889.     }
  890.     break;
  891. }
  893. case COMMAND_SELECT: {
  894.     if (objc > 2) {
  895. Tcl_WrongNumArgs(interp, 1, objv, "select");
  896. goto error;
  897.     }
  898.     if (Tcl_ObjSetVar2(interp, butPtr->selVarNamePtr, NULL,
  899.     butPtr->onValuePtr, TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG)
  900.     == NULL) {
  901. goto error;
  902.     }
  903.     break;
  904. }
  906. case COMMAND_TOGGLE: {
  907.     if (objc > 2) {
  908. Tcl_WrongNumArgs(interp, 1, objv, "toggle");
  909. goto error;
  910.     }
  911.     if (Tcl_ObjSetVar2(interp, butPtr->selVarNamePtr, NULL,
  912.     (butPtr->flags & SELECTED) ? butPtr->offValuePtr
  913.     : butPtr->onValuePtr,
  914.     TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG)
  915.     == NULL) {
  916. goto error;
  917.     }
  918.     break;
  919. }
  920.     }
  921.     Tcl_Release((ClientData) butPtr);
  922.     return result;
  924.     error:
  925.     Tcl_Release((ClientData) butPtr);
  926.     return TCL_ERROR;
  927. }
  929. /*
  930.  *----------------------------------------------------------------------
  931.  *
  932.  * DestroyButton --
  933.  *
  934.  * This procedure is invoked by ButtonEventProc to free all the
  935.  * resources of a button and clean up its state.
  936.  *
  937.  * Results:
  938.  * None.
  939.  *
  940.  * Side effects:
  941.  * Everything associated with the widget is freed.
  942.  *
  943.  *----------------------------------------------------------------------
  944.  */
  946. static void
  947. DestroyButton(butPtr)
  948.     TkButton *butPtr; /* Info about button widget. */
  949. {
  950.     butPtr->flags |= BUTTON_DELETED;
  951.     TkpDestroyButton(butPtr);
  953.     if (butPtr->flags & REDRAW_PENDING) {
  954. Tcl_CancelIdleCall(TkpDisplayButton, (ClientData) butPtr);
  955.     }
  957.     /*
  958.      * Free up all the stuff that requires special handling, then
  959.      * let Tk_FreeOptions handle all the standard option-related
  960.      * stuff.
  961.      */
  963.     Tcl_DeleteCommandFromToken(butPtr->interp, butPtr->widgetCmd);
  964.     if (butPtr->textVarNamePtr != NULL) {
  965. Tcl_UntraceVar(butPtr->interp, Tcl_GetString(butPtr->textVarNamePtr),
  966. TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
  967. ButtonTextVarProc, (ClientData) butPtr);
  968.     }
  969.     if (butPtr->image != NULL) {
  970. Tk_FreeImage(butPtr->image);
  971.     }
  972.     if (butPtr->selectImage != NULL) {
  973. Tk_FreeImage(butPtr->selectImage);
  974.     }
  975.     if (butPtr->normalTextGC != None) {
  976. Tk_FreeGC(butPtr->display, butPtr->normalTextGC);
  977.     }
  978.     if (butPtr->activeTextGC != None) {
  979. Tk_FreeGC(butPtr->display, butPtr->activeTextGC);
  980.     }
  981.     if (butPtr->disabledGC != None) {
  982. Tk_FreeGC(butPtr->display, butPtr->disabledGC);
  983.     }
  984.     if (butPtr->stippleGC != None) {
  985. Tk_FreeGC(butPtr->display, butPtr->stippleGC);
  986.     }
  987.     if (butPtr->gray != None) {
  988. Tk_FreeBitmap(butPtr->display, butPtr->gray);
  989.     }
  990.     if (butPtr->copyGC != None) {
  991. Tk_FreeGC(butPtr->display, butPtr->copyGC);
  992.     }
  993.     if (butPtr->textLayout != NULL) {
  994. Tk_FreeTextLayout(butPtr->textLayout);
  995.     }
  996.     if (butPtr->selVarNamePtr != NULL) {
  997. Tcl_UntraceVar(butPtr->interp, Tcl_GetString(butPtr->selVarNamePtr),
  998. TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
  999. ButtonVarProc, (ClientData) butPtr);
  1000.     }
  1001.     Tk_FreeConfigOptions((char *) butPtr, butPtr->optionTable,
  1002.     butPtr->tkwin);
  1003.     butPtr->tkwin = NULL;
  1004.     Tcl_EventuallyFree((ClientData) butPtr, TCL_DYNAMIC);
  1005. }
  1007. /*
  1008.  *----------------------------------------------------------------------
  1009.  *
  1010.  * ConfigureButton --
  1011.  *
  1012.  * This procedure is called to process an objc/objv list to set
  1013.  * configuration options for a button widget.
  1014.  *
  1015.  * Results:
  1016.  * The return value is a standard Tcl result.  If TCL_ERROR is
  1017.  * returned, then an error message is left in interp's result.
  1018.  *
  1019.  * Side effects:
  1020.  * Configuration information, such as text string, colors, font,
  1021.  * etc. get set for butPtr;  old resources get freed, if there
  1022.  * were any.  The button is redisplayed.
  1023.  *
  1024.  *----------------------------------------------------------------------
  1025.  */
  1027. static int
  1028. ConfigureButton(interp, butPtr, objc, objv)
  1029.     Tcl_Interp *interp; /* Used for error reporting. */
  1030.     register TkButton *butPtr; /* Information about widget;  may or may
  1031.  * not already have values for some fields. */
  1032.     int objc; /* Number of arguments. */
  1033.     Tcl_Obj *CONST objv[]; /* Argument values. */
  1034. {
  1035.     Tk_SavedOptions savedOptions;
  1036.     Tcl_Obj *errorResult = NULL;
  1037.     int error, haveImage;
  1038.     Tk_Image image;
  1040.     /*
  1041.      * Eliminate any existing trace on variables monitored by the button.
  1042.      */
  1044.     if (butPtr->textVarNamePtr != NULL) {
  1045. Tcl_UntraceVar(interp, Tcl_GetString(butPtr->textVarNamePtr), 
  1046. TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
  1047. ButtonTextVarProc, (ClientData) butPtr);
  1048.     }
  1049.     if (butPtr->selVarNamePtr != NULL) {
  1050. Tcl_UntraceVar(interp, Tcl_GetString(butPtr->selVarNamePtr), 
  1051. TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
  1052. ButtonVarProc, (ClientData) butPtr);
  1053.     }
  1055.     /*
  1056.      * The following loop is potentially executed twice.  During the
  1057.      * first pass configuration options get set to their new values.
  1058.      * If there is an error in this pass, we execute a second pass
  1059.      * to restore all the options to their previous values.
  1060.      */
  1062.     for (error = 0; error <= 1; error++) {
  1063. if (!error) {
  1064.     /*
  1065.      * First pass: set options to new values.
  1066.      */
  1068.     if (Tk_SetOptions(interp, (char *) butPtr,
  1069.     butPtr->optionTable, objc, objv,
  1070.     butPtr->tkwin, &savedOptions, (int *) NULL) != TCL_OK) {
  1071. continue;
  1072.     }
  1073. } else {
  1074.     /*
  1075.      * Second pass: restore options to old values.
  1076.      */
  1078.     errorResult = Tcl_GetObjResult(interp);
  1079.     Tcl_IncrRefCount(errorResult);
  1080.     Tk_RestoreSavedOptions(&savedOptions);
  1081. }
  1083. if ((butPtr->flags & BUTTON_DELETED)) {
  1084.     /*
  1085.      * Somehow button was deleted - just abort now. [Bug #824479]
  1086.      */
  1087.     return TCL_ERROR;
  1088. }
  1090. /*
  1091.  * A few options need special processing, such as setting the
  1092.  * background from a 3-D border, or filling in complicated
  1093.  * defaults that couldn't be specified to Tk_SetOptions.
  1094.  */
  1096. if ((butPtr->state == STATE_ACTIVE)
  1097. && !Tk_StrictMotif(butPtr->tkwin)) {
  1098.     Tk_SetBackgroundFromBorder(butPtr->tkwin, butPtr->activeBorder);
  1099. } else {
  1100.     Tk_SetBackgroundFromBorder(butPtr->tkwin, butPtr->normalBorder);
  1101. }
  1102. if (butPtr->borderWidth < 0) {
  1103.     butPtr->borderWidth = 0;
  1104. }
  1105. if (butPtr->highlightWidth < 0) {
  1106.     butPtr->highlightWidth = 0;
  1107. }
  1108. if (butPtr->padX < 0) {
  1109.     butPtr->padX = 0;
  1110. }
  1111. if (butPtr->padY < 0) {
  1112.     butPtr->padY = 0;
  1113. }
  1115. if (butPtr->type >= TYPE_CHECK_BUTTON) {
  1116.     Tcl_Obj *valuePtr, *namePtr;
  1117.     
  1118.     if (butPtr->selVarNamePtr == NULL) {
  1119. butPtr->selVarNamePtr = Tcl_NewStringObj(
  1120. Tk_Name(butPtr->tkwin), -1);
  1121. Tcl_IncrRefCount(butPtr->selVarNamePtr);
  1122.     }
  1123.     namePtr = butPtr->selVarNamePtr;
  1124.     
  1125.     /*
  1126.      * Select the button if the associated variable has the
  1127.      * appropriate value, initialize the variable if it doesn't
  1128.      * exist, then set a trace on the variable to monitor future
  1129.      * changes to its value.
  1130.      */
  1131.     
  1132.     valuePtr = Tcl_ObjGetVar2(interp, namePtr, NULL, TCL_GLOBAL_ONLY);
  1133.     butPtr->flags &= ~SELECTED;
  1134.     if (valuePtr != NULL) {
  1135. if (strcmp(Tcl_GetString(valuePtr),
  1136. Tcl_GetString(butPtr->onValuePtr)) == 0) {
  1137.     butPtr->flags |= SELECTED;
  1138. }
  1139.     } else {
  1140. if (Tcl_ObjSetVar2(interp, namePtr, NULL,
  1141. (butPtr->type == TYPE_CHECK_BUTTON)
  1142. ? butPtr->offValuePtr : Tcl_NewObj(),
  1143. TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG)
  1144. == NULL) {
  1145.     continue;
  1146. }
  1148. /*
  1149.  * If a radiobutton has the empty string as value
  1150.  * it should be selected.
  1151.  */
  1153.   if ((butPtr->type == TYPE_RADIO_BUTTON) &&
  1154. (*Tcl_GetString(butPtr->onValuePtr) == 0)) {
  1155.     butPtr->flags |= SELECTED;
  1156. }
  1157.     }
  1158. }
  1160. /*
  1161.  * Get the images for the widget, if there are any.  Allocate the
  1162.  * new images before freeing the old ones, so that the reference
  1163.  * counts don't go to zero and cause image data to be discarded.
  1164.  */
  1165.     
  1166. if (butPtr->imagePtr != NULL) {
  1167.     image = Tk_GetImage(butPtr->interp, butPtr->tkwin,
  1168.     Tcl_GetString(butPtr->imagePtr), ButtonImageProc,
  1169.     (ClientData) butPtr);
  1170.     if (image == NULL) {
  1171. continue;
  1172.     }
  1173. } else {
  1174.     image = NULL;
  1175. }
  1176. if (butPtr->image != NULL) {
  1177.     Tk_FreeImage(butPtr->image);
  1178. }
  1179. butPtr->image = image;
  1180. if (butPtr->selectImagePtr != NULL) {
  1181.     image = Tk_GetImage(butPtr->interp, butPtr->tkwin,
  1182.     Tcl_GetString(butPtr->selectImagePtr),
  1183.     ButtonSelectImageProc, (ClientData) butPtr);
  1184.     if (image == NULL) {
  1185. continue;
  1186.     }
  1187. } else {
  1188.     image = NULL;
  1189. }
  1190. if (butPtr->selectImage != NULL) {
  1191.     Tk_FreeImage(butPtr->selectImage);
  1192. }
  1193. butPtr->selectImage = image;
  1195. haveImage = 0;
  1196. if (butPtr->imagePtr != NULL || butPtr->bitmap != None) {
  1197.     haveImage = 1;
  1198. }
  1199. if ((!haveImage || butPtr->compound != COMPOUND_NONE)
  1200. && (butPtr->textVarNamePtr != NULL)) {
  1201.     /*
  1202.      * The button must display the value of a variable: set up a trace
  1203.      * on the variable's value, create the variable if it doesn't
  1204.      * exist, and fetch its current value.
  1205.      */
  1206.     
  1207.     Tcl_Obj *valuePtr, *namePtr;
  1209.     namePtr = butPtr->textVarNamePtr;
  1210.     valuePtr = Tcl_ObjGetVar2(interp, namePtr, NULL, TCL_GLOBAL_ONLY);
  1211.     if (valuePtr == NULL) {
  1212. if (Tcl_ObjSetVar2(interp, namePtr, NULL, butPtr->textPtr,
  1213. TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG)
  1214. == NULL) {
  1215.     continue;
  1216. }
  1217.     } else {
  1218. if (butPtr->textPtr != NULL) {
  1219.     Tcl_DecrRefCount(butPtr->textPtr);
  1220. }
  1221. butPtr->textPtr = valuePtr;
  1222. Tcl_IncrRefCount(butPtr->textPtr);
  1223.     }
  1224. }
  1225.     
  1226. if ((butPtr->bitmap != None) || (butPtr->imagePtr != NULL)) {
  1227.     /*
  1228.      * The button must display the contents of an image or
  1229.      * bitmap.
  1230.      */
  1232.     if (Tk_GetPixelsFromObj(interp, butPtr->tkwin, butPtr->widthPtr,
  1233.     &butPtr->width) != TCL_OK) {
  1234. widthError:
  1235. Tcl_AddErrorInfo(interp, "n    (processing -width option)");
  1236. continue;
  1237.     }
  1238.     if (Tk_GetPixelsFromObj(interp, butPtr->tkwin, butPtr->heightPtr,
  1239.     &butPtr->height) != TCL_OK) {
  1240. heightError:
  1241. Tcl_AddErrorInfo(interp, "n    (processing -height option)");
  1242. continue;
  1243.     }
  1244. } else {
  1245.     /*
  1246.      * The button displays an ordinary text string.
  1247.      */
  1249.     if (Tcl_GetIntFromObj(interp, butPtr->widthPtr, &butPtr->width)
  1250.     != TCL_OK) {
  1251. goto widthError;
  1252.     }
  1253.     if (Tcl_GetIntFromObj(interp, butPtr->heightPtr, &butPtr->height)
  1254.     != TCL_OK) {
  1255. goto heightError;
  1256.     }
  1257. }
  1258. break;
  1259.     }
  1260.     if (!error) {
  1261. Tk_FreeSavedOptions(&savedOptions);
  1262.     }
  1264.     /*
  1265.      * Reestablish the variable traces, if they're needed.
  1266.      */
  1268.     if (butPtr->textVarNamePtr != NULL) {
  1269. Tcl_TraceVar(interp, Tcl_GetString(butPtr->textVarNamePtr),
  1270. TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
  1271. ButtonTextVarProc, (ClientData) butPtr);
  1272.     }
  1273.     if (butPtr->selVarNamePtr != NULL) {
  1274. Tcl_TraceVar(interp, Tcl_GetString(butPtr->selVarNamePtr),
  1275. TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
  1276. ButtonVarProc, (ClientData) butPtr);
  1277.     }
  1278.     
  1279.     TkButtonWorldChanged((ClientData) butPtr);
  1280.     if (error) {
  1281. Tcl_SetObjResult(interp, errorResult);
  1282. Tcl_DecrRefCount(errorResult);
  1283. return TCL_ERROR;
  1284.     } else {
  1285. return TCL_OK;
  1286.     }
  1287. }
  1289. /*
  1290.  *---------------------------------------------------------------------------
  1291.  *
  1292.  * TkButtonWorldChanged --
  1293.  *
  1294.  *      This procedure is called when the world has changed in some
  1295.  *      way and the widget needs to recompute all its graphics contexts
  1296.  * and determine its new geometry.
  1297.  *
  1298.  * Results:
  1299.  *      None.
  1300.  *
  1301.  * Side effects:
  1302.  *      Button will be relayed out and redisplayed.
  1303.  *
  1304.  *---------------------------------------------------------------------------
  1305.  */
  1306.  
  1307. void
  1308. TkButtonWorldChanged(instanceData)
  1309.     ClientData instanceData; /* Information about widget. */
  1310. {
  1311.     XGCValues gcValues;
  1312.     GC newGC;
  1313.     unsigned long mask;
  1314.     TkButton *butPtr;
  1316.     butPtr = (TkButton *) instanceData;
  1318.     /*
  1319.      * Recompute GCs.
  1320.      */
  1322.     gcValues.font = Tk_FontId(butPtr->tkfont);
  1323.     gcValues.foreground = butPtr->normalFg->pixel;
  1324.     gcValues.background = Tk_3DBorderColor(butPtr->normalBorder)->pixel;
  1325.     
  1326.     /*
  1327.      * Note: GraphicsExpose events are disabled in normalTextGC because it's
  1328.      * used to copy stuff from an off-screen pixmap onto the screen (we know
  1329.      * that there's no problem with obscured areas).
  1330.      */
  1332.     gcValues.graphics_exposures = False;
  1333.     mask = GCForeground | GCBackground | GCFont | GCGraphicsExposures;
  1334.     newGC = Tk_GetGC(butPtr->tkwin, mask, &gcValues);
  1335.     if (butPtr->normalTextGC != None) {
  1336. Tk_FreeGC(butPtr->display, butPtr->normalTextGC);
  1337.     }
  1338.     butPtr->normalTextGC = newGC;
  1340.     if (butPtr->activeFg != NULL) {
  1341. gcValues.foreground = butPtr->activeFg->pixel;
  1342. gcValues.background = Tk_3DBorderColor(butPtr->activeBorder)->pixel;
  1343. mask = GCForeground | GCBackground | GCFont;
  1344. newGC = Tk_GetGC(butPtr->tkwin, mask, &gcValues);
  1345. if (butPtr->activeTextGC != None) {
  1346.     Tk_FreeGC(butPtr->display, butPtr->activeTextGC);
  1347. }
  1348. butPtr->activeTextGC = newGC;
  1349.     }
  1351.     gcValues.background = Tk_3DBorderColor(butPtr->normalBorder)->pixel;
  1353.     /*
  1354.      * Create the GC that can be used for stippling
  1355.      */
  1357.     if (butPtr->stippleGC == None) {
  1358. gcValues.foreground = gcValues.background;
  1359. mask = GCForeground;
  1360. if (butPtr->gray == None) {
  1361.     butPtr->gray = Tk_GetBitmap(NULL, butPtr->tkwin, "gray50");
  1362. }
  1363. if (butPtr->gray != None) {
  1364.     gcValues.fill_style = FillStippled;
  1365.     gcValues.stipple = butPtr->gray;
  1366.     mask |= GCFillStyle | GCStipple;
  1367. }
  1368. butPtr->stippleGC = Tk_GetGC(butPtr->tkwin, mask, &gcValues);
  1369.     }
  1371.     /*
  1372.      * Allocate the disabled graphics context, for drawing text in
  1373.      * its disabled state.
  1374.      */
  1376.     mask = GCForeground | GCBackground | GCFont;
  1377.     if (butPtr->disabledFg != NULL) {
  1378. gcValues.foreground = butPtr->disabledFg->pixel;
  1379.     } else {
  1380. gcValues.foreground = gcValues.background;
  1381.     }
  1382.     newGC = Tk_GetGC(butPtr->tkwin, mask, &gcValues);
  1383.     if (butPtr->disabledGC != None) {
  1384. Tk_FreeGC(butPtr->display, butPtr->disabledGC);
  1385.     }
  1386.     butPtr->disabledGC = newGC;
  1388.     if (butPtr->copyGC == None) {
  1389. butPtr->copyGC = Tk_GetGC(butPtr->tkwin, 0, &gcValues);
  1390.     }
  1392.     TkpComputeButtonGeometry(butPtr);
  1394.     /*
  1395.      * Lastly, arrange for the button to be redisplayed.
  1396.      */
  1398.     if (Tk_IsMapped(butPtr->tkwin) && !(butPtr->flags & REDRAW_PENDING)) {
  1399. Tcl_DoWhenIdle(TkpDisplayButton, (ClientData) butPtr);
  1400. butPtr->flags |= REDRAW_PENDING;
  1401.     }
  1402. }
  1404. /*
  1405.  *--------------------------------------------------------------
  1406.  *
  1407.  * ButtonEventProc --
  1408.  *
  1409.  * This procedure is invoked by the Tk dispatcher for various
  1410.  * events on buttons.
  1411.  *
  1412.  * Results:
  1413.  * None.
  1414.  *
  1415.  * Side effects:
  1416.  * When the window gets deleted, internal structures get
  1417.  * cleaned up.  When it gets exposed, it is redisplayed.
  1418.  *
  1419.  *--------------------------------------------------------------
  1420.  */
  1422. static void
  1423. ButtonEventProc(clientData, eventPtr)
  1424.     ClientData clientData; /* Information about window. */
  1425.     XEvent *eventPtr; /* Information about event. */
  1426. {
  1427.     TkButton *butPtr = (TkButton *) clientData;
  1428.     if ((eventPtr->type == Expose) && (eventPtr->xexpose.count == 0)) {
  1429. goto redraw;
  1430.     } else if (eventPtr->type == ConfigureNotify) {
  1431. /*
  1432.  * Must redraw after size changes, since layout could have changed
  1433.  * and borders will need to be redrawn.
  1434.  */
  1436. goto redraw;
  1437.     } else if (eventPtr->type == DestroyNotify) {
  1438. DestroyButton(butPtr);
  1439.     } else if (eventPtr->type == FocusIn) {
  1440. if (eventPtr->xfocus.detail != NotifyInferior) {
  1441.     butPtr->flags |= GOT_FOCUS;
  1442.     if (butPtr->highlightWidth > 0) {
  1443. goto redraw;
  1444.     }
  1445. }
  1446.     } else if (eventPtr->type == FocusOut) {
  1447. if (eventPtr->xfocus.detail != NotifyInferior) {
  1448.     butPtr->flags &= ~GOT_FOCUS;
  1449.     if (butPtr->highlightWidth > 0) {
  1450. goto redraw;
  1451.     }
  1452. }
  1453.     }
  1454.     return;
  1456.     redraw:
  1457.     if ((butPtr->tkwin != NULL) && !(butPtr->flags & REDRAW_PENDING)) {
  1458. Tcl_DoWhenIdle(TkpDisplayButton, (ClientData) butPtr);
  1459. butPtr->flags |= REDRAW_PENDING;
  1460.     }
  1461. }
  1463. /*
  1464.  *----------------------------------------------------------------------
  1465.  *
  1466.  * ButtonCmdDeletedProc --
  1467.  *
  1468.  * This procedure is invoked when a widget command is deleted.  If
  1469.  * the widget isn't already in the process of being destroyed,
  1470.  * this command destroys it.
  1471.  *
  1472.  * Results:
  1473.  * None.
  1474.  *
  1475.  * Side effects:
  1476.  * The widget is destroyed.
  1477.  *
  1478.  *----------------------------------------------------------------------
  1479.  */
  1481. static void
  1482. ButtonCmdDeletedProc(clientData)
  1483.     ClientData clientData; /* Pointer to widget record for widget. */
  1484. {
  1485.     TkButton *butPtr = (TkButton *) clientData;
  1487.     /*
  1488.      * This procedure could be invoked either because the window was
  1489.      * destroyed and the command was then deleted or because the command
  1490.      * was deleted, and then this procedure destroys the widget.  The
  1491.      * BUTTON_DELETED flag distinguishes these cases.
  1492.      */
  1494.     if (!(butPtr->flags & BUTTON_DELETED)) {
  1495. Tk_DestroyWindow(butPtr->tkwin);
  1496.     }
  1497. }
  1499. /*
  1500.  *----------------------------------------------------------------------
  1501.  *
  1502.  * TkInvokeButton --
  1503.  *
  1504.  * This procedure is called to carry out the actions associated
  1505.  * with a button, such as invoking a Tcl command or setting a
  1506.  * variable.  This procedure is invoked, for example, when the
  1507.  * button is invoked via the mouse.
  1508.  *
  1509.  * Results:
  1510.  * A standard Tcl return value.  Information is also left in
  1511.  * the interp's result.
  1512.  *
  1513.  * Side effects:
  1514.  * Depends on the button and its associated command.
  1515.  *
  1516.  *----------------------------------------------------------------------
  1517.  */
  1519. int
  1520. TkInvokeButton(butPtr)
  1521.     TkButton *butPtr; /* Information about button. */
  1522. {
  1523.     Tcl_Obj *namePtr = butPtr->selVarNamePtr;
  1525.     if (butPtr->type == TYPE_CHECK_BUTTON) {
  1526. if (butPtr->flags & SELECTED) {
  1527.     if (Tcl_ObjSetVar2(butPtr->interp, namePtr, NULL,
  1528.     butPtr->offValuePtr, TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG)
  1529.     == NULL) {
  1530. return TCL_ERROR;
  1531.     }
  1532. } else {
  1533.     if (Tcl_ObjSetVar2(butPtr->interp, namePtr, NULL,
  1534.     butPtr->onValuePtr, TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG)
  1535.     == NULL) {
  1536. return TCL_ERROR;
  1537.     }
  1538. }
  1539.     } else if (butPtr->type == TYPE_RADIO_BUTTON) {
  1540. if (Tcl_ObjSetVar2(butPtr->interp, namePtr, NULL, butPtr->onValuePtr,
  1541. TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG)
  1542. == NULL) {
  1543.     return TCL_ERROR;
  1544. }
  1545.     }
  1546.     if ((butPtr->type != TYPE_LABEL) && (butPtr->commandPtr != NULL)) {
  1547. return Tcl_EvalObjEx(butPtr->interp, butPtr->commandPtr,
  1548. TCL_EVAL_GLOBAL);
  1549.     }
  1550.     return TCL_OK;
  1551. }
  1553. /*
  1554.  *--------------------------------------------------------------
  1555.  *
  1556.  * ButtonVarProc --
  1557.  *
  1558.  * This procedure is invoked when someone changes the
  1559.  * state variable associated with a radio button.  Depending
  1560.  * on the new value of the button's variable, the button
  1561.  * may be selected or deselected.
  1562.  *
  1563.  * Results:
  1564.  * NULL is always returned.
  1565.  *
  1566.  * Side effects:
  1567.  * The button may become selected or deselected.
  1568.  *
  1569.  *--------------------------------------------------------------
  1570.  */
  1572. /* ARGSUSED */
  1573. static char *
  1574. ButtonVarProc(clientData, interp, name1, name2, flags)
  1575.     ClientData clientData; /* Information about button. */
  1576.     Tcl_Interp *interp; /* Interpreter containing variable. */
  1577.     CONST char *name1; /* Name of variable. */
  1578.     CONST char *name2; /* Second part of variable name. */
  1579.     int flags; /* Information about what happened. */
  1580. {
  1581.     register TkButton *butPtr = (TkButton *) clientData;
  1582.     char *name, *value;
  1583.     Tcl_Obj *valuePtr;
  1585.     name = Tcl_GetString(butPtr->selVarNamePtr);
  1587.     /*
  1588.      * If the variable is being unset, then just re-establish the
  1589.      * trace unless the whole interpreter is going away.
  1590.      */
  1592.     if (flags & TCL_TRACE_UNSETS) {
  1593. butPtr->flags &= ~SELECTED;
  1594. if ((flags & TCL_TRACE_DESTROYED) && !(flags & TCL_INTERP_DESTROYED)) {
  1595.     Tcl_TraceVar(interp, name,
  1596.     TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
  1597.     ButtonVarProc, clientData);
  1598. }
  1599. goto redisplay;
  1600.     }
  1602.     /*
  1603.      * Use the value of the variable to update the selected status of
  1604.      * the button.
  1605.      */
  1607.     valuePtr = Tcl_GetVar2Ex(interp, name, NULL, TCL_GLOBAL_ONLY);
  1608.     if (valuePtr == NULL) {
  1609. value = "";
  1610.     } else {
  1611. value = Tcl_GetString(valuePtr);
  1612.     }
  1613.     if (strcmp(value, Tcl_GetString(butPtr->onValuePtr)) == 0) {
  1614. if (butPtr->flags & SELECTED) {
  1615.     return (char *) NULL;
  1616. }
  1617. butPtr->flags |= SELECTED;
  1618.     } else if (butPtr->flags & SELECTED) {
  1619. butPtr->flags &= ~SELECTED;
  1620.     } else {
  1621. return (char *) NULL;
  1622.     }
  1624.     redisplay:
  1625.     if ((butPtr->tkwin != NULL) && Tk_IsMapped(butPtr->tkwin)
  1626.     && !(butPtr->flags & REDRAW_PENDING)) {
  1627. Tcl_DoWhenIdle(TkpDisplayButton, (ClientData) butPtr);
  1628. butPtr->flags |= REDRAW_PENDING;
  1629.     }
  1630.     return (char *) NULL;
  1631. }
  1633. /*
  1634.  *--------------------------------------------------------------
  1635.  *
  1636.  * ButtonTextVarProc --
  1637.  *
  1638.  * This procedure is invoked when someone changes the variable
  1639.  * whose contents are to be displayed in a button.
  1640.  *
  1641.  * Results:
  1642.  * NULL is always returned.
  1643.  *
  1644.  * Side effects:
  1645.  * The text displayed in the button will change to match the
  1646.  * variable.
  1647.  *
  1648.  *--------------------------------------------------------------
  1649.  */
  1651. /* ARGSUSED */
  1652. static char *
  1653. ButtonTextVarProc(clientData, interp, name1, name2, flags)
  1654.     ClientData clientData; /* Information about button. */
  1655.     Tcl_Interp *interp; /* Interpreter containing variable. */
  1656.     CONST char *name1; /* Not used. */
  1657.     CONST char *name2; /* Not used. */
  1658.     int flags; /* Information about what happened. */
  1659. {
  1660.     TkButton *butPtr = (TkButton *) clientData;
  1661.     char *name;
  1662.     Tcl_Obj *valuePtr;
  1664.     if (butPtr->flags & BUTTON_DELETED) {
  1665. return (char *) NULL;
  1666.     }
  1668.     name = Tcl_GetString(butPtr->textVarNamePtr);
  1670.     /*
  1671.      * If the variable is unset, then immediately recreate it unless
  1672.      * the whole interpreter is going away.
  1673.      */
  1675.     if (flags & TCL_TRACE_UNSETS) {
  1676. if ((flags & TCL_TRACE_DESTROYED) && !(flags & TCL_INTERP_DESTROYED)) {
  1677.     Tcl_SetVar2Ex(interp, name, NULL, butPtr->textPtr, 
  1678.     TCL_GLOBAL_ONLY);
  1679.     Tcl_TraceVar(interp, name,
  1680.     TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
  1681.     ButtonTextVarProc, clientData);
  1682. }
  1683. return (char *) NULL;
  1684.     }
  1686.     valuePtr = Tcl_GetVar2Ex(interp, name, NULL, TCL_GLOBAL_ONLY);
  1687.     if (valuePtr == NULL) {
  1688. valuePtr = Tcl_NewObj();
  1689.     }
  1690.     Tcl_DecrRefCount(butPtr->textPtr);
  1691.     butPtr->textPtr = valuePtr;
  1692.     Tcl_IncrRefCount(butPtr->textPtr);
  1693.     TkpComputeButtonGeometry(butPtr);
  1695.     if ((butPtr->tkwin != NULL) && Tk_IsMapped(butPtr->tkwin)
  1696.     && !(butPtr->flags & REDRAW_PENDING)) {
  1697. Tcl_DoWhenIdle(TkpDisplayButton, (ClientData) butPtr);
  1698. butPtr->flags |= REDRAW_PENDING;
  1699.     }
  1700.     return (char *) NULL;
  1701. }
  1703. /*
  1704.  *----------------------------------------------------------------------
  1705.  *
  1706.  * ButtonImageProc --
  1707.  *
  1708.  * This procedure is invoked by the image code whenever the manager
  1709.  * for an image does something that affects the size or contents
  1710.  * of an image displayed in a button.
  1711.  *
  1712.  * Results:
  1713.  * None.
  1714.  *
  1715.  * Side effects:
  1716.  * Arranges for the button to get redisplayed.
  1717.  *
  1718.  *----------------------------------------------------------------------
  1719.  */
  1721. static void
  1722. ButtonImageProc(clientData, x, y, width, height, imgWidth, imgHeight)
  1723.     ClientData clientData; /* Pointer to widget record. */
  1724.     int x, y; /* Upper left pixel (within image)
  1725.  * that must be redisplayed. */
  1726.     int width, height; /* Dimensions of area to redisplay
  1727.  * (may be <= 0). */
  1728.     int imgWidth, imgHeight; /* New dimensions of image. */
  1729. {
  1730.     register TkButton *butPtr = (TkButton *) clientData;
  1732.     if (butPtr->tkwin != NULL) {
  1733. TkpComputeButtonGeometry(butPtr);
  1734. if (Tk_IsMapped(butPtr->tkwin) && !(butPtr->flags & REDRAW_PENDING)) {
  1735.     Tcl_DoWhenIdle(TkpDisplayButton, (ClientData) butPtr);
  1736.     butPtr->flags |= REDRAW_PENDING;
  1737. }
  1738.     }
  1739. }
  1741. /*
  1742.  *----------------------------------------------------------------------
  1743.  *
  1744.  * ButtonSelectImageProc --
  1745.  *
  1746.  * This procedure is invoked by the image code whenever the manager
  1747.  * for an image does something that affects the size or contents
  1748.  * of the image displayed in a button when it is selected.
  1749.  *
  1750.  * Results:
  1751.  * None.
  1752.  *
  1753.  * Side effects:
  1754.  * May arrange for the button to get redisplayed.
  1755.  *
  1756.  *----------------------------------------------------------------------
  1757.  */
  1759. static void
  1760. ButtonSelectImageProc(clientData, x, y, width, height, imgWidth, imgHeight)
  1761.     ClientData clientData; /* Pointer to widget record. */
  1762.     int x, y; /* Upper left pixel (within image)
  1763.  * that must be redisplayed. */
  1764.     int width, height; /* Dimensions of area to redisplay
  1765.  * (may be <= 0). */
  1766.     int imgWidth, imgHeight; /* New dimensions of image. */
  1767. {
  1768.     register TkButton *butPtr = (TkButton *) clientData;
  1770.     /*
  1771.      * Don't recompute geometry:  it's controlled by the primary image.
  1772.      */
  1774.     if ((butPtr->flags & SELECTED) && (butPtr->tkwin != NULL)
  1775.     && Tk_IsMapped(butPtr->tkwin)
  1776.     && !(butPtr->flags & REDRAW_PENDING)) {
  1777. Tcl_DoWhenIdle(TkpDisplayButton, (ClientData) butPtr);
  1778. butPtr->flags |= REDRAW_PENDING;
  1779.     }
  1780. }