Mercurial > hg > xemacs-beta
diff lisp/gdk.el @ 462:0784d089fdc9 r21-2-46
Import from CVS: tag r21-2-46
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:44:37 +0200 |
parents | |
children | 7039e6323819 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/gdk.el Mon Aug 13 11:44:37 2007 +0200 @@ -0,0 +1,149 @@ +;;; gdk.el --- Import GDK functions into XEmacs + +;; Copyright (C) 2000 Free Software Foundation + +;; Maintainer: William Perry <wmperry@gnu.org> +;; Keywords: extensions, dumped + +;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. + +;;; Synched up with: Not in FSF + +;;; Commentary: + +;; This file is dumped with XEmacs. + +(eval-and-compile + (require 'gtk-ffi)) + +(gtk-import-function nil gdk_set_show_events (gboolean . show_events)) +(gtk-import-function nil gdk_set_use_xshm (gboolean . use_xshm)) +(gtk-import-function GtkString gdk_get_display) +(gtk-import-function nil gdk_flush) +(gtk-import-function nil gdk_beep) + +(gtk-import-function nil gdk_key_repeat_disable) +(gtk-import-function nil gdk_key_repeat_restore) + +(gtk-import-function gint gdk_visual_get_best_depth) +(gtk-import-function GdkVisualType gdk_visual_get_best_type) +(gtk-import-function GdkVisual gdk_visual_get_system) +(gtk-import-function GdkVisual gdk_visual_get_best) +(gtk-import-function GdkVisual gdk_visual_get_best_with_depth (gint . depth)) +(gtk-import-function GdkVisual gdk_visual_get_best_with_type (GdkVisualType . visual_type)) +(gtk-import-function GdkVisual gdk_visual_get_best_with_both + (gint . depth) + (GdkVisualType . visual_type)) + +(gtk-import-function gboolean gdk_window_is_visible (GdkWindow . window)) +(gtk-import-function gboolean gdk_window_is_viewable (GdkWindow . window)) + +(gtk-import-function gboolean gdk_window_set_static_gravities + (GdkWindow . window) + (gboolean . use_static)) + +(gtk-import-function nil gdk_window_set_cursor + (GdkWindow . window) + (GdkCursor . cursor)) + +(gtk-import-function GdkVisual gdk_window_get_visual (GdkWindow . window)) +(gtk-import-function GdkWindowType gdk_window_get_type (GdkWindow . window)) +(gtk-import-function GdkWindow gdk_window_get_parent (GdkWindow . window)) +(gtk-import-function GdkWindow gdk_window_get_toplevel (GdkWindow . window)) +(gtk-import-function GdkEventMask gdk_window_get_events (GdkWindow . window)) +(gtk-import-function none gdk_window_set_events (GdkWindow . window) (GdkEventMask . events)) +(gtk-import-function none gdk_window_set_icon + (GdkWindow . window) + (GdkWindow . icon_window) + (GdkPixmap . pixmap) + (GdkBitmap . mask)) +(gtk-import-function none gdk_window_set_icon_name (GdkWindow . window) (GtkString . name)) +(gtk-import-function none gdk_window_set_group (GdkWindow . window) (GdkWindow . leader)) +(gtk-import-function none gdk_window_set_decorations + (GdkWindow . window) + (GdkWMDecoration . decorations)) +(gtk-import-function none gdk_window_set_functions + (GdkWindow . window) + (GdkWMFunction . functions)) + +;; Cursors are handled by glyphs in XEmacs +;; GCs are handled by faces in XEmacs +;; Pixmaps are handled by glyphs in XEmacs +;; Images are handled by glyphs in XEmacs +;; Colors are handled natively by XEmacs +;; Fonts are handled natively by XEmacs + +(gtk-import-function none gdk_draw_point + (GdkDrawable . drawable) + (GdkGC . gc) + (gint . x) + (gint . y)) +(gtk-import-function none gdk_draw_line + (GdkDrawable . drawable) + (GdkGC . gc) + (gint . x1) + (gint . y1) + (gint . x2) + (gint . y2)) +(gtk-import-function none gdk_draw_rectangle + (GdkDrawable . drawable) + (GdkGC . gc) + (gboolean . filled) + (gint . x) + (gint . y) + (gint . width) + (gint . height)) +(gtk-import-function none gdk_draw_arc + (GdkDrawable . drawable) + (GdkGC . gc) + (gboolean . filled) + (gint . x) + (gint . y) + (gint . width) + (gint . height) + (gint . angle1) + (gint . angle2)) +(gtk-import-function none gdk_draw_string + (GdkDrawable . drawable) + (GdkFont . font) + (GdkGC . gc) + (gint . x) + (gint . y) + (GtkString . string)) +(gtk-import-function none gdk_draw_text + (GdkDrawable . drawable) + (GdkFont . font) + (GdkGC . gc) + (gint . x) + (gint . y) + (GtkString . string) + (gint . text_length)) +(gtk-import-function none gdk_draw_pixmap + (GdkDrawable . drawable) + (GdkGC . gc) + (GdkImage . image) + (gint . xsrc) + (gint . ysrc) + (gint . xdest) + (gint . ydest) + (gint . width) + (gint . height)) + +;; Selections are handled natively by XEmacs + +(provide 'gdk)