Mercurial > hg > xemacs-beta

comparison lisp/gtk-faces.el @ 702:958d47e9d2c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-12-18 22:07:13 by janv] Make GTK default faces customizable
author janv
date Tue, 18 Dec 2001 22:07:14 +0000
parents 7039e6323819
children c9bf82d465b5
comparison
equal deleted inserted replaced
701:886e83363116 702:958d47e9d2c4
68 (selected 3) ; GTK_STATE_SELECTED 68 (selected 3) ; GTK_STATE_SELECTED
69 ;;(insensitive 4) ; GTK_STATE_INSENSITIVE 69 ;;(insensitive 4) ; GTK_STATE_INSENSITIVE
70 ) 70 )
71 (set-face-foreground 'highlight 71 (set-face-foreground 'highlight
72 (nth prelight (plist-get style 'text)) 72 (nth prelight (plist-get style 'text))
73 device) 73 nil '(gtk default))
74 (set-face-background 'highlight 74 (set-face-background 'highlight
75 (nth prelight (plist-get style 'background)) 75 (nth prelight (plist-get style 'background))
76 device) 76 nil '(gtk default))
77 (set-face-foreground 'zmacs-region 77 (set-face-foreground 'zmacs-region
78 (nth selected (plist-get style 'text)) 78 (nth selected (plist-get style 'text))
79 device) 79 nil '(gtk default))
80 (set-face-background 'zmacs-region 80 (set-face-background 'zmacs-region
81 (nth selected (plist-get style 'background)) 81 (nth selected (plist-get style 'background))
82 device)) 82 nil '(gtk default))
83 (set-face-background 'text-cursor "red3" device))) 83 (set-face-background 'text-cursor "red3" device)))
84 84
85 ;;; This is called from `init-frame-faces', which is called from 85 ;;; This is called from `init-frame-faces', which is called from
86 ;;; init_frame_faces() which is called from Fmake_frame(), to perform 86 ;;; init_frame_faces() which is called from Fmake_frame(), to perform
87 ;;; any device-specific initialization. 87 ;;; any device-specific initialization.