Mercurial > hg > xemacs-beta

comparison lisp/gtk-faces.el @ 707:a307f9a2021d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-12-20 05:49:28 by andyp] sync with 21-4-6-windows
author andyp
date Thu, 20 Dec 2001 05:49:48 +0000
parents c9bf82d465b5
children 5be46355cc42
comparison
equal deleted inserted replaced
706:c9bf82d465b5 707:a307f9a2021d
59 ;; If the "default" face didn't have a font specified, try to pick one. 59 ;; If the "default" face didn't have a font specified, try to pick one.
60 ;; 60 ;;
61 (if (not (eq (device-type device) 'gtk)) 61 (if (not (eq (device-type device) 'gtk))
62 nil 62 nil
63 (gtk-init-pointers) 63 (gtk-init-pointers)
64 '(let* ((style (gtk-style-info device)) 64 (let* ((style (gtk-style-info device))
65 ;;(normal 0) ; GTK_STATE_NORMAL 65 ;;(normal 0) ; GTK_STATE_NORMAL
66 ;;(active 1) ; GTK_STATE_ACTIVE 66 ;;(active 1) ; GTK_STATE_ACTIVE
67 (prelight 2) ; GTK_STATE_PRELIGHT 67 (prelight 2) ; GTK_STATE_PRELIGHT
68 (selected 3) ; GTK_STATE_SELECTED 68 (selected 3) ; GTK_STATE_SELECTED
69 ;;(insensitive 4) ; GTK_STATE_INSENSITIVE 69 ;;(insensitive 4) ; GTK_STATE_INSENSITIVE