Mercurial > hg > xemacs-beta
view lisp/gtk-mouse.el @ 5619:75ad4969a16d
Replace the 'flush face property with the opposite 'shrink one.
lisp/ChangeLog addition:
2011-12-26 Didier Verna <didier@xemacs.org>
* cl-macs.el (face-flush-p): Removed.
* cl-macs.el (face-shrink-p): New.
* faces.el (face-flush-p): Removed.
* faces.el (face-shrink-p): New.
* faces.el (set-face-flush-p): Removed.
* faces.el (set-face-shrink-p): New.
* cus-face.el (custom-face-attributes):
* faces.el (set-face-property):
* faces.el (face-equal):
* x-faces.el (x-init-face-from-resources):
* x-faces.el (make-face-x-resource-internal): Replace the 'flush
property with the opposite 'shrink one.
src/ChangeLog addition:
2011-12-26 Didier Verna <didier@xemacs.org>
* lisp.h:
* faces.c (mark_face):
* faces.c (face_equal):
* faces.c (face_getprop):
* faces.c (face_putprop):
* faces.c (face_remprop):
* faces.c (face_plist):
* faces.c (reset_face):
* faces.c (update_face_inheritance_mapper):
* faces.c (Fmake_face):
* faces.c (update_face_cachel_data):
* faces.c (merge_face_cachel_data):
* faces.c (Fcopy_face):
* faces.c (syms_of_faces):
* faces.c (vars_of_faces):
* faces.c (complex_vars_of_faces):
* faces.h (struct Lisp_Face):
* faces.h (struct face_cachel):
* faces.h (WINDOW_FACE_CACHEL_SHRINK_P):
* faces.h (FACE_SHRINK_P):
* fontcolor.c (face_boolean_validate): Replace the 'flush property
with the opposite 'shrink one.
* redisplay.c (create_text_block):
* redisplay.c (create_string_text_block): Ditto. Invert the logic
for storing a new clear_findex in the display lines.
| author | Didier Verna <didier@xemacs.org> |
|---|---|
| date | Mon, 26 Dec 2011 15:04:25 +0100 |
| parents | 308d34e9f07d |
| children |
line wrap: on
line source
;;; gtk-mouse.el --- Mouse support for GTK window system. ;; Copyright (C) 1985, 1992-4, 1997 Free Software Foundation, Inc. ;; Copyright (C) 1995, 1996 Ben Wing. ;; Copyright (C) 2000 William Perry ;; Maintainer: XEmacs Development Team ;; Keywords: mouse, dumped ;; This file is part of XEmacs. ;; XEmacs is free software: you can redistribute it and/or modify it ;; under the terms of the GNU General Public License as published by the ;; Free Software Foundation, either version 3 of the License, or (at your ;; option) any later version. ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License ;; for more details. ;; You should have received a copy of the GNU General Public License ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. ;;; Synched up with: Not synched. ;;; Commentary: ;; This file is dumped with XEmacs (when GTK support is compiled in). ;;; Code: (defvar gtk-pointers-initialized nil) (defun gtk-init-pointers () (if gtk-pointers-initialized nil (set-glyph-image text-pointer-glyph [gtk-resource :resource-type cursor :resource-id xterm] 'gtk) (set-glyph-image nontext-pointer-glyph [gtk-resource :resource-type cursor :resource-id xterm] 'gtk) (set-glyph-image selection-pointer-glyph [gtk-resource :resource-type cursor :resource-id top-left-arrow] 'gtk) (set-glyph-image modeline-pointer-glyph [gtk-resource :resource-type cursor :resource-id sb-v-double-arrow] 'gtk) (set-glyph-image divider-pointer-glyph [gtk-resource :resource-type cursor :resource-id sb-h-double-arrow] 'gtk) (set-glyph-image busy-pointer-glyph [gtk-resource :resource-type cursor :resource-id watch] 'gtk) (set-glyph-image gc-pointer-glyph [gtk-resource :resource-type cursor :resource-id watch] 'gtk) (when (featurep 'toolbar) (set-glyph-image toolbar-pointer-glyph [gtk-resource :resource-type cursor :resource-id top-left-arrow] 'gtk)) (when (featurep 'scrollbar) (set-glyph-image scrollbar-pointer-glyph [gtk-resource :resource-type cursor :resource-id top-left-arrow] 'gtk)) (setq gtk-pointers-initialized t)))