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