Mercurial > hg > xemacs-beta

comparison lisp/msw-faces.el @ 290:c9fe270a4101 r21-0b43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b43
author cvs
date Mon, 13 Aug 2007 10:36:47 +0200
parents e11d67e05968
children 4b85ae5eabfb
comparison
equal deleted inserted replaced
289:6e6992ccc4b6 290:c9fe270a4101
32 ;;; ensure that the default face has some reasonable fallbacks if nothing 32 ;;; ensure that the default face has some reasonable fallbacks if nothing
33 ;;; else is specified. 33 ;;; else is specified.
34 (defun mswindows-init-device-faces (device) 34 (defun mswindows-init-device-faces (device)
35 (set-face-font 'default 35 (set-face-font 'default
36 '((mswindows default) . "Courier New:Regular:10") 'global) 36 '((mswindows default) . "Courier New:Regular:10") 'global)
37 ;; 3d objects 37 ;; gui elements
38 (set-face-foreground '3d-object '((mswindows default) . "Black") 'global) 38 (set-face-foreground 'gui-element '((mswindows default) . "Black") 'global)
39 (set-face-background '3d-object '((mswindows default) . "Gray75") 'global) 39 (set-face-background 'gui-element '((mswindows default) . "Gray75") 'global)
40 (set-face-foreground 'default '((mswindows default) . "black") 'global) 40 (set-face-foreground 'default '((mswindows default) . "black") 'global)
41 (set-face-background 'default '((mswindows default) . "white") 'global) 41 (set-face-background 'default '((mswindows default) . "white") 'global)
42 ) 42 )
43 43
44 44