gtk3 2.2.4-x64-mingw32

data/sample/testgtk/tooltips.rb

@@ -0,0 +1,41 @@
+=begin
+
+  tooltips.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+
+  $Id: tooltips.rb,v 1.6 2005/07/21 17:47:19 mutoh Exp $
+
+=end
+
+require 'sample'
+
+class TooltipsSample < SampleWindow
+  def initialize
+    super("Tooltips")
+    set_default_size(200, -1)
+    set_border_width(5)
+
+    tooltips = Gtk::Tooltips.new
+
+    button = Gtk::ToggleButton.new("button1")
+    tooltips.set_tip(button,"This is button 1", "ContextHelp/buttons/1")
+
+    button2 = Gtk::ToggleButton.new("button2")
+    tooltips.set_tip(button2,
+		     "This is button 2. This is also a really long tooltip which probably won't fit on a single line and will therefore need to be wrapped. Hopefully the wrapping will work correctly.",
+		     "ContextHelp/buttons/2_long")
+    vbox = Gtk::VBox.new(false, 10)
+    vbox.add(button)
+    vbox.add(button2)
+    vbox.add(Gtk::HSeparator.new)
+
+    button4 = Gtk::Button.new("close")
+    button4.signal_connect("clicked"){destroy}
+    vbox.pack_start(button4)
+
+    tooltips.set_tip(button4, "Push this button to close window", "ContextHelp/buttons/Close")
+
+    add(vbox)
+  end
+end

data/sample/testgtk/wmhints.rb

@@ -0,0 +1,40 @@
+=begin header
+
+  wmhints.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+
+  $Id: wmhints.rb,v 1.8 2005/07/21 17:47:19 mutoh Exp $
+=end
+
+require 'sample'
+
+class WMHintsSample < SampleWindow
+  def initialize
+    super("WM Hints")
+
+    realize
+
+    circles = Gdk::Pixmap.create_from_xbm(window, "circles.xbm")
+    window.set_icon(nil, circles, circles)
+    window.icon_name = "WMHints Test Icon"
+    window.decorations = Gdk::Window::DECOR_ALL | Gdk::Window::DECOR_MENU
+    window.functions = Gdk::Window::FUNC_ALL | Gdk::Window::FUNC_RESIZE
+
+    vbox = Gtk::VBox.new(false, 10)
+    add(vbox)
+
+    label = Gtk::Label.new("Try iconizing me!")
+    label.set_size_request(150, 50)
+    vbox.pack_start(label, true, true, 0)
+
+    vbox.pack_start(Gtk::HSeparator.new, false, true, 0)
+
+    button = Gtk::Button.new("close")
+    button.signal_connect("clicked"){destroy}
+
+    vbox.pack_start(button, true, true, 0)
+    button.can_default = true
+    button.grab_default
+  end
+end

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,58 @@
+#!/usr/bin/env ruby
+#
+# Copyright (C) 2013  Ruby-GNOME2 Project Team
+#
+# 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., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+ruby_gnome2_base = File.join(File.dirname(__FILE__), "..", "..")
+ruby_gnome2_base = File.expand_path(ruby_gnome2_base)
+
+glib_base = File.join(ruby_gnome2_base, "glib2")
+atk_base = File.join(ruby_gnome2_base, "atk")
+cairo_gobject_base = File.join(ruby_gnome2_base, "cairo-gobject")
+pango_base = File.join(ruby_gnome2_base, "pango")
+gdk_pixbuf_base = File.join(ruby_gnome2_base, "gdk_pixbuf2")
+gobject_introspection_base = File.join(ruby_gnome2_base, "gobject-introspection")
+gdk3_base = File.join(ruby_gnome2_base, "gdk3")
+gtk3_base = File.join(ruby_gnome2_base, "gtk3")
+
+[
+  [glib_base, "glib2"],
+  [atk_base, "atk"],
+  [cairo_gobject_base, "cairo-gobject"],
+  [pango_base, "pango"],
+  [gdk_pixbuf_base, "gdk_pixbuf2"],
+  [gobject_introspection_base, "gobject-introspection"],
+  [gdk3_base, "gdk3"],
+  [gtk3_base, "gtk3"]
+].each do |target, module_name|
+  if File.exist?(File.join(target, "Makefile"))
+    if system("which make > /dev/null")
+      `make -C #{target.dump} > /dev/null` or exit(false)
+    end
+    $LOAD_PATH.unshift(File.join(target, "ext", module_name))
+  end
+  $LOAD_PATH.unshift(File.join(target, "lib"))
+end
+
+$LOAD_PATH.unshift(File.join(glib_base, "test"))
+require 'glib-test-init'
+
+$LOAD_PATH.unshift(File.join(gtk3_base, "test"))
+require 'gtk-test-utils'
+
+require 'gtk3'
+
+exit Test::Unit::AutoRunner.run(true)

data/test/test_gc.rb

@@ -0,0 +1,22 @@
+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::Box.new(:horizontal)
+    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_gtk.rb

@@ -0,0 +1,23 @@
+# Copyright (C) 2013  Ruby-GNOME2 Project Team
+#
+# 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., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+class TestGtk < Test::Unit::TestCase
+  include GtkTestUtils
+
+  def test_show_uri
+    assert_true(Gtk.respond_to?(:show_uri))
+  end
+end

data/test/test_gtk_about_dialog.rb

@@ -0,0 +1,13 @@
+class TestGtkAboutDialog < Test::Unit::TestCase
+  include GtkTestUtils
+
+  def setup
+    @dialog = Gtk::AboutDialog.new
+  end
+
+  def test_program_name
+    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_accel_group_entry.rb

@@ -0,0 +1,24 @@
+# -*- coding: utf-8 -*-
+#
+# Copyright (C) 2013  Ruby-GNOME2 Project Team
+#
+# 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., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+class TestGtkAccelGroupEntry < Test::Unit::TestCase
+  def test_accel_path
+    entry = Gtk::AccelGroupEntry.new
+    assert_nil(entry.accel_path)
+  end
+end

data/test/test_gtk_accel_key.rb

@@ -0,0 +1,24 @@
+# -*- coding: utf-8 -*-
+#
+# Copyright (C) 2013  Ruby-GNOME2 Project Team
+#
+# 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., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+class TestGtkAccelKey < Test::Unit::TestCase
+  def test_flags
+    key = Gtk::AccelKey.new
+    assert_equal(0, key.flags)
+  end
+end

data/test/test_gtk_accessible.rb

@@ -0,0 +1,31 @@
+# -*- coding: utf-8 -*-
+#
+# Copyright (C) 2014  Ruby-GNOME2 Project Team
+#
+# 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., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+class TestGtkAccessible < Test::Unit::TestCase
+  include GtkTestUtils
+
+  def setup
+    @accessible = Gtk::Accessible.new
+  end
+
+  def test_widget_accessors
+    widget = Gtk::Box.new(:horizontal)
+    @accessible.widget = widget
+    assert_equal(widget, @accessible.widget)
+  end
+end

data/test/test_gtk_action_group.rb

@@ -0,0 +1,46 @@
+# Copyright (C) 2014  Ruby-GNOME2 Project Team
+#
+# 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., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+class TestGtkActionBar < Test::Unit::TestCase
+  include GtkTestUtils
+
+  def setup
+    @bar = Gtk::ActionBar.new
+  end
+
+  def test_pack_start
+    widget1 = Gtk::Box.new(:horizontal)
+    widget2 = Gtk::Box.new(:horizontal)
+    @bar.pack_start(widget1)
+    @bar.pack_start(widget2)
+    assert_equal([widget1, widget2], @bar.children)
+  end
+
+  def test_pack_end
+    widget1 = Gtk::Box.new(:horizontal)
+    widget2 = Gtk::Box.new(:horizontal)
+    @bar.pack_end(widget1)
+    @bar.pack_end(widget2)
+    assert_equal([widget2, widget1], @bar.children)
+  end
+
+  def test_center_widget
+    widget = Gtk::Box.new(:horizontal)
+    assert_nil(@bar.center_widget)
+    @bar.center_widget = widget
+    assert_equal(widget, @bar.center_widget)
+  end
+end

data/test/test_gtk_allocation.rb

@@ -0,0 +1,24 @@
+# -*- coding: utf-8 -*-
+#
+# Copyright (C) 2013  Ruby-GNOME2 Project Team
+#
+# 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., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+class TestGtkAllocation < Test::Unit::TestCase
+  def test_width
+    allocation = Gtk::Allocation.new(0, 10, 20, 30)
+    assert_equal(20, allocation.width)
+  end
+end

data/test/test_gtk_border.rb

@@ -0,0 +1,24 @@
+# -*- coding: utf-8 -*-
+#
+# Copyright (C) 2013  Ruby-GNOME2 Project Team
+#
+# 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., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+
+class TestGtkBorder < Test::Unit::TestCase
+  def test_left
+    border = Gtk::Border.new(10, 15, 20, 25)
+    assert_equal(10, border.left)
+  end
+end

data/test/test_gtk_buildable.rb

@@ -0,0 +1,56 @@
+class TestGtkBuildable < Test::Unit::TestCase
+  include GtkTestUtils
+
+  def setup
+    @buildable = Gtk::Box.new(:horizontal)
+  end
+
+  def test_name
+    assert_equal("", @buildable.name)
+    @buildable.name = "YYY"
+    assert_equal("YYY", @buildable.name)
+
+    @buildable.name = nil
+    assert_equal("", @buildable.name)
+  end
+
+  def test_add_child
+    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
+    assert_nil(@buildable.parent)
+
+    builder = Gtk::Builder.new
+    parent = Gtk::Box.new(:horizontal)
+    @buildable.set_buildable_property(builder, "parent", parent)
+    assert_equal(parent, @buildable.parent)
+  end
+
+  def test_construct_child
+    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
+    assert_nil(@buildable.parent)
+
+    @buildable = Gtk::Dialog.new
+    builder = Gtk::Builder.new
+    assert_kind_of(Gtk::Box, @buildable.get_internal_child(builder, "vbox"))
+  end
+end