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