git.chise.org Git - chise/xemacs-chise.git.1/blob - lisp/gdk.el

   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
  34 (gtk-import-function nil gdk_set_show_events (gboolean . show_events))
  35 (gtk-import-function nil gdk_set_use_xshm (gboolean . use_xshm))
  36 (gtk-import-function GtkString gdk_get_display)
  37 (gtk-import-function nil gdk_flush)
  38 (gtk-import-function nil gdk_beep)
  39
  40 (gtk-import-function nil gdk_key_repeat_disable)
  41 (gtk-import-function nil gdk_key_repeat_restore)
  42
  43 (gtk-import-function gint gdk_visual_get_best_depth)
  44 (gtk-import-function GdkVisualType gdk_visual_get_best_type)
  45 (gtk-import-function GdkVisual gdk_visual_get_system)
  46 (gtk-import-function GdkVisual gdk_visual_get_best)
  47 (gtk-import-function GdkVisual gdk_visual_get_best_with_depth (gint . depth))
  48 (gtk-import-function GdkVisual gdk_visual_get_best_with_type (GdkVisualType . visual_type))
  49 (gtk-import-function GdkVisual gdk_visual_get_best_with_both
  50                      (gint . depth)
  51                      (GdkVisualType . visual_type))
  52
  53 (gtk-import-function gboolean gdk_window_is_visible (GdkWindow . window))
  54 (gtk-import-function gboolean gdk_window_is_viewable (GdkWindow . window))
  55
  56 (gtk-import-function gboolean gdk_window_set_static_gravities
  57                      (GdkWindow . window)
  58                      (gboolean  . use_static))
  59
  60 (gtk-import-function nil gdk_window_set_cursor
  61                      (GdkWindow . window)
  62                      (GdkCursor . cursor))
  63
  64 (gtk-import-function GdkVisual gdk_window_get_visual (GdkWindow . window))
  65 (gtk-import-function GdkWindowType gdk_window_get_type (GdkWindow . window))
  66 (gtk-import-function GdkWindow gdk_window_get_parent (GdkWindow . window))
  67 (gtk-import-function GdkWindow gdk_window_get_toplevel (GdkWindow . window))
  68 (gtk-import-function GdkEventMask gdk_window_get_events (GdkWindow . window))
  69 (gtk-import-function none gdk_window_set_events (GdkWindow . window) (GdkEventMask . events))
  70 (gtk-import-function none gdk_window_set_icon
  71                      (GdkWindow . window)
  72                      (GdkWindow . icon_window)
  73                      (GdkPixmap . pixmap)
  74                      (GdkBitmap . mask))
  75 (gtk-import-function none gdk_window_set_icon_name (GdkWindow . window) (GtkString . name))
  76 (gtk-import-function none gdk_window_set_group (GdkWindow . window) (GdkWindow . leader))
  77 (gtk-import-function none gdk_window_set_decorations
  78                      (GdkWindow . window)
  79                      (GdkWMDecoration . decorations))
  80 (gtk-import-function none gdk_window_set_functions
  81                      (GdkWindow . window)
  82                      (GdkWMFunction . functions))
  83
  84 ;; Cursors are handled by glyphs in XEmacs
  85 ;; GCs are handled by faces in XEmacs
  86 ;; Pixmaps are handled by glyphs in XEmacs
  87 ;; Images are handled by glyphs in XEmacs
  88 ;; Colors are handled natively by XEmacs
  89 ;; Fonts are handled natively by XEmacs
  90
  91 (gtk-import-function none gdk_draw_point
  92                      (GdkDrawable . drawable)
  93                      (GdkGC . gc)
  94                      (gint . x)
  95                      (gint . y))
  96 (gtk-import-function none gdk_draw_line
  97                      (GdkDrawable . drawable)
  98                      (GdkGC . gc)
  99                      (gint . x1)
 100                      (gint . y1)
 101                      (gint . x2)
 102                      (gint . y2))
 103 (gtk-import-function none gdk_draw_rectangle
 104                      (GdkDrawable . drawable)
 105                      (GdkGC . gc)
 106                      (gboolean . filled)
 107                      (gint . x)
 108                      (gint . y)
 109                      (gint . width)
 110                      (gint . height))
 111 (gtk-import-function none gdk_draw_arc
 112                      (GdkDrawable . drawable)
 113                      (GdkGC . gc)
 114                      (gboolean . filled)
 115                      (gint . x)
 116                      (gint . y)
 117                      (gint . width)
 118                      (gint . height)
 119                      (gint . angle1)
 120                      (gint . angle2))
 121 (gtk-import-function none gdk_draw_string
 122                      (GdkDrawable . drawable)
 123                      (GdkFont     . font)
 124                      (GdkGC       . gc)
 125                      (gint        . x)
 126                      (gint        . y)
 127                      (GtkString   . string))
 128 (gtk-import-function none gdk_draw_text
 129                      (GdkDrawable . drawable)
 130                      (GdkFont     . font)
 131                      (GdkGC       . gc)
 132                      (gint        . x)
 133                      (gint        . y)
 134                      (GtkString   . string)
 135                      (gint        . text_length))
 136 (gtk-import-function none gdk_draw_pixmap
 137                      (GdkDrawable . drawable)
 138                      (GdkGC       . gc)
 139                      (GdkImage    . image)
 140                      (gint        . xsrc)
 141                      (gint        . ysrc)
 142                      (gint        . xdest)
 143                      (gint        . ydest)
 144                      (gint        . width)
 145                      (gint        . height))
 146
 147 ;; Selections are handled natively by XEmacs
 148
 149 (provide 'gdk)