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