+
−/* ui-gtk.h
+
−**
+
−** Description: 
+
−**
+
−** Created by: William M. Perry
+
−** Copyright (c) 2000 Aventail Corporation
+
−**
+
−** 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., 51 Franklin Street - Fifth Floor,
+
−** Boston, MA 02111-1301, USA.  */
+
−*/
+
−
+
−#ifndef __UI_GTK_H__
+
−#define __UI_GTK_H__
+
−
+
−/* Encapsulate a foreign function call */
+
−#include <gtk/gtk.h>
+
−#include "sysdll.h"
+
−#include "lrecord.h"
+
−
+
−typedef void (*ffi_actual_function) (void);
+
−typedef void (*ffi_marshalling_function) (ffi_actual_function, GtkArg *);
+
−
+
−#define MAX_GTK_ARGS 100
+
−
+
−typedef struct {
+
−  struct LCRECORD_HEADER header;
+
−  GtkType return_type;
+
−  GtkType args[MAX_GTK_ARGS];
+
−  gint n_args;
+
−  Lisp_Object function_name;
+
−  dll_func function_ptr;
+
−  ffi_marshalling_function marshal;
+
−} emacs_ffi_data;
+
−
+
−DECLARE_LRECORD (emacs_ffi, emacs_ffi_data);
+
−
+
−#define XFFI(x) XRECORD (x, emacs_ffi, emacs_ffi_data)
+
−#define wrap_emacs_ffi(p) wrap_record (p, emacs_ffi)
+
−#define FFIP(x) RECORDP (x, emacs_ffi)
+
−#define CHECK_FFI(x) CHECK_RECORD (x, emacs_ffi)
+
−
+
−/* Encapsulate a GtkObject in Lisp */
+
−typedef struct {
+
−  struct LCRECORD_HEADER header;
+
−  gboolean alive_p;
+
−  GtkObject *object;
+
−  Lisp_Object plist;
+
−} emacs_gtk_object_data;
+
−
+
−DECLARE_LRECORD (emacs_gtk_object, emacs_gtk_object_data);
+
−
+
−#define XGTK_OBJECT(x) XRECORD (x, emacs_gtk_object, emacs_gtk_object_data)
+
−#define wrap_emacs_gtk_object(p) wrap_record (p, emacs_gtk_object)
+
−#define GTK_OBJECTP(x) RECORDP (x, emacs_gtk_object)
+
−#define CHECK_GTK_OBJECT(x) CHECK_RECORD (x, emacs_gtk_object)
+
−
+
−extern Lisp_Object build_gtk_object (GtkObject *obj);
+
−
+
−/* Encapsulate a GTK_TYPE_BOXED in lisp */
+
−typedef struct {
+
−  struct LCRECORD_HEADER header;
+
−  GtkType object_type;
+
−  void *object;
+
−} emacs_gtk_boxed_data;
+
−
+
−DECLARE_LRECORD (emacs_gtk_boxed, emacs_gtk_boxed_data);
+
−
+
−#define XGTK_BOXED(x) XRECORD (x, emacs_gtk_boxed, emacs_gtk_boxed_data)
+
−#define wrap_emacs_gtk_boxed(p) wrap_record (p, emacs_gtk_boxed)
+
−#define GTK_BOXEDP(x) RECORDP (x, emacs_gtk_boxed)
+
−#define CHECK_GTK_BOXED(x) CHECK_RECORD (x, emacs_gtk_boxed)
+
−
+
−extern Lisp_Object build_gtk_boxed (void *obj, GtkType t);
+
−
+
−#endif /* __UI_GTK_H__ */