gtk2 0.20.0

data/src/rbgdkatom.c

@@ -0,0 +1,122 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbgdkatom.c -
+
+  $Author: sakai $
+  $Date: 2007/07/15 15:03:11 $
+
+  Copyright (C) 2002,2003 Masao Mutoh
+************************************************/
+
+
+#include "global.h"
+
+#define _SELF(a) (((GdkAtomData*)RVAL2BOXED(a, GDK_TYPE_ATOM))->atom)
+
+/*****************************************/
+GdkAtomData*
+gdk_atom_copy (const GdkAtom atom)
+{
+    GdkAtomData* data;
+    data = g_new(GdkAtomData, 1);
+    data->atom = atom;
+    return data;
+}
+
+GType
+gdk_atom_get_type (void)
+{
+    static GType our_type = 0;
+    if (our_type == 0)
+        our_type = g_boxed_type_register_static ("GdkAtomData",
+                                                 (GBoxedCopyFunc)gdk_atom_copy,
+                                                 (GBoxedFreeFunc)g_free);
+    return our_type;
+}
+
+
+GdkAtom
+get_gdkatom(atom)
+    VALUE atom;
+{
+    if (TYPE(atom) == T_STRING)
+        return gdk_atom_intern(RVAL2CSTR(atom), FALSE);
+    return ((GdkAtomData*)RVAL2BOXED(atom, GDK_TYPE_ATOM))->atom;
+}
+/*****************************************/
+
+static VALUE
+gdkatom_s_intern(argc, argv, self)
+    int argc;
+    VALUE *argv;
+    VALUE self;
+{
+    VALUE name;
+    VALUE exist;
+  
+    rb_scan_args(argc, argv, "11", &name, &exist);
+
+    return BOXED2RVAL(gdk_atom_intern(RVAL2CSTR(name), RVAL2CBOOL(exist)), 
+                      GDK_TYPE_ATOM);
+}
+
+/* We don't need them.
+GdkAtom gdk_atom_intern_static_string(const gchar *atom_name);
+ */
+
+static VALUE
+gdkatom_initialize(self, num)
+    VALUE self, num;
+{
+    guint atom = FIX2INT(num);
+    if (atom == 0){
+        /* This is a trick for passing 0(NULL) */
+        G_INITIALIZE(self, GUINT_TO_POINTER(1));
+        _SELF(self) = GUINT_TO_POINTER(GDK_NONE);
+    } else {
+        G_INITIALIZE(self, GUINT_TO_POINTER(atom));
+    }
+
+    return Qnil;
+}
+
+static VALUE
+gdkatom_name(self)
+    VALUE self;
+{
+    return CSTR2RVAL2(gdk_atom_name(_SELF(self)));
+}
+
+static VALUE
+gdkatom_to_i(self)
+    VALUE self;
+{
+    return UINT2NUM(GPOINTER_TO_UINT(_SELF(self)));
+}
+
+static VALUE
+gdkatom_eq(self, other)
+    VALUE self, other;
+{
+    return CBOOL2RVAL(_SELF(self) == _SELF(other));
+}
+
+void
+Init_gtk_gdk_atom()
+{
+    VALUE none;
+    VALUE gdkAtom = G_DEF_CLASS(GDK_TYPE_ATOM, "Atom", mGdk);
+
+    rb_define_singleton_method(gdkAtom, "intern", gdkatom_s_intern, -1);
+
+    rb_define_method(gdkAtom, "initialize", gdkatom_initialize, 1);
+    rb_define_method(gdkAtom, "name", gdkatom_name, 0);
+    rb_define_method(gdkAtom, "to_i", gdkatom_to_i, 0);
+    rb_define_method(gdkAtom, "==", gdkatom_eq, 1);
+
+    /* This is a trick to define GDK_NONE as a BOXED object */
+    none = BOXED2RVAL((gpointer)1, GDK_TYPE_ATOM);
+    rb_define_const(gdkAtom, "NONE", none);
+    _SELF(none) = GDK_NONE;
+}           

data/src/rbgdkcairo.c

@@ -0,0 +1,100 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbgdkcairo.c -
+
+  $Author: ktou $
+  $Date: 2007/08/13 11:09:22 $
+
+  Copyright (C) 2005 Kouhei Sutou
+************************************************/
+
+#include "global.h"
+
+#if GTK_CHECK_VERSION(2,8,0) && defined(HAVE_RB_CAIRO_H)
+#  define CAIRO_AVAILABLE 1
+#endif
+
+#ifdef CAIRO_AVAILABLE
+
+#include <rb_cairo.h>
+
+#define _SELF(self) RVAL2CRCONTEXT(self)
+
+static VALUE
+gdkdraw_cairo_set_source_color(self, color)
+    VALUE self, color;
+{
+    gdk_cairo_set_source_color(_SELF(self), RVAL2GDKCOLOR(color));
+    rb_cairo_check_status(cairo_status(_SELF(self)));
+    return self;
+}
+
+/* Move to gdkpixbuf/rbgdk-pixbuf.c
+void gdk_cairo_set_source_pixbuf (cairo_t      *cr,
+				  GdkPixbuf    *pixbuf,
+				  double        pixbuf_x,
+				  double        pixbuf_y);
+*/
+
+
+#if GTK_CHECK_VERSION(2,10,0)
+static VALUE
+gdkdraw_cairo_set_source_pixmap(self, pixmap, pixmap_x, pixmap_y)
+    VALUE self, pixmap, pixmap_x, pixmap_y;
+{
+    gdk_cairo_set_source_pixmap(_SELF(self), GDK_PIXMAP(RVAL2GOBJ(pixmap)),
+                                NUM2DBL(pixmap_x), NUM2DBL(pixmap_y));
+    rb_cairo_check_status(cairo_status(_SELF(self)));
+    return self;
+}
+#endif
+
+static VALUE
+gdkdraw_cairo_rectangle(self, rectangle)
+    VALUE self, rectangle;
+{
+    gdk_cairo_rectangle(_SELF(self), 
+                        (GdkRectangle*)RVAL2BOXED(rectangle, GDK_TYPE_RECTANGLE));
+    rb_cairo_check_status(cairo_status(_SELF(self)));
+    return self;
+}
+
+static VALUE
+gdkdraw_cairo_region(self, region)
+    VALUE self, region;
+{
+    gdk_cairo_region(_SELF(self), (GdkRegion*)RVAL2BOXED(region, GDK_TYPE_REGION));
+    rb_cairo_check_status(cairo_status(_SELF(self)));
+    return self;
+}
+#endif
+
+static VALUE
+cairo_available_p(VALUE self)
+{
+#if CAIRO_AVAILABLE
+    return Qtrue;
+#else
+    return Qfalse;
+#endif
+}
+
+void
+Init_gtk_gdk_cairo()
+{
+#if CAIRO_AVAILABLE
+    rb_define_method(rb_cCairo_Context, "set_source_gdk_color",
+                     gdkdraw_cairo_set_source_color, 1);
+#if GTK_CHECK_VERSION(2,10,0)
+    rb_define_method(rb_cCairo_Context, "set_source_pixmap", gdkdraw_cairo_set_source_pixmap, 3);
+#endif
+    rb_define_method(rb_cCairo_Context, "gdk_rectangle", gdkdraw_cairo_rectangle, 1);
+    rb_define_method(rb_cCairo_Context, "gdk_region", gdkdraw_cairo_region, 1);
+
+    G_DEF_SETTERS(rb_cCairo_Context);
+#endif
+
+    rb_define_module_function(mGdk, "cairo_available?", cairo_available_p, 0);
+}
+

data/src/rbgdkcolor.c

@@ -0,0 +1,151 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbgdkcolor.c -
+
+  $Author: ggc $
+  $Date: 2007/07/13 14:27:08 $
+
+  Copyright (C) 2002,2003 Ruby-GNOME2 Project Team
+  Copyright (C) 1998-2000 Yukihiro Matsumoto,
+                          Daisuke Kanda,
+                          Hiroshi Igarashi
+************************************************/
+
+#include "global.h"
+
+#define _SELF(c) (RVAL2GDKCOLOR(c))
+
+VALUE rb_cGdkColor = Qnil;
+
+static VALUE
+gdkcolor_initialize(self, red, green, blue)
+    VALUE self;
+    VALUE red, green, blue;
+{
+    GdkColor c;
+    c.pixel = 0;
+    c.red = NUM2INT(red);
+    c.green = NUM2INT(green);
+    c.blue = NUM2INT(blue);
+
+    G_INITIALIZE(self, &c);
+
+    return Qnil;
+}
+
+static VALUE
+gdkcolor_s_parse(self, name)
+    VALUE self;
+    VALUE name;
+{
+    GdkColor c;
+    if (! gdk_color_parse(RVAL2CSTR(name), &c)) {
+        rb_raise(rb_eArgError, "can't parse color name `%s'", RVAL2CSTR(name));
+    }
+    return BOXED2RVAL(&c, GDK_TYPE_COLOR);
+}
+
+static VALUE
+gdkcolor_pixel(self)
+    VALUE self;
+{
+    return INT2NUM(_SELF(self)->pixel);
+}
+
+static VALUE
+gdkcolor_red(self)
+    VALUE self;
+{
+
+    return INT2FIX(_SELF(self)->red);
+}
+
+static VALUE
+gdkcolor_set_red(self, red)
+    VALUE self;
+    VALUE red;
+{
+    _SELF(self)->red = NUM2INT(red);
+    return self;
+}
+
+static VALUE
+gdkcolor_green(self)
+    VALUE self;
+{
+    return INT2FIX(_SELF(self)->green);
+}
+
+static VALUE
+gdkcolor_set_green(self, green)
+    VALUE self;
+    VALUE green;
+{
+    _SELF(self)->green = NUM2INT(green);
+    return self;
+}
+
+static VALUE
+gdkcolor_blue(self)
+    VALUE self;
+{
+    return INT2FIX(_SELF(self)->blue);
+}
+
+static VALUE
+gdkcolor_set_blue(self, blue)
+    VALUE self;
+    VALUE blue;
+{
+    _SELF(self)->blue = NUM2INT(blue);
+    return self;
+}
+
+static VALUE
+gdkcolor_to_a(self)
+    VALUE self;
+{
+    GdkColor *c = _SELF(self);
+    return rb_ary_new3(3, INT2FIX(c->red), 
+                       INT2FIX(c->green), INT2FIX(c->blue));
+}
+
+static VALUE
+gdkcolor_equal(self, other)
+    VALUE self, other;
+{
+    return CBOOL2RVAL(gdk_color_equal(_SELF(self), _SELF(other)));
+}
+
+#if GTK_CHECK_VERSION(2, 12, 0)
+static VALUE
+gdkcolor_to_string(VALUE self, VALUE other)
+{
+    return CSTR2RVAL_FREE(gdk_color_to_string(_SELF(self)));
+}
+#endif
+
+void
+Init_gtk_gdk_color()
+{
+    rb_cGdkColor = G_DEF_CLASS(GDK_TYPE_COLOR, "Color", mGdk);
+
+    rb_define_singleton_method(rb_cGdkColor, "parse", gdkcolor_s_parse, 1);
+    rb_define_method(rb_cGdkColor, "initialize", gdkcolor_initialize, 3);
+    rb_define_method(rb_cGdkColor, "pixel", gdkcolor_pixel, 0);
+    rb_define_method(rb_cGdkColor, "red", gdkcolor_red, 0);
+    rb_define_method(rb_cGdkColor, "set_red", gdkcolor_set_red, 1);
+    rb_define_method(rb_cGdkColor, "green", gdkcolor_green, 0);
+    rb_define_method(rb_cGdkColor, "set_green", gdkcolor_set_green, 1);
+    rb_define_method(rb_cGdkColor, "blue", gdkcolor_blue, 0);
+    rb_define_method(rb_cGdkColor, "set_blue", gdkcolor_set_blue, 1);
+    rb_define_method(rb_cGdkColor, "to_a", gdkcolor_to_a, 0);
+    rb_define_method(rb_cGdkColor, "==", gdkcolor_equal, 1);
+#if GTK_CHECK_VERSION(2, 12, 0)
+    rb_define_method(rb_cGdkColor, "to_s", gdkcolor_to_string, 0);
+#endif
+
+    G_DEF_SETTERS(rb_cGdkColor);
+}
+

data/src/rbgdkcolormap.c

@@ -0,0 +1,142 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbgdkcolormap.c -
+
+  $Author: ggc $
+  $Date: 2007/07/13 16:07:31 $
+
+  Copyright (C) 2002,2003 Masao Mutoh
+
+  This file is devided from rbgdkcolor.c.
+  rbgdkcolor.c -
+  Copyright (C) 1998-2000 Yukihiro Matsumoto,
+                          Daisuke Kanda,
+                          Hiroshi Igarashi
+************************************************/
+
+#include "global.h"
+
+#define _SELF(self) (GDK_COLORMAP(RVAL2GOBJ(self)))
+
+static VALUE
+gdkcmap_initialize(self, visual, allocate)
+    VALUE self, visual, allocate;
+{
+    GdkColormap *cmap  = gdk_colormap_new(GDK_VISUAL(RVAL2GOBJ(visual)),
+                                          RVAL2CBOOL(allocate));
+    G_INITIALIZE(self, cmap);
+    return Qnil;
+}
+
+static VALUE
+gdkcmap_s_get_system(self)
+    VALUE self;
+{
+    return GOBJ2RVAL(gdk_colormap_get_system());
+}
+
+/* Don't implement this. Because API is ugly
+   (especially treating of "success"). 
+   Use Gdk::Colormap#alloc_color instead.
+gint        gdk_colormap_alloc_colors       (GdkColormap *colormap,
+                                             GdkColor *colors,
+                                             gint ncolors,
+                                             gboolean writeable,
+                                             gboolean best_match,
+                                             gboolean *success);
+*/
+
+static VALUE
+gdkcmap_alloc_color(self, color, writeable, best_match)
+    VALUE self, color, writeable, best_match;
+{
+    gboolean result;
+    GdkColor *c = RVAL2GDKCOLOR(color);
+    result = gdk_colormap_alloc_color(_SELF(self), c,
+                                      RVAL2CBOOL(writeable), RVAL2CBOOL(best_match));
+    return result ? INT2NUM(c->pixel) : Qnil;
+}
+
+/* Don't implement Gdk::Colormap#free_colors.
+   Because it should be pair with Gdk::Colormap#alloc_colors */
+static VALUE
+gdkcmap_free_color(self, color)
+    VALUE self, color;
+{
+    gdk_colormap_free_colors(_SELF(self), RVAL2GDKCOLOR(color), 1);
+    return self;
+}
+
+static VALUE
+gdkcmap_query_color(self, pixel)
+    VALUE self, pixel;
+{
+    GdkColor color;
+    gdk_colormap_query_color(_SELF(self), NUM2ULONG(pixel), &color);
+    return GDKCOLOR2RVAL(&color);
+}
+
+static VALUE
+gdkcmap_get_visual(self)
+    VALUE self;
+{
+    return GOBJ2RVAL(gdk_colormap_get_visual(_SELF(self)));
+}
+
+#if GTK_CHECK_VERSION(2,2,0)
+static VALUE
+gdkcmap_get_screen(self)
+    VALUE self;
+{
+    return GOBJ2RVAL(gdk_colormap_get_screen(_SELF(self)));
+}
+#endif
+
+static VALUE
+gdkcmap_colors(self)
+    VALUE self;
+{
+    GdkColormap *cmap;
+    GdkColor *colors;
+    GdkVisual *visual;
+    VALUE ary;
+    int i;
+
+    cmap = _SELF(self);
+    colors = cmap->colors;
+
+    visual = gdk_colormap_get_visual(cmap);
+
+    if (visual->type == GDK_VISUAL_GRAYSCALE ||
+          visual->type == GDK_VISUAL_PSEUDO_COLOR) {
+        ary = rb_ary_new2(cmap->size);
+        for (i = 0; i < cmap->size; i++) {
+            rb_ary_push(ary, BOXED2RVAL(colors, GDK_TYPE_COLOR));
+            colors++;
+        }
+        return ary;
+    } else {
+        return Qnil;
+    }
+}
+
+void
+Init_gtk_gdk_colormap()
+{
+    VALUE gdkColormap = G_DEF_CLASS(GDK_TYPE_COLORMAP, "Colormap", mGdk);
+
+    rb_define_singleton_method(gdkColormap, "system",
+                               gdkcmap_s_get_system, 0);
+    rb_define_method(gdkColormap, "initialize", gdkcmap_initialize, 2);
+    rb_define_method(gdkColormap, "alloc_color", gdkcmap_alloc_color, 3);
+    rb_define_method(gdkColormap, "free_color", gdkcmap_free_color, 1);
+    rb_define_method(gdkColormap, "query_color", gdkcmap_query_color, 1);
+    rb_define_method(gdkColormap, "visual", gdkcmap_get_visual, 0);
+#if GTK_CHECK_VERSION(2,2,0)
+    rb_define_method(gdkColormap, "screen", gdkcmap_get_screen, 0);
+#endif
+    rb_define_method(gdkColormap, "colors", gdkcmap_colors, 0);
+}
+
+