Mercurial > hg > xemacs-beta
annotate lisp/gdk.el @ 5700:37479d841681
Fix subsetp based on patch by Benson and Steven Mitchell.
Add appropriate short-circuits for null set arguments.
Add tests (mostly from Steven Mitchell) to test suite.
| author | Stephen J. Turnbull <stephen@xemacs.org> |
|---|---|
| date | Mon, 24 Dec 2012 14:12:51 +0900 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 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 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
502
diff
changeset
|
10 ;; XEmacs is free software: you can redistribute it and/or modify it |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
502
diff
changeset
|
11 ;; under the terms of the GNU General Public License as published by the |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
502
diff
changeset
|
12 ;; Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
502
diff
changeset
|
13 ;; option) any later version. |
| 462 | 14 |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
502
diff
changeset
|
15 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
502
diff
changeset
|
16 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
502
diff
changeset
|
17 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
502
diff
changeset
|
18 ;; for more details. |
| 462 | 19 |
| 20 ;; You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
502
diff
changeset
|
21 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 462 | 22 |
| 23 ;;; Synched up with: Not in FSF | |
| 24 | |
| 25 ;;; Commentary: | |
| 26 | |
| 27 ;; This file is dumped with XEmacs. | |
| 28 | |
| 29 (eval-and-compile | |
| 30 (require 'gtk-ffi)) | |
| 31 | |
| 502 | 32 (globally-declare-fboundp |
| 33 '(gtk-import-function-internal gtk-call-function)) | |
| 34 | |
| 462 | 35 (gtk-import-function nil gdk_set_show_events (gboolean . show_events)) |
| 36 (gtk-import-function nil gdk_set_use_xshm (gboolean . use_xshm)) | |
| 37 (gtk-import-function GtkString gdk_get_display) | |
| 38 (gtk-import-function nil gdk_flush) | |
| 39 (gtk-import-function nil gdk_beep) | |
| 40 | |
| 41 (gtk-import-function nil gdk_key_repeat_disable) | |
| 42 (gtk-import-function nil gdk_key_repeat_restore) | |
| 43 | |
| 44 (gtk-import-function gint gdk_visual_get_best_depth) | |
| 45 (gtk-import-function GdkVisualType gdk_visual_get_best_type) | |
| 46 (gtk-import-function GdkVisual gdk_visual_get_system) | |
| 47 (gtk-import-function GdkVisual gdk_visual_get_best) | |
| 48 (gtk-import-function GdkVisual gdk_visual_get_best_with_depth (gint . depth)) | |
| 49 (gtk-import-function GdkVisual gdk_visual_get_best_with_type (GdkVisualType . visual_type)) | |
| 50 (gtk-import-function GdkVisual gdk_visual_get_best_with_both | |
| 51 (gint . depth) | |
| 52 (GdkVisualType . visual_type)) | |
| 53 | |
| 54 (gtk-import-function gboolean gdk_window_is_visible (GdkWindow . window)) | |
| 55 (gtk-import-function gboolean gdk_window_is_viewable (GdkWindow . window)) | |
| 56 | |
| 57 (gtk-import-function gboolean gdk_window_set_static_gravities | |
| 58 (GdkWindow . window) | |
| 59 (gboolean . use_static)) | |
| 60 | |
| 61 (gtk-import-function nil gdk_window_set_cursor | |
| 62 (GdkWindow . window) | |
| 63 (GdkCursor . cursor)) | |
| 64 | |
| 65 (gtk-import-function GdkVisual gdk_window_get_visual (GdkWindow . window)) | |
| 66 (gtk-import-function GdkWindowType gdk_window_get_type (GdkWindow . window)) | |
| 67 (gtk-import-function GdkWindow gdk_window_get_parent (GdkWindow . window)) | |
| 68 (gtk-import-function GdkWindow gdk_window_get_toplevel (GdkWindow . window)) | |
| 69 (gtk-import-function GdkEventMask gdk_window_get_events (GdkWindow . window)) | |
| 70 (gtk-import-function none gdk_window_set_events (GdkWindow . window) (GdkEventMask . events)) | |
| 71 (gtk-import-function none gdk_window_set_icon | |
| 72 (GdkWindow . window) | |
| 73 (GdkWindow . icon_window) | |
| 74 (GdkPixmap . pixmap) | |
| 75 (GdkBitmap . mask)) | |
| 76 (gtk-import-function none gdk_window_set_icon_name (GdkWindow . window) (GtkString . name)) | |
| 77 (gtk-import-function none gdk_window_set_group (GdkWindow . window) (GdkWindow . leader)) | |
| 78 (gtk-import-function none gdk_window_set_decorations | |
| 79 (GdkWindow . window) | |
| 80 (GdkWMDecoration . decorations)) | |
| 81 (gtk-import-function none gdk_window_set_functions | |
| 82 (GdkWindow . window) | |
| 83 (GdkWMFunction . functions)) | |
| 84 | |
| 85 ;; Cursors are handled by glyphs in XEmacs | |
| 86 ;; GCs are handled by faces in XEmacs | |
| 87 ;; Pixmaps are handled by glyphs in XEmacs | |
| 88 ;; Images are handled by glyphs in XEmacs | |
| 89 ;; Colors are handled natively by XEmacs | |
| 90 ;; Fonts are handled natively by XEmacs | |
| 91 | |
| 92 (gtk-import-function none gdk_draw_point | |
| 93 (GdkDrawable . drawable) | |
| 94 (GdkGC . gc) | |
| 95 (gint . x) | |
| 96 (gint . y)) | |
| 97 (gtk-import-function none gdk_draw_line | |
| 98 (GdkDrawable . drawable) | |
| 99 (GdkGC . gc) | |
| 100 (gint . x1) | |
| 101 (gint . y1) | |
| 102 (gint . x2) | |
| 103 (gint . y2)) | |
| 104 (gtk-import-function none gdk_draw_rectangle | |
| 105 (GdkDrawable . drawable) | |
| 106 (GdkGC . gc) | |
| 107 (gboolean . filled) | |
| 108 (gint . x) | |
| 109 (gint . y) | |
| 110 (gint . width) | |
| 111 (gint . height)) | |
| 112 (gtk-import-function none gdk_draw_arc | |
| 113 (GdkDrawable . drawable) | |
| 114 (GdkGC . gc) | |
| 115 (gboolean . filled) | |
| 116 (gint . x) | |
| 117 (gint . y) | |
| 118 (gint . width) | |
| 119 (gint . height) | |
| 120 (gint . angle1) | |
| 121 (gint . angle2)) | |
| 122 (gtk-import-function none gdk_draw_string | |
| 123 (GdkDrawable . drawable) | |
| 124 (GdkFont . font) | |
| 125 (GdkGC . gc) | |
| 126 (gint . x) | |
| 127 (gint . y) | |
| 128 (GtkString . string)) | |
| 129 (gtk-import-function none gdk_draw_text | |
| 130 (GdkDrawable . drawable) | |
| 131 (GdkFont . font) | |
| 132 (GdkGC . gc) | |
| 133 (gint . x) | |
| 134 (gint . y) | |
| 135 (GtkString . string) | |
| 136 (gint . text_length)) | |
| 137 (gtk-import-function none gdk_draw_pixmap | |
| 138 (GdkDrawable . drawable) | |
| 139 (GdkGC . gc) | |
| 140 (GdkImage . image) | |
| 141 (gint . xsrc) | |
| 142 (gint . ysrc) | |
| 143 (gint . xdest) | |
| 144 (gint . ydest) | |
| 145 (gint . width) | |
| 146 (gint . height)) | |
| 147 | |
| 148 ;; Selections are handled natively by XEmacs | |
| 149 | |
| 150 (provide 'gdk) |