Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 711:5be46355cc42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-12-23 01:01:45 by wmperry] 2001-12-13 William M. Perry <wmperry@gnu.org> * gtk-faces.el (gtk-init-device-faces): Better way of munging the default faces from a style. Do not use 'device' as the locale when setting it, or it makes it very difficult for a user to override. Now munges highlight, zmacs-region, and toolbar from the appropriate information in the default GtkStyle for the device. * gui.el (gui-button-face): Ditto. * faces.el (text-cursor): (highlight): (zmacs-region): (list-mode-item-selected): (primary-selection): (secondary-selection): (isearch): (isearch-secondary): Condense old window-system specific settings into one specifier using the 'win default' tags. * dialog-gtk.el (popup-builtin-question-dialog): Deal gracefully with buttons of length 1, 2, and 3. Fixed yes-or-no-p lossage.
author wmperry
date Sun, 23 Dec 2001 01:01:46 +0000
parents a307f9a2021d
children b63242824a7a
comparison
equal deleted inserted replaced
710:a00780ef853d 711:5be46355cc42
1810 1810
1811 ;; Make some useful faces. This happens very early, before creating 1811 ;; Make some useful faces. This happens very early, before creating
1812 ;; the first non-stream device. 1812 ;; the first non-stream device.
1813 1813
1814 (set-face-background 'text-cursor 1814 (set-face-background 'text-cursor
1815 '(((x default) . "Red3") 1815 '(((win default) . "Red3"))
1816 ((mswindows default) . "Red3"))
1817 'global) 1816 'global)
1818 1817
1819 ;; some older X servers don't recognize "darkseagreen2" 1818 ;; some older X servers don't recognize "darkseagreen2"
1820 (set-face-background 'highlight 1819 (set-face-background 'highlight
1821 '(((x default color) . "darkseagreen2") 1820 '(((win default color) . "darkseagreen2")
1822 ((x default color) . "green") 1821 ((win default color) . "green")
1823 ((x default grayscale) . "gray53") 1822 ((win default grayscale) . "gray53"))
1824 ((mswindows default color) . "darkseagreen2")
1825 ((mswindows default color) . "green")
1826 ((mswindows default grayscale) . "gray53"))
1827 'global) 1823 'global)
1828 (set-face-background-pixmap 'highlight 1824 (set-face-background-pixmap 'highlight
1829 '(((x default mono) . "gray1") 1825 '(((win default mono) . "gray1"))
1830 ;; ((gtk default mono) . "gray1")
1831 ((mswindows default mono) . "gray1"))
1832 'global) 1826 'global)
1833 1827
1834 (set-face-background 'zmacs-region 1828 (set-face-background 'zmacs-region
1835 '(((x default color) . "gray65") 1829 '(((win default color) . "gray65")
1836 ((x default grayscale) . "gray65") 1830 ((win default grayscale) . "gray65"))
1837 ((mswindows default color) . "gray65")
1838 ((mswindows default grayscale) . "gray65"))
1839 'global) 1831 'global)
1840 (set-face-background-pixmap 'zmacs-region 1832 (set-face-background-pixmap 'zmacs-region
1841 '(((x default mono) . "gray3") 1833 '(((win default mono) . "gray3"))
1842 ;; ((gtk default mono) . "gray3")
1843 ((mswindows default mono) . "gray3"))
1844 'global) 1834 'global)
1845 1835
1846 (set-face-background 'list-mode-item-selected 1836 (set-face-background 'list-mode-item-selected
1847 '(((x default color) . "gray68") 1837 '(((win default color) . "gray68")
1848 ((x default grayscale) . "gray68") 1838 ((win default grayscale) . "gray68")
1849 ((x default mono) . [default foreground]) 1839 ((win default mono) . [default foreground]))
1850 ;; ((gtk default color) . "gray68")
1851 ;; ((gtk default grayscale) . "gray68")
1852 ;; ((gtk default mono) . [default foreground])
1853 ((mswindows default color) . "gray68")
1854 ((mswindows default grayscale) . "gray68")
1855 ((mswindows default mono) . [default foreground]))
1856 'global) 1840 'global)
1857 (set-face-foreground 'list-mode-item-selected 1841 (set-face-foreground 'list-mode-item-selected
1858 '(((x default mono) . [default background]) 1842 '(((win default mono) . [default background]))
1859 ((mswindows default mono) . [default background]))
1860 'global) 1843 'global)
1861 1844
1862 (set-face-background 'primary-selection 1845 (set-face-background 'primary-selection
1863 '(((x default color) . "gray65") 1846 '(((win default color) . "gray65")
1864 ((x default grayscale) . "gray65") 1847 ((win default grayscale) . "gray65"))
1865 ((mswindows default color) . "gray65")
1866 ((mswindows default grayscale) . "gray65"))
1867 'global) 1848 'global)
1868 (set-face-background-pixmap 'primary-selection 1849 (set-face-background-pixmap 'primary-selection
1869 '(((x default mono) . "gray3") 1850 '(((win default mono) . "gray3"))
1870 ;;((gtk default mono) . "gray3")
1871 ((mswindows default mono) . "gray3"))
1872 'global) 1851 'global)
1873 1852
1874 (set-face-background 'secondary-selection 1853 (set-face-background 'secondary-selection
1875 '(((x default color) . "paleturquoise") 1854 '(((win default color) . "paleturquoise")
1876 ((x default color) . "green") 1855 ((win default color) . "green")
1877 ((x default grayscale) . "gray53") 1856 ((win default grayscale) . "gray53"))
1878 ;;((gtk default color) . "paleturquoise")
1879 ;;((gtk default color) . "green")
1880 ;;((gtk default grayscale) . "gray53")
1881 ((mswindows default color) . "paleturquoise")
1882 ((mswindows default color) . "green")
1883 ((mswindows default grayscale) . "gray53"))
1884 'global) 1857 'global)
1885 (set-face-background-pixmap 'secondary-selection 1858 (set-face-background-pixmap 'secondary-selection
1886 '(((x default mono) . "gray1") 1859 '(((win default mono) . "gray1"))
1887 ;;((gtk default mono) . "gray1")
1888 ((mswindows default mono) . "gray1"))
1889 'global) 1860 'global)
1890 1861
1891 (set-face-background 'isearch 1862 (set-face-background 'isearch
1892 '(((x default color) . "paleturquoise") 1863 '(((win default color) . "paleturquoise")
1893 ((x default color) . "green") 1864 ((win default color) . "green"))
1894 ;;((gtk default color) . "paleturquoise")
1895 ;;((gtk default color) . "green")
1896 ((mswindows default color) . "paleturquoise")
1897 ((mswindows default color) . "green"))
1898 'global) 1865 'global)
1899 1866
1900 ;; #### This should really, I mean *really*, be converted to some form 1867 ;; #### This should really, I mean *really*, be converted to some form
1901 ;; of `defface' one day. 1868 ;; of `defface' one day.
1902 (set-face-foreground 'isearch-secondary 1869 (set-face-foreground 'isearch-secondary
1903 '(((x default color) . "red3") 1870 '(((win default color) . "red3"))
1904 ((mswindows default color) . "red3"))
1905 'global) 1871 'global)
1906 1872
1907 ;; Define some logical color names to be used when reading the pixmap files. 1873 ;; Define some logical color names to be used when reading the pixmap files.
1908 (if (featurep 'xpm) 1874 (if (featurep 'xpm)
1909 (setq xpm-color-symbols 1875 (setq xpm-color-symbols