cgit.sxemacs.org Git - sxemacs/blob - lisp/gdk.el

   1 ;;; gdk.el --- Import GDK functions into SXEmacs
   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 SXEmacs.
   9
  10 ;; SXEmacs is free software: you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation, either version 3 of the License, or
  13 ;; (at your option) any later version.
  14
  15 ;; SXEmacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  22
  23 ;;; Synched up with: Not in FSF
  24
  25 ;;; Commentary:
  26
  27 ;; This file is dumped with SXEmacs.
  28
  29 (eval-and-compile
  30   (require 'gtk-ffi))
  31
  32 (globally-declare-fboundp
  33  '(gtk-import-function-internal gtk-call-function))
  34
  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)