Mercurial > hg > xemacs-beta

comparison lisp/gui.el @ 211:78478c60bfcd r20-4b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents 41ff10fd062f
children 262b8bb4a523
comparison
equal deleted inserted replaced
210:49f55ca3ba57 211:78478c60bfcd
87 (eq 'gui-button (aref object 0)))) 87 (eq 'gui-button (aref object 0))))
88 88
89 (make-face 'gui-button-face "Face used for gui buttons") 89 (make-face 'gui-button-face "Face used for gui buttons")
90 (if (not (face-differs-from-default-p 'gui-button-face)) 90 (if (not (face-differs-from-default-p 'gui-button-face))
91 (progn 91 (progn
92 (set-face-background 'gui-button-face "grey75") 92 (set-face-reverse-p 'gui-button-face t)
93 (set-face-foreground 'gui-button-face "black"))) 93 (set-face-background 'gui-button-face "grey75" nil '(x color))
94 (set-face-foreground 'gui-button-face "black" nil '(x color))))
94 95
95 (defun make-gui-button (string &optional action user-data) 96 (defun make-gui-button (string &optional action user-data)
96 "Make a GUI button whose label is STRING and whose action is ACTION. 97 "Make a GUI button whose label is STRING and whose action is ACTION.
97 If the button is inserted in a buffer and then clicked on, and ACTION 98 If the button is inserted in a buffer and then clicked on, and ACTION
98 is non-nil, ACTION will be called with one argument, USER-DATA." 99 is non-nil, ACTION will be called with one argument, USER-DATA."