Mercurial > hg > xemacs-beta
comparison lisp/x-scrollbar.el @ 280:7df0dd720c89 r21-0b38
Import from CVS: tag r21-0b38
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:32:22 +0200 |
| parents | 41ff10fd062f |
| children | c42ec1d1cded |
comparison
equal
deleted
inserted
replaced
| 279:c20b2fb5bb0a | 280:7df0dd720c89 |
|---|---|
| 33 | 33 |
| 34 ;;; Code: | 34 ;;; Code: |
| 35 | 35 |
| 36 (defun x-init-scrollbar-from-resources (locale) | 36 (defun x-init-scrollbar-from-resources (locale) |
| 37 (x-init-specifier-from-resources | 37 (x-init-specifier-from-resources |
| 38 scrollbar-width 'natnum locale | 38 (specifier-fallback scrollbar-width) 'natnum locale |
| 39 '("scrollBarWidth" . "ScrollBarWidth") | 39 '("scrollBarWidth" . "ScrollBarWidth") |
| 40 ;; The name strings are wrong, but the scrollbar name is | 40 ;; The name strings are wrong, but the scrollbar name is |
| 41 ;; non-deterministic so it is a poor way to set a resource | 41 ;; non-deterministic so it is a poor way to set a resource |
| 42 ;; for the scrollbar anyhow. | 42 ;; for the scrollbar anyhow. |
| 43 (cond ((featurep 'athena-scrollbars) | 43 (cond ((featurep 'athena-scrollbars) |
| 50 ;; If any of the previous resources succeeded, the following | 50 ;; If any of the previous resources succeeded, the following |
| 51 ;; call does nothing; so there's no harm in doing it all the | 51 ;; call does nothing; so there's no harm in doing it all the |
| 52 ;; time. | 52 ;; time. |
| 53 (if (featurep 'athena-scrollbars) | 53 (if (featurep 'athena-scrollbars) |
| 54 (x-init-specifier-from-resources | 54 (x-init-specifier-from-resources |
| 55 scrollbar-width 'natnum locale | 55 (specifier-fallback scrollbar-width) 'natnum locale |
| 56 '("scrollbar.width" . "ScrollBar.Width"))) | 56 '("scrollbar.width" . "ScrollBar.Width"))) |
| 57 | 57 |
| 58 ;; lather, rinse, repeat. | 58 ;; lather, rinse, repeat. |
| 59 (x-init-specifier-from-resources | 59 (x-init-specifier-from-resources |
| 60 scrollbar-height 'natnum locale | 60 (specifier-fallback scrollbar-height) 'natnum locale |
| 61 '("scrollBarHeight" . "ScrollBarHeight") | 61 '("scrollBarHeight" . "ScrollBarHeight") |
| 62 ;; The name strings are wrong, but the scrollbar name is | 62 ;; The name strings are wrong, but the scrollbar name is |
| 63 ;; non-deterministic so it is a poor way to set a resource | 63 ;; non-deterministic so it is a poor way to set a resource |
| 64 ;; for the scrollbar anyhow. | 64 ;; for the scrollbar anyhow. |
| 65 (cond ((featurep 'athena-scrollbars) | 65 (cond ((featurep 'athena-scrollbars) |
| 72 ;; If any of the previous resources succeeded, the following | 72 ;; If any of the previous resources succeeded, the following |
| 73 ;; call does nothing; so there's no harm in doing it all the | 73 ;; call does nothing; so there's no harm in doing it all the |
| 74 ;; time. | 74 ;; time. |
| 75 (if (featurep 'athena-scrollbars) | 75 (if (featurep 'athena-scrollbars) |
| 76 (x-init-specifier-from-resources | 76 (x-init-specifier-from-resources |
| 77 scrollbar-height 'natnum locale | 77 (specifier-fallback scrollbar-height) 'natnum locale |
| 78 '("scrollbar.height" . "ScrollBar.Height")))) | 78 '("scrollbar.height" . "ScrollBar.Height")))) |
| 79 | 79 |
| 80 ;;; x-scrollbar.el ends here | 80 ;;; x-scrollbar.el ends here |