|
462
|
1 ;;; gdk.el --- Import GDK functions into XEmacs
|
|
|
2
|
|
|
3 ;; Copyright (C) 2000 Free Software Foundation
|
|
|
4
|
|
|
5 ;; Maintainer: William Perry <wmperry@gnu.org>
|
|
|
6 ;; Keywords: extensions, dumped
|
|
|
7
|
|
|
8 ;; This file is part of XEmacs.
|
|
|
9
|
|
|
10 ;; XEmacs is free software; you can redistribute it and/or modify it
|
|
|
11 ;; under the terms of the GNU General Public License as published by
|
|
|
12 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
13 ;; any later version.
|
|
|
14
|
|
|
15 ;; XEmacs is distributed in the hope that it will be useful, but
|
|
|
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
18 ;; General Public License for more details.
|
|
|
19
|
|
|
20 ;; You should have received a copy of the GNU General Public License
|
|
|
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
|
|
|
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
|
|
|
23 ;; 02111-1307, USA.
|
|
|
24
|
|
|
25 ;;; Synched up with: Not in FSF
|
|
|
26
|
|
|
27 ;;; Commentary:
|
|
|
28
|
|
|
29 ;; This file is dumped with XEmacs.
|
|
|
30
|
|
|
31 (eval-and-compile
|
|
|
32 (require 'gtk-ffi))
|
|
|
33
|
|
502
|
34 (globally-declare-fboundp
|
|
|
35 '(gtk-import-function-internal gtk-call-function))
|
|
|
36
|
|
462
|
37 (gtk-import-function nil gdk_set_show_events (gboolean . show_events))
|
|
|
38 (gtk-import-function nil gdk_set_use_xshm (gboolean . use_xshm))
|
|
|
39 (gtk-import-function GtkString gdk_get_display)
|
|
|
40 (gtk-import-function nil gdk_flush)
|
|
|
41 (gtk-import-function nil gdk_beep)
|
|
|
42
|
|
|
43 (gtk-import-function nil gdk_key_repeat_disable)
|
|
|
44 (gtk-import-function nil gdk_key_repeat_restore)
|
|
|
45
|
|
|
46 (gtk-import-function gint gdk_visual_get_best_depth)
|
|
|
47 (gtk-import-function GdkVisualType gdk_visual_get_best_type)
|
|
|
48 (gtk-import-function GdkVisual gdk_visual_get_system)
|
|
|
49 (gtk-import-function GdkVisual gdk_visual_get_best)
|
|
|
50 (gtk-import-function GdkVisual gdk_visual_get_best_with_depth (gint . depth))
|
|
|
51 (gtk-import-function GdkVisual gdk_visual_get_best_with_type (GdkVisualType . visual_type))
|
|
|
52 (gtk-import-function GdkVisual gdk_visual_get_best_with_both
|
|
|
53 (gint . depth)
|
|
|
54 (GdkVisualType . visual_type))
|
|
|
55
|
|
|
56 (gtk-import-function gboolean gdk_window_is_visible (GdkWindow . window))
|
|
|
57 (gtk-import-function gboolean gdk_window_is_viewable (GdkWindow . window))
|
|
|
58
|
|
|
59 (gtk-import-function gboolean gdk_window_set_static_gravities
|
|
|
60 (GdkWindow . window)
|
|
|
61 (gboolean . use_static))
|
|
|
62
|
|
|
63 (gtk-import-function nil gdk_window_set_cursor
|
|
|
64 (GdkWindow . window)
|
|
|
65 (GdkCursor . cursor))
|
|
|
66
|
|
|
67 (gtk-import-function GdkVisual gdk_window_get_visual (GdkWindow . window))
|
|
|
68 (gtk-import-function GdkWindowType gdk_window_get_type (GdkWindow . window))
|
|
|
69 (gtk-import-function GdkWindow gdk_window_get_parent (GdkWindow . window))
|
|
|
70 (gtk-import-function GdkWindow gdk_window_get_toplevel (GdkWindow . window))
|
|
|
71 (gtk-import-function GdkEventMask gdk_window_get_events (GdkWindow . window))
|
|
|
72 (gtk-import-function none gdk_window_set_events (GdkWindow . window) (GdkEventMask . events))
|
|
|
73 (gtk-import-function none gdk_window_set_icon
|
|
|
74 (GdkWindow . window)
|
|
|
75 (GdkWindow . icon_window)
|
|
|
76 (GdkPixmap . pixmap)
|
|
|
77 (GdkBitmap . mask))
|
|
|
78 (gtk-import-function none gdk_window_set_icon_name (GdkWindow . window) (GtkString . name))
|
|
|
79 (gtk-import-function none gdk_window_set_group (GdkWindow . window) (GdkWindow . leader))
|
|
|
80 (gtk-import-function none gdk_window_set_decorations
|
|
|
81 (GdkWindow . window)
|
|
|
82 (GdkWMDecoration . decorations))
|
|
|
83 (gtk-import-function none gdk_window_set_functions
|
|
|
84 (GdkWindow . window)
|
|
|
85 (GdkWMFunction . functions))
|
|
|
86
|
|
|
87 ;; Cursors are handled by glyphs in XEmacs
|
|
|
88 ;; GCs are handled by faces in XEmacs
|
|
|
89 ;; Pixmaps are handled by glyphs in XEmacs
|
|
|
90 ;; Images are handled by glyphs in XEmacs
|
|
|
91 ;; Colors are handled natively by XEmacs
|
|
|
92 ;; Fonts are handled natively by XEmacs
|
|
|
93
|
|
|
94 (gtk-import-function none gdk_draw_point
|
|
|
95 (GdkDrawable . drawable)
|
|
|
96 (GdkGC . gc)
|
|
|
97 (gint . x)
|
|
|
98 (gint . y))
|
|
|
99 (gtk-import-function none gdk_draw_line
|
|
|
100 (GdkDrawable . drawable)
|
|
|
101 (GdkGC . gc)
|
|
|
102 (gint . x1)
|
|
|
103 (gint . y1)
|
|
|
104 (gint . x2)
|
|
|
105 (gint . y2))
|
|
|
106 (gtk-import-function none gdk_draw_rectangle
|
|
|
107 (GdkDrawable . drawable)
|
|
|
108 (GdkGC . gc)
|
|
|
109 (gboolean . filled)
|
|
|
110 (gint . x)
|
|
|
111 (gint . y)
|
|
|
112 (gint . width)
|
|
|
113 (gint . height))
|
|
|
114 (gtk-import-function none gdk_draw_arc
|
|
|
115 (GdkDrawable . drawable)
|
|
|
116 (GdkGC . gc)
|
|
|
117 (gboolean . filled)
|
|
|
118 (gint . x)
|
|
|
119 (gint . y)
|
|
|
120 (gint . width)
|
|
|
121 (gint . height)
|
|
|
122 (gint . angle1)
|
|
|
123 (gint . angle2))
|
|
|
124 (gtk-import-function none gdk_draw_string
|
|
|
125 (GdkDrawable . drawable)
|
|
|
126 (GdkFont . font)
|
|
|
127 (GdkGC . gc)
|
|
|
128 (gint . x)
|
|
|
129 (gint . y)
|
|
|
130 (GtkString . string))
|
|
|
131 (gtk-import-function none gdk_draw_text
|
|
|
132 (GdkDrawable . drawable)
|
|
|
133 (GdkFont . font)
|
|
|
134 (GdkGC . gc)
|
|
|
135 (gint . x)
|
|
|
136 (gint . y)
|
|
|
137 (GtkString . string)
|
|
|
138 (gint . text_length))
|
|
|
139 (gtk-import-function none gdk_draw_pixmap
|
|
|
140 (GdkDrawable . drawable)
|
|
|
141 (GdkGC . gc)
|
|
|
142 (GdkImage . image)
|
|
|
143 (gint . xsrc)
|
|
|
144 (gint . ysrc)
|
|
|
145 (gint . xdest)
|
|
|
146 (gint . ydest)
|
|
|
147 (gint . width)
|
|
|
148 (gint . height))
|
|
|
149
|
|
|
150 ;; Selections are handled natively by XEmacs
|
|
|
151
|
|
|
152 (provide 'gdk)
|
