Mercurial > hg > xemacs-beta
comparison lisp/toolbar-items.el @ 487:54fa1a5c2d12
[xemacs-hg @ 2001-04-28 07:48:36 by ben]
misc changes, some for 21.4
remove bogus lines setting zmacs_region_stays to 0.
remove debug lines.
Correct general info about init file.
Fix up Cygwin section.
More contributions.
Fix spurious setting of zmacs-region-stays to t after a non-shift
motion command.
Sync up with FSF 20.7, to fix bugs handling some etags line formats.
Move non-window-system specific code that was duplicated in
all window systems into the generic code.
* gutter.el (init-gutter): Removed. (unused)
Clean up the rectangle code w.r.t. selections. You'll now get
the right text copied into the primary selection (but not the
clipboard yet, unfortunately -- that really requires defining
our own rectangle type).
| author | ben |
|---|---|
| date | Sat, 28 Apr 2001 07:48:46 +0000 |
| parents | abe6d1db359e |
| children | 7039e6323819 |
comparison
equal
deleted
inserted
replaced
| 486:a83afd50994d | 487:54fa1a5c2d12 |
|---|---|
| 423 (defvar toolbar-debug-icon nil "A `debugger' icon set.") | 423 (defvar toolbar-debug-icon nil "A `debugger' icon set.") |
| 424 (defvar toolbar-news-icon nil "A `news' icon set.") | 424 (defvar toolbar-news-icon nil "A `news' icon set.") |
| 425 | 425 |
| 426 ;;; each entry maps a variable to the prefix used. | 426 ;;; each entry maps a variable to the prefix used. |
| 427 | 427 |
| 428 (defvar init-x-toolbar-list | 428 (defvar init-toolbar-list |
| 429 '((toolbar-last-win-icon . "last-win") | 429 '((toolbar-last-win-icon . "last-win") |
| 430 (toolbar-next-win-icon . "next-win") | 430 (toolbar-next-win-icon . "next-win") |
| 431 (toolbar-file-icon . "file") | 431 (toolbar-file-icon . "file") |
| 432 (toolbar-folder-icon . "folder") | 432 (toolbar-folder-icon . "folder") |
| 433 (toolbar-disk-icon . "disk") | 433 (toolbar-disk-icon . "disk") |
| 442 (toolbar-info-icon . "info-def") | 442 (toolbar-info-icon . "info-def") |
| 443 (toolbar-compile-icon . "compile") | 443 (toolbar-compile-icon . "compile") |
| 444 (toolbar-debug-icon . "debug") | 444 (toolbar-debug-icon . "debug") |
| 445 (toolbar-news-icon . "news"))) | 445 (toolbar-news-icon . "news"))) |
| 446 | 446 |
| 447 (defun init-x-toolbar () | 447 (defun init-toolbar () |
| 448 (toolbar-add-item-data init-x-toolbar-list ) | 448 (toolbar-add-item-data init-toolbar-list) |
| 449 ;; do this now because errors will occur if the icon symbols | 449 ;; do this now because errors will occur if the icon symbols |
| 450 ;; are not initted | 450 ;; are not initted |
| 451 (set-specifier default-toolbar initial-toolbar-spec)) | 451 (set-specifier default-toolbar initial-toolbar-spec)) |
| 452 | 452 |
| 453 (defun toolbar-add-item-data ( icon-list &optional icon-dir ) | 453 (defun toolbar-add-item-data (icon-list &optional icon-dir) |
| 454 (if (eq icon-dir nil) | 454 (if (eq icon-dir nil) |
| 455 (setq icon-dir toolbar-icon-directory)) | 455 (setq icon-dir toolbar-icon-directory)) |
| 456 (mapcar | 456 (mapcar |
| 457 (lambda (cons) | 457 (lambda (cons) |
| 458 (let ((prefix (expand-file-name (cdr cons) icon-dir))) | 458 (let ((prefix (expand-file-name (cdr cons) icon-dir))) |
| 459 ;; #### This should use a better mechanism for finding the | 459 ;; #### This should use a better mechanism for finding the |
| 460 ;; glyphs, allowing for formats other than x[pb]m. Look at | 460 ;; glyphs, allowing for formats other than x[pb]m. Look at |
| 461 ;; `widget-glyph-find' for an example how it might be done. | 461 ;; `widget-glyph-find' for an example how it might be done. |
| 462 (set (car cons) | 462 (set (car cons) |
| 463 (if (featurep 'xpm) | 463 (if (featurep 'xpm) |
| 566 toolbar-vector-debug | 566 toolbar-vector-debug |
| 567 toolbar-vector-news | 567 toolbar-vector-news |
| 568 ) | 568 ) |
| 569 "The initial toolbar for a buffer.") | 569 "The initial toolbar for a buffer.") |
| 570 | 570 |
| 571 (defun x-init-toolbar-from-resources (locale) | |
| 572 (x-init-specifier-from-resources | |
| 573 top-toolbar-height 'natnum locale | |
| 574 '("topToolBarHeight" . "TopToolBarHeight")) | |
| 575 (x-init-specifier-from-resources | |
| 576 bottom-toolbar-height 'natnum locale | |
| 577 '("bottomToolBarHeight" . "BottomToolBarHeight")) | |
| 578 (x-init-specifier-from-resources | |
| 579 left-toolbar-width 'natnum locale | |
| 580 '("leftToolBarWidth" . "LeftToolBarWidth")) | |
| 581 (x-init-specifier-from-resources | |
| 582 right-toolbar-width 'natnum locale | |
| 583 '("rightToolBarWidth" . "RightToolBarWidth")) | |
| 584 (x-init-specifier-from-resources | |
| 585 top-toolbar-border-width 'natnum locale | |
| 586 '("topToolBarBorderWidth" . "TopToolBarBorderWidth")) | |
| 587 (x-init-specifier-from-resources | |
| 588 bottom-toolbar-border-width 'natnum locale | |
| 589 '("bottomToolBarBorderWidth" . "BottomToolBarBorderWidth")) | |
| 590 (x-init-specifier-from-resources | |
| 591 left-toolbar-border-width 'natnum locale | |
| 592 '("leftToolBarBorderWidth" . "LeftToolBarBorderWidth")) | |
| 593 (x-init-specifier-from-resources | |
| 594 right-toolbar-border-width 'natnum locale | |
| 595 '("rightToolBarBorderWidth" . "RightToolBarBorderWidth"))) | |
| 596 | |
| 597 ;;; toolbar-items.el ends here | 571 ;;; toolbar-items.el ends here |