Mercurial > hg > xemacs-beta

comparison lisp/x-scrollbar.el @ 286:57709be46d1b r21-0b41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b41
author cvs
date Mon, 13 Aug 2007 10:35:03 +0200
parents c42ec1d1cded
children 70ad99077275
comparison
equal deleted inserted replaced
285:9a3756523c1b 286:57709be46d1b
77 (specifier-fallback scrollbar-height) 'natnum locale 77 (specifier-fallback scrollbar-height) 'natnum locale
78 '("scrollbar.height" . "ScrollBar.Height"))) 78 '("scrollbar.height" . "ScrollBar.Height")))
79 79
80 ;; Now do ScrollBarPlacement.scrollBarPlacement 80 ;; Now do ScrollBarPlacement.scrollBarPlacement
81 (let ((case-fold-search t) 81 (let ((case-fold-search t)
82 (resval (x-get-resource-and-maybe-bogosity-check 82 (resval (x-get-resource "ScrollBarPlacement" "scrollBarPlacement"
83 "ScrollBarPlacement" "scrollBarPlacement" 'string locale))) 83 'string locale)))
84 (cond 84 (cond
85 ((null resval)) 85 ((null resval))
86 ((string-match "^top_left$" resval) 86 ((string-match "^top[_-]left$" resval)
87 (set-specifier scrollbar-on-top-p t locale) 87 (set-specifier scrollbar-on-top-p t locale)
88 (set-specifier scrollbar-on-left-p t locale)) 88 (set-specifier scrollbar-on-left-p t locale))
89 ((string-match "^top_right$" resval) 89 ((string-match "^top[_-]right$" resval)
90 (set-specifier scrollbar-on-top-p t locale) 90 (set-specifier scrollbar-on-top-p t locale)
91 (set-specifier scrollbar-on-left-p nil locale)) 91 (set-specifier scrollbar-on-left-p nil locale))
92 ((string-match "^bottom_left$" resval) 92 ((string-match "^bottom[_-]left$" resval)
93 (set-specifier scrollbar-on-top-p nil locale) 93 (set-specifier scrollbar-on-top-p nil locale)
94 (set-specifier scrollbar-on-left-p t locale)) 94 (set-specifier scrollbar-on-left-p t locale))
95 ((string-match "^bottom_right$" resval) 95 ((string-match "^bottom[_-]right$" resval)
96 (set-specifier scrollbar-on-top-p nil locale) 96 (set-specifier scrollbar-on-top-p nil locale)
97 (set-specifier scrollbar-on-left-p nil locale)) 97 (set-specifier scrollbar-on-left-p nil locale))
98 (t 98 (t
99 (display-warning 'resource 99 (display-warning 'resource
100 (format "Illegal value '%s' for scrollBarPlacement resource" resval))))) 100 (format "Illegal value '%s' for scrollBarPlacement resource" resval)))))