Mercurial > hg > xemacs-beta
annotate src/ui-gtk.h @ 776:79940b592197
[xemacs-hg @ 2002-03-15 07:43:14 by ben]
.cvsignore: ignore .tmp files that are getting auto-created by VC.
Makefile.in.in: Use -no-packages to avoid problems with package files shadowing
core files (e.g. unicode.el in mule-ucs).
alloc.c, emacs.c, lisp.h: add new -no-packages. make sure list of args for sorting is
actually correct. clean up arg parsing code.
xemacs.mak: Use -no-packages to avoid problems with package files shadowing
core files (e.g. unicode.el in mule-ucs).
Makefile: Use -no-packages to avoid problems with package files shadowing
core files (e.g. unicode.el in mule-ucs).
mule\chinese.el, mule\japan-util.el: fix warnings.
behavior-defs.el: fix errors with require.
bytecomp-runtime.el: add new funs {when,and}-{f}boundp, clean up docs.
cus-edit.el: pretty-print values.
dump-paths.el, find-paths.el, startup.el, setup-paths.el: fix problems/inconsistencies parsing options. support new
-no-packages option. merge code duplication in dump-paths and
startup.
lisp-mode.el: indent macrolet and labels correctly. update comments about
lisp-indent-function. flet already handled in cl.
apropos.el, auto-save.el, buff-menu.el, cl-extra.el, dragdrop.el, faces.el, files.el, fill.el, font-lock.el, font.el, gtk-faces.el, gui.el, help.el, hyper-apropos.el, info.el, isearch-mode.el, keymap.el, lisp-mnt.el, mouse.el, package-admin.el, package-get.el, printer.el, process.el, resize-minibuffer.el, simple.el, toolbar-items.el, wid-edit.el, win32-native.el: fix warnings.
very-early-lisp.el: update docs.
mule\chinese.el, mule\japan-util.el: fix warnings.
mule\chinese.el, mule\japan-util.el: fix warnings.
behavior-defs.el: fix errors with require.
bytecomp-runtime.el: add new funs {when,and}-{f}boundp, clean up docs.
cus-edit.el: pretty-print values.
dump-paths.el, find-paths.el, startup.el, setup-paths.el: fix problems/inconsistencies parsing options. support new
-no-packages option. merge code duplication in dump-paths and
startup.
lisp-mode.el: indent macrolet and labels correctly. update comments about
lisp-indent-function. flet already handled in cl.
apropos.el, auto-save.el, buff-menu.el, cl-extra.el, dragdrop.el, faces.el, files.el, fill.el, font-lock.el, font.el, gtk-faces.el, gui.el, help.el, hyper-apropos.el, info.el, isearch-mode.el, keymap.el, lisp-mnt.el, mouse.el, package-admin.el, package-get.el, printer.el, process.el, resize-minibuffer.el, simple.el, toolbar-items.el, wid-edit.el, win32-native.el: fix warnings.
very-early-lisp.el: update docs.
mule\chinese.el, mule\japan-util.el: fix warnings.
Makefile.in.in: Use -no-packages to avoid problems with package files shadowing
core files (e.g. unicode.el in mule-ucs).
Makefile.in.in: Use -no-packages to avoid problems with package files shadowing
core files (e.g. unicode.el in mule-ucs).
author | ben |
---|---|
date | Fri, 15 Mar 2002 07:43:43 +0000 |
parents | af57a77cbc92 |
children | 2923009caf47 |
rev | line source |
---|---|
462 | 1 /* ui-gtk.h |
2 ** | |
3 ** Description: | |
4 ** | |
5 ** Created by: William M. Perry | |
6 ** Copyright (c) 2000 Aventail Corporation | |
7 ** | |
8 */ | |
9 | |
10 #ifndef __UI_GTK_H__ | |
11 #define __UI_GTK_H__ | |
12 | |
13 /* Encapsulate a foreign function call */ | |
14 #include <gtk/gtk.h> | |
15 #include "sysdll.h" | |
16 #include "lrecord.h" | |
17 | |
18 typedef void (*ffi_actual_function) (void); | |
19 typedef void (*ffi_marshalling_function) (ffi_actual_function, GtkArg *); | |
20 | |
21 #define MAX_GTK_ARGS 100 | |
22 | |
23 typedef struct { | |
24 struct lcrecord_header header; | |
25 GtkType return_type; | |
26 GtkType args[MAX_GTK_ARGS]; | |
27 gint n_args; | |
28 Lisp_Object function_name; | |
29 dll_func function_ptr; | |
30 ffi_marshalling_function marshal; | |
31 } emacs_ffi_data; | |
32 | |
33 DECLARE_LRECORD (emacs_ffi, emacs_ffi_data); | |
34 | |
35 #define XFFI(x) XRECORD (x, emacs_ffi, emacs_ffi_data) | |
36 #define XSETFFI(x,p) XSETRECORD (x, p, emacs_ffi) | |
617 | 37 #define wrap_emacs_ffi(p) wrap_record (p, emacs_ffi) |
462 | 38 #define FFIP(x) RECORDP (x, emacs_ffi) |
39 #define CHECK_FFI(x) CHECK_RECORD (x, emacs_ffi) | |
40 | |
41 /* Encapsulate a GtkObject in Lisp */ | |
42 typedef struct { | |
43 struct lcrecord_header header; | |
44 gboolean alive_p; | |
45 GtkObject *object; | |
46 Lisp_Object plist; | |
47 } emacs_gtk_object_data; | |
48 | |
49 DECLARE_LRECORD (emacs_gtk_object, emacs_gtk_object_data); | |
50 | |
51 #define XGTK_OBJECT(x) XRECORD (x, emacs_gtk_object, emacs_gtk_object_data) | |
52 #define XSETGTK_OBJECT(x,p) XSETRECORD (x, p, emacs_gtk_object) | |
617 | 53 #define wrap_emacs_gtk_object(p) wrap_record (p, emacs_gtk_object) |
462 | 54 #define GTK_OBJECTP(x) RECORDP (x, emacs_gtk_object) |
55 #define CHECK_GTK_OBJECT(x) CHECK_RECORD (x, emacs_gtk_object) | |
56 | |
57 extern Lisp_Object build_gtk_object (GtkObject *obj); | |
58 | |
59 /* Encapsulate a GTK_TYPE_BOXED in lisp */ | |
60 typedef struct { | |
61 struct lcrecord_header header; | |
62 GtkType object_type; | |
63 void *object; | |
64 } emacs_gtk_boxed_data; | |
65 | |
66 DECLARE_LRECORD (emacs_gtk_boxed, emacs_gtk_boxed_data); | |
67 | |
68 #define XGTK_BOXED(x) XRECORD (x, emacs_gtk_boxed, emacs_gtk_boxed_data) | |
69 #define XSETGTK_BOXED(x,p) XSETRECORD (x, p, emacs_gtk_boxed) | |
617 | 70 #define wrap_emacs_gtk_boxed(p) wrap_record (p, emacs_gtk_boxed) |
462 | 71 #define GTK_BOXEDP(x) RECORDP (x, emacs_gtk_boxed) |
72 #define CHECK_GTK_BOXED(x) CHECK_RECORD (x, emacs_gtk_boxed) | |
73 | |
74 #endif /* __UI_GTK_H__ */ |