goocanvas 0.90.6

data/ext/goocanvas/rbgoocanvasrect.c

@@ -0,0 +1,47 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/* $Id: rbgoocanvasrect.c 3288 2008-09-13 10:07:44Z ktou $ */
+/* GooCanvasRect
+ * Copyright (C) 2007 Vincent Isambart <vincent.isambart@gmail.com>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+
+#include "rbgoocanvas.h"
+
+static VALUE
+rb_goo_canvas_rect_new(VALUE self, VALUE parent, VALUE x, VALUE y,
+                       VALUE width, VALUE height)
+{
+    GooCanvasItem *item;
+    item = goo_canvas_rect_new(RVAL2GCI(parent),
+                               NUM2DBL(x),
+                               NUM2DBL(y),
+                               NUM2DBL(width),
+                               NUM2DBL(height),
+                               NULL);
+    RB_GOO_CANVAS_ITEM_INITIALIZE(self, item);
+    G_CHILD_ADD(parent, self);
+    return Qnil;
+}
+
+void
+Init_goocanvasrect(void)
+{
+    VALUE GooCanvasRect;
+
+    GooCanvasRect = G_DEF_CLASS(GOO_TYPE_CANVAS_RECT, "CanvasRect", mGoo);
+
+    rb_define_method(GooCanvasRect, "initialize", rb_goo_canvas_rect_new, 5);
+}

data/ext/goocanvas/rbgoocanvasstyle.c

@@ -0,0 +1,61 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/* $Id: rbgoocanvasstyle.c 3288 2008-09-13 10:07:44Z ktou $ */
+/* GooCanvasStyle
+ * Copyright (C) 2007 Vincent Isambart <vincent.isambart@gmail.com>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+
+#include "rbgoocanvas.h"
+
+static VALUE
+rb_goo_canvas_style_new(VALUE self)
+{
+    G_INITIALIZE(self, goo_canvas_style_new());
+    return Qnil;
+}
+
+/* TODO: make it more generic, with maybe some part in Ruby */
+static VALUE
+rb_goo_canvas_style_set_fill_pattern(VALUE self, VALUE value)
+{
+    GValue gval = {0,};
+    cairo_pattern_t *pattern;
+
+    g_value_init(&gval, GOO_TYPE_CAIRO_PATTERN);
+    pattern = RVAL2CRPATTERN(value);
+    g_value_take_boxed(&gval, pattern);
+    goo_canvas_style_set_property(RVAL2GCS(self),
+                                  goo_canvas_style_fill_pattern_id,
+                                  &gval);
+    g_value_unset(&gval);
+
+    G_CHILD_SET(self, rb_intern("fill_pattern"), value);
+    return self;
+}
+
+void
+Init_goocanvasstyle(void)
+{
+    VALUE GooCanvasStyle;
+
+    GooCanvasStyle = G_DEF_CLASS(GOO_TYPE_CANVAS_STYLE, "CanvasStyle", mGoo);
+
+    rb_define_method(GooCanvasStyle, "initialize", rb_goo_canvas_style_new, 0);
+    rb_define_method(GooCanvasStyle, "set_fill_pattern",
+                     rb_goo_canvas_style_set_fill_pattern, 1);
+    
+    G_DEF_SETTERS(GooCanvasStyle);
+}

data/ext/goocanvas/rbgoocanvastable.c

@@ -0,0 +1,41 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/* $Id: rbgoocanvastable.c 3288 2008-09-13 10:07:44Z ktou $ */
+/* GooCanvasTable
+ * Copyright (C) 2007 Vincent Isambart <vincent.isambart@gmail.com>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+
+#include "rbgoocanvas.h"
+
+static VALUE
+rb_goo_canvas_table_new(VALUE self, VALUE parent)
+{
+    GooCanvasItem *item;
+    item = goo_canvas_table_new(RVAL2GCI(parent), NULL);
+    RB_GOO_CANVAS_ITEM_INITIALIZE(self, item);
+    G_CHILD_ADD(parent, self);
+    return Qnil;
+}
+
+void
+Init_goocanvastable(void)
+{
+    VALUE GooCanvasTable;
+
+    GooCanvasTable = G_DEF_CLASS(GOO_TYPE_CANVAS_TABLE, "CanvasTable", mGoo);
+
+    rb_define_method(GooCanvasTable, "initialize", rb_goo_canvas_table_new, 1);
+}

data/ext/goocanvas/rbgoocanvastext.c

@@ -0,0 +1,58 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/* $Id: rbgoocanvastext.c 3288 2008-09-13 10:07:44Z ktou $ */
+/* GooCanvasText
+ * Copyright (C) 2007 Vincent Isambart <vincent.isambart@gmail.com>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+
+#include "rbgoocanvas.h"
+
+static VALUE
+rb_goo_canvas_text_new(VALUE self, VALUE parent, VALUE string,
+                       VALUE x, VALUE y, VALUE width, VALUE anchor)
+{
+    GooCanvasItem *item;
+    item = goo_canvas_text_new(RVAL2GCI(parent),
+                               NIL_P(string) ? NULL : StringValueCStr(string),
+                               NUM2DBL(x),
+                               NUM2DBL(y),
+                               NUM2DBL(width),
+                               RVAL2GENUM(anchor, GTK_TYPE_ANCHOR_TYPE),
+                               NULL);
+    RB_GOO_CANVAS_ITEM_INITIALIZE(self, item);
+    G_CHILD_ADD(parent, self);
+    return Qnil;
+}
+
+void
+Init_goocanvastext(void)
+{
+    VALUE GooCanvasText;
+
+    GooCanvasText = G_DEF_CLASS(GOO_TYPE_CANVAS_TEXT, "CanvasText", mGoo);
+
+    rb_define_method(GooCanvasText, "initialize", rb_goo_canvas_text_new, 6);
+
+#if 0
+   GooCanvasItemModel* goo_canvas_text_model_new (GooCanvasItemModel *parent,
+   					       const char         *string,
+   					       gdouble             x,
+   					       gdouble             y,
+   					       gdouble             width,
+   					       GtkAnchorType       anchor,
+   					       ...);
+#endif
+}

data/ext/goocanvas/rbgoocanvaswidget.c

@@ -0,0 +1,48 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/* $Id: rbgoocanvaswidget.c 3288 2008-09-13 10:07:44Z ktou $ */
+/* GooCanvasWidget
+ * Copyright (C) 2007 Vincent Isambart <vincent.isambart@gmail.com>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+
+#include "rbgoocanvas.h"
+
+static VALUE
+rb_goo_canvas_widget_new(VALUE self, VALUE parent, VALUE widget,
+                         VALUE x, VALUE y, VALUE width, VALUE height)
+{
+    GooCanvasItem *item;
+    item = goo_canvas_widget_new(RVAL2GCI(parent),
+                                 RVAL2GTK_WIDGET(widget),
+                                 NUM2DBL(x),
+                                 NUM2DBL(y),
+                                 NUM2DBL(width),
+                                 NUM2DBL(height),
+                                 NULL);
+    RB_GOO_CANVAS_ITEM_INITIALIZE(self, item);
+    G_CHILD_ADD(parent, self);
+    return Qnil;
+}
+
+void
+Init_goocanvaswidget(void)
+{
+    VALUE GooCanvasWidget;
+
+    GooCanvasWidget = G_DEF_CLASS(GOO_TYPE_CANVAS_WIDGET, "CanvasWidget", mGoo);
+
+    rb_define_method(GooCanvasWidget, "initialize", rb_goo_canvas_widget_new, 6);
+}

data/ext/goocanvas/rbgooutils.c

@@ -0,0 +1,44 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/* $Id: rbgooutils.c 3426 2008-11-01 14:20:52Z ktou $ */
+/* Utility functions
+ * Copyright (C) 2007 Vincent Isambart <vincent.isambart@gmail.com>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+
+#include "rbgoocanvas.h"
+
+GooCanvasBounds *
+ruby_to_goo_canvas_bounds(VALUE rb_bounds, GooCanvasBounds *dest_bounds)
+{
+    if (rb_bounds == Qnil)
+        return NULL;
+
+    if (TYPE(rb_bounds) != T_ARRAY) {
+        VALUE rb_array;
+        rb_array = rb_funcall(rb_bounds, rb_intern("to_a"), 0);
+        return ruby_to_goo_canvas_bounds(rb_array, dest_bounds);
+    }
+    
+    if (RARRAY_LEN(rb_bounds) != 4)
+        rb_raise(rb_eRuntimeError, "Bounds must be arrays of length 4");
+    
+    dest_bounds->x1 = NUM2DBL(RARRAY_PTR(rb_bounds)[0]);
+    dest_bounds->y1 = NUM2DBL(RARRAY_PTR(rb_bounds)[1]);
+    dest_bounds->x2 = NUM2DBL(RARRAY_PTR(rb_bounds)[2]);
+    dest_bounds->y2 = NUM2DBL(RARRAY_PTR(rb_bounds)[3]);
+
+    return dest_bounds;
+}

data/ext/goocanvas/ruby-goocanvas.pc

@@ -0,0 +1,3 @@
+Name: Ruby/GooCanvas
+Description: Ruby bindings for A GTK+ canvas widget using cairo
+Version: 0.90.6

data/extconf.rb

@@ -0,0 +1,49 @@
+#!/usr/bin/env ruby
+
+require 'pathname'
+require 'mkmf'
+require 'rbconfig'
+require 'fileutils'
+
+package = "goocanvas"
+
+base_dir = Pathname(__FILE__).dirname.expand_path
+ext_dir = base_dir + "ext" + package
+mkmf_gnome2_dir = base_dir + 'lib'
+
+ruby = File.join(RbConfig::CONFIG['bindir'],
+                 RbConfig::CONFIG['ruby_install_name'] +
+                 RbConfig::CONFIG["EXEEXT"])
+
+build_dir = Pathname("ext") + package
+FileUtils.mkdir_p(build_dir.to_s) unless build_dir.exist?
+extconf_rb_path = ext_dir + "extconf.rb"
+system(ruby, "-C", build_dir.to_s, extconf_rb_path.to_s, *ARGV) || exit(false)
+
+create_makefile(package)
+FileUtils.mv("Makefile", "Makefile.lib")
+
+File.open("Makefile", "w") do |makefile|
+  makefile.puts(<<-EOM)
+all:
+	(cd ext/#{package} && $(MAKE))
+	$(MAKE) -f Makefile.lib
+
+install:
+	(cd ext/#{package} && $(MAKE) install)
+	$(MAKE) -f Makefile.lib install
+
+site-install:
+	(cd ext/#{package} && $(MAKE) site-install)
+	$(MAKE) -f Makefile.lib site-install
+
+clean:
+	(cd ext/#{package} && $(MAKE) clean)
+	$(MAKE) -f Makefile.lib clean
+
+distclean:
+	(cd ext/#{package} && $(MAKE) distclean)
+	$(MAKE) -f Makefile.lib distclean
+	@rm -f Makefile.lib
+EOM
+end

data/lib/goocanvas.rb

@@ -0,0 +1,145 @@
+require 'gtk2'
+require 'cairo'
+require 'goocanvas.so'
+
+module Goo
+  LOG_DOMAIN="Goo"
+  
+  def self.args_to_hash(args)
+    hash = args.pop if args.last.respond_to?(:to_hash)
+    hash ||= Hash.new
+    (args.length/2).times do |i|
+      key_index, value_index = i*2, i*2+1
+      hash[args[key_index]] = args[value_index]
+    end
+    hash
+  end
+  
+  module PropsInit
+    def init_props(*args)
+      hash = Goo.args_to_hash(args)
+      hash.each_pair { |key, value| set_property(key.to_s.gsub(/-/, '_').to_sym, value) }
+    end
+    
+    def self.append_features(klass)
+      super
+      arity = klass.instance_method(:initialize).arity
+      raise 'the initialize method of a class including PropsInit must have a fixed arity' if arity < 0
+      args_list = (1..arity).collect { |i| "param#{i}" }.join(", ")
+      klass.module_eval <<-END
+        alias :_initialize :initialize
+        def initialize(#{args_list}, *args)
+          _initialize(#{args_list})
+          init_props(*args)
+        end
+        
+        alias :_set_property :set_property
+        def set_property(prop_name, value)
+          pspec = self.class.property(prop_name)
+          value = value.to_goo if pspec.value_type.name =~ /^GooCairo/ and value.respond_to?(:to_goo)
+          _set_property(prop_name, value)
+        end        
+      END
+    end
+  end
+
+  module CanvasItem
+    def set_child_properties(child, *args)
+      hash = Goo.args_to_hash(args)
+      hash.each_pair { |key, value| set_child_property(child, key, value) }
+    end
+    
+    def bounds
+      [x1, x2, y1, y2]
+    end
+    
+    def width
+      x2 - x1
+    end
+    
+    def height
+      y2 - y1
+    end
+    
+    def x
+      x1
+    end
+    
+    def y
+      y1
+    end
+  end
+
+  class CanvasText
+    include PropsInit
+  end
+
+  class CanvasRect
+    include PropsInit
+  end
+
+  class CanvasEllipse
+    include PropsInit
+  end
+
+  class CanvasPolyline
+    include PropsInit
+    def initialize(parent, close_path, points, *args)
+      _initialize(parent, close_path)
+      set_points(points)
+      init_props(*args)
+    end
+    
+    def set_points(points)
+      points = CanvasPoints.new(points) unless points.instance_of?(CanvasPoints)
+      set_property(:points, points)
+    end
+    alias :points= :set_points
+    
+    def self.new_line(parent, x1, y1, x2, y2, *args)
+      self.new(parent, false, [ x1, y1, x2, y2 ], *args)
+    end
+  end
+  
+  class CanvasPoints
+    alias :_initialize :initialize
+    def initialize(arg)
+      if arg.respond_to?(:to_ary)
+        points = arg.flatten
+        num_points = points.length / 2
+        _initialize(num_points)
+        num_points.times { |i| self[i] = [ points[i*2], points[i*2+1] ] }
+      else
+        _initialize(arg)
+      end
+    end
+    
+    def each
+      num_points.times { |i| yield self[i] }
+    end
+
+    def to_a
+      a = []
+      each { |e| a.push(e) }
+      a
+    end
+  end
+
+  class CanvasTable
+    include PropsInit
+  end
+
+  class CanvasGroup
+    include PropsInit
+  end
+
+  class CanvasWidget
+    include PropsInit
+  end
+
+  class CanvasImage
+    include PropsInit
+  end
+end
+
+GLib::Log.set_log_domain(Goo::LOG_DOMAIN)