Mercurial > hg > xemacs-beta

comparison lisp/gui.el @ 282:c42ec1d1cded r21-0b39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b39
author cvs
date Mon, 13 Aug 2007 10:33:18 +0200
parents 262b8bb4a523
children 74fd4e045ea6
comparison
equal deleted inserted replaced
281:090b52736db2 282:c42ec1d1cded
86 86
87 (make-face 'gui-button-face "Face used for gui buttons") 87 (make-face 'gui-button-face "Face used for gui buttons")
88 (if (not (face-differs-from-default-p 'gui-button-face)) 88 (if (not (face-differs-from-default-p 'gui-button-face))
89 (progn 89 (progn
90 (set-face-reverse-p 'gui-button-face t) 90 (set-face-reverse-p 'gui-button-face t)
91 (set-face-background 'gui-button-face "grey75" nil '(x color)) 91 (set-face-background 'gui-button-face '(((x color) . "grey75")
92 (set-face-foreground 'gui-button-face "black" nil '(x color)))) 92 ((mswindows color) . "grey75")))
93 (set-face-foreground 'gui-button-face '(((x color) . "black")
94 ((mswindows color) . "black")))))
93 95
94 (defun make-gui-button (string &optional action user-data) 96 (defun make-gui-button (string &optional action user-data)
95 "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.
96 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
97 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."