[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-adds.c

[Peter Denno]

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