428
+ − 1 /* Generic toolbar implementation.
+ − 2 Copyright (C) 1995 Board of Trustees, University of Illinois.
+ − 3 Copyright (C) 1995 Sun Microsystems, Inc.
+ − 4 Copyright (C) 1995, 1996 Ben Wing.
+ − 5 Copyright (C) 1996 Chuck Thompson.
+ − 6
+ − 7 This file is part of XEmacs.
+ − 8
+ − 9 XEmacs is free software; you can redistribute it and/or modify it
+ − 10 under the terms of the GNU General Public License as published by the
+ − 11 Free Software Foundation; either version 2, or (at your option) any
+ − 12 later version.
+ − 13
+ − 14 XEmacs is distributed in the hope that it will be useful, but WITHOUT
+ − 15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ − 16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+ − 17 for more details.
+ − 18
+ − 19 You should have received a copy of the GNU General Public License
+ − 20 along with XEmacs; see the file COPYING. If not, write to
+ − 21 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ − 22 Boston, MA 02111-1307, USA. */
+ − 23
+ − 24 /* Synched up with: Not in FSF. */
+ − 25
+ − 26 /* Original implementation by Chuck Thompson for 19.12.
+ − 27 Default-toolbar-position and specifier-related stuff by Ben Wing. */
+ − 28
+ − 29 #include <config.h>
+ − 30 #include "lisp.h"
+ − 31
+ − 32 #include "buffer.h"
872
+ − 33 #include "frame-impl.h"
+ − 34 #include "device-impl.h"
428
+ − 35 #include "glyphs.h"
+ − 36 #include "redisplay.h"
+ − 37 #include "toolbar.h"
+ − 38 #include "window.h"
+ − 39
+ − 40 Lisp_Object Vtoolbar[4];
+ − 41 Lisp_Object Vtoolbar_size[4];
+ − 42 Lisp_Object Vtoolbar_visible_p[4];
+ − 43 Lisp_Object Vtoolbar_border_width[4];
+ − 44
+ − 45 Lisp_Object Vdefault_toolbar, Vdefault_toolbar_visible_p;
+ − 46 Lisp_Object Vdefault_toolbar_width, Vdefault_toolbar_height;
+ − 47 Lisp_Object Vdefault_toolbar_border_width;
744
+ − 48 Lisp_Object Vtoolbar_shadow_thickness;
428
+ − 49
+ − 50 Lisp_Object Vdefault_toolbar_position;
+ − 51 Lisp_Object Vtoolbar_buttons_captioned_p;
+ − 52
+ − 53 Lisp_Object Qtoolbar_buttonp;
+ − 54 Lisp_Object Q2D, Q3D, Q2d, Q3d;
+ − 55 Lisp_Object Q_size;
+ − 56
+ − 57 Lisp_Object Qinit_toolbar_from_resources;
+ − 58
934
+ − 59 #ifdef USE_KKCC
+ − 60 static const struct lrecord_description toolbar_button_description [] = {
+ − 61 { XD_LISP_OBJECT, offsetof (struct toolbar_button, next) },
+ − 62 { XD_LISP_OBJECT, offsetof (struct toolbar_button, frame) },
+ − 63 { XD_LISP_OBJECT, offsetof (struct toolbar_button, up_glyph) },
+ − 64 { XD_LISP_OBJECT, offsetof (struct toolbar_button, down_glyph) },
+ − 65 { XD_LISP_OBJECT, offsetof (struct toolbar_button, disabled_glyph) },
+ − 66 { XD_LISP_OBJECT, offsetof (struct toolbar_button, cap_up_glyph) },
+ − 67 { XD_LISP_OBJECT, offsetof (struct toolbar_button, cap_down_glyph) },
+ − 68 { XD_LISP_OBJECT, offsetof (struct toolbar_button, cap_disabled_glyph) },
+ − 69 { XD_LISP_OBJECT, offsetof (struct toolbar_button, callback) },
+ − 70 { XD_LISP_OBJECT, offsetof (struct toolbar_button, enabled_p) },
+ − 71 { XD_LISP_OBJECT, offsetof (struct toolbar_button, help_string) },
+ − 72 { XD_END }
+ − 73 };
+ − 74 #endif /* USE_KKCC */
428
+ − 75
+ − 76 static Lisp_Object
+ − 77 mark_toolbar_button (Lisp_Object obj)
+ − 78 {
+ − 79 struct toolbar_button *data = XTOOLBAR_BUTTON (obj);
+ − 80 mark_object (data->next);
+ − 81 mark_object (data->frame);
+ − 82 mark_object (data->up_glyph);
+ − 83 mark_object (data->down_glyph);
+ − 84 mark_object (data->disabled_glyph);
+ − 85 mark_object (data->cap_up_glyph);
+ − 86 mark_object (data->cap_down_glyph);
+ − 87 mark_object (data->cap_disabled_glyph);
+ − 88 mark_object (data->callback);
+ − 89 mark_object (data->enabled_p);
+ − 90 return data->help_string;
+ − 91 }
+ − 92
934
+ − 93 #ifdef USE_KKCC
+ − 94 DEFINE_LRECORD_IMPLEMENTATION ("toolbar-button", toolbar_button,
+ − 95 0, /*dumpable-flag*/
+ − 96 mark_toolbar_button, 0, 0, 0, 0,
+ − 97 toolbar_button_description,
+ − 98 struct toolbar_button);
+ − 99 #else /* not USE_KKCC */
428
+ − 100 DEFINE_LRECORD_IMPLEMENTATION ("toolbar-button", toolbar_button,
442
+ − 101 mark_toolbar_button, 0, 0, 0, 0, 0,
428
+ − 102 struct toolbar_button);
934
+ − 103 #endif /* not USE_KKCC */
428
+ − 104
+ − 105 DEFUN ("toolbar-button-p", Ftoolbar_button_p, 1, 1, 0, /*
+ − 106 Return non-nil if OBJECT is a toolbar button.
+ − 107 */
+ − 108 (object))
+ − 109 {
+ − 110 return TOOLBAR_BUTTONP (object) ? Qt : Qnil;
+ − 111 }
+ − 112
+ − 113 /* Only query functions are provided for toolbar buttons. They are
+ − 114 generated and updated from a toolbar description list. Any
+ − 115 directly made changes would be wiped out the first time the toolbar
+ − 116 was marked as dirty and was regenerated. The exception to this is
+ − 117 set-toolbar-button-down-flag. Having this allows us to control the
+ − 118 toolbar from elisp. Since we only trigger the button callbacks on
+ − 119 up-mouse events and we reset the flag first, there shouldn't be any
+ − 120 way for this to get us in trouble (like if someone decides to
+ − 121 change the toolbar from a toolbar callback). */
+ − 122
+ − 123 DEFUN ("toolbar-button-callback", Ftoolbar_button_callback, 1, 1, 0, /*
+ − 124 Return the callback function associated with the toolbar BUTTON.
+ − 125 */
+ − 126 (button))
+ − 127 {
+ − 128 CHECK_TOOLBAR_BUTTON (button);
+ − 129
+ − 130 return XTOOLBAR_BUTTON (button)->callback;
+ − 131 }
+ − 132
+ − 133 DEFUN ("toolbar-button-help-string", Ftoolbar_button_help_string, 1, 1, 0, /*
+ − 134 Return the help string function associated with the toolbar BUTTON.
+ − 135 */
+ − 136 (button))
+ − 137 {
+ − 138 CHECK_TOOLBAR_BUTTON (button);
+ − 139
+ − 140 return XTOOLBAR_BUTTON (button)->help_string;
+ − 141 }
+ − 142
+ − 143 DEFUN ("toolbar-button-enabled-p", Ftoolbar_button_enabled_p, 1, 1, 0, /*
+ − 144 Return t if BUTTON is active.
+ − 145 */
+ − 146 (button))
+ − 147 {
+ − 148 CHECK_TOOLBAR_BUTTON (button);
+ − 149
+ − 150 return XTOOLBAR_BUTTON (button)->enabled ? Qt : Qnil;
+ − 151 }
+ − 152
+ − 153 DEFUN ("set-toolbar-button-down-flag", Fset_toolbar_button_down_flag, 2, 2, 0, /*
+ − 154 Don't touch.
+ − 155 */
+ − 156 (button, flag))
+ − 157 {
+ − 158 struct toolbar_button *tb;
+ − 159 char old_flag;
+ − 160
+ − 161 CHECK_TOOLBAR_BUTTON (button);
+ − 162 tb = XTOOLBAR_BUTTON (button);
+ − 163 old_flag = tb->down;
+ − 164
+ − 165 /* If the button is ignored, don't do anything. */
+ − 166 if (!tb->enabled)
+ − 167 return Qnil;
+ − 168
+ − 169 /* If flag is nil, unset the down flag, otherwise set it to true.
+ − 170 This also triggers an immediate redraw of the button if the flag
+ − 171 does change. */
+ − 172
+ − 173 if (NILP (flag))
+ − 174 tb->down = 0;
+ − 175 else
+ − 176 tb->down = 1;
+ − 177
+ − 178 if (tb->down != old_flag)
+ − 179 {
+ − 180 struct frame *f = XFRAME (tb->frame);
+ − 181 struct device *d;
+ − 182
+ − 183 if (DEVICEP (f->device))
+ − 184 {
+ − 185 d = XDEVICE (f->device);
+ − 186
+ − 187 if (DEVICE_LIVE_P (XDEVICE (f->device)))
+ − 188 {
+ − 189 tb->dirty = 1;
+ − 190 MAYBE_DEVMETH (d, output_toolbar_button, (f, button));
+ − 191 }
+ − 192 }
+ − 193 }
+ − 194
+ − 195 return Qnil;
+ − 196 }
+ − 197
+ − 198 Lisp_Object
+ − 199 get_toolbar_button_glyph (struct window *w, struct toolbar_button *tb)
+ − 200 {
+ − 201 Lisp_Object glyph = Qnil;
+ − 202
+ − 203 /* The selected glyph logic:
+ − 204
+ − 205 UP: up
+ − 206 DOWN: down -> up
+ − 207 DISABLED: disabled -> up
+ − 208 CAP-UP: cap-up -> up
+ − 209 CAP-DOWN: cap-down -> cap-up -> down -> up
+ − 210 CAP-DISABLED: cap-disabled -> cap-up -> disabled -> up
+ − 211 */
+ − 212
+ − 213 if (!NILP (w->toolbar_buttons_captioned_p))
+ − 214 {
+ − 215 if (tb->enabled && tb->down)
+ − 216 glyph = tb->cap_down_glyph;
+ − 217 else if (!tb->enabled)
+ − 218 glyph = tb->cap_disabled_glyph;
+ − 219
+ − 220 if (NILP (glyph))
+ − 221 glyph = tb->cap_up_glyph;
+ − 222 }
+ − 223
+ − 224 if (NILP (glyph))
+ − 225 {
+ − 226 if (tb->enabled && tb->down)
+ − 227 glyph = tb->down_glyph;
+ − 228 else if (!tb->enabled)
+ − 229 glyph = tb->disabled_glyph;
+ − 230 }
+ − 231
+ − 232 /* The non-captioned up button is the ultimate fallback. It is
+ − 233 the only one we guarantee exists. */
+ − 234 if (NILP (glyph))
+ − 235 glyph = tb->up_glyph;
+ − 236
+ − 237 return glyph;
+ − 238 }
+ − 239
+ − 240
+ − 241 static enum toolbar_pos
+ − 242 decode_toolbar_position (Lisp_Object position)
+ − 243 {
+ − 244 if (EQ (position, Qtop)) return TOP_TOOLBAR;
+ − 245 if (EQ (position, Qbottom)) return BOTTOM_TOOLBAR;
+ − 246 if (EQ (position, Qleft)) return LEFT_TOOLBAR;
+ − 247 if (EQ (position, Qright)) return RIGHT_TOOLBAR;
563
+ − 248 invalid_constant ("Invalid toolbar position", position);
428
+ − 249
801
+ − 250 RETURN_NOT_REACHED (TOP_TOOLBAR)
428
+ − 251 }
+ − 252
+ − 253 DEFUN ("set-default-toolbar-position", Fset_default_toolbar_position, 1, 1, 0, /*
+ − 254 Set the position that the `default-toolbar' will be displayed at.
+ − 255 Valid positions are 'top, 'bottom, 'left and 'right.
+ − 256 See `default-toolbar-position'.
+ − 257 */
+ − 258 (position))
+ − 259 {
+ − 260 enum toolbar_pos cur = decode_toolbar_position (Vdefault_toolbar_position);
+ − 261 enum toolbar_pos new = decode_toolbar_position (position);
+ − 262
+ − 263 if (cur != new)
+ − 264 {
+ − 265 /* The following calls will automatically cause the dirty
+ − 266 flags to be set; we delay frame size changes to avoid
+ − 267 lots of frame flickering. */
+ − 268 /* #### I think this should be GC protected. -sb */
853
+ − 269 int depth = enter_redisplay_critical_section ();
428
+ − 270 set_specifier_fallback (Vtoolbar[cur], list1 (Fcons (Qnil, Qnil)));
+ − 271 set_specifier_fallback (Vtoolbar[new], Vdefault_toolbar);
+ − 272 set_specifier_fallback (Vtoolbar_size[cur], list1 (Fcons (Qnil, Qzero)));
+ − 273 set_specifier_fallback (Vtoolbar_size[new],
+ − 274 new == TOP_TOOLBAR || new == BOTTOM_TOOLBAR
+ − 275 ? Vdefault_toolbar_height
+ − 276 : Vdefault_toolbar_width);
+ − 277 set_specifier_fallback (Vtoolbar_border_width[cur],
+ − 278 list1 (Fcons (Qnil, Qzero)));
+ − 279 set_specifier_fallback (Vtoolbar_border_width[new],
+ − 280 Vdefault_toolbar_border_width);
+ − 281 set_specifier_fallback (Vtoolbar_visible_p[cur],
+ − 282 list1 (Fcons (Qnil, Qt)));
+ − 283 set_specifier_fallback (Vtoolbar_visible_p[new],
+ − 284 Vdefault_toolbar_visible_p);
+ − 285 Vdefault_toolbar_position = position;
853
+ − 286 exit_redisplay_critical_section (depth);
428
+ − 287 }
+ − 288
+ − 289 return position;
+ − 290 }
+ − 291
+ − 292 DEFUN ("default-toolbar-position", Fdefault_toolbar_position, 0, 0, 0, /*
+ − 293 Return the position that the `default-toolbar' will be displayed at.
+ − 294 The `default-toolbar' will only be displayed here if the corresponding
+ − 295 position-specific toolbar specifier does not provide a value.
+ − 296 */
+ − 297 ())
+ − 298 {
+ − 299 return Vdefault_toolbar_position;
+ − 300 }
+ − 301
+ − 302
+ − 303 static Lisp_Object
+ − 304 update_toolbar_button (struct frame *f, struct toolbar_button *tb,
+ − 305 Lisp_Object desc, int pushright)
+ − 306 {
+ − 307 Lisp_Object *elt, glyphs, retval, buffer;
+ − 308 struct gcpro gcpro1, gcpro2;
+ − 309
+ − 310 elt = XVECTOR_DATA (desc);
+ − 311 buffer = XWINDOW (FRAME_LAST_NONMINIBUF_WINDOW (f))->buffer;
+ − 312
+ − 313 if (!tb)
+ − 314 {
+ − 315 tb = alloc_lcrecord_type (struct toolbar_button, &lrecord_toolbar_button);
+ − 316 tb->next = Qnil;
793
+ − 317 tb->frame = wrap_frame (f);
428
+ − 318 tb->up_glyph = Qnil;
+ − 319 tb->down_glyph = Qnil;
+ − 320 tb->disabled_glyph = Qnil;
+ − 321 tb->cap_up_glyph = Qnil;
+ − 322 tb->cap_down_glyph = Qnil;
+ − 323 tb->cap_disabled_glyph = Qnil;
+ − 324 tb->callback = Qnil;
+ − 325 tb->enabled_p = Qnil;
+ − 326 tb->help_string = Qnil;
+ − 327
+ − 328 tb->enabled = 0;
+ − 329 tb->down = 0;
+ − 330 tb->pushright = pushright;
+ − 331 tb->blank = 0;
+ − 332 tb->x = tb->y = tb->width = tb->height = -1;
+ − 333 tb->dirty = 1;
+ − 334 }
793
+ − 335 retval = wrap_toolbar_button (tb);
428
+ − 336
+ − 337 /* Let's make sure nothing gets mucked up by the potential call to
+ − 338 eval farther down. */
+ − 339 GCPRO2 (retval, desc);
+ − 340
+ − 341 glyphs = (CONSP (elt[0]) ? elt[0] : symbol_value_in_buffer (elt[0], buffer));
+ − 342
+ − 343 /* If this is true we have a blank, otherwise it is an actual
+ − 344 button. */
+ − 345 if (KEYWORDP (glyphs))
+ − 346 {
+ − 347 int pos;
+ − 348 int style_seen = 0;
+ − 349 int size_seen = 0;
+ − 350 int len = XVECTOR_LENGTH (desc);
+ − 351
+ − 352 if (!tb->blank)
+ − 353 {
+ − 354 tb->blank = 1;
+ − 355 tb->dirty = 1;
+ − 356 }
+ − 357
+ − 358 for (pos = 0; pos < len; pos += 2)
+ − 359 {
+ − 360 Lisp_Object key = elt[pos];
+ − 361 Lisp_Object val = elt[pos + 1];
+ − 362
+ − 363 if (EQ (key, Q_style))
+ − 364 {
+ − 365 style_seen = 1;
+ − 366
+ − 367 if (EQ (val, Q2D) || EQ (val, Q2d))
+ − 368 {
+ − 369 if (!EQ (Qnil, tb->up_glyph) || !EQ (Qt, tb->disabled_glyph))
+ − 370 {
+ − 371 tb->up_glyph = Qnil;
+ − 372 tb->disabled_glyph = Qt;
+ − 373 tb->dirty = 1;
+ − 374 }
+ − 375 }
+ − 376 else if (EQ (val, Q3D) || (EQ (val, Q3d)))
+ − 377 {
+ − 378 if (!EQ (Qt, tb->up_glyph) || !EQ (Qnil, tb->disabled_glyph))
+ − 379 {
+ − 380 tb->up_glyph = Qt;
+ − 381 tb->disabled_glyph = Qnil;
+ − 382 tb->dirty = 1;
+ − 383 }
+ − 384 }
+ − 385 }
+ − 386 else if (EQ (key, Q_size))
+ − 387 {
+ − 388 size_seen = 1;
+ − 389
+ − 390 if (!EQ (val, tb->down_glyph))
+ − 391 {
+ − 392 tb->down_glyph = val;
+ − 393 tb->dirty = 1;
+ − 394 }
+ − 395 }
+ − 396 }
+ − 397
+ − 398 if (!style_seen)
+ − 399 {
+ − 400 /* The default style is 3D. */
+ − 401 if (!EQ (Qt, tb->up_glyph) || !EQ (Qnil, tb->disabled_glyph))
+ − 402 {
+ − 403 tb->up_glyph = Qt;
+ − 404 tb->disabled_glyph = Qnil;
+ − 405 tb->dirty = 1;
+ − 406 }
+ − 407 }
+ − 408
+ − 409 if (!size_seen)
+ − 410 {
+ − 411 /* The default width is set to nil. The device specific
+ − 412 code will fill it in at its discretion. */
+ − 413 if (!NILP (tb->down_glyph))
+ − 414 {
+ − 415 tb->down_glyph = Qnil;
+ − 416 tb->dirty = 1;
+ − 417 }
+ − 418 }
+ − 419
+ − 420 /* The rest of these fields are not used by blanks. We make
+ − 421 sure they are nulled out in case this button object formerly
+ − 422 represented a real button. */
+ − 423 if (!NILP (tb->callback)
+ − 424 || !NILP (tb->enabled_p)
+ − 425 || !NILP (tb->help_string))
+ − 426 {
+ − 427 tb->cap_up_glyph = Qnil;
+ − 428 tb->cap_down_glyph = Qnil;
+ − 429 tb->cap_disabled_glyph = Qnil;
+ − 430 tb->callback = Qnil;
+ − 431 tb->enabled_p = Qnil;
+ − 432 tb->help_string = Qnil;
+ − 433 tb->dirty = 1;
+ − 434 }
+ − 435 }
+ − 436 else
+ − 437 {
+ − 438 if (tb->blank)
+ − 439 {
+ − 440 tb->blank = 0;
+ − 441 tb->dirty = 1;
+ − 442 }
+ − 443
+ − 444 /* We know that we at least have an up_glyph. Well, no, we
+ − 445 don't. The user may have changed the button glyph on us. */
+ − 446 if (CONSP (glyphs))
+ − 447 {
+ − 448 if (!EQ (XCAR (glyphs), tb->up_glyph))
+ − 449 {
+ − 450 tb->up_glyph = XCAR (glyphs);
+ − 451 tb->dirty = 1;
+ − 452 }
+ − 453 glyphs = XCDR (glyphs);
+ − 454 }
+ − 455 else
+ − 456 tb->up_glyph = Qnil;
+ − 457
+ − 458 /* We might have a down_glyph. */
+ − 459 if (CONSP (glyphs))
+ − 460 {
+ − 461 if (!EQ (XCAR (glyphs), tb->down_glyph))
+ − 462 {
+ − 463 tb->down_glyph = XCAR (glyphs);
+ − 464 tb->dirty = 1;
+ − 465 }
+ − 466 glyphs = XCDR (glyphs);
+ − 467 }
+ − 468 else
+ − 469 tb->down_glyph = Qnil;
+ − 470
+ − 471 /* We might have a disabled_glyph. */
+ − 472 if (CONSP (glyphs))
+ − 473 {
+ − 474 if (!EQ (XCAR (glyphs), tb->disabled_glyph))
+ − 475 {
+ − 476 tb->disabled_glyph = XCAR (glyphs);
+ − 477 tb->dirty = 1;
+ − 478 }
+ − 479 glyphs = XCDR (glyphs);
+ − 480 }
+ − 481 else
+ − 482 tb->disabled_glyph = Qnil;
+ − 483
+ − 484 /* We might have a cap_up_glyph. */
+ − 485 if (CONSP (glyphs))
+ − 486 {
+ − 487 if (!EQ (XCAR (glyphs), tb->cap_up_glyph))
+ − 488 {
+ − 489 tb->cap_up_glyph = XCAR (glyphs);
+ − 490 tb->dirty = 1;
+ − 491 }
+ − 492 glyphs = XCDR (glyphs);
+ − 493 }
+ − 494 else
+ − 495 tb->cap_up_glyph = Qnil;
+ − 496
+ − 497 /* We might have a cap_down_glyph. */
+ − 498 if (CONSP (glyphs))
+ − 499 {
+ − 500 if (!EQ (XCAR (glyphs), tb->cap_down_glyph))
+ − 501 {
+ − 502 tb->cap_down_glyph = XCAR (glyphs);
+ − 503 tb->dirty = 1;
+ − 504 }
+ − 505 glyphs = XCDR (glyphs);
+ − 506 }
+ − 507 else
+ − 508 tb->cap_down_glyph = Qnil;
+ − 509
+ − 510 /* We might have a cap_disabled_glyph. */
+ − 511 if (CONSP (glyphs))
+ − 512 {
+ − 513 if (!EQ (XCAR (glyphs), tb->cap_disabled_glyph))
+ − 514 {
+ − 515 tb->cap_disabled_glyph = XCAR (glyphs);
+ − 516 tb->dirty = 1;
+ − 517 }
+ − 518 }
+ − 519 else
+ − 520 tb->cap_disabled_glyph = Qnil;
+ − 521
+ − 522 /* Update the callback. */
+ − 523 if (!EQ (tb->callback, elt[1]))
+ − 524 {
+ − 525 tb->callback = elt[1];
+ − 526 /* This does not have an impact on the display properties of the
+ − 527 button so we do not mark it as dirty if it has changed. */
+ − 528 }
+ − 529
+ − 530 /* Update the enabled field. */
+ − 531 if (!EQ (tb->enabled_p, elt[2]))
+ − 532 {
+ − 533 tb->enabled_p = elt[2];
+ − 534 tb->dirty = 1;
+ − 535 }
+ − 536
+ − 537 /* We always do the following because if the enabled status is
+ − 538 determined by a function its decision may change without us being
+ − 539 able to detect it. */
+ − 540 {
+ − 541 int old_enabled = tb->enabled;
+ − 542
+ − 543 if (NILP (tb->enabled_p))
+ − 544 tb->enabled = 0;
+ − 545 else if (EQ (tb->enabled_p, Qt))
+ − 546 tb->enabled = 1;
+ − 547 else
+ − 548 {
+ − 549 if (NILP (tb->enabled_p) || EQ (tb->enabled_p, Qt))
+ − 550 /* short-circuit the common case for speed */
+ − 551 tb->enabled = !NILP (tb->enabled_p);
+ − 552 else
+ − 553 {
853
+ − 554 /* #### do we really need to protect this call? */
428
+ − 555 Lisp_Object result =
853
+ − 556 eval_in_buffer_trapping_problems
428
+ − 557 ("Error in toolbar enabled-p form",
+ − 558 XBUFFER
+ − 559 (WINDOW_BUFFER
+ − 560 (XWINDOW (FRAME_LAST_NONMINIBUF_WINDOW (f)))),
853
+ − 561 tb->enabled_p, 0);
428
+ − 562 if (UNBOUNDP (result))
+ − 563 /* #### if there was an error in the enabled-p
+ − 564 form, should we pretend like it's enabled
+ − 565 or disabled? */
+ − 566 tb->enabled = 0;
+ − 567 else
+ − 568 tb->enabled = !NILP (result);
+ − 569 }
+ − 570 }
+ − 571
+ − 572 if (old_enabled != tb->enabled)
+ − 573 tb->dirty = 1;
+ − 574 }
+ − 575
+ − 576 /* Update the help echo string. */
+ − 577 if (!EQ (tb->help_string, elt[3]))
+ − 578 {
+ − 579 tb->help_string = elt[3];
+ − 580 /* This does not have an impact on the display properties of the
+ − 581 button so we do not mark it as dirty if it has changed. */
+ − 582 }
+ − 583 }
+ − 584
+ − 585 /* If this flag changes, the position is changing for sure unless
+ − 586 some very unlikely geometry occurs. */
+ − 587 if (tb->pushright != pushright)
+ − 588 {
+ − 589 tb->pushright = pushright;
+ − 590 tb->dirty = 1;
+ − 591 }
+ − 592
+ − 593 /* The position and size fields are only manipulated in the
+ − 594 device-dependent code. */
+ − 595 UNGCPRO;
+ − 596 return retval;
+ − 597 }
+ − 598
+ − 599 void
+ − 600 mark_frame_toolbar_buttons_dirty (struct frame *f, enum toolbar_pos pos)
+ − 601 {
+ − 602 Lisp_Object button = FRAME_TOOLBAR_BUTTONS (f, pos);
+ − 603
+ − 604 while (!NILP (button))
+ − 605 {
+ − 606 struct toolbar_button *tb = XTOOLBAR_BUTTON (button);
+ − 607 tb->dirty = 1;
+ − 608 button = tb->next;
+ − 609 }
+ − 610 return;
+ − 611 }
+ − 612
+ − 613 static Lisp_Object
+ − 614 compute_frame_toolbar_buttons (struct frame *f, enum toolbar_pos pos,
+ − 615 Lisp_Object toolbar)
+ − 616 {
+ − 617 Lisp_Object buttons, prev_button, first_button;
+ − 618 Lisp_Object orig_toolbar = toolbar;
+ − 619 int pushright_seen = 0;
+ − 620 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
+ − 621
+ − 622 first_button = FRAME_TOOLBAR_BUTTONS (f, pos);
+ − 623 buttons = prev_button = first_button;
+ − 624
+ − 625 /* Yes, we're being paranoid. */
+ − 626 GCPRO5 (toolbar, buttons, prev_button, first_button, orig_toolbar);
+ − 627
+ − 628 if (NILP (toolbar))
+ − 629 {
+ − 630 /* The output mechanisms will take care of clearing the former
+ − 631 toolbar. */
+ − 632 UNGCPRO;
+ − 633 return Qnil;
+ − 634 }
+ − 635
+ − 636 if (!CONSP (toolbar))
563
+ − 637 sferror ("toolbar description must be a list", toolbar);
428
+ − 638
+ − 639 /* First synchronize any existing buttons. */
+ − 640 while (!NILP (toolbar) && !NILP (buttons))
+ − 641 {
+ − 642 struct toolbar_button *tb;
+ − 643
+ − 644 if (NILP (XCAR (toolbar)))
+ − 645 {
+ − 646 if (pushright_seen)
563
+ − 647 sferror
428
+ − 648 ("more than one partition (nil) in toolbar description",
+ − 649 orig_toolbar);
+ − 650 else
+ − 651 pushright_seen = 1;
+ − 652 }
+ − 653 else
+ − 654 {
+ − 655 tb = XTOOLBAR_BUTTON (buttons);
+ − 656 update_toolbar_button (f, tb, XCAR (toolbar), pushright_seen);
+ − 657 prev_button = buttons;
+ − 658 buttons = tb->next;
+ − 659 }
+ − 660
+ − 661 toolbar = XCDR (toolbar);
+ − 662 }
+ − 663
+ − 664 /* If we hit the end of the toolbar, then clean up any excess
+ − 665 buttons and return. */
+ − 666 if (NILP (toolbar))
+ − 667 {
+ − 668 if (!NILP (buttons))
+ − 669 {
+ − 670 /* If this is the case the only thing we saw was a
+ − 671 pushright marker. */
+ − 672 if (EQ (buttons, first_button))
+ − 673 {
+ − 674 UNGCPRO;
+ − 675 return Qnil;
+ − 676 }
+ − 677 else
+ − 678 XTOOLBAR_BUTTON (prev_button)->next = Qnil;
+ − 679 }
+ − 680 UNGCPRO;
+ − 681 return first_button;
+ − 682 }
+ − 683
+ − 684 /* At this point there are more buttons on the toolbar than we
+ − 685 actually have in existence. */
+ − 686 while (!NILP (toolbar))
+ − 687 {
+ − 688 Lisp_Object new_button;
+ − 689
+ − 690 if (NILP (XCAR (toolbar)))
+ − 691 {
+ − 692 if (pushright_seen)
563
+ − 693 sferror
428
+ − 694 ("more than one partition (nil) in toolbar description",
+ − 695 orig_toolbar);
+ − 696 else
+ − 697 pushright_seen = 1;
+ − 698 }
+ − 699 else
+ − 700 {
+ − 701 new_button = update_toolbar_button (f, NULL, XCAR (toolbar),
+ − 702 pushright_seen);
+ − 703
+ − 704 if (NILP (first_button))
+ − 705 {
+ − 706 first_button = prev_button = new_button;
+ − 707 }
+ − 708 else
+ − 709 {
+ − 710 XTOOLBAR_BUTTON (prev_button)->next = new_button;
+ − 711 prev_button = new_button;
+ − 712 }
+ − 713 }
+ − 714
+ − 715 toolbar = XCDR (toolbar);
+ − 716 }
+ − 717
+ − 718 UNGCPRO;
+ − 719 return first_button;
+ − 720 }
+ − 721
+ − 722 static void
+ − 723 set_frame_toolbar (struct frame *f, enum toolbar_pos pos)
+ − 724 {
+ − 725 struct window *w = XWINDOW (FRAME_LAST_NONMINIBUF_WINDOW (f));
+ − 726 Lisp_Object toolbar = w->toolbar[pos];
+ − 727 f->toolbar_buttons[pos] = (FRAME_REAL_TOOLBAR_VISIBLE (f, pos)
+ − 728 ? compute_frame_toolbar_buttons (f, pos, toolbar)
+ − 729 : Qnil);
+ − 730 }
+ − 731
+ − 732 static void
+ − 733 compute_frame_toolbars_data (struct frame *f)
+ − 734 {
442
+ − 735 set_frame_toolbar (f, TOP_TOOLBAR);
+ − 736 set_frame_toolbar (f, BOTTOM_TOOLBAR);
+ − 737 set_frame_toolbar (f, LEFT_TOOLBAR);
+ − 738 set_frame_toolbar (f, RIGHT_TOOLBAR);
428
+ − 739 }
+ − 740
905
+ − 741 /* Update the toolbar geometry separately from actually displaying the
+ − 742 toolbar. This is necessary because both the gutter and the toolbar
+ − 743 are competing for redisplay cycles and, unfortunately, gutter
+ − 744 updates happen late in the game. Firstly they are done inside of
+ − 745 redisplay proper and secondly subcontrols may not get moved until
+ − 746 the next screen refresh. Only after subcontrols have been moved to
+ − 747 their final destinations can we be certain of updating the
+ − 748 toolbar. Under X this probably is exacerbated by the toolbar button
+ − 749 dirty flags which prevent updates happening when they possibly
+ − 750 should. */
428
+ − 751 void
905
+ − 752 update_frame_toolbars_geometry (struct frame *f)
428
+ − 753 {
+ − 754 struct device *d = XDEVICE (f->device);
+ − 755
+ − 756 if (DEVICE_SUPPORTS_TOOLBARS_P (d)
905
+ − 757 && (f->toolbar_changed
+ − 758 || f->frame_layout_changed
+ − 759 || f->frame_changed
+ − 760 || f->clear))
428
+ − 761 {
+ − 762 int pos;
442
+ − 763
428
+ − 764 /* We're not officially "in redisplay", so we still have a
+ − 765 chance to re-layout toolbars and windows. This is done here,
+ − 766 because toolbar is the only thing which currently might
+ − 767 necessitate this layout, as it is outside any windows. We
+ − 768 take care not to change size if toolbar geometry is really
+ − 769 unchanged, as it will hose windows whose pixsizes are not
+ − 770 multiple of character sizes. */
+ − 771
+ − 772 for (pos = 0; pos < 4; pos++)
+ − 773 if (FRAME_REAL_TOOLBAR_SIZE (f, pos)
+ − 774 != FRAME_CURRENT_TOOLBAR_SIZE (f, pos))
+ − 775 {
+ − 776 int width, height;
+ − 777 pixel_to_char_size (f, FRAME_PIXWIDTH (f), FRAME_PIXHEIGHT (f),
+ − 778 &width, &height);
+ − 779 change_frame_size (f, height, width, 0);
905
+ − 780 MARK_FRAME_LAYOUT_CHANGED (f);
428
+ − 781 break;
+ − 782 }
+ − 783
905
+ − 784 for (pos = 0; pos < 4; pos++) {
428
+ − 785 f->current_toolbar_size[pos] = FRAME_REAL_TOOLBAR_SIZE (f, pos);
905
+ − 786 }
428
+ − 787
+ − 788 /* Removed the check for the minibuffer here. We handle this
+ − 789 more correctly now by consistently using
+ − 790 FRAME_LAST_NONMINIBUF_WINDOW instead of FRAME_SELECTED_WINDOW
+ − 791 throughout the toolbar code. */
+ − 792 compute_frame_toolbars_data (f);
905
+ − 793
+ − 794 /* Clear the previous toolbar locations. If we do it later
+ − 795 (after redisplay) we end up clearing what we have just
+ − 796 displayed. */
+ − 797 MAYBE_DEVMETH (d, clear_frame_toolbars, (f));
+ − 798 }
+ − 799 }
428
+ − 800
905
+ − 801 /* Actually redisplay the toolbar buttons. */
+ − 802 void
+ − 803 update_frame_toolbars (struct frame *f)
+ − 804 {
+ − 805 struct device *d = XDEVICE (f->device);
+ − 806
+ − 807 if (DEVICE_SUPPORTS_TOOLBARS_P (d)
+ − 808 && (f->toolbar_changed
+ − 809 || f->frame_layout_changed
+ − 810 || f->frame_changed
+ − 811 || f->clear))
+ − 812 {
428
+ − 813 DEVMETH (d, output_frame_toolbars, (f));
+ − 814 }
+ − 815
+ − 816 f->toolbar_changed = 0;
+ − 817 }
+ − 818
+ − 819 void
+ − 820 init_frame_toolbars (struct frame *f)
+ − 821 {
+ − 822 struct device *d = XDEVICE (f->device);
+ − 823
+ − 824 if (DEVICE_SUPPORTS_TOOLBARS_P (d))
+ − 825 {
+ − 826 Lisp_Object frame;
+ − 827 int pos;
+ − 828
+ − 829 compute_frame_toolbars_data (f);
793
+ − 830 frame = wrap_frame (f);
428
+ − 831 call_critical_lisp_code (XDEVICE (FRAME_DEVICE (f)),
+ − 832 Qinit_toolbar_from_resources,
+ − 833 frame);
+ − 834 MAYBE_DEVMETH (d, initialize_frame_toolbars, (f));
+ − 835
+ − 836 /* We are here as far in frame creation so cached specifiers are
+ − 837 already recomputed, and possibly modified by resource
+ − 838 initialization. Remember current toolbar geometry so next
+ − 839 redisplay will not needlessly relayout toolbars. */
+ − 840 for (pos = 0; pos < 4; pos++)
+ − 841 f->current_toolbar_size[pos] = FRAME_REAL_TOOLBAR_SIZE (f, pos);
+ − 842 }
+ − 843 }
+ − 844
+ − 845 void
+ − 846 init_device_toolbars (struct device *d)
+ − 847 {
793
+ − 848 Lisp_Object device = wrap_device (d);
428
+ − 849
+ − 850 if (DEVICE_SUPPORTS_TOOLBARS_P (d))
+ − 851 call_critical_lisp_code (d,
+ − 852 Qinit_toolbar_from_resources,
+ − 853 device);
+ − 854 }
+ − 855
+ − 856 void
+ − 857 init_global_toolbars (struct device *d)
+ − 858 {
+ − 859 if (DEVICE_SUPPORTS_TOOLBARS_P (d))
+ − 860 call_critical_lisp_code (d,
+ − 861 Qinit_toolbar_from_resources,
+ − 862 Qglobal);
+ − 863 }
+ − 864
+ − 865 void
+ − 866 free_frame_toolbars (struct frame *f)
+ − 867 {
+ − 868 /* If we had directly allocated any memory for the toolbars instead
+ − 869 of using all Lisp_Objects this is where we would now free it. */
+ − 870
+ − 871 MAYBE_FRAMEMETH (f, free_frame_toolbars, (f));
+ − 872 }
+ − 873
+ − 874 void
+ − 875 get_toolbar_coords (struct frame *f, enum toolbar_pos pos, int *x, int *y,
+ − 876 int *width, int *height, int *vert, int for_layout)
+ − 877 {
+ − 878 int visible_top_toolbar_height, visible_bottom_toolbar_height;
+ − 879 int adjust = (for_layout ? 1 : 0);
+ − 880
+ − 881 /* The top and bottom toolbars take precedence over the left and
+ − 882 right. */
+ − 883 visible_top_toolbar_height = (FRAME_REAL_TOP_TOOLBAR_VISIBLE (f)
+ − 884 ? FRAME_REAL_TOP_TOOLBAR_HEIGHT (f) +
+ − 885 2 * FRAME_REAL_TOP_TOOLBAR_BORDER_WIDTH (f)
+ − 886 : 0);
+ − 887 visible_bottom_toolbar_height = (FRAME_REAL_BOTTOM_TOOLBAR_VISIBLE (f)
+ − 888 ? FRAME_REAL_BOTTOM_TOOLBAR_HEIGHT (f) +
+ − 889 2 *
+ − 890 FRAME_REAL_BOTTOM_TOOLBAR_BORDER_WIDTH (f)
+ − 891 : 0);
+ − 892
+ − 893 /* We adjust the width and height by one to give us a narrow border
+ − 894 at the outside edges. However, when we are simply determining
+ − 895 toolbar location we don't want to do that. */
+ − 896
+ − 897 switch (pos)
+ − 898 {
+ − 899 case TOP_TOOLBAR:
+ − 900 *x = 1;
+ − 901 *y = 0; /* #### should be 1 if no menubar */
+ − 902 *width = FRAME_PIXWIDTH (f) - 2;
+ − 903 *height = FRAME_REAL_TOP_TOOLBAR_HEIGHT (f) +
+ − 904 2 * FRAME_REAL_TOP_TOOLBAR_BORDER_WIDTH (f) - adjust;
+ − 905 *vert = 0;
+ − 906 break;
+ − 907 case BOTTOM_TOOLBAR:
+ − 908 *x = 1;
+ − 909 *y = FRAME_PIXHEIGHT (f) - FRAME_REAL_BOTTOM_TOOLBAR_HEIGHT (f) -
+ − 910 2 * FRAME_REAL_BOTTOM_TOOLBAR_BORDER_WIDTH (f);
+ − 911 *width = FRAME_PIXWIDTH (f) - 2;
+ − 912 *height = FRAME_REAL_BOTTOM_TOOLBAR_HEIGHT (f) +
+ − 913 2 * FRAME_REAL_BOTTOM_TOOLBAR_BORDER_WIDTH (f) - adjust;
+ − 914 *vert = 0;
+ − 915 break;
+ − 916 case LEFT_TOOLBAR:
+ − 917 *x = 1;
+ − 918 *y = visible_top_toolbar_height;
+ − 919 *width = FRAME_REAL_LEFT_TOOLBAR_WIDTH (f) +
+ − 920 2 * FRAME_REAL_LEFT_TOOLBAR_BORDER_WIDTH (f) - adjust;
+ − 921 *height = (FRAME_PIXHEIGHT (f) - visible_top_toolbar_height -
+ − 922 visible_bottom_toolbar_height - 1);
+ − 923 *vert = 1;
+ − 924 break;
+ − 925 case RIGHT_TOOLBAR:
+ − 926 *x = FRAME_PIXWIDTH (f) - FRAME_REAL_RIGHT_TOOLBAR_WIDTH (f) -
+ − 927 2 * FRAME_REAL_RIGHT_TOOLBAR_BORDER_WIDTH (f);
+ − 928 *y = visible_top_toolbar_height;
+ − 929 *width = FRAME_REAL_RIGHT_TOOLBAR_WIDTH (f) +
+ − 930 2 * FRAME_REAL_RIGHT_TOOLBAR_BORDER_WIDTH (f) - adjust;
+ − 931 *height = (FRAME_PIXHEIGHT (f) - visible_top_toolbar_height -
+ − 932 visible_bottom_toolbar_height);
+ − 933 *vert = 1;
+ − 934 break;
+ − 935 default:
+ − 936 abort ();
+ − 937 }
+ − 938 }
+ − 939
+ − 940 #define CHECK_TOOLBAR(pos) do { \
+ − 941 if (FRAME_REAL_##pos##_VISIBLE (f)) \
+ − 942 { \
+ − 943 int x, y, width, height, vert; \
+ − 944 \
+ − 945 get_toolbar_coords (f, pos, &x, &y, &width, &height, &vert, 0); \
+ − 946 if ((x_coord >= x) && (x_coord < (x + width))) \
+ − 947 { \
+ − 948 if ((y_coord >= y) && (y_coord < (y + height))) \
+ − 949 return FRAME_TOOLBAR_BUTTONS (f, pos); \
+ − 950 } \
+ − 951 } \
+ − 952 } while (0)
+ − 953
+ − 954 static Lisp_Object
+ − 955 toolbar_buttons_at_pixpos (struct frame *f, int x_coord, int y_coord)
+ − 956 {
+ − 957 CHECK_TOOLBAR (TOP_TOOLBAR);
+ − 958 CHECK_TOOLBAR (BOTTOM_TOOLBAR);
+ − 959 CHECK_TOOLBAR (LEFT_TOOLBAR);
+ − 960 CHECK_TOOLBAR (RIGHT_TOOLBAR);
+ − 961
+ − 962 return Qnil;
+ − 963 }
+ − 964 #undef CHECK_TOOLBAR
+ − 965
+ − 966 /* The device dependent code actually does the work of positioning the
+ − 967 buttons, but we are free to access that information at this
+ − 968 level. */
+ − 969 Lisp_Object
+ − 970 toolbar_button_at_pixpos (struct frame *f, int x_coord, int y_coord)
+ − 971 {
+ − 972 Lisp_Object buttons = toolbar_buttons_at_pixpos (f, x_coord, y_coord);
+ − 973
+ − 974 while (!NILP (buttons))
+ − 975 {
+ − 976 struct toolbar_button *tb = XTOOLBAR_BUTTON (buttons);
+ − 977
+ − 978 if ((x_coord >= tb->x) && (x_coord < (tb->x + tb->width)))
+ − 979 {
+ − 980 if ((y_coord >= tb->y) && (y_coord < (tb->y + tb->height)))
+ − 981 {
+ − 982 /* If we are over a blank, return nil. */
+ − 983 if (tb->blank)
+ − 984 return Qnil;
+ − 985 else
+ − 986 return buttons;
+ − 987 }
+ − 988 }
+ − 989
+ − 990 buttons = tb->next;
+ − 991 }
+ − 992
+ − 993 /* We are not over a toolbar or we are over a blank in the toolbar. */
+ − 994 return Qnil;
+ − 995 }
+ − 996
+ − 997
+ − 998 /************************************************************************/
+ − 999 /* Toolbar specifier type */
+ − 1000 /************************************************************************/
+ − 1001
+ − 1002 DEFINE_SPECIFIER_TYPE (toolbar);
+ − 1003
563
+ − 1004 #define CTB_ERROR(msg) do { \
+ − 1005 maybe_signal_error (Qinvalid_argument, msg, button, Qtoolbar, errb); \
+ − 1006 RETURN_SANS_WARNINGS Qnil; \
428
+ − 1007 } while (0)
+ − 1008
+ − 1009 /* Returns Q_style if key was :style, Qt if ok otherwise, Qnil if error. */
+ − 1010 static Lisp_Object
+ − 1011 check_toolbar_button_keywords (Lisp_Object button, Lisp_Object key,
578
+ − 1012 Lisp_Object val, Error_Behavior errb)
428
+ − 1013 {
+ − 1014 if (!KEYWORDP (key))
+ − 1015 {
563
+ − 1016 maybe_signal_error_2 (Qinvalid_argument, "Not a keyword", key, button,
+ − 1017 Qtoolbar, errb);
428
+ − 1018 return Qnil;
+ − 1019 }
+ − 1020
+ − 1021 if (EQ (key, Q_style))
+ − 1022 {
+ − 1023 if (!EQ (val, Q2D)
+ − 1024 && !EQ (val, Q3D)
+ − 1025 && !EQ (val, Q2d)
+ − 1026 && !EQ (val, Q3d))
+ − 1027 CTB_ERROR ("Unrecognized toolbar blank style");
+ − 1028
+ − 1029 return Q_style;
+ − 1030 }
+ − 1031 else if (EQ (key, Q_size))
+ − 1032 {
+ − 1033 if (!NATNUMP (val))
+ − 1034 CTB_ERROR ("invalid toolbar blank size");
+ − 1035 }
+ − 1036 else
+ − 1037 {
+ − 1038 CTB_ERROR ("invalid toolbar blank keyword");
+ − 1039 }
+ − 1040
+ − 1041 return Qt;
+ − 1042 }
+ − 1043
+ − 1044 /* toolbar button spec is [pixmap-pair function enabled-p help]
+ − 1045 or [:style 2d-or-3d :size width-or-height] */
+ − 1046
+ − 1047 DEFUN ("check-toolbar-button-syntax", Fcheck_toolbar_button_syntax, 1, 2, 0, /*
+ − 1048 Verify the syntax of entry BUTTON in a toolbar description list.
+ − 1049 If you want to verify the syntax of a toolbar description list as a
+ − 1050 whole, use `check-valid-instantiator' with a specifier type of 'toolbar.
+ − 1051 */
444
+ − 1052 (button, noerror))
428
+ − 1053 {
+ − 1054 Lisp_Object *elt, glyphs, value;
+ − 1055 int len;
578
+ − 1056 Error_Behavior errb = decode_error_behavior_flag (noerror);
428
+ − 1057
+ − 1058 if (!VECTORP (button))
+ − 1059 CTB_ERROR ("toolbar button descriptors must be vectors");
+ − 1060 elt = XVECTOR_DATA (button);
+ − 1061
+ − 1062 if (XVECTOR_LENGTH (button) == 2)
+ − 1063 {
+ − 1064 if (!EQ (Q_style, check_toolbar_button_keywords (button, elt[0],
+ − 1065 elt[1], errb)))
+ − 1066 CTB_ERROR ("must specify toolbar blank style");
+ − 1067
+ − 1068 return Qt;
+ − 1069 }
+ − 1070
+ − 1071 if (XVECTOR_LENGTH (button) != 4)
+ − 1072 CTB_ERROR ("toolbar button descriptors must be 2 or 4 long");
+ − 1073
+ − 1074 /* The first element must be a list of glyphs of length 1-6. The
+ − 1075 first entry is the pixmap for the up state, the second for the
+ − 1076 down state, the third for the disabled state, the fourth for the
+ − 1077 captioned up state, the fifth for the captioned down state and
+ − 1078 the sixth for the captioned disabled state. Only the up state is
+ − 1079 mandatory. */
+ − 1080 if (!CONSP (elt[0]))
+ − 1081 {
+ − 1082 /* We can't check the buffer-local here because we don't know
442
+ − 1083 which buffer to check in. #### I think this is a bad thing.
+ − 1084 See if we can't get enough information to this function so
+ − 1085 that it can check.
428
+ − 1086
+ − 1087 #### Wrong. We shouldn't be checking the value at all here.
+ − 1088 The user might set or change the value at any time. */
+ − 1089 value = Fsymbol_value (elt[0]);
+ − 1090
+ − 1091 if (!CONSP (value))
+ − 1092 {
+ − 1093 if (KEYWORDP (elt[0]))
+ − 1094 {
+ − 1095 int fsty = 0;
+ − 1096
+ − 1097 if (EQ (Q_style, check_toolbar_button_keywords (button, elt[0],
+ − 1098 elt[1],
+ − 1099 errb)))
+ − 1100 fsty++;
+ − 1101
+ − 1102 if (EQ (Q_style, check_toolbar_button_keywords (button, elt[2],
+ − 1103 elt[3],
+ − 1104 errb)))
+ − 1105 fsty++;
+ − 1106
+ − 1107 if (!fsty)
+ − 1108 CTB_ERROR ("must specify toolbar blank style");
+ − 1109 else if (EQ (elt[0], elt[2]))
+ − 1110 CTB_ERROR
+ − 1111 ("duplicate keywords in toolbar button blank description");
+ − 1112
+ − 1113 return Qt;
+ − 1114 }
+ − 1115 else
+ − 1116 CTB_ERROR ("first element of button must be a list (of glyphs)");
+ − 1117 }
+ − 1118 }
+ − 1119 else
+ − 1120 value = elt[0];
+ − 1121
+ − 1122 len = XINT (Flength (value));
+ − 1123 if (len < 1)
+ − 1124 CTB_ERROR ("toolbar button glyph list must have at least 1 entry");
+ − 1125
+ − 1126 if (len > 6)
+ − 1127 CTB_ERROR ("toolbar button glyph list can have at most 6 entries");
+ − 1128
+ − 1129 glyphs = value;
+ − 1130 while (!NILP (glyphs))
+ − 1131 {
+ − 1132 if (!GLYPHP (XCAR (glyphs)))
+ − 1133 {
+ − 1134 /* We allow nil for the down and disabled glyphs but not for
+ − 1135 the up glyph. */
+ − 1136 if (EQ (glyphs, value) || !NILP (XCAR (glyphs)))
+ − 1137 {
+ − 1138 CTB_ERROR
+ − 1139 ("all elements of toolbar button glyph list must be glyphs.");
+ − 1140 }
+ − 1141 }
+ − 1142 glyphs = XCDR (glyphs);
+ − 1143 }
+ − 1144
+ − 1145 /* The second element is the function to run when the button is
+ − 1146 activated. We do not do any checking on it because it is legal
+ − 1147 for the function to not be defined until after the toolbar is.
+ − 1148 It is the user's problem to get this right.
+ − 1149
+ − 1150 The third element is either a boolean indicating the enabled
+ − 1151 status or a function used to determine it. Again, it is the
+ − 1152 user's problem if this is wrong.
+ − 1153
+ − 1154 The fourth element, if not nil, must be a string which will be
+ − 1155 displayed as the help echo. */
+ − 1156
+ − 1157 /* #### This should be allowed to be a function returning a string
+ − 1158 as well as just a string. */
+ − 1159 if (!NILP (elt[3]) && !STRINGP (elt[3]))
+ − 1160 CTB_ERROR ("toolbar button help echo string must be a string");
+ − 1161
+ − 1162 return Qt;
+ − 1163 }
+ − 1164 #undef CTB_ERROR
+ − 1165
+ − 1166 static void
+ − 1167 toolbar_validate (Lisp_Object instantiator)
+ − 1168 {
+ − 1169 int pushright_seen = 0;
+ − 1170 Lisp_Object rest;
+ − 1171
+ − 1172 if (NILP (instantiator))
+ − 1173 return;
+ − 1174
+ − 1175 if (!CONSP (instantiator))
563
+ − 1176 sferror ("Toolbar spec must be list or nil", instantiator);
428
+ − 1177
+ − 1178 for (rest = instantiator; !NILP (rest); rest = XCDR (rest))
+ − 1179 {
+ − 1180 if (!CONSP (rest))
563
+ − 1181 sferror ("Bad list in toolbar spec", instantiator);
428
+ − 1182
+ − 1183 if (NILP (XCAR (rest)))
+ − 1184 {
+ − 1185 if (pushright_seen)
563
+ − 1186 sferror
+ − 1187 ("More than one partition (nil) in instantiator description",
+ − 1188 instantiator);
428
+ − 1189 else
+ − 1190 pushright_seen = 1;
+ − 1191 }
+ − 1192 else
+ − 1193 Fcheck_toolbar_button_syntax (XCAR (rest), Qnil);
+ − 1194 }
+ − 1195 }
+ − 1196
+ − 1197 static void
+ − 1198 toolbar_after_change (Lisp_Object specifier, Lisp_Object locale)
+ − 1199 {
+ − 1200 /* #### This is overkill. I really need to rethink the after-change
+ − 1201 functions to make them easier to use. */
+ − 1202 MARK_TOOLBAR_CHANGED;
+ − 1203 }
+ − 1204
+ − 1205 DEFUN ("toolbar-specifier-p", Ftoolbar_specifier_p, 1, 1, 0, /*
+ − 1206 Return non-nil if OBJECT is a toolbar specifier.
+ − 1207
442
+ − 1208 See `make-toolbar-specifier' for a description of possible toolbar
+ − 1209 instantiators.
428
+ − 1210 */
+ − 1211 (object))
+ − 1212 {
+ − 1213 return TOOLBAR_SPECIFIERP (object) ? Qt : Qnil;
+ − 1214 }
+ − 1215
+ − 1216
+ − 1217 /*
+ − 1218 Helper for invalidating the real specifier when default
+ − 1219 specifier caching changes
+ − 1220 */
+ − 1221 static void
+ − 1222 recompute_overlaying_specifier (Lisp_Object real_one[4])
+ − 1223 {
+ − 1224 enum toolbar_pos pos = decode_toolbar_position (Vdefault_toolbar_position);
+ − 1225 Fset_specifier_dirty_flag (real_one[pos]);
+ − 1226 }
+ − 1227
+ − 1228 static void
+ − 1229 toolbar_specs_changed (Lisp_Object specifier, struct window *w,
+ − 1230 Lisp_Object oldval)
+ − 1231 {
+ − 1232 /* This could be smarter but I doubt that it would make any
+ − 1233 noticeable difference given the infrequency with which this is
+ − 1234 probably going to be called.
+ − 1235 */
+ − 1236 MARK_TOOLBAR_CHANGED;
+ − 1237 }
+ − 1238
+ − 1239 static void
+ − 1240 default_toolbar_specs_changed (Lisp_Object specifier, struct window *w,
+ − 1241 Lisp_Object oldval)
+ − 1242 {
+ − 1243 recompute_overlaying_specifier (Vtoolbar);
+ − 1244 }
+ − 1245
+ − 1246 static void
+ − 1247 default_toolbar_size_changed_in_frame (Lisp_Object specifier, struct frame *f,
+ − 1248 Lisp_Object oldval)
+ − 1249 {
+ − 1250 recompute_overlaying_specifier (Vtoolbar_size);
+ − 1251 }
+ − 1252
+ − 1253 static void
+ − 1254 default_toolbar_border_width_changed_in_frame (Lisp_Object specifier,
+ − 1255 struct frame *f,
+ − 1256 Lisp_Object oldval)
+ − 1257 {
+ − 1258 recompute_overlaying_specifier (Vtoolbar_border_width);
+ − 1259 }
+ − 1260
+ − 1261 static void
+ − 1262 default_toolbar_visible_p_changed_in_frame (Lisp_Object specifier,
+ − 1263 struct frame *f,
+ − 1264 Lisp_Object oldval)
+ − 1265 {
+ − 1266 recompute_overlaying_specifier (Vtoolbar_visible_p);
+ − 1267 }
+ − 1268
+ − 1269 static void
+ − 1270 toolbar_geometry_changed_in_window (Lisp_Object specifier, struct window *w,
+ − 1271 Lisp_Object oldval)
+ − 1272 {
+ − 1273 MARK_TOOLBAR_CHANGED;
+ − 1274 MARK_WINDOWS_CHANGED (w);
+ − 1275 }
+ − 1276
+ − 1277 static void
+ − 1278 default_toolbar_size_changed_in_window (Lisp_Object specifier, struct window *w,
+ − 1279 Lisp_Object oldval)
+ − 1280 {
+ − 1281 recompute_overlaying_specifier (Vtoolbar_size);
+ − 1282 }
+ − 1283
+ − 1284 static void
+ − 1285 default_toolbar_border_width_changed_in_window (Lisp_Object specifier,
+ − 1286 struct window *w,
+ − 1287 Lisp_Object oldval)
+ − 1288 {
+ − 1289 recompute_overlaying_specifier (Vtoolbar_border_width);
+ − 1290 }
+ − 1291
+ − 1292 static void
+ − 1293 default_toolbar_visible_p_changed_in_window (Lisp_Object specifier,
+ − 1294 struct window *w,
+ − 1295 Lisp_Object oldval)
+ − 1296 {
+ − 1297 recompute_overlaying_specifier (Vtoolbar_visible_p);
+ − 1298 }
+ − 1299
+ − 1300 static void
+ − 1301 toolbar_buttons_captioned_p_changed (Lisp_Object specifier, struct window *w,
+ − 1302 Lisp_Object oldval)
+ − 1303 {
+ − 1304 /* This could be smarter but I doubt that it would make any
+ − 1305 noticeable difference given the infrequency with which this is
+ − 1306 probably going to be called. */
+ − 1307 MARK_TOOLBAR_CHANGED;
+ − 1308 }
+ − 1309
744
+ − 1310 static void
+ − 1311 toolbar_shadows_changed (Lisp_Object specifier, struct window *w,
+ − 1312 Lisp_Object oldval)
+ − 1313 {
+ − 1314 struct frame *f = XFRAME (w->frame);
+ − 1315
+ − 1316 if (!f->frame_data)
+ − 1317 {
+ − 1318 /* If there is not frame data yet, we need to get the hell out
+ − 1319 ** of here. This can happen when the initial frame is being
+ − 1320 ** created and we set our specifiers internally.
+ − 1321 */
+ − 1322 return;
+ − 1323 }
+ − 1324 MAYBE_DEVMETH (XDEVICE (f->device), redraw_frame_toolbars, (f));
+ − 1325 }
+ − 1326
428
+ − 1327
+ − 1328 void
+ − 1329 syms_of_toolbar (void)
+ − 1330 {
442
+ − 1331 INIT_LRECORD_IMPLEMENTATION (toolbar_button);
+ − 1332
563
+ − 1333 DEFSYMBOL_MULTIWORD_PREDICATE (Qtoolbar_buttonp);
+ − 1334 DEFSYMBOL (Q2D);
+ − 1335 DEFSYMBOL (Q3D);
+ − 1336 DEFSYMBOL (Q2d);
+ − 1337 DEFSYMBOL (Q3d);
+ − 1338 DEFKEYWORD (Q_size);
428
+ − 1339
563
+ − 1340 DEFSYMBOL (Qinit_toolbar_from_resources);
428
+ − 1341 DEFSUBR (Ftoolbar_button_p);
+ − 1342 DEFSUBR (Ftoolbar_button_callback);
+ − 1343 DEFSUBR (Ftoolbar_button_help_string);
+ − 1344 DEFSUBR (Ftoolbar_button_enabled_p);
+ − 1345 DEFSUBR (Fset_toolbar_button_down_flag);
+ − 1346 DEFSUBR (Fcheck_toolbar_button_syntax);
+ − 1347 DEFSUBR (Fset_default_toolbar_position);
+ − 1348 DEFSUBR (Fdefault_toolbar_position);
+ − 1349 DEFSUBR (Ftoolbar_specifier_p);
+ − 1350 }
+ − 1351
+ − 1352 void
+ − 1353 vars_of_toolbar (void)
+ − 1354 {
+ − 1355 staticpro (&Vdefault_toolbar_position);
+ − 1356 Vdefault_toolbar_position = Qtop;
+ − 1357
+ − 1358 #ifdef HAVE_WINDOW_SYSTEM
+ − 1359 Fprovide (Qtoolbar);
+ − 1360 #endif
+ − 1361 }
+ − 1362
+ − 1363 void
+ − 1364 specifier_type_create_toolbar (void)
+ − 1365 {
+ − 1366 INITIALIZE_SPECIFIER_TYPE (toolbar, "toolbar", "toolbar-specifier-p");
+ − 1367
+ − 1368 SPECIFIER_HAS_METHOD (toolbar, validate);
+ − 1369 SPECIFIER_HAS_METHOD (toolbar, after_change);
+ − 1370 }
+ − 1371
+ − 1372 void
+ − 1373 reinit_specifier_type_create_toolbar (void)
+ − 1374 {
+ − 1375 REINITIALIZE_SPECIFIER_TYPE (toolbar);
+ − 1376 }
+ − 1377
+ − 1378 void
+ − 1379 specifier_vars_of_toolbar (void)
+ − 1380 {
+ − 1381 Lisp_Object fb;
+ − 1382
+ − 1383 DEFVAR_SPECIFIER ("default-toolbar", &Vdefault_toolbar /*
+ − 1384 Specifier for a fallback toolbar.
+ − 1385 Use `set-specifier' to change this.
+ − 1386
+ − 1387 The position of this toolbar is specified in the function
+ − 1388 `default-toolbar-position'. If the corresponding position-specific
+ − 1389 toolbar (e.g. `top-toolbar' if `default-toolbar-position' is 'top)
+ − 1390 does not specify a toolbar in a particular domain (usually a window),
+ − 1391 then the value of `default-toolbar' in that domain, if any, will be
+ − 1392 used instead.
+ − 1393
+ − 1394 Note that the toolbar at any particular position will not be
+ − 1395 displayed unless its visibility flag is true and its thickness
+ − 1396 \(width or height, depending on orientation) is non-zero. The
+ − 1397 visibility is controlled by the specifiers `top-toolbar-visible-p',
+ − 1398 `bottom-toolbar-visible-p', `left-toolbar-visible-p', and
+ − 1399 `right-toolbar-visible-p', and the thickness is controlled by the
+ − 1400 specifiers `top-toolbar-height', `bottom-toolbar-height',
+ − 1401 `left-toolbar-width', and `right-toolbar-width'.
+ − 1402
+ − 1403 Note that one of the four visibility specifiers inherits from
+ − 1404 `default-toolbar-visibility' and one of the four thickness
+ − 1405 specifiers inherits from either `default-toolbar-width' or
+ − 1406 `default-toolbar-height' (depending on orientation), just
+ − 1407 like for the toolbar description specifiers (e.g. `top-toolbar')
+ − 1408 mentioned above.
+ − 1409
+ − 1410 Therefore, if you are setting `default-toolbar', you should control
+ − 1411 the visibility and thickness using `default-toolbar-visible-p',
+ − 1412 `default-toolbar-width', and `default-toolbar-height', rather than
+ − 1413 using position-specific specifiers. That way, you will get sane
+ − 1414 behavior if the user changes the default toolbar position.
+ − 1415
+ − 1416 The format of the instantiator for a toolbar is a list of
+ − 1417 toolbar-button-descriptors. Each toolbar-button-descriptor
+ − 1418 is a vector in one of the following formats:
+ − 1419
+ − 1420 [GLYPH-LIST FUNCTION ENABLED-P HELP] or
+ − 1421 [:style 2D-OR-3D] or
+ − 1422 [:style 2D-OR-3D :size WIDTH-OR-HEIGHT] or
+ − 1423 [:size WIDTH-OR-HEIGHT :style 2D-OR-3D]
+ − 1424
+ − 1425 Optionally, one of the toolbar-button-descriptors may be nil
+ − 1426 instead of a vector; this signifies the division between
+ − 1427 the toolbar buttons that are to be displayed flush-left,
+ − 1428 and the buttons to be displayed flush-right.
+ − 1429
+ − 1430 The first vector format above specifies a normal toolbar button;
+ − 1431 the others specify blank areas in the toolbar.
+ − 1432
+ − 1433 For the first vector format:
+ − 1434
+ − 1435 -- GLYPH-LIST should be a list of one to six glyphs (as created by
+ − 1436 `make-glyph') or a symbol whose value is such a list. The first
+ − 1437 glyph, which must be provided, is the glyph used to display the
+ − 1438 toolbar button when it is in the "up" (not pressed) state. The
+ − 1439 optional second glyph is for displaying the button when it is in
+ − 1440 the "down" (pressed) state. The optional third glyph is for when
+ − 1441 the button is disabled. The optional fourth, fifth and sixth glyphs
+ − 1442 are used to specify captioned versions for the up, down and disabled
+ − 1443 states respectively. The function `toolbar-make-button-list' is
+ − 1444 useful in creating these glyph lists. The specifier variable
+ − 1445 `toolbar-buttons-captioned-p' controls which glyphs are actually used.
+ − 1446
+ − 1447 -- Even if you do not provide separate down-state and disabled-state
+ − 1448 glyphs, the user will still get visual feedback to indicate which
+ − 1449 state the button is in. Buttons in the up-state are displayed
+ − 1450 with a shadowed border that gives a raised appearance to the
+ − 1451 button. Buttons in the down-state are displayed with shadows that
+ − 1452 give a recessed appearance. Buttons in the disabled state are
+ − 1453 displayed with no shadows, giving a 2-d effect.
+ − 1454
+ − 1455 -- If some of the toolbar glyphs are not provided, they inherit as follows:
+ − 1456
+ − 1457 UP: up
+ − 1458 DOWN: down -> up
+ − 1459 DISABLED: disabled -> up
+ − 1460 CAP-UP: cap-up -> up
+ − 1461 CAP-DOWN: cap-down -> cap-up -> down -> up
+ − 1462 CAP-DISABLED: cap-disabled -> cap-up -> disabled -> up
+ − 1463
+ − 1464 -- The second element FUNCTION is a function to be called when the
+ − 1465 toolbar button is activated (i.e. when the mouse is released over
+ − 1466 the toolbar button, if the press occurred in the toolbar). It
+ − 1467 can be any form accepted by `call-interactively', since this is
+ − 1468 how it is invoked.
+ − 1469
+ − 1470 -- The third element ENABLED-P specifies whether the toolbar button
+ − 1471 is enabled (disabled buttons do nothing when they are activated,
+ − 1472 and are displayed differently; see above). It should be either
+ − 1473 a boolean or a form that evaluates to a boolean.
+ − 1474
+ − 1475 -- The fourth element HELP, if non-nil, should be a string. This
+ − 1476 string is displayed in the echo area when the mouse passes over
+ − 1477 the toolbar button.
+ − 1478
+ − 1479 For the other vector formats (specifying blank areas of the toolbar):
+ − 1480
+ − 1481 -- 2D-OR-3D should be one of the symbols '2d or '3d, indicating
+ − 1482 whether the area is displayed with shadows (giving it a raised,
+ − 1483 3-d appearance) or without shadows (giving it a flat appearance).
+ − 1484
+ − 1485 -- WIDTH-OR-HEIGHT specifies the length, in pixels, of the blank
+ − 1486 area. If omitted, it defaults to a device-specific value
+ − 1487 (8 pixels for X devices).
+ − 1488 */ );
+ − 1489
+ − 1490 Vdefault_toolbar = Fmake_specifier (Qtoolbar);
+ − 1491 /* #### It would be even nicer if the specifier caching
+ − 1492 automatically knew about specifier fallbacks, so we didn't
+ − 1493 have to do it ourselves. */
+ − 1494 set_specifier_caching (Vdefault_toolbar,
438
+ − 1495 offsetof (struct window, default_toolbar),
428
+ − 1496 default_toolbar_specs_changed,
444
+ − 1497 0, 0, 0);
428
+ − 1498
+ − 1499 DEFVAR_SPECIFIER ("top-toolbar",
+ − 1500 &Vtoolbar[TOP_TOOLBAR] /*
+ − 1501 Specifier for the toolbar at the top of the frame.
+ − 1502 Use `set-specifier' to change this.
+ − 1503 See `default-toolbar' for a description of a valid toolbar instantiator.
+ − 1504 */ );
+ − 1505 Vtoolbar[TOP_TOOLBAR] = Fmake_specifier (Qtoolbar);
+ − 1506 set_specifier_caching (Vtoolbar[TOP_TOOLBAR],
438
+ − 1507 offsetof (struct window, toolbar[TOP_TOOLBAR]),
428
+ − 1508 toolbar_specs_changed,
444
+ − 1509 0, 0, 0);
428
+ − 1510
+ − 1511 DEFVAR_SPECIFIER ("bottom-toolbar",
+ − 1512 &Vtoolbar[BOTTOM_TOOLBAR] /*
+ − 1513 Specifier for the toolbar at the bottom of the frame.
+ − 1514 Use `set-specifier' to change this.
+ − 1515 See `default-toolbar' for a description of a valid toolbar instantiator.
+ − 1516
+ − 1517 Note that, unless the `default-toolbar-position' is `bottom', by
+ − 1518 default the height of the bottom toolbar (controlled by
+ − 1519 `bottom-toolbar-height') is 0; thus, a bottom toolbar will not be
+ − 1520 displayed even if you provide a value for `bottom-toolbar'.
+ − 1521 */ );
+ − 1522 Vtoolbar[BOTTOM_TOOLBAR] = Fmake_specifier (Qtoolbar);
+ − 1523 set_specifier_caching (Vtoolbar[BOTTOM_TOOLBAR],
438
+ − 1524 offsetof (struct window, toolbar[BOTTOM_TOOLBAR]),
428
+ − 1525 toolbar_specs_changed,
444
+ − 1526 0, 0, 0);
428
+ − 1527
+ − 1528 DEFVAR_SPECIFIER ("left-toolbar",
+ − 1529 &Vtoolbar[LEFT_TOOLBAR] /*
+ − 1530 Specifier for the toolbar at the left edge of the frame.
+ − 1531 Use `set-specifier' to change this.
+ − 1532 See `default-toolbar' for a description of a valid toolbar instantiator.
+ − 1533
+ − 1534 Note that, unless the `default-toolbar-position' is `left', by
+ − 1535 default the height of the left toolbar (controlled by
+ − 1536 `left-toolbar-width') is 0; thus, a left toolbar will not be
+ − 1537 displayed even if you provide a value for `left-toolbar'.
+ − 1538 */ );
+ − 1539 Vtoolbar[LEFT_TOOLBAR] = Fmake_specifier (Qtoolbar);
+ − 1540 set_specifier_caching (Vtoolbar[LEFT_TOOLBAR],
438
+ − 1541 offsetof (struct window, toolbar[LEFT_TOOLBAR]),
428
+ − 1542 toolbar_specs_changed,
444
+ − 1543 0, 0, 0);
428
+ − 1544
+ − 1545 DEFVAR_SPECIFIER ("right-toolbar",
+ − 1546 &Vtoolbar[RIGHT_TOOLBAR] /*
+ − 1547 Specifier for the toolbar at the right edge of the frame.
+ − 1548 Use `set-specifier' to change this.
+ − 1549 See `default-toolbar' for a description of a valid toolbar instantiator.
+ − 1550
+ − 1551 Note that, unless the `default-toolbar-position' is `right', by
+ − 1552 default the height of the right toolbar (controlled by
+ − 1553 `right-toolbar-width') is 0; thus, a right toolbar will not be
+ − 1554 displayed even if you provide a value for `right-toolbar'.
+ − 1555 */ );
+ − 1556 Vtoolbar[RIGHT_TOOLBAR] = Fmake_specifier (Qtoolbar);
+ − 1557 set_specifier_caching (Vtoolbar[RIGHT_TOOLBAR],
438
+ − 1558 offsetof (struct window, toolbar[RIGHT_TOOLBAR]),
428
+ − 1559 toolbar_specs_changed,
444
+ − 1560 0, 0, 0);
428
+ − 1561
+ − 1562 /* initially, top inherits from default; this can be
+ − 1563 changed with `set-default-toolbar-position'. */
+ − 1564 fb = list1 (Fcons (Qnil, Qnil));
+ − 1565 set_specifier_fallback (Vdefault_toolbar, fb);
+ − 1566 set_specifier_fallback (Vtoolbar[TOP_TOOLBAR], Vdefault_toolbar);
+ − 1567 set_specifier_fallback (Vtoolbar[BOTTOM_TOOLBAR], fb);
+ − 1568 set_specifier_fallback (Vtoolbar[LEFT_TOOLBAR], fb);
+ − 1569 set_specifier_fallback (Vtoolbar[RIGHT_TOOLBAR], fb);
+ − 1570
+ − 1571 DEFVAR_SPECIFIER ("default-toolbar-height", &Vdefault_toolbar_height /*
+ − 1572 *Height of the default toolbar, if it's oriented horizontally.
+ − 1573 This is a specifier; use `set-specifier' to change it.
+ − 1574
+ − 1575 The position of the default toolbar is specified by the function
+ − 1576 `set-default-toolbar-position'. If the corresponding position-specific
+ − 1577 toolbar thickness specifier (e.g. `top-toolbar-height' if
+ − 1578 `default-toolbar-position' is 'top) does not specify a thickness in a
+ − 1579 particular domain (a window or a frame), then the value of
+ − 1580 `default-toolbar-height' or `default-toolbar-width' (depending on the
+ − 1581 toolbar orientation) in that domain, if any, will be used instead.
+ − 1582
+ − 1583 Note that `default-toolbar-height' is only used when
+ − 1584 `default-toolbar-position' is 'top or 'bottom, and `default-toolbar-width'
+ − 1585 is only used when `default-toolbar-position' is 'left or 'right.
+ − 1586
+ − 1587 Note that all of the position-specific toolbar thickness specifiers
+ − 1588 have a fallback value of zero when they do not correspond to the
+ − 1589 default toolbar. Therefore, you will have to set a non-zero thickness
+ − 1590 value if you want a position-specific toolbar to be displayed.
+ − 1591
+ − 1592 Internally, toolbar thickness specifiers are instantiated in both
+ − 1593 window and frame domains, for different purposes. The value in the
+ − 1594 domain of a frame's selected window specifies the actual toolbar
+ − 1595 thickness that you will see in that frame. The value in the domain of
+ − 1596 a frame itself specifies the toolbar thickness that is used in frame
+ − 1597 geometry calculations.
+ − 1598
+ − 1599 Thus, for example, if you set the frame width to 80 characters and the
+ − 1600 left toolbar width for that frame to 68 pixels, then the frame will
+ − 1601 be sized to fit 80 characters plus a 68-pixel left toolbar. If you
+ − 1602 then set the left toolbar width to 0 for a particular buffer (or if
+ − 1603 that buffer does not specify a left toolbar or has a nil value
+ − 1604 specified for `left-toolbar-visible-p'), you will find that, when
+ − 1605 that buffer is displayed in the selected window, the window will have
+ − 1606 a width of 86 or 87 characters -- the frame is sized for a 68-pixel
+ − 1607 left toolbar but the selected window specifies that the left toolbar
+ − 1608 is not visible, so it is expanded to take up the slack.
+ − 1609 */ );
+ − 1610 Vdefault_toolbar_height = Fmake_specifier (Qnatnum);
+ − 1611 set_specifier_caching (Vdefault_toolbar_height,
438
+ − 1612 offsetof (struct window, default_toolbar_height),
428
+ − 1613 default_toolbar_size_changed_in_window,
438
+ − 1614 offsetof (struct frame, default_toolbar_height),
444
+ − 1615 default_toolbar_size_changed_in_frame, 0);
428
+ − 1616
+ − 1617 DEFVAR_SPECIFIER ("default-toolbar-width", &Vdefault_toolbar_width /*
+ − 1618 *Width of the default toolbar, if it's oriented vertically.
+ − 1619 This is a specifier; use `set-specifier' to change it.
+ − 1620
+ − 1621 See `default-toolbar-height' for more information.
+ − 1622 */ );
+ − 1623 Vdefault_toolbar_width = Fmake_specifier (Qnatnum);
+ − 1624 set_specifier_caching (Vdefault_toolbar_width,
438
+ − 1625 offsetof (struct window, default_toolbar_width),
428
+ − 1626 default_toolbar_size_changed_in_window,
438
+ − 1627 offsetof (struct frame, default_toolbar_width),
444
+ − 1628 default_toolbar_size_changed_in_frame, 0);
428
+ − 1629
+ − 1630 DEFVAR_SPECIFIER ("top-toolbar-height",
+ − 1631 &Vtoolbar_size[TOP_TOOLBAR] /*
+ − 1632 *Height of the top toolbar.
+ − 1633 This is a specifier; use `set-specifier' to change it.
+ − 1634
+ − 1635 See `default-toolbar-height' for more information.
+ − 1636 */ );
+ − 1637 Vtoolbar_size[TOP_TOOLBAR] = Fmake_specifier (Qnatnum);
+ − 1638 set_specifier_caching (Vtoolbar_size[TOP_TOOLBAR],
438
+ − 1639 offsetof (struct window, toolbar_size[TOP_TOOLBAR]),
428
+ − 1640 toolbar_geometry_changed_in_window,
438
+ − 1641 offsetof (struct frame, toolbar_size[TOP_TOOLBAR]),
444
+ − 1642 frame_size_slipped, 0);
428
+ − 1643
+ − 1644 DEFVAR_SPECIFIER ("bottom-toolbar-height",
+ − 1645 &Vtoolbar_size[BOTTOM_TOOLBAR] /*
+ − 1646 *Height of the bottom toolbar.
+ − 1647 This is a specifier; use `set-specifier' to change it.
+ − 1648
+ − 1649 See `default-toolbar-height' for more information.
+ − 1650 */ );
+ − 1651 Vtoolbar_size[BOTTOM_TOOLBAR] = Fmake_specifier (Qnatnum);
+ − 1652 set_specifier_caching (Vtoolbar_size[BOTTOM_TOOLBAR],
438
+ − 1653 offsetof (struct window, toolbar_size[BOTTOM_TOOLBAR]),
428
+ − 1654 toolbar_geometry_changed_in_window,
438
+ − 1655 offsetof (struct frame, toolbar_size[BOTTOM_TOOLBAR]),
444
+ − 1656 frame_size_slipped, 0);
428
+ − 1657
+ − 1658 DEFVAR_SPECIFIER ("left-toolbar-width",
+ − 1659 &Vtoolbar_size[LEFT_TOOLBAR] /*
+ − 1660 *Width of left toolbar.
+ − 1661 This is a specifier; use `set-specifier' to change it.
+ − 1662
+ − 1663 See `default-toolbar-height' for more information.
+ − 1664 */ );
+ − 1665 Vtoolbar_size[LEFT_TOOLBAR] = Fmake_specifier (Qnatnum);
+ − 1666 set_specifier_caching (Vtoolbar_size[LEFT_TOOLBAR],
438
+ − 1667 offsetof (struct window, toolbar_size[LEFT_TOOLBAR]),
428
+ − 1668 toolbar_geometry_changed_in_window,
438
+ − 1669 offsetof (struct frame, toolbar_size[LEFT_TOOLBAR]),
444
+ − 1670 frame_size_slipped, 0);
428
+ − 1671
+ − 1672 DEFVAR_SPECIFIER ("right-toolbar-width",
+ − 1673 &Vtoolbar_size[RIGHT_TOOLBAR] /*
+ − 1674 *Width of right toolbar.
+ − 1675 This is a specifier; use `set-specifier' to change it.
+ − 1676
+ − 1677 See `default-toolbar-height' for more information.
+ − 1678 */ );
+ − 1679 Vtoolbar_size[RIGHT_TOOLBAR] = Fmake_specifier (Qnatnum);
+ − 1680 set_specifier_caching (Vtoolbar_size[RIGHT_TOOLBAR],
438
+ − 1681 offsetof (struct window, toolbar_size[RIGHT_TOOLBAR]),
428
+ − 1682 toolbar_geometry_changed_in_window,
438
+ − 1683 offsetof (struct frame, toolbar_size[RIGHT_TOOLBAR]),
444
+ − 1684 frame_size_slipped, 0);
428
+ − 1685
744
+ − 1686 DEFVAR_SPECIFIER ("toolbar-shadow-thickness",
+ − 1687 &Vtoolbar_shadow_thickness /*
+ − 1688 *Width of shadows around toolbar buttons.
+ − 1689 This is a specifier; use `set-specifier' to change it.
+ − 1690 */ );
+ − 1691 Vtoolbar_shadow_thickness = Fmake_specifier (Qnatnum);
+ − 1692 set_specifier_caching(Vtoolbar_shadow_thickness,
+ − 1693 offsetof (struct window, toolbar_shadow_thickness),
+ − 1694 toolbar_shadows_changed,
+ − 1695 0,0, 0);
+ − 1696
+ − 1697 fb = Qnil;
+ − 1698
+ − 1699 #ifdef HAVE_TTY
+ − 1700 fb = Fcons (Fcons (list1 (Qtty), Qzero), fb);
+ − 1701 #endif
+ − 1702 #ifdef HAVE_GTK
+ − 1703 fb = Fcons (Fcons (list1 (Qgtk), make_int (2)), fb);
+ − 1704 #endif
+ − 1705 #ifdef HAVE_X_WINDOWS
+ − 1706 fb = Fcons (Fcons (list1 (Qx), make_int (2)), fb);
+ − 1707 #endif
+ − 1708 #ifdef HAVE_MS_WINDOWS
+ − 1709 fb = Fcons (Fcons (list1 (Qmswindows), make_int (2)), fb);
+ − 1710 #endif
+ − 1711
+ − 1712 if (!NILP (fb))
+ − 1713 set_specifier_fallback (Vtoolbar_shadow_thickness, fb);
+ − 1714
428
+ − 1715 fb = Qnil;
+ − 1716 #ifdef HAVE_TTY
+ − 1717 fb = Fcons (Fcons (list1 (Qtty), Qzero), fb);
+ − 1718 #endif
462
+ − 1719 #ifdef HAVE_GTK
+ − 1720 fb = Fcons (Fcons (list1 (Qgtk), make_int (DEFAULT_TOOLBAR_HEIGHT)), fb);
+ − 1721 #endif
428
+ − 1722 #ifdef HAVE_X_WINDOWS
+ − 1723 fb = Fcons (Fcons (list1 (Qx), make_int (DEFAULT_TOOLBAR_HEIGHT)), fb);
+ − 1724 #endif
+ − 1725 #ifdef HAVE_MS_WINDOWS
442
+ − 1726 fb = Fcons (Fcons (list1 (Qmswindows),
428
+ − 1727 make_int (MSWINDOWS_DEFAULT_TOOLBAR_HEIGHT)), fb);
+ − 1728 #endif
+ − 1729 if (!NILP (fb))
+ − 1730 set_specifier_fallback (Vdefault_toolbar_height, fb);
+ − 1731
+ − 1732 fb = Qnil;
+ − 1733 #ifdef HAVE_TTY
+ − 1734 fb = Fcons (Fcons (list1 (Qtty), Qzero), fb);
+ − 1735 #endif
462
+ − 1736 #ifdef HAVE_GTK
+ − 1737 fb = Fcons (Fcons (list1 (Qgtk), make_int (DEFAULT_TOOLBAR_WIDTH)), fb);
+ − 1738 #endif
428
+ − 1739 #ifdef HAVE_X_WINDOWS
+ − 1740 fb = Fcons (Fcons (list1 (Qx), make_int (DEFAULT_TOOLBAR_WIDTH)), fb);
+ − 1741 #endif
+ − 1742 #ifdef HAVE_MS_WINDOWS
442
+ − 1743 fb = Fcons (Fcons (list1 (Qmswindows),
428
+ − 1744 make_int (MSWINDOWS_DEFAULT_TOOLBAR_WIDTH)), fb);
+ − 1745 #endif
+ − 1746 if (!NILP (fb))
+ − 1747 set_specifier_fallback (Vdefault_toolbar_width, fb);
+ − 1748
+ − 1749 set_specifier_fallback (Vtoolbar_size[TOP_TOOLBAR], Vdefault_toolbar_height);
+ − 1750 fb = list1 (Fcons (Qnil, Qzero));
+ − 1751 set_specifier_fallback (Vtoolbar_size[BOTTOM_TOOLBAR], fb);
+ − 1752 set_specifier_fallback (Vtoolbar_size[LEFT_TOOLBAR], fb);
+ − 1753 set_specifier_fallback (Vtoolbar_size[RIGHT_TOOLBAR], fb);
+ − 1754
+ − 1755 DEFVAR_SPECIFIER ("default-toolbar-border-width",
+ − 1756 &Vdefault_toolbar_border_width /*
+ − 1757 *Width of the border around the default toolbar.
+ − 1758 This is a specifier; use `set-specifier' to change it.
+ − 1759
+ − 1760 The position of the default toolbar is specified by the function
+ − 1761 `set-default-toolbar-position'. If the corresponding position-specific
+ − 1762 toolbar border width specifier (e.g. `top-toolbar-border-width' if
+ − 1763 `default-toolbar-position' is 'top) does not specify a border width in a
+ − 1764 particular domain (a window or a frame), then the value of
+ − 1765 `default-toolbar-border-width' in that domain, if any, will be used
+ − 1766 instead.
+ − 1767
+ − 1768 Internally, toolbar border width specifiers are instantiated in both
+ − 1769 window and frame domains, for different purposes. The value in the
+ − 1770 domain of a frame's selected window specifies the actual toolbar border
+ − 1771 width that you will see in that frame. The value in the domain of a
+ − 1772 frame itself specifies the toolbar border width that is used in frame
+ − 1773 geometry calculations. Changing the border width value in the frame
+ − 1774 domain will result in a size change in the frame itself, while changing
+ − 1775 the value in a window domain will not.
+ − 1776 */ );
+ − 1777 Vdefault_toolbar_border_width = Fmake_specifier (Qnatnum);
+ − 1778 set_specifier_caching (Vdefault_toolbar_border_width,
438
+ − 1779 offsetof (struct window, default_toolbar_border_width),
428
+ − 1780 default_toolbar_border_width_changed_in_window,
438
+ − 1781 offsetof (struct frame, default_toolbar_border_width),
444
+ − 1782 default_toolbar_border_width_changed_in_frame, 0);
428
+ − 1783
+ − 1784 DEFVAR_SPECIFIER ("top-toolbar-border-width",
+ − 1785 &Vtoolbar_border_width[TOP_TOOLBAR] /*
+ − 1786 *Border width of the top toolbar.
+ − 1787 This is a specifier; use `set-specifier' to change it.
+ − 1788
+ − 1789 See `default-toolbar-height' for more information.
+ − 1790 */ );
+ − 1791 Vtoolbar_border_width[TOP_TOOLBAR] = Fmake_specifier (Qnatnum);
+ − 1792 set_specifier_caching (Vtoolbar_border_width[TOP_TOOLBAR],
438
+ − 1793 offsetof (struct window,
+ − 1794 toolbar_border_width[TOP_TOOLBAR]),
428
+ − 1795 toolbar_geometry_changed_in_window,
438
+ − 1796 offsetof (struct frame,
+ − 1797 toolbar_border_width[TOP_TOOLBAR]),
444
+ − 1798 frame_size_slipped, 0);
428
+ − 1799
+ − 1800 DEFVAR_SPECIFIER ("bottom-toolbar-border-width",
+ − 1801 &Vtoolbar_border_width[BOTTOM_TOOLBAR] /*
+ − 1802 *Border width of the bottom toolbar.
+ − 1803 This is a specifier; use `set-specifier' to change it.
+ − 1804
+ − 1805 See `default-toolbar-height' for more information.
+ − 1806 */ );
+ − 1807 Vtoolbar_border_width[BOTTOM_TOOLBAR] = Fmake_specifier (Qnatnum);
+ − 1808 set_specifier_caching (Vtoolbar_border_width[BOTTOM_TOOLBAR],
438
+ − 1809 offsetof (struct window,
+ − 1810 toolbar_border_width[BOTTOM_TOOLBAR]),
428
+ − 1811 toolbar_geometry_changed_in_window,
438
+ − 1812 offsetof (struct frame,
+ − 1813 toolbar_border_width[BOTTOM_TOOLBAR]),
444
+ − 1814 frame_size_slipped, 0);
428
+ − 1815
+ − 1816 DEFVAR_SPECIFIER ("left-toolbar-border-width",
+ − 1817 &Vtoolbar_border_width[LEFT_TOOLBAR] /*
+ − 1818 *Border width of left toolbar.
+ − 1819 This is a specifier; use `set-specifier' to change it.
+ − 1820
+ − 1821 See `default-toolbar-height' for more information.
+ − 1822 */ );
+ − 1823 Vtoolbar_border_width[LEFT_TOOLBAR] = Fmake_specifier (Qnatnum);
+ − 1824 set_specifier_caching (Vtoolbar_border_width[LEFT_TOOLBAR],
438
+ − 1825 offsetof (struct window,
+ − 1826 toolbar_border_width[LEFT_TOOLBAR]),
428
+ − 1827 toolbar_geometry_changed_in_window,
438
+ − 1828 offsetof (struct frame,
+ − 1829 toolbar_border_width[LEFT_TOOLBAR]),
444
+ − 1830 frame_size_slipped, 0);
428
+ − 1831
+ − 1832 DEFVAR_SPECIFIER ("right-toolbar-border-width",
+ − 1833 &Vtoolbar_border_width[RIGHT_TOOLBAR] /*
+ − 1834 *Border width of right toolbar.
+ − 1835 This is a specifier; use `set-specifier' to change it.
+ − 1836
+ − 1837 See `default-toolbar-height' for more information.
+ − 1838 */ );
+ − 1839 Vtoolbar_border_width[RIGHT_TOOLBAR] = Fmake_specifier (Qnatnum);
+ − 1840 set_specifier_caching (Vtoolbar_border_width[RIGHT_TOOLBAR],
438
+ − 1841 offsetof (struct window,
+ − 1842 toolbar_border_width[RIGHT_TOOLBAR]),
428
+ − 1843 toolbar_geometry_changed_in_window,
438
+ − 1844 offsetof (struct frame,
+ − 1845 toolbar_border_width[RIGHT_TOOLBAR]),
444
+ − 1846 frame_size_slipped, 0);
428
+ − 1847
+ − 1848 fb = Qnil;
+ − 1849 #ifdef HAVE_TTY
+ − 1850 fb = Fcons (Fcons (list1 (Qtty), Qzero), fb);
+ − 1851 #endif
+ − 1852 #ifdef HAVE_X_WINDOWS
+ − 1853 fb = Fcons (Fcons (list1 (Qx), make_int (DEFAULT_TOOLBAR_BORDER_WIDTH)), fb);
+ − 1854 #endif
462
+ − 1855 #ifdef HAVE_GTK
+ − 1856 fb = Fcons (Fcons (list1 (Qgtk), make_int (DEFAULT_TOOLBAR_BORDER_WIDTH)), fb);
+ − 1857 #endif
428
+ − 1858 #ifdef HAVE_MS_WINDOWS
+ − 1859 fb = Fcons (Fcons (list1 (Qmswindows), make_int (MSWINDOWS_DEFAULT_TOOLBAR_BORDER_WIDTH)), fb);
+ − 1860 #endif
+ − 1861 if (!NILP (fb))
+ − 1862 set_specifier_fallback (Vdefault_toolbar_border_width, fb);
+ − 1863
+ − 1864 set_specifier_fallback (Vtoolbar_border_width[TOP_TOOLBAR], Vdefault_toolbar_border_width);
+ − 1865 fb = list1 (Fcons (Qnil, Qzero));
+ − 1866 set_specifier_fallback (Vtoolbar_border_width[BOTTOM_TOOLBAR], fb);
+ − 1867 set_specifier_fallback (Vtoolbar_border_width[LEFT_TOOLBAR], fb);
+ − 1868 set_specifier_fallback (Vtoolbar_border_width[RIGHT_TOOLBAR], fb);
+ − 1869
+ − 1870 DEFVAR_SPECIFIER ("default-toolbar-visible-p", &Vdefault_toolbar_visible_p /*
+ − 1871 *Whether the default toolbar is visible.
+ − 1872 This is a specifier; use `set-specifier' to change it.
+ − 1873
+ − 1874 The position of the default toolbar is specified by the function
+ − 1875 `set-default-toolbar-position'. If the corresponding position-specific
+ − 1876 toolbar visibility specifier (e.g. `top-toolbar-visible-p' if
+ − 1877 `default-toolbar-position' is 'top) does not specify a visible-p value
+ − 1878 in a particular domain (a window or a frame), then the value of
+ − 1879 `default-toolbar-visible-p' in that domain, if any, will be used
+ − 1880 instead.
+ − 1881
+ − 1882 Both window domains and frame domains are used internally, for
+ − 1883 different purposes. The distinction here is exactly the same as
+ − 1884 for thickness specifiers; see `default-toolbar-height' for more
+ − 1885 information.
+ − 1886
+ − 1887 `default-toolbar-visible-p' and all of the position-specific toolbar
+ − 1888 visibility specifiers have a fallback value of true.
+ − 1889 */ );
+ − 1890 Vdefault_toolbar_visible_p = Fmake_specifier (Qboolean);
+ − 1891 set_specifier_caching (Vdefault_toolbar_visible_p,
438
+ − 1892 offsetof (struct window, default_toolbar_visible_p),
428
+ − 1893 default_toolbar_visible_p_changed_in_window,
438
+ − 1894 offsetof (struct frame, default_toolbar_visible_p),
444
+ − 1895 default_toolbar_visible_p_changed_in_frame, 0);
428
+ − 1896
+ − 1897 DEFVAR_SPECIFIER ("top-toolbar-visible-p",
+ − 1898 &Vtoolbar_visible_p[TOP_TOOLBAR] /*
+ − 1899 *Whether the top toolbar is visible.
+ − 1900 This is a specifier; use `set-specifier' to change it.
+ − 1901
+ − 1902 See `default-toolbar-visible-p' for more information.
+ − 1903 */ );
+ − 1904 Vtoolbar_visible_p[TOP_TOOLBAR] = Fmake_specifier (Qboolean);
+ − 1905 set_specifier_caching (Vtoolbar_visible_p[TOP_TOOLBAR],
438
+ − 1906 offsetof (struct window,
+ − 1907 toolbar_visible_p[TOP_TOOLBAR]),
428
+ − 1908 toolbar_geometry_changed_in_window,
438
+ − 1909 offsetof (struct frame,
+ − 1910 toolbar_visible_p[TOP_TOOLBAR]),
444
+ − 1911 frame_size_slipped, 0);
428
+ − 1912
+ − 1913 DEFVAR_SPECIFIER ("bottom-toolbar-visible-p",
+ − 1914 &Vtoolbar_visible_p[BOTTOM_TOOLBAR] /*
+ − 1915 *Whether the bottom toolbar is visible.
+ − 1916 This is a specifier; use `set-specifier' to change it.
+ − 1917
+ − 1918 See `default-toolbar-visible-p' for more information.
+ − 1919 */ );
+ − 1920 Vtoolbar_visible_p[BOTTOM_TOOLBAR] = Fmake_specifier (Qboolean);
+ − 1921 set_specifier_caching (Vtoolbar_visible_p[BOTTOM_TOOLBAR],
438
+ − 1922 offsetof (struct window,
+ − 1923 toolbar_visible_p[BOTTOM_TOOLBAR]),
428
+ − 1924 toolbar_geometry_changed_in_window,
438
+ − 1925 offsetof (struct frame,
+ − 1926 toolbar_visible_p[BOTTOM_TOOLBAR]),
444
+ − 1927 frame_size_slipped, 0);
428
+ − 1928
+ − 1929 DEFVAR_SPECIFIER ("left-toolbar-visible-p",
+ − 1930 &Vtoolbar_visible_p[LEFT_TOOLBAR] /*
+ − 1931 *Whether the left toolbar is visible.
+ − 1932 This is a specifier; use `set-specifier' to change it.
+ − 1933
+ − 1934 See `default-toolbar-visible-p' for more information.
+ − 1935 */ );
+ − 1936 Vtoolbar_visible_p[LEFT_TOOLBAR] = Fmake_specifier (Qboolean);
+ − 1937 set_specifier_caching (Vtoolbar_visible_p[LEFT_TOOLBAR],
438
+ − 1938 offsetof (struct window,
+ − 1939 toolbar_visible_p[LEFT_TOOLBAR]),
428
+ − 1940 toolbar_geometry_changed_in_window,
438
+ − 1941 offsetof (struct frame,
+ − 1942 toolbar_visible_p[LEFT_TOOLBAR]),
444
+ − 1943 frame_size_slipped, 0);
428
+ − 1944
+ − 1945 DEFVAR_SPECIFIER ("right-toolbar-visible-p",
+ − 1946 &Vtoolbar_visible_p[RIGHT_TOOLBAR] /*
+ − 1947 *Whether the right toolbar is visible.
+ − 1948 This is a specifier; use `set-specifier' to change it.
+ − 1949
+ − 1950 See `default-toolbar-visible-p' for more information.
+ − 1951 */ );
+ − 1952 Vtoolbar_visible_p[RIGHT_TOOLBAR] = Fmake_specifier (Qboolean);
+ − 1953 set_specifier_caching (Vtoolbar_visible_p[RIGHT_TOOLBAR],
438
+ − 1954 offsetof (struct window,
+ − 1955 toolbar_visible_p[RIGHT_TOOLBAR]),
428
+ − 1956 toolbar_geometry_changed_in_window,
438
+ − 1957 offsetof (struct frame,
+ − 1958 toolbar_visible_p[RIGHT_TOOLBAR]),
444
+ − 1959 frame_size_slipped, 0);
428
+ − 1960
+ − 1961 /* initially, top inherits from default; this can be
+ − 1962 changed with `set-default-toolbar-position'. */
+ − 1963 fb = list1 (Fcons (Qnil, Qt));
+ − 1964 set_specifier_fallback (Vdefault_toolbar_visible_p, fb);
+ − 1965 set_specifier_fallback (Vtoolbar_visible_p[TOP_TOOLBAR],
+ − 1966 Vdefault_toolbar_visible_p);
+ − 1967 set_specifier_fallback (Vtoolbar_visible_p[BOTTOM_TOOLBAR], fb);
+ − 1968 set_specifier_fallback (Vtoolbar_visible_p[LEFT_TOOLBAR], fb);
+ − 1969 set_specifier_fallback (Vtoolbar_visible_p[RIGHT_TOOLBAR], fb);
+ − 1970
+ − 1971 DEFVAR_SPECIFIER ("toolbar-buttons-captioned-p",
+ − 1972 &Vtoolbar_buttons_captioned_p /*
+ − 1973 *Whether the toolbar buttons are captioned.
+ − 1974 This will only have a visible effect for those toolbar buttons which had
+ − 1975 captioned versions specified.
+ − 1976 This is a specifier; use `set-specifier' to change it.
+ − 1977 */ );
+ − 1978 Vtoolbar_buttons_captioned_p = Fmake_specifier (Qboolean);
+ − 1979 set_specifier_caching (Vtoolbar_buttons_captioned_p,
438
+ − 1980 offsetof (struct window, toolbar_buttons_captioned_p),
428
+ − 1981 toolbar_buttons_captioned_p_changed,
444
+ − 1982 0, 0, 0);
428
+ − 1983 set_specifier_fallback (Vtoolbar_buttons_captioned_p,
+ − 1984 list1 (Fcons (Qnil, Qt)));
+ − 1985 }
