Mercurial > hg > xemacs-beta
comparison lisp/toolbar.el @ 771:943eaba38521
[xemacs-hg @ 2002-03-13 08:51:24 by ben]
The big ben-mule-21-5 check-in!
Various files were added and deleted. See CHANGES-ben-mule.
There are still some test suite failures. No crashes, though.
Many of the failures have to do with problems in the test suite itself
rather than in the actual code. I'll be addressing these in the next
day or so -- none of the test suite failures are at all critical.
Meanwhile I'll be trying to address the biggest issues -- i.e. build
or run failures, which will almost certainly happen on various platforms.
All comments should be sent to ben@xemacs.org -- use a Cc: if necessary
when sending to mailing lists. There will be pre- and post- tags,
something like
pre-ben-mule-21-5-merge-in, and
post-ben-mule-21-5-merge-in.
author | ben |
---|---|
date | Wed, 13 Mar 2002 08:54:06 +0000 |
parents | af0baad5ba14 |
children | fd1acd2f457a |
comparison
equal
deleted
inserted
replaced
770:336a418893b5 | 771:943eaba38521 |
---|---|
1 ;;; toolbar.el --- Toolbar support for XEmacs | 1 ;;; toolbar.el --- Toolbar support for XEmacs |
2 | 2 |
3 ;; Copyright (C) 1995, 1997 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1995, 1997 Free Software Foundation, Inc. |
4 ;; Copyright (C) 2002 Ben Wing. | |
4 | 5 |
5 ;; Maintainer: XEmacs Development Team | 6 ;; Maintainer: XEmacs Development Team |
6 ;; Keywords: extensions, internal, dumped | 7 ;; Keywords: extensions, internal, dumped |
7 | 8 |
8 ;; This file is part of XEmacs. | 9 ;; This file is part of XEmacs. |
31 ;;; Code: | 32 ;;; Code: |
32 | 33 |
33 (defcustom toolbar-visible-p ;; added for the options menu - dverna apr. 98 | 34 (defcustom toolbar-visible-p ;; added for the options menu - dverna apr. 98 |
34 (specifier-instance default-toolbar-visible-p) | 35 (specifier-instance default-toolbar-visible-p) |
35 "*Whether the default toolbar is globally visible. | 36 "*Whether the default toolbar is globally visible. |
36 This option can be customized through the options menu." | 37 This option only has an effect when set using `customize-set-variable', |
38 or through the Options menu." | |
37 :group 'display | 39 :group 'display |
38 :type 'boolean | 40 :type 'boolean |
39 :set #'(lambda (var val) | 41 :set #'(lambda (var val) |
40 (set-specifier default-toolbar-visible-p val) | 42 (set-specifier default-toolbar-visible-p val) |
41 (setq toolbar-visible-p val)) | 43 (setq toolbar-visible-p val)) |
42 ) | 44 ) |
43 | 45 |
44 (defcustom toolbar-captioned-p ;; added for the options menu - dverna apr. 98 | 46 (defcustom toolbar-captioned-p ;; added for the options menu - dverna apr. 98 |
45 (specifier-instance toolbar-buttons-captioned-p) | 47 (specifier-instance toolbar-buttons-captioned-p) |
46 "*Whether the toolbars buttons are globally captioned. | 48 "*Whether the toolbars buttons are globally captioned. |
47 This option can be customized through the options menu." | 49 This option only has an effect when set using `customize-set-variable', |
50 or through the Options menu." | |
48 :group 'display | 51 :group 'display |
49 :type 'boolean | 52 :type 'boolean |
50 :set #'(lambda (var val) | 53 :set #'(lambda (var val) |
51 (set-specifier toolbar-buttons-captioned-p val) | 54 (set-specifier toolbar-buttons-captioned-p val) |
52 (setq toolbar-captioned-p val)) | 55 (setq toolbar-captioned-p val)) |
53 ) | 56 ) |
54 | 57 |
55 (defcustom default-toolbar-position ;; added for the options menu - dverna | 58 (defcustom default-toolbar-position ;; added for the options menu - dverna |
56 (default-toolbar-position) | 59 (default-toolbar-position) |
57 "*The location of the default toolbar: 'top, 'bottom, 'left, or 'right. | 60 "*The location of the default toolbar: 'top, 'bottom, 'left or 'right. |
58 This option can be customized through the options menu." | 61 This option only has an effect when set using `customize-set-variable', |
62 or through the Options menu." | |
59 :group 'display | 63 :group 'display |
60 :type '(choice (const :tag "top" top) | 64 :type '(choice (const :tag "top" top) |
61 (const :tag "bottom" bottom) | 65 (const :tag "bottom" bottom) |
62 (const :tag "left" left) | 66 (const :tag "left" left) |
63 (const :tag "right" right)) | 67 (const :tag "right" right)) |