gtk3 0.0.1 → 1.2.0

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,32 @@
+#!/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, "glib2")
+atk_base = File.join(ruby_gnome2_base, "atk")
+pango_base = File.join(ruby_gnome2_base, "pango")
+gdk_pixbuf_base = File.join(ruby_gnome2_base, "gdk_pixbuf2")
+gtk_base = File.join(ruby_gnome2_base, "gtk2")
+
+[[glib_base, "glib2"],
+ [atk_base, "atk"],
+ [pango_base, "pango"],
+ [gdk_pixbuf_base, "gdk_pixbuf2"],
+ [gtk_base, "gtk2"]].each do |target, module_name|
+  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))
+  $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(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.builder_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