dclext-gtk 0.1.0

data/.gitignore

@@ -0,0 +1,4 @@
+ext/Makefile
+ext/mkmf.log
+ext/*.o
+ext/*.so

data/Gemfile

@@ -0,0 +1,4 @@
+source "http://rubygems.org"
+
+# Specify your gem's dependencies in narray_miss.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,34 @@
+RubyDCLExt-Gtk is copyrighted free software by Seiya Nishizawa and GFD
+Dennou Club (http://www.gfd-dennou.org/).
+
+Copyright 2001 (C) Seiya Nishizawa and GFD Dennou Club
+(http://www.gfd-dennou.org/) All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are
+met:
+
+   1. Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+   2. Redistributions in binary form must reproduce the above copyright
+      notice, this list of conditions and the following disclaimer in
+      the documentation and/or other materials provided with the
+      distribution.
+
+THIS SOFTWARE IS PROVIDED BY GFD DENNOU CLUB AND CONTRIBUTORS ``AS IS'' 
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 
+THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL GFD DENNOU CLUB OR
+CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+The views and conclusions contained in the software and documentation
+are those of the authors and should not be interpreted as representing
+official policies, either expressed or implied, of Seiya Nishizawa
+and GFD Dennou Club.

data/README.rdoc

@@ -0,0 +1,41 @@
+= What's RubyDCLExt-Gtk
+
+RubyDCLExt-Gtk is an extension for RubyDCL
+to support extra operation related with Gtk.
+
+
+= RubyDCLExt-Gtk home-page
+
+The URL of the RubyDCLExt-Gtk home-page is:
+  http://ruby.gfd-dennou.org/products/ruby-dclext-gtk/
+
+
+= Requires
+
+* Ruby (http://www.ruby-lang.org/)
+* RubyDCL (http://ruby.gfd-dennou.org/products/ruby-dcl/)
+* Ruby-Gtk2 (http://ruby-gnome2.sourceforge.jp/)
+
+
+= Install
+
+ # gem install dclext-gtk
+
+
+= Copying
+
+See the file LICENSE.txt.
+
+
+= Usage
+
+To use this library, put the following in your script.
+ require 'numru/dclext/gtk'
+
+
+= The Author
+
+Feel free to send comments and bug reports to the author.
+The author's e-mail addess is
+
+ seiya@gfd-dennou.org

data/Rakefile

@@ -0,0 +1 @@
+require "bundler/gem_tasks"

data/dclext-gtk.gemspec

@@ -0,0 +1,26 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+require "numru/dclext/gtk/version"
+
+Gem::Specification.new do |s|
+  s.name        = "dclext-gtk"
+  s.version     = NumRu::DCLExt::Gtk::VERSION
+  s.authors     = ["Seiya Nishizawa"]
+  s.email       = ["seiya@gfd-dennou.org"]
+  s.homepage    = "http://ruby.gfd-dennou.org/products/ruby-dclext-gtk/"
+  s.summary     = %q{Gtk extension for RubyDCL}
+  s.description = %q{RubyDCLExt-Gtk is an extension for RubyDCL to support extra operation related with Gtk.}
+
+  s.rubyforge_project = "dclext-gtk"
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ["lib"]
+  s.extensions << "ext/extconf.rb"
+
+  # specify any dependencies here; for example:
+  #s.add_development_dependency "rspec"
+  #s.add_runtime_dependency "numru/dcl"
+  s.add_runtime_dependency "gtk2"
+end

data/ext/dclext_gtk.c

@@ -0,0 +1,89 @@
+#include <gtk/gtk.h>
+#include <gdk/gdk.h>
+#include "ruby.h"
+
+#define RVAL2GOBJ(obj)  (rbgobj_instance_from_ruby_object(obj))
+#define GOBJ2RVAL(gobj) (rbgobj_ruby_object_from_instance(gobj))
+
+extern gpointer rbgobj_instance_from_ruby_object(VALUE obj);
+extern VALUE rbgobj_ruby_object_from_instance(gpointer instance);
+
+
+static VALUE
+dcl_zgsdrw(self, drawable)
+     VALUE self, drawable;
+{
+  extern void zgsdrw_(GtkWidget*);
+
+  zgsdrw_( GTK_WIDGET(RVAL2GOBJ(drawable)) );
+
+  return Qnil;
+}
+
+static VALUE
+dcl_zgspmp(self, pixmap)
+     VALUE self, pixmap;
+{
+  extern void zgspmp_(GdkPixmap*);
+
+  GdkPixmap *c_pixmap = RVAL2GOBJ(pixmap);
+  g_object_ref(G_OBJECT(c_pixmap));
+  zgspmp_( (c_pixmap) );
+
+  return Qnil;
+}
+
+static VALUE
+dcl_zgqdrw(self)
+     VALUE self;
+{
+  extern GtkWidget *zgqdrw_(void);
+
+  return GOBJ2RVAL(zgqdrw_());
+
+}
+
+static VALUE
+dcl_zgqpmp(self)
+     VALUE self;
+{
+  extern GdkPixmap *zgqpmp_(void);
+
+  return GOBJ2RVAL(zgqpmp_());
+
+}
+
+static VALUE
+r_gtk_version(self)
+     VALUE self;
+{
+  return rb_ary_new3(3,
+		     INT2NUM(gtk_major_version),
+		     INT2NUM(gtk_minor_version),
+		     INT2NUM(gtk_micro_version));
+}
+
+
+void
+Init_gtk()
+{
+
+  VALUE mNumRu, mDCLExt;
+
+  rb_require("gtk2");
+  rb_require("numru/dcl");
+
+  mNumRu = rb_define_module("NumRu");
+  mDCLExt = rb_define_module_under(mNumRu, "DCLExt");
+  
+
+  rb_define_module_function(mDCLExt, "gtk_version", r_gtk_version, 0);
+
+  rb_define_module_function(mDCLExt, "zgsdrw", dcl_zgsdrw, 1);
+  rb_define_module_function(mDCLExt, "zgspmp", dcl_zgspmp, 1);
+
+  rb_define_module_function(mDCLExt, "zgqdrw", dcl_zgqdrw, 0);
+  rb_define_module_function(mDCLExt, "zgqpmp", dcl_zgqpmp, 0);
+
+}
+

data/ext/extconf.rb

@@ -0,0 +1,19 @@
+require "mkmf"
+
+if(xsystem("which cdclconfig"))
+  gtkversion = `cdclconfig --gtkversion`.chop
+  unless $?.exitstatus == 0
+    raise "cdcl was not compiled with gtk"
+  end
+else
+  raise "cannot find cdclconfig"
+end
+
+$CPPFLAGS = `cdclconfig --cflags`.chop + " " + $CPPFLAGS
+unless have_header("gtk/gtk.h")
+  raise "cannot find gtk/gtk.h"
+end
+
+$LDFLAGS = `cdclconfig --ldflags`.chop + " " + $LDFLAGS
+
+create_makefile("numru/dclext/gtk")

data/lib/numru/dclext/gtk.rb

@@ -0,0 +1,2 @@
+require "numru/dcl"
+require "numru/dclext/gtk.so"

data/lib/numru/dclext/gtk/version.rb

@@ -0,0 +1,7 @@
+module NumRu
+  module DCLExt
+    module Gtk
+      VERSION = "0.1.0"
+    end
+  end
+end

data/test/test_get.rb

@@ -0,0 +1,42 @@
+require "test/unit"
+require "fileutils"
+require "numru/dclext/gtk"
+include NumRu
+
+
+class TestGet < Test::Unit::TestCase
+  DUMP_FNAME = ".dclext_test"
+
+  def setup
+    @padding = 2
+
+    @width = 15
+    @height = 10
+
+    DCL.swlset("lwnd", false)
+    DCL.swcset("fname", DUMP_FNAME)
+    DCL.swiset("iwidth", @width)
+    DCL.swiset("iheight", @height)
+    DCL.gropn(4)
+  end
+  def teardown
+    DCL.grcls
+    Dir[DUMP_FNAME+"*.png"].each do |fname|
+      FileUtils.rm(fname)
+    end
+  end
+
+  def test_get_gobj
+    drawing_area = DCLExt.zgqdrw
+    allocation = drawing_area.allocation
+    assert_equal @width+@padding*2, allocation.width
+    assert_equal @height+@padding*2, allocation.height
+
+    pixmap = DCLExt.zgqpmp
+    size = pixmap.size
+    assert_equal @width+@padding*2, size[0]
+    assert_equal @height+@padding*2, size[1]
+  end
+
+end
+

data/test/test_set.rb

@@ -0,0 +1,38 @@
+require "test/unit"
+require "fileutils"
+require "numru/dclext/gtk"
+include NumRu
+
+
+class TestSet < Test::Unit::TestCase
+  DUMP_FNAME = ".dclext_test"
+
+  def setup
+    @padding = 2
+
+    @width = 15
+    @height = 10
+
+    @drawing_area = Gtk::DrawingArea.new
+    @drawing_area.set_size_request(@width+@padding*2, @height+@padding*2)
+    @drawing_area.show
+    window = Gtk::Window.new(Gtk::Window::TOPLEVEL)
+    window.add(@drawing_area)
+    @drawing_area.realize
+    @pixmap = Gdk::Pixmap.new(window.window, @width, @height, -1)
+
+    DCL.zgsdrw(@drawing_area)
+    DCL.zgspmp(@pixmap)
+    DCL.gropn(4)
+  end
+  def teardown
+    DCL.grcls
+  end
+
+  def test_set_gobj
+    assert_equal @drawing_area, DCLExt.zgqdrw
+    assert_equal @pixmap,  DCLExt.zgqpmp
+  end
+
+end
+

metadata

@@ -0,0 +1,91 @@
+--- !ruby/object:Gem::Specification 
+name: dclext-gtk
+version: !ruby/object:Gem::Version 
+  hash: 27
+  prerelease: 
+  segments: 
+  - 0
+  - 1
+  - 0
+  version: 0.1.0
+platform: ruby
+authors: 
+- Seiya Nishizawa
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2012-01-31 00:00:00 Z
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: gtk2
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id001
+description: RubyDCLExt-Gtk is an extension for RubyDCL to support extra operation related with Gtk.
+email: 
+- seiya@gfd-dennou.org
+executables: []
+
+extensions: 
+- ext/extconf.rb
+extra_rdoc_files: []
+
+files: 
+- .gitignore
+- Gemfile
+- LICENSE.txt
+- README.rdoc
+- Rakefile
+- dclext-gtk.gemspec
+- ext/dclext_gtk.c
+- ext/extconf.rb
+- lib/numru/dclext/gtk.rb
+- lib/numru/dclext/gtk/version.rb
+- test/test_get.rb
+- test/test_set.rb
+homepage: http://ruby.gfd-dennou.org/products/ruby-dclext-gtk/
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: dclext-gtk
+rubygems_version: 1.8.11
+signing_key: 
+specification_version: 3
+summary: Gtk extension for RubyDCL
+test_files: 
+- test/test_get.rb
+- test/test_set.rb