Mercurial > hg > xemacs-beta

comparison lisp/scrollbar.el @ 298:70ad99077275 r21-0b47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b47
author cvs
date Mon, 13 Aug 2007 10:39:40 +0200
parents c42ec1d1cded
children 74fd4e045ea6
comparison
equal deleted inserted replaced
297:deca3c1083ac 298:70ad99077275
28 28
29 ;; This file is dumped with XEmacs (when scrollbar support is compiled in). 29 ;; This file is dumped with XEmacs (when scrollbar support is compiled in).
30 30
31 ;;; Code: 31 ;;; Code:
32 32
33 (defcustom scrollbars-visible-p ;; added for the options menu - dverna 33 ;; added for the options menu - dverna
34 (specifier-instance vertical-scrollbar-visible-p (selected-device)) 34 (defcustom scrollbars-visible-p t
35 "Whether the scrollbars are globally visible. This variable can be 35 "Whether the scrollbars are globally visible.
36 customized through the options menu." 36 This variable can be customized through the options menu."
37 :group 'display
38 :type 'boolean 37 :type 'boolean
39 :set '(lambda (var val) 38 :set (lambda (var val)
40 (if val 39 (set-specifier vertical-scrollbar-visible-p val)
41 (progn 40 (set-specifier horizontal-scrollbar-visible-p val)
42 (remove-specifier vertical-scrollbar-visible-p 'global) 41 (setq-default scrollbars-visible-p val))
43 (remove-specifier horizontal-scrollbar-visible-p 'global)) 42 :group 'display)
44 (set-specifier vertical-scrollbar-visible-p nil 'global)
45 (set-specifier horizontal-scrollbar-visible-p nil 'global))
46 (setq scrollbars-visible-p val))
47 )
48 43
49 (defun init-scrollbar-from-resources (locale) 44 (defun init-scrollbar-from-resources (locale)
50 (when (and (featurep 'x) 45 (when (and (featurep 'x)
51 (or (eq locale 'global) 46 (or (eq locale 'global)
52 (eq 'x (device-or-frame-type locale)))) 47 (eq 'x (device-or-frame-type locale))))