[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-adds.c - cells-gtk-cvs@common-lisp.net - mailman3.common-lisp.net

8 Oct 2005

Update of /project/cells-gtk/cvsroot/root/gtk-ffi
In directory common-lisp.net:/tmp/cvs-serv15143/root/gtk-ffi
Modified Files:
    gtk-adds.c 
Log Message:
Added stuff for DrawingArea and GdkColor
Date: Sat Oct  8 16:43:37 2005
Author: pdenno
Index: root/gtk-ffi/gtk-adds.c
diff -u root/gtk-ffi/gtk-adds.c:1.3 root/gtk-ffi/gtk-adds.c:1.4

--- root/gtk-ffi/gtk-adds.c:1.3	Sun May 29 23:16:56 2005
+++ root/gtk-ffi/gtk-adds.c	Sat Oct  8 16:43:37 2005
@@ -39,4 +39,36 @@
   return gtk_tree_iter_copy(&example);
 }
+int gtk_adds_widget_mapped_p (GtkWidget *wid)
+{ 
+    return ((GTK_WIDGET_FLAGS (wid) & GTK_MAPPED) != 0) ? 1 : 0;
+}
+
+int gtk_adds_widget_visible_p (GtkWidget *wid)
+{ 
+    return ((GTK_WIDGET_FLAGS (wid) & GTK_VISIBLE) != 0) ? 1 : 0;
+}
+
+GdkWindow * 
+gtk_adds_widget_window (GtkWidget *wid)
+{
+    return wid->window;
+}
+
+GdkColor *
+gtk_adds_color_new ()
+{
+    return ((GdkColor *)malloc(sizeof(GdkColor)));
+}
+
+void
+gtk_adds_color_set_rgb (GdkColor* color, guint r, guint g, guint b)
+{
+    color->red = r;
+    color->green = g;
+    color->blue = b;
+}
+
+
+

    