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