Mercurial > hg > xemacs-beta
comparison lisp/x-scrollbar.el @ 282:c42ec1d1cded r21-0b39
Import from CVS: tag r21-0b39
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:33:18 +0200 |
| parents | 7df0dd720c89 |
| children | 57709be46d1b |
comparison
equal
deleted
inserted
replaced
| 281:090b52736db2 | 282:c42ec1d1cded |
|---|---|
| 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 (specifier-fallback scrollbar-height) 'natnum locale | 77 (specifier-fallback scrollbar-height) 'natnum locale |
| 78 '("scrollbar.height" . "ScrollBar.Height")))) | 78 '("scrollbar.height" . "ScrollBar.Height"))) |
| 79 | |
| 80 ;; Now do ScrollBarPlacement.scrollBarPlacement | |
| 81 (let ((case-fold-search t) | |
| 82 (resval (x-get-resource-and-maybe-bogosity-check | |
| 83 "ScrollBarPlacement" "scrollBarPlacement" 'string locale))) | |
| 84 (cond | |
| 85 ((null resval)) | |
| 86 ((string-match "^top_left$" resval) | |
| 87 (set-specifier scrollbar-on-top-p t locale) | |
| 88 (set-specifier scrollbar-on-left-p t locale)) | |
| 89 ((string-match "^top_right$" resval) | |
| 90 (set-specifier scrollbar-on-top-p t locale) | |
| 91 (set-specifier scrollbar-on-left-p nil locale)) | |
| 92 ((string-match "^bottom_left$" resval) | |
| 93 (set-specifier scrollbar-on-top-p nil locale) | |
| 94 (set-specifier scrollbar-on-left-p t locale)) | |
| 95 ((string-match "^bottom_right$" resval) | |
| 96 (set-specifier scrollbar-on-top-p nil locale) | |
| 97 (set-specifier scrollbar-on-left-p nil locale)) | |
| 98 (t | |
| 99 (display-warning 'resource | |
| 100 (format "Illegal value '%s' for scrollBarPlacement resource" resval))))) | |
| 101 | |
| 102 ) | |
| 79 | 103 |
| 80 ;;; x-scrollbar.el ends here | 104 ;;; x-scrollbar.el ends here |