gtk2 0.20.0

data/src/rbgtkwindowgroup.c

@@ -0,0 +1,48 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbgtkwindowgroup.c -
+
+  $Author: mutoh $
+  $Date: 2003/01/19 14:28:25 $
+
+  Copyright (C) 2002,2003 Masao Mutoh
+************************************************/
+
+#include "global.h"
+
+static VALUE
+rbgwingrp_initialize(self)
+	VALUE self;
+{
+	G_INITIALIZE(self, gtk_window_group_new());
+	return Qnil;
+}
+
+static VALUE
+rbgwingrp_add_window(self, window)
+	VALUE self, window;
+{
+	gtk_window_group_add_window(GTK_WINDOW_GROUP(RVAL2GOBJ(self)), 
+                                    GTK_WINDOW(RVAL2GOBJ(window)));
+	return self;
+}
+
+static VALUE
+rbgwingrp_remove_window(self, window)
+	VALUE self, window;
+{
+	gtk_window_group_remove_window(GTK_WINDOW_GROUP(RVAL2GOBJ(self)), 
+                                       GTK_WINDOW(RVAL2GOBJ(window)));
+	return self;
+}
+  
+
+void 
+Init_gtk_windowgroup()
+{
+    VALUE gWindowGroup = G_DEF_CLASS(GTK_TYPE_WINDOW_GROUP, "WindowGroup", mGtk);
+    rb_define_method(gWindowGroup, "initialize", rbgwingrp_initialize, 0);
+    rb_define_method(gWindowGroup, "add", rbgwingrp_add_window, 1);
+    rb_define_method(gWindowGroup, "remove", rbgwingrp_remove_window, 1);
+}

data/test/gtk-test-utils.rb

@@ -0,0 +1,15 @@
+require 'tempfile'
+
+module GtkTestUtils
+  private
+  def only_gtk_version(major, minor, micro=nil)
+    micro ||= 0
+    unless Gtk.check_version?(major, minor, micro)
+      omit("Require GTK+ >= #{major}.#{minor}.#{micro}")
+    end
+  end
+
+  def only_x11
+    omit("Only for X11 backend") unless Gdk.windowing_x11?
+  end
+end

data/test/run-test.rb

@@ -0,0 +1,30 @@
+#!/usr/bin/env ruby
+
+ruby_gnome2_base = File.join(File.dirname(__FILE__), "..", "..")
+ruby_gnome2_base = File.expand_path(ruby_gnome2_base)
+
+glib_base = File.join(ruby_gnome2_base, "glib")
+atk_base = File.join(ruby_gnome2_base, "atk")
+pango_base = File.join(ruby_gnome2_base, "pango")
+gdk_pixbuf_base = File.join(ruby_gnome2_base, "gdkpixbuf")
+gtk_base = File.join(ruby_gnome2_base, "gtk")
+
+$LOAD_PATH.unshift(glib_base)
+require 'test/glib-test-init'
+
+[glib_base, atk_base, pango_base, gdk_pixbuf_base, gtk_base].each do |target|
+  if system("which make > /dev/null")
+    `make -C #{target.dump} > /dev/null` or exit(1)
+  end
+  $LOAD_PATH.unshift(File.join(target, "src"))
+  $LOAD_PATH.unshift(File.join(target, "src", "lib"))
+  $LOAD_PATH.unshift(File.join(target))
+  $LOAD_PATH.unshift(File.join(target, "lib"))
+end
+
+$LOAD_PATH.unshift(File.join(gtk_base, "test"))
+require 'gtk-test-utils'
+
+require 'gtk2'
+
+exit Test::Unit::AutoRunner.run(true)

data/test/test_gc.rb

@@ -0,0 +1,25 @@
+require 'test/unit'
+require 'gtk2'
+
+class TestGC < Test::Unit::TestCase
+  priority :must
+  def test_closure
+    10.times do
+      invisible = Gtk::Invisible.new
+      invisible.signal_connect("destroy") {}
+      GC.start
+    end
+  end
+
+  def test_inheritance_and_gc
+    button = Class.new(Gtk::Button)
+    box = Gtk::HBox.new
+    n = 10
+    n.times do
+      box.add(button.new)
+    end
+    GC.start
+    assert_equal([button] * 10,
+                 box.children.collect {|item| item.class})
+  end
+end

data/test/test_gdk.rb

@@ -0,0 +1,18 @@
+class TestGdk < Test::Unit::TestCase
+  include GtkTestUtils
+
+  def test_notify_startup_complete
+    assert_nothing_raised do
+      Gdk.notify_startup_complete
+    end
+
+    notify_with_id = Proc.new do
+      Gdk.notify_startup_complete("startup-id")
+    end
+    if Gtk.check_version?(2, 12, 0)
+      assert_nothing_raised(&notify_with_id)
+    else
+      assert_raise(NotImplementedError, &notify_with_id)
+    end
+  end
+end

data/test/test_gdk_color.rb

@@ -0,0 +1,10 @@
+class TestGdkColor < Test::Unit::TestCase
+  def test_to_s
+    color = Gdk::Color.new(0xffff, 0x1234, 0xabcd)
+    if Gtk.check_version?(2, 12, 0)
+      assert_equal("#ffff1234abcd", color.to_s)
+    else
+      assert_match(/\A#<Gdk::Color:.*>\z/, color.to_s)
+    end
+  end
+end

data/test/test_gdk_display.rb

@@ -0,0 +1,37 @@
+class TestGdkDisplay < Test::Unit::TestCase
+  include GtkTestUtils
+
+  def test_supports_predicates
+    display = Gdk::Display.default
+
+    assert_boolean(display.supports_shapes?)
+    assert_boolean(display.supports_input_shapes?)
+    only_gtk_version(2, 12, 0)
+    assert_boolean(display.supports_composite?)
+  end
+
+  def test_startup_notification_id
+    only_gtk_version(2, 12, 0)
+    only_x11
+
+    display = Gdk::Display.default
+    assert_nil(display.startup_notification_id)
+  end
+
+  def test_broadcast_startup_message
+    omit("Not yet implemented (GNOME bug #528020)")
+    only_gtk_version(2, 16, 0)
+    only_x11
+
+    id = "#{$$}_TIME_#{Time.now.to_i}"
+    screen = Gdk::Screen.default.number.to_s
+    assert_nothing_raised do
+      Gdk::Display.default.broadcast_startup_message("new",
+                                                     "ID" => id,
+                                                     "NAME" => "Hello World",
+                                                     "SCREEN" => screen)
+      Gdk::Display.default.broadcast_startup_message("remove",
+                                                     "ID" => id)
+    end
+  end
+end

data/test/test_gdk_event.rb

@@ -0,0 +1,11 @@
+class TestGdkEvent < Test::Unit::TestCase
+  include GtkTestUtils
+
+  def test_motion_request
+    only_gtk_version(2, 12, 0)
+    motion = Gdk::EventMotion.new
+    assert_nothing_raised do
+      motion.request
+    end
+  end
+end

data/test/test_gdk_gc.rb

@@ -0,0 +1,7 @@
+class TestGdkGC < Test::Unit::TestCase
+  include GtkTestUtils
+
+  def test_constant
+    assert_const_defined(Gdk, :GC)
+  end
+end

data/test/test_gdk_keymap.rb

@@ -0,0 +1,8 @@
+class TestGdkKeymap < Test::Unit::TestCase
+  include GtkTestUtils
+
+  def test_have_bidi_layouts?
+    only_gtk_version(2, 12, 0)
+    assert_boolean(Gdk::Keymap.default.have_bidi_layouts?)
+  end
+end

data/test/test_gdk_pango.rb

@@ -0,0 +1,9 @@
+class TestGdkPango < Test::Unit::TestCase
+  include GtkTestUtils
+
+  def test_emboss_color_attribute
+    only_gtk_version(2, 12, 0)
+    color = Gdk::PangoAttrEmbossColor.new(Gdk::Color.parse("red"))
+    assert_equal([65535, 0, 0], color.value.to_a)
+  end
+end

data/test/test_gdk_selection_data.rb

@@ -0,0 +1,17 @@
+class TestSelectionData < Test::Unit::TestCase
+  def setup
+    @window = Gtk::Invisible.new.window
+  end
+
+  def test_type_integer
+    name = "ID"
+    value = 10
+    Gdk::Property.change(@window, name,
+                         Gdk::Selection::TYPE_INTEGER,
+                         :replace, value)
+    assert_equal([Gdk::Selection::TYPE_INTEGER, [value]],
+                 Gdk::Property.get(@window, name,
+                                   Gdk::Selection::TYPE_INTEGER,
+                                   false)[0, 2])
+  end
+end

data/test/test_gdk_window.rb

@@ -0,0 +1,29 @@
+class TestGdkWindow < Test::Unit::TestCase
+  include GtkTestUtils
+
+  def setup
+    @window = Gtk::Invisible.new.window
+  end
+
+  def test_set_composited
+    only_gtk_version(2, 12, 0)
+    assert_nothing_raised do
+      @window.composited = false
+    end
+  end
+
+  def test_set_opacity
+    only_gtk_version(2, 12, 0)
+    assert_nothing_raised do
+      @window.opacity = 0.5
+    end
+  end
+
+  def test_set_startup_id
+    only_gtk_version(2, 12, 0)
+    assert_nothing_raised do
+      @window.startup_id = "startup-id"
+      @window.startup_id = nil
+    end
+  end
+end

data/test/test_gdk_window_attribute.rb

@@ -0,0 +1,9 @@
+class TestGtkWindowAttribute < Test::Unit::TestCase
+  include GtkTestUtils
+
+  def test_initialize
+    attrs = Gdk::WindowAttr.new(100, 100, :only, :temp)
+    assert_equal([100, 100, Gdk::Window::INPUT_ONLY, Gdk::Window::TEMP],
+                 [attrs.width, attrs.height, attrs.wclass, attrs.window_type])
+  end
+end

data/test/test_gtk_about_dialog.rb

@@ -0,0 +1,14 @@
+class TestGtkAboutDialog < Test::Unit::TestCase
+  include GtkTestUtils
+
+  def setup
+    @dialog = Gtk::AboutDialog.new
+  end
+
+  def test_program_name
+    only_gtk_version(2, 12, 0)
+    assert_equal(File.basename($0), @dialog.program_name)
+    @dialog.program_name = "my-program"
+    assert_equal("my-program", @dialog.program_name)
+  end
+end

data/test/test_gtk_buildable.rb

@@ -0,0 +1,66 @@
+class TestGtkBuildable < Test::Unit::TestCase
+  include GtkTestUtils
+
+  def setup
+    @buildable = Gtk::HBox.new
+  end
+
+  def test_name
+    only_gtk_version(2, 12, 0)
+
+    assert_equal("", @buildable.name)
+    @buildable.name = "YYY"
+    assert_equal("YYY", @buildable.name)
+
+    @buildable.name = nil
+    assert_equal("", @buildable.name)
+  end
+
+  def test_add_child
+    only_gtk_version(2, 12, 0)
+
+    assert_equal([], @buildable.children)
+
+    builder = Gtk::Builder.new
+    entry = Gtk::Entry.new
+    @buildable.add_child(builder, entry)
+    assert_equal([entry], @buildable.children)
+  end
+
+  def test_set_buildable_property
+    only_gtk_version(2, 12, 0)
+
+    assert_nil(@buildable.parent)
+
+    builder = Gtk::Builder.new
+    parent = Gtk::HBox.new
+    @buildable.set_buildable_property(builder, "parent", parent)
+    assert_equal(parent, @buildable.parent)
+  end
+
+  def test_construct_child
+    only_gtk_version(2, 12, 0)
+
+    assert_nil(@buildable.parent)
+
+    @buildable = Gtk::UIManager.new
+    @buildable.add_ui(<<-EOU)
+<ui>
+  <toolbar name='Toolbar'>
+  </toolbar>
+</ui>
+EOU
+    builder = Gtk::Builder.new
+    assert_kind_of(Gtk::Toolbar, @buildable.construct_child(builder, "Toolbar"))
+  end
+
+  def test_get_internal_child
+    only_gtk_version(2, 12, 0)
+
+    assert_nil(@buildable.parent)
+
+    @buildable = Gtk::Dialog.new
+    builder = Gtk::Builder.new
+    assert_kind_of(Gtk::VBox, @buildable.get_internal_child(builder, "vbox"))
+  end
+end

data/test/test_gtk_builder.rb

@@ -0,0 +1,188 @@
+class TestGtkBuilder < Test::Unit::TestCase
+  include GtkTestUtils
+
+  def test_constants
+    only_gtk_version(2, 12, 0)
+    assert_kind_of(Gtk::BuilderError, Gtk::BuilderError::INVALID_TAG)
+  end
+
+  def test_new
+    only_gtk_version(2, 12, 0)
+    assert_nothing_raised do
+      Gtk::Builder.new
+    end
+  end
+
+  def test_add_from_file
+    only_gtk_version(2, 12, 0)
+
+    builder = Gtk::Builder.new
+    assert_nothing_raised do
+      builder.add_from_file(ui_definition_file.path)
+    end
+    assert_kind_of(Gtk::Dialog, builder["dialog1"])
+  end
+
+  def test_add_from_string
+    only_gtk_version(2, 12, 0)
+
+    builder = Gtk::Builder.new
+    assert_nothing_raised do
+      builder.add_from_string(ui_definition)
+    end
+    assert_kind_of(Gtk::VBox, builder["vbox1"])
+  end
+
+  def test_add_with_file
+    only_gtk_version(2, 12, 0)
+
+    builder = Gtk::Builder.new
+    assert_nothing_raised do
+      builder.add(ui_definition_file.path)
+    end
+    assert_kind_of(Gtk::HButtonBox, builder["hbuttonbox1"])
+  end
+
+  def test_add_with_string
+    only_gtk_version(2, 12, 0)
+
+    builder = Gtk::Builder.new
+    assert_nothing_raised do
+      builder.add(ui_definition)
+    end
+    assert_kind_of(Gtk::Button, builder["ok_button"])
+  end
+
+  def test_add_chain
+    only_gtk_version(2, 12, 0)
+
+    builder = Gtk::Builder.new
+    assert_nothing_raised do
+      builder << ui_definition_file.path << ui_definition_simple
+    end
+    assert_kind_of(Gtk::Dialog, builder["dialog1"])
+    assert_kind_of(Gtk::Window, builder["main-window"])
+  end
+
+  def test_objects
+    only_gtk_version(2, 12, 0)
+
+    builder = Gtk::Builder.new
+    assert_nothing_raised do
+      builder << ui_definition_file.path << ui_definition_simple
+    end
+    assert_equal(["dialog1", "vbox1", "hbuttonbox1", "ok_button",
+                  "main-window"].sort,
+                 builder.objects.collect {|object| object.name}.sort)
+  end
+
+  def test_translation_domain
+    only_gtk_version(2, 12, 0)
+
+    builder = Gtk::Builder.new
+    assert_nil(builder.translation_domain)
+    builder.translation_domain = "ruby-gnome2"
+    assert_equal("ruby-gnome2", builder.translation_domain)
+  end
+
+  def test_connect_signals
+    only_gtk_version(2, 12, 0)
+
+    handler_names = []
+
+    builder = Gtk::Builder.new
+    builder.connect_signals do |name|
+      handler_names << name
+      Proc.new {}
+    end
+    assert_equal([].sort, handler_names.sort)
+
+    builder << ui_definition
+    ok_button = builder["ok_button"]
+    builder.connect_signals do |name|
+      handler_names << name
+      Proc.new {}
+    end
+    assert_equal(["ok_button_clicked"].sort, handler_names.sort)
+  end
+
+  def test_connect_signals_with_no_signal_ui_definition
+    only_gtk_version(2, 12, 0)
+
+    handler_names = []
+
+    builder = Gtk::Builder.new
+    builder.connect_signals do |name|
+      handler_names << name
+      Proc.new {}
+    end
+    assert_equal([].sort, handler_names.sort)
+
+    builder << ui_definition_simple
+    builder.connect_signals do |name|
+      handler_names << name
+      Proc.new {}
+    end
+    assert_equal([].sort, handler_names.sort)
+  end
+
+  def test_get_type_from_name
+    only_gtk_version(2, 12, 0)
+
+    builder = Gtk::Builder.new
+    assert_nil(builder.get_type("XXX"))
+    assert_equal(Gtk::VBox, builder.get_type("GtkVBox"))
+  end
+
+  private
+  def ui_definition
+    <<-EOX
+<interface>
+  <object class="GtkDialog" id="dialog1">
+    <child internal-child="vbox">
+      <object class="GtkVBox" id="vbox1">
+        <property name="border-width">10</property>
+        <child internal-child="action_area">
+          <object class="GtkHButtonBox" id="hbuttonbox1">
+            <property name="border-width">20</property>
+            <child>
+              <object class="GtkButton" id="ok_button">
+                <property name="label">gtk-ok</property>
+                <property name="use-stock">TRUE</property>
+                <signal name="clicked" handler="ok_button_clicked"/>
+              </object>
+            </child>
+          </object>
+        </child>
+      </object>
+    </child>
+  </object>
+</interface>
+EOX
+  end
+
+  def ui_definition_simple
+    <<-EOX
+<interface>
+  <object class="GtkWindow" id="main-window">
+  </object>
+</interface>
+EOX
+  end
+
+  def ui_definition_with_signal
+    <<-EOX
+<interface>
+  <object class="GtkWindow" id="main-window">
+  </object>
+</interface>
+EOX
+  end
+
+  def ui_definition_file
+    xml = Tempfile.new("Gtk::Builder")
+    xml.print(ui_definition)
+    xml.close
+    xml
+  end
+end