Mercurial > hg > xemacs-beta

diff lisp/x-scrollbar.el @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents 41ff10fd062f
children c42ec1d1cded
line wrap: on
line diff
--- a/lisp/x-scrollbar.el	Mon Aug 13 10:31:30 2007 +0200
+++ b/lisp/x-scrollbar.el	Mon Aug 13 10:32:22 2007 +0200
@@ -35,7 +35,7 @@
 
 (defun x-init-scrollbar-from-resources (locale)
   (x-init-specifier-from-resources
-   scrollbar-width 'natnum locale
+   (specifier-fallback scrollbar-width) 'natnum locale
    '("scrollBarWidth" . "ScrollBarWidth")
    ;; The name strings are wrong, but the scrollbar name is
    ;; non-deterministic so it is a poor way to set a resource
@@ -52,12 +52,12 @@
   ;; time.
   (if (featurep 'athena-scrollbars)
       (x-init-specifier-from-resources
-       scrollbar-width 'natnum locale
+       (specifier-fallback scrollbar-width) 'natnum locale
        '("scrollbar.width" . "ScrollBar.Width")))
       
   ;; lather, rinse, repeat.
   (x-init-specifier-from-resources
-   scrollbar-height 'natnum locale
+   (specifier-fallback scrollbar-height) 'natnum locale
    '("scrollBarHeight" . "ScrollBarHeight")
    ;; The name strings are wrong, but the scrollbar name is
    ;; non-deterministic so it is a poor way to set a resource
@@ -74,7 +74,7 @@
   ;; time.
   (if (featurep 'athena-scrollbars)
       (x-init-specifier-from-resources
-       scrollbar-height 'natnum locale
+       (specifier-fallback scrollbar-height) 'natnum locale
        '("scrollbar.height" . "ScrollBar.Height"))))
 
 ;;; x-scrollbar.el ends here