update.
[chise/xemacs-chise.git.1] / src / glyphs-gtk.h
1 /* Gtk-specific glyphs and related.
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    Copyright (C) 1995 Sun Microsystems, Inc.
6
7 This file is part of XEmacs.
8
9 XEmacs is free software; you can redistribute it and/or modify it
10 under the terms of the GNU General Public License as published by the
11 Free Software Foundation; either version 2, or (at your option) any
12 later version.
13
14 XEmacs is distributed in the hope that it will be useful, but WITHOUT
15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
16 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
17 for more details.
18
19 You should have received a copy of the GNU General Public License
20 along with XEmacs; see the file COPYING.  If not, write to
21 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
22 Boston, MA 02111-1307, USA.  */
23
24 /* Synched up with:  Not in FSF. */
25 /* Gtk version by William Perry */
26
27 #ifndef _XEMACS_GLYPHS_GTK_H_
28 #define _XEMACS_GLYPHS_GTK_H_
29
30 #include "glyphs.h"
31
32 #ifdef HAVE_GTK
33
34 #include <gtk/gtk.h>
35
36 /****************************************************************************
37  *                         Image-Instance Object                            *
38  ****************************************************************************/
39
40 struct gtk_image_instance_data
41 {
42   GdkPixmap **pixmaps;
43   GdkPixmap *mask;
44   GdkCursor *cursor;
45
46   /* If depth>0, then that means that other colors were allocated when
47      this pixmap was loaded.  These are they; we need to free them when
48      finalizing the image instance. */
49   GdkColormap *colormap;
50   unsigned long *pixels;
51   int npixels;
52
53   /* Should we hang on to the extra info from the XpmAttributes, like
54      the textual color table and the comments?   Is that useful? */
55 };
56
57 struct gtk_subwindow_data
58 {
59   union
60   {
61     struct
62     {
63       GtkWidget *parent_window;
64       GtkWidget *clip_window;
65     } sub;
66     struct
67     {
68       GtkWidget *clip_window;
69       Lisp_Object widget;
70       guint x_offset;
71       guint y_offset;
72       gboolean added_to_fixed;
73     } wid;
74   } data;
75 };
76
77 void init_image_instance_from_gdk_pixmap (struct Lisp_Image_Instance *ii,
78                                           struct device *device,
79                                           GdkPixmap *gdk_pixmap,
80                                           int dest_mask,
81                                           Lisp_Object instantiator);
82
83 #define GTK_IMAGE_INSTANCE_DATA(i) ((struct gtk_image_instance_data *) (i)->data)
84
85 #define IMAGE_INSTANCE_GTK_PIXMAP(i) (GTK_IMAGE_INSTANCE_DATA (i)->pixmaps[0])
86 #define IMAGE_INSTANCE_GTK_PIXMAP_SLICE(i,slice) \
87      (GTK_IMAGE_INSTANCE_DATA (i)->pixmaps[slice])
88 #define IMAGE_INSTANCE_GTK_PIXMAP_SLICES(i) \
89      (GTK_IMAGE_INSTANCE_DATA (i)->pixmaps)
90 #define IMAGE_INSTANCE_GTK_MASK(i) (GTK_IMAGE_INSTANCE_DATA (i)->mask)
91 #define IMAGE_INSTANCE_GTK_CURSOR(i) (GTK_IMAGE_INSTANCE_DATA (i)->cursor)
92 #define IMAGE_INSTANCE_GTK_COLORMAP(i) (GTK_IMAGE_INSTANCE_DATA (i)->colormap)
93 #define IMAGE_INSTANCE_GTK_PIXELS(i) (GTK_IMAGE_INSTANCE_DATA (i)->pixels)
94 #define IMAGE_INSTANCE_GTK_NPIXELS(i) (GTK_IMAGE_INSTANCE_DATA (i)->npixels)
95
96 #define XIMAGE_INSTANCE_GTK_PIXMAP(i) \
97   IMAGE_INSTANCE_GTK_PIXMAP (XIMAGE_INSTANCE (i))
98 #define XIMAGE_INSTANCE_GTK_PIXMAP_SLICE(i) \
99   IMAGE_INSTANCE_GTK_PIXMAP_SLICE (XIMAGE_INSTANCE (i))
100 #define XIMAGE_INSTANCE_GTK_PIXMAP_SLICES(i) \
101   IMAGE_INSTANCE_GTK_PIXMAP_SLICES (XIMAGE_INSTANCE (i))
102 #define XIMAGE_INSTANCE_GTK_MASK(i) \
103   IMAGE_INSTANCE_GTK_MASK (XIMAGE_INSTANCE (i))
104 #define XIMAGE_INSTANCE_GTK_CURSOR(i) \
105   IMAGE_INSTANCE_GTK_CURSOR (XIMAGE_INSTANCE (i))
106 #define XIMAGE_INSTANCE_GTK_PIXELS(i) \
107   IMAGE_INSTANCE_GTK_PIXELS (XIMAGE_INSTANCE (i))
108 #define XIMAGE_INSTANCE_GTK_NPIXELS(i) \
109   IMAGE_INSTANCE_GTK_NPIXELS (XIMAGE_INSTANCE (i))
110
111 /* Subwindow / widget stuff */
112 #define GTK_SUBWINDOW_INSTANCE_DATA(i) ((struct gtk_subwindow_data *) (i)->data)
113
114 #define IMAGE_INSTANCE_GTK_SUBWINDOW_PARENT(i) \
115   (GTK_SUBWINDOW_INSTANCE_DATA (i)->data.sub.parent_window)
116 #define IMAGE_INSTANCE_GTK_CLIPWINDOW(i) \
117   (GTK_SUBWINDOW_INSTANCE_DATA (i)->data.sub.clip_window)
118 #define IMAGE_INSTANCE_GTK_WIDGET_XOFFSET(i) \
119   (GTK_SUBWINDOW_INSTANCE_DATA (i)->data.wid.x_offset)
120 #define IMAGE_INSTANCE_GTK_WIDGET_YOFFSET(i) \
121   (GTK_SUBWINDOW_INSTANCE_DATA (i)->data.wid.y_offset)
122 #define IMAGE_INSTANCE_GTK_WIDGET_LWID(i) \
123   (GTK_SUBWINDOW_INSTANCE_DATA (i)->data.wid.id)
124 #define IMAGE_INSTANCE_GTK_CLIPWIDGET(i) \
125   (GTK_SUBWINDOW_INSTANCE_DATA (i)->data.wid.clip_window)
126 #define IMAGE_INSTANCE_GTK_ALREADY_PUT(i) \
127   (GTK_SUBWINDOW_INSTANCE_DATA (i)->data.wid.added_to_fixed)
128 #define IMAGE_INSTANCE_GTK_SUBWINDOW_ID(i) \
129   ((GdkWindow *) & IMAGE_INSTANCE_SUBWINDOW_ID (i))
130 #define IMAGE_INSTANCE_GTK_WIDGET_ID(i) \
131   ((GtkWidget *) & IMAGE_INSTANCE_SUBWINDOW_ID (i))
132
133 #define XIMAGE_INSTANCE_GTK_SUBWINDOW_PARENT(i) \
134   IMAGE_INSTANCE_GTK_SUBWINDOW_PARENT (XIMAGE_INSTANCE (i))
135 #define XIMAGE_INSTANCE_GTK_SUBWINDOW_DISPLAY(i) \
136   IMAGE_INSTANCE_GTK_SUBWINDOW_DISPLAY (XIMAGE_INSTANCE (i))
137 #define XIMAGE_INSTANCE_GTK_WIDGET_XOFFSET(i) \
138   IMAGE_INSTANCE_GTK_WIDGET_XOFFSET (XIMAGE_INSTANCE (i))
139 #define XIMAGE_INSTANCE_GTK_WIDGET_YOFFSET(i) \
140   IMAGE_INSTANCE_GTK_WIDGET_YOFFSET (XIMAGE_INSTANCE (i))
141 #define XIMAGE_INSTANCE_GTK_WIDGET_LWID(i) \
142   IMAGE_INSTANCE_GTK_WIDGET_LWID (XIMAGE_INSTANCE (i))
143 #define XIMAGE_INSTANCE_GTK_CLIPWIDGET(i) \
144   IMAGE_INSTANCE_GTK_CLIPWIDGET (XIMAGE_INSTANCE (i))
145 #define XIMAGE_INSTANCE_GTK_CLIPWINDOW(i) \
146   IMAGE_INSTANCE_GTK_CLIPWINDOW (XIMAGE_INSTANCE (i))
147 #define XIMAGE_INSTANCE_GTK_WIDGET_ID(i) \
148   IMAGE_INSTANCE_GTK_WIDGET_ID (XIMAGE_INSTANCE (i))
149
150 #define DOMAIN_GTK_WIDGET(domain) \
151   ((IMAGE_INSTANCEP (domain) && \
152   GTK_SUBWINDOW_INSTANCE_DATA (XIMAGE_INSTANCE (domain))) ? \
153    XIMAGE_INSTANCE_GTK_WIDGET_ID (domain) : \
154    FRAME_GTK_CONTAINER_WIDGET (f) (DOMAIN_XFRAME (domain)))
155
156 #endif /* HAVE_GTK */
157 #endif /* _XEMACS_GLYPHS_GTK_H_ */