Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv15697/root/gtk-ffi
Modified Files: gtk-adds.c Log Message: Added some asm -export stuff used in the creation of the win32 .dll (and ignored in linux). Date: Fri Nov 18 05:31:29 2005 Author: pdenno
Index: root/gtk-ffi/gtk-adds.c diff -u root/gtk-ffi/gtk-adds.c:1.4 root/gtk-ffi/gtk-adds.c:1.5 --- root/gtk-ffi/gtk-adds.c:1.4 Sat Oct 8 16:43:37 2005 +++ root/gtk-ffi/gtk-adds.c Fri Nov 18 05:31:27 2005 @@ -1,6 +1,18 @@
#include <gtk/gtk.h>
+asm (".section .drectve"); +asm (".ascii "-export:gtk_adds_text_iter_new""); +asm (".ascii " -export:gtk_adds_text_view_popup_menu""); +asm (".ascii " -export:gtk_adds_dialog_vbox""); +asm (".ascii " -export:gtk_adds_tree_iter_new""); +asm (".ascii " -export:gtk_adds_widget_mapped_p""); +asm (".ascii " -export:gtk_adds_widget_visible_p""); +asm (".ascii " -export:gtk_adds_widget_window""); +asm (".ascii " -export:gtk_adds_color_new""); +asm (".ascii " -export:gtk_adds_color_set_rgb""); +asm (".ascii " -export:gtk_adds_ok""); + /* Return a pointer to the vbox of a dialog. * Useful for adding widgets to dialogs. For example, * if you need a dialog with text entry capability. @@ -15,6 +27,7 @@ * Useful if you need to add to the default textview menu * on a populate-popup event. */ + GtkWidget * gtk_adds_text_view_popup_menu (GtkWidget *text_view) { @@ -32,6 +45,7 @@
/* C programmers allocate iters on the stack. We use this. Free it with gtk-tree-iter-free */ + GtkTreeIter * gtk_adds_tree_iter_new () { @@ -69,6 +83,11 @@ color->blue = b; }
- +/* You can run this one without having gtk running, to be sure the library was loaded. */ +int +gtk_adds_ok () +{ + return 1; +}