872
+ − 1 /* Gtk-specific Lisp objects.
+ − 2 Copyright (C) 1993, 1994 Free Software Foundation, Inc.
+ − 3 Copyright (C) 1995 Board of Trustees, University of Illinois.
+ − 4 Copyright (C) 1995, 1996 Ben Wing.
+ − 5
+ − 6 This file is part of XEmacs.
+ − 7
+ − 8 XEmacs is free software; you can redistribute it and/or modify it
+ − 9 under the terms of the GNU General Public License as published by the
+ − 10 Free Software Foundation; either version 2, or (at your option) any
+ − 11 later version.
+ − 12
+ − 13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
+ − 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ − 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+ − 16 for more details.
+ − 17
+ − 18 You should have received a copy of the GNU General Public License
+ − 19 along with XEmacs; see the file COPYING. If not, write to
+ − 20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ − 21 Boston, MA 02111-1307, USA. */
+ − 22
+ − 23 /* Synched up with: Not in FSF. */
+ − 24 /* Gtk version by William Perry */
+ − 25
+ − 26 #ifndef _XEMACS_OBJECTS_GTK_IMPL_H_
+ − 27 #define _XEMACS_OBJECTS_GTK_IMPL_H_
+ − 28
+ − 29 #include "objects-impl.h"
+ − 30 #include "objects-gtk.h"
+ − 31
+ − 32 #ifdef HAVE_GTK
+ − 33
+ − 34 /*****************************************************************************
+ − 35 Color-Instance
+ − 36 ****************************************************************************/
+ − 37
+ − 38 struct gtk_color_instance_data
+ − 39 {
+ − 40 GdkColor *color;
+ − 41 char dealloc_on_gc;
+ − 42 };
+ − 43
+ − 44 #define GTK_COLOR_INSTANCE_DATA(c) ((struct gtk_color_instance_data *) (c)->data)
+ − 45 #define COLOR_INSTANCE_GTK_COLOR(c) (GTK_COLOR_INSTANCE_DATA (c)->color)
4909
+ − 46 #define XCOLOR_INSTANCE_GTK_COLOR(c) COLOR_INSTANCE_GTK_COLOR (XCOLOR_INSTANCE (c))
872
+ − 47 #define COLOR_INSTANCE_GTK_DEALLOC(c) (GTK_COLOR_INSTANCE_DATA (c)->dealloc_on_gc)
+ − 48
+ − 49 /*****************************************************************************
+ − 50 Font-Instance
+ − 51 ****************************************************************************/
+ − 52
+ − 53 struct gtk_font_instance_data
+ − 54 {
+ − 55 /* Gtk-specific information */
+ − 56 GdkFont *font;
+ − 57 };
+ − 58
+ − 59 #define GTK_FONT_INSTANCE_DATA(f) ((struct gtk_font_instance_data *) (f)->data)
+ − 60 #define FONT_INSTANCE_GTK_FONT(f) (GTK_FONT_INSTANCE_DATA (f)->font)
4909
+ − 61 #define XFONT_INSTANCE_GTK_FONT(c) FONT_INSTANCE_GTK_FONT (XFONT_INSTANCE (c))
872
+ − 62
+ − 63 #endif /* HAVE_GTK */
+ − 64 #endif /* _XEMACS_OBJECTS_GTK_IMPL_H_ */