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))