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; +}