pango 2.2.4-x64-mingw32

data/sample/parse.rb

@@ -0,0 +1,33 @@
+#!/usr/bin/env ruby
+=begin
+  parse.rb - Ruby/Pango sample script.
+
+  Copyright (c) 2002,2003 Ruby-GNOME2 Project Team
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: parse.rb,v 1.4 2005/03/22 17:41:29 silicio Exp $
+=end
+
+require 'pango'
+
+str = File.read("sample.txt")
+puts str
+puts "------"
+
+attr_list, text, accel_char = Pango.parse_markup(str, '$')
+puts "attr_list = #{attr_list}"
+puts "text = #{text}"
+puts "accel_char = #{accel_char}"
+puts "------"
+
+iterator = attr_list.iterator
+
+attr_list.each(text) do |iterator, text, start_pos, end_pos|
+  puts "range = #{start_pos}, #{end_pos}"
+  puts "text = #{text}"
+  iterator.get.each do |attr|
+    puts "#{attr} = #{attr.value}"
+  end
+  puts "---"
+end
+

data/sample/sample.txt

@@ -0,0 +1,10 @@
+<u><span foreground="red" size="x-large" style="italic"
+lang="en">Hello World!</span></u> <span background="yellow" lang="ja"
+font_desc="Sans Italic 20" stretch="normal">こんにちわ世界！</span>
+
+<span size="xx-large" face="Serif" foreground="#006600" background="#ffffee">
+<span size="larger" underline="double" weight="heavy">Ruby/Pango</span> <span
+rise="10000" variant="normal" weight="heavy">$Ruby-GNOME2</span>
+</span>
+
+<span strikethrough="true" size="xx-large" style="oblique" foreground="blue">ABCDEF</span>

data/sample/script.rb

@@ -0,0 +1,23 @@
+# -*- coding: utf-8 -*-
+
+=begin
+  script.rb - Ruby/Pango sample script.
+
+  Copyright (c) 2005 Ruby-GNOME2 Project
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: script.rb,v 1.1 2005/09/17 17:09:12 mutoh Exp $
+=end
+
+require 'pango'
+
+iter = Pango::ScriptIter.new("Helloこんにちはコンニチハ안녕하세요السلام عليكمΕλληνικάவணக்கம்")
+begin
+  start_pos, end_pos, script = iter.range
+  puts "-----"
+  puts "start : #{start_pos}"
+  puts "end   : #{end_pos}"
+  puts "script: #{script.nick}"
+  puts "sample_language: #{script.sample_language.to_s}"
+end while iter.next!
+

data/test/pango-test-utils.rb

@@ -0,0 +1,9 @@
+module PangoTestUtils
+  private
+  def only_pango_version(major, minor, micro=nil)
+    micro ||= 0
+    unless Pango.check_version?(major, minor, micro)
+      omit("Require Pango >= #{major}.#{minor}.#{micro}")
+    end
+  end
+end

data/test/run-test.rb

@@ -0,0 +1,28 @@
+#!/usr/bin/env ruby
+
+$VERBOSE = true
+
+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")
+pango_base = File.join(ruby_gnome2_base, "pango")
+
+$LOAD_PATH.unshift(File.join(glib_base, "test"))
+require 'glib-test-init'
+
+[[glib_base, "glib2"],
+ [pango_base, "pango"]].each do |target, module_name|
+  if system("which make > /dev/null")
+    `make -C #{target.dump} > /dev/null` or exit(1)
+  end
+  $LOAD_PATH.unshift(File.join(target, "ext", module_name))
+  $LOAD_PATH.unshift(File.join(target, "lib"))
+end
+
+$LOAD_PATH.unshift(File.join(pango_base, "test"))
+require 'pango-test-utils'
+
+require 'pango'
+
+exit Test::Unit::AutoRunner.run(true)

data/test/test-analysis.rb

@@ -0,0 +1,26 @@
+# -*- 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 TestPangoAnalysis < Test::Unit::TestCase
+  include PangoTestUtils
+
+  def test_level
+    analysis = Pango::Analysis.new
+    assert_equal(0, analysis.level)
+  end
+end

data/test/test-attribute.rb

@@ -0,0 +1,19 @@
+class TestAttribute < Test::Unit::TestCase
+  include PangoTestUtils
+
+  def setup
+    @attribute = Pango::AttrLanguage.new(Pango::Language.default)
+  end
+
+  def test_start_index
+    assert_equal(0, @attribute.start_index)
+    @attribute.start_index = 5
+    assert_equal(5, @attribute.start_index)
+  end
+
+  def test_end_index
+    assert_equal(GLib::MAXUINT, @attribute.end_index)
+    @attribute.end_index = 5
+    assert_equal(5, @attribute.end_index)
+  end
+end

data/test/test-color.rb

@@ -0,0 +1,47 @@
+# -*- 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 TestPangoColor < Test::Unit::TestCase
+  include PangoTestUtils
+
+  def test_red
+    color = Pango::Color.new(0, 0, 0)
+    assert_equal(0, color.red)
+    color.red = 32768
+    assert_equal(32768, color.red)
+  end
+
+  def test_blue
+    color = Pango::Color.new(0, 0, 0)
+    assert_equal(0, color.blue)
+    color.blue = 32768
+    assert_equal(32768, color.blue)
+  end
+
+  def test_green
+    color = Pango::Color.new(0, 0, 0)
+    assert_equal(0, color.green)
+    color.green = 32768
+    assert_equal(32768, color.green)
+  end
+
+  def test_to_a
+    color = Pango::Color.new(65535, 32768, 0)
+    assert_equal([65535, 32768, 0], color.to_a)
+  end
+end

data/test/test-language.rb

@@ -0,0 +1,7 @@
+class TestLanguage < Test::Unit::TestCase
+  include PangoTestUtils
+
+  def test_default
+    assert_match(/\A[a-z]{2}-[a-z]{2}\z/, Pango::Language.default.to_s)
+  end
+end

data/test/test-layout.rb

@@ -0,0 +1,34 @@
+class TestLayout < Test::Unit::TestCase
+  include PangoTestUtils
+
+  def setup
+    @context = Pango::Context.new
+    @layout = Pango::Layout.new(@context)
+  end
+
+  def test_set_font_description
+    assert_nil(@layout.font_description)
+
+    @layout.font_description = "sans 14"
+    assert_equal("sans 14", @layout.font_description.to_s)
+
+    description = Pango::FontDescription.new("monospace")
+    description.size = 10 * Pango::SCALE
+    @layout.font_description = description
+    assert_equal("monospace 10", @layout.font_description.to_s)
+  end
+
+  def test_height
+    assert_equal(-1, @layout.height)
+  end
+
+  def test_set_height
+    new_height = 29 * Pango::SCALE
+    @layout.height = new_height
+    assert_equal(new_height, @layout.height)
+  end
+
+  def test_ellipsized?
+    assert_false(@layout.ellipsized?)
+  end
+end

data/test/test-log-attr.rb

@@ -0,0 +1,26 @@
+# -*- 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 TestPangoLogAttr < Test::Unit::TestCase
+  include PangoTestUtils
+
+  def test_line_break?
+    attribute = Pango::LogAttr.new
+    assert_false(attribute.line_break?)
+  end
+end

data/test/test-matrix.rb

@@ -0,0 +1,26 @@
+# -*- 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 TestPangoMatrix < Test::Unit::TestCase
+  include PangoTestUtils
+
+  def test_xx
+    matrix = Pango::Matrix.new
+    assert_equal(1.0, matrix.xx)
+  end
+end

data/test/test-rectangle.rb

@@ -0,0 +1,26 @@
+# -*- 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 TestPangoRectangle < Test::Unit::TestCase
+  include PangoTestUtils
+
+  def test_width
+    rectangle = Pango::Rectangle.new(0, 10, 20, 30)
+    assert_equal(20, rectangle.width)
+  end
+end