gtk2 0.20.1 → 0.90.2

data/sample/misc/pangorenderer.rb

@@ -0,0 +1,66 @@
+#!/usr/bin/env ruby
+=begin
+  pangorenderer.rb - Ruby/GTK sample script.
+
+  Copyright (c) 2005,2006  Ruby-GNOME2 Project Team
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: pangorenderer.rb,v 1.5 2006/06/17 13:18:12 mutoh Exp $
+=end
+
+require 'gtk2'
+
+RADIUS = 80
+N_WORDS = 16
+
+if str = Gtk.check_version(2, 6, 0)
+  puts "This sample requires GTK+ 2.6.0 or later"
+  puts str
+  exit
+end
+
+win = Gtk::Window.new("Gdk::PangoRenderer sample")
+win.signal_connect("destroy"){Gtk.main_quit}
+win.set_default_size(400, 400)
+win.realize
+
+matrix = Pango::Matrix.new
+
+renderer = Gdk::PangoRenderer.default
+renderer.drawable = win.window
+renderer.gc = Gdk::GC.new(win.window)
+width, height = win.size
+
+device_radius = [width, height].min / 6.0
+
+matrix.translate!(device_radius + (width - 2 * device_radius) / 2.0,
+		  device_radius + (height - 2 * device_radius) / 2.0)
+matrix.scale!(device_radius / RADIUS, device_radius / RADIUS)
+
+context = Gdk::Pango.context
+layout = Pango::Layout.new(context)
+layout.text = "Ruby-GNOME2"
+layout.font_description = Pango::FontDescription.new("Sans Bold 14")
+
+background = Gdk::Color.new(65535, 65535, 65535)
+Gdk::Colormap.system.alloc_color(background, false, true)
+win.window.background = background
+
+win.signal_connect("expose_event") do
+  (0...N_WORDS).each do |i|
+    rotated_matrix = matrix.dup
+    angle = 360 * i / N_WORDS.to_f
+    color = Gdk::Color.new(65535 * rand, 65535 * rand, 65535 * rand)
+    renderer.set_override_color(Pango::Renderer::PART_FOREGROUND, color)
+    
+    rotated_matrix.rotate!(angle)
+    context.set_matrix(rotated_matrix)
+    layout.context_changed
+    width, height = layout.size
+    renderer.draw_layout(layout, width / 2, RADIUS * Pango::SCALE)
+  end
+end
+
+win.show_all
+
+Gtk.main

data/sample/misc/pointer_grab.rb

@@ -0,0 +1,34 @@
+=begin
+  pointer_grab.rb - Gdk::Window#pointer_grab/ungrab sample script.
+
+  Copyright (C) 2001-2006 Masao Mutoh<mutoh@highway.ne.jp>
+  This program is licenced under the same licence as Ruby-GNOME.
+
+  $Date: 2006/06/17 13:18:12 $
+  $Id: pointer_grab.rb,v 1.5 2006/06/17 13:18:12 mutoh Exp $
+=end
+
+require 'gtk2'
+
+window = Gtk::Window.new("Pointer grab/ungrab sample")
+
+cursor = Gdk::Cursor.new(Gdk::Cursor::WATCH)
+button1 = Gtk::Button.new("Grab Window!")
+button2 = Gtk::Button.new("Ungrab Window!")
+
+button1.signal_connect('clicked') do 
+  Gdk.pointer_grab(window.window, true, Gdk::Event::BUTTON_PRESS_MASK, 
+			     window.window, cursor, Gdk::Event::CURRENT_TIME)
+  p Gdk.pointer_is_grabbed?
+end
+
+button2.signal_connect('clicked') do
+  Gdk.pointer_ungrab(Gdk::Event::CURRENT_TIME)
+  p Gdk.pointer_is_grabbed?
+end
+
+window.add(Gtk::VBox.new.add(button1).add(button2))
+window.set_default_size(200,100).show_all
+window.signal_connect("destroy"){Gtk.main_quit}
+
+Gtk.main

data/sample/misc/print.rb

@@ -0,0 +1,247 @@
+#!/usr/bin/env ruby
+=begin
+  print.rb - Gtk::Print* sample
+
+  Copyright (C) 2007 Mathieu Blondel
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: print.rb,v 1.1 2007/08/05 15:41:31 mutoh Exp $
+=end
+
+require 'gtk2'
+
+# Values returned by a Pango::Layout or set in a Pango::Layout
+# are always multiple of Pango::SCALE. Those are convenience methods to
+# deal with that.
+class Pango::Layout
+    def size_in_points
+        self.size.collect { |v| v / Pango::SCALE }
+    end
+
+    def width_in_points
+        self.size[0] / Pango::SCALE
+    end
+
+    def height_in_points
+        self.size[1] / Pango::SCALE
+    end
+
+    def width_in_points=(width)
+        self.width = width * Pango::SCALE
+    end
+end
+
+class Print < Gtk::PrintOperation
+
+    FONT = Pango::FontDescription.new("sans 12")
+    FONT_SMALL = Pango::FontDescription.new("sans 8")
+
+    FONT_SIZE = 12
+    FONT_SMALL_SIZE = 8
+
+    def initialize (parent_window, text)
+        super()
+        @parent_window = parent_window
+        @text = text
+
+        # with this option disabled, the origin is the the upper left corner
+        # *taking into consideration margins* !
+        self.use_full_page = false
+        self.unit = Gtk::PaperSize::UNIT_POINTS
+
+        # set default paper size
+        page_setup = Gtk::PageSetup.new
+        paper_size = Gtk::PaperSize.new(Gtk::PaperSize.default)
+        page_setup.paper_size_and_default_margins = paper_size
+        self.default_page_setup = page_setup
+
+        # show a progress bar
+        self.show_progress = true        
+
+        # You must choose between "paginate" and "begin-print".
+        # "begin-print" is emitted only once and "paginate" is emitted
+        # until the block returns true.
+        # In both cases, you must set the number of pages at the end with
+        # Gtk::PrintOperation#n_pages=
+        signal_connect("begin-print") do |pop, context|
+            puts "calls begin-print"
+            cr = context.cairo_context
+            paragraphs = @text.split("\n")
+            layouts = []
+            paragraphs.each do |para|
+                layouts << create_layout(cr, para)
+            end
+
+            # distribute paragraph layouts among pages
+            @page_layouts = []
+
+            curr_height = 0
+            n_pages = 0
+            layouts.each do |layout|
+                height = layout.height_in_points
+                if curr_height + height > real_page_height
+                    n_pages += 1
+                    curr_height = 0
+                end
+                @page_layouts[n_pages] ||= []
+                @page_layouts[n_pages] << layout
+                curr_height += height
+            end
+
+            pop.n_pages = n_pages + 1
+        end
+
+        signal_connect("draw-page") do |pop, context, page_num|
+            puts "calls draw-page %d" % page_num
+
+            cr = context.cairo_context
+
+            x, y = [0,0] # this means we start at the upper left margin  
+
+            if @page_layouts[page_num]
+                @page_layouts[page_num].each do |layout|
+                    cr.move_to(x,y)
+                    cr.show_pango_layout(layout)            
+                    y += layout.height_in_points
+                end
+                total_pages = @page_layouts.length
+            else
+                total_pages = 1
+            end
+            
+            # page_num starts at 0
+            draw_footer(cr, page_num + 1, total_pages)
+        end
+    end
+
+    def run_print_dialog
+        res = run(ACTION_PRINT_DIALOG, @parent_window)
+        case res
+            when RESULT_ERROR
+                puts "error"
+            when RESULT_CANCEL
+                puts "cancelled"
+            when RESULT_APPLY
+                puts "applied"
+            when RESULT_IN_PROGRESS
+                puts "in progress"
+        end
+    end
+
+    def run_preview
+        res = run(ACTION_PREVIEW, @parent_window)
+    end
+
+    private
+
+    def page_height
+        setup = self.default_page_setup
+        # this takes margins into consideration, contrary to get_paper_height
+        setup.get_page_height(Gtk::PaperSize::UNIT_POINTS)
+    end
+
+    def page_width
+        setup = self.default_page_setup
+        width = setup.get_page_width(Gtk::PaperSize::UNIT_POINTS)
+    end
+
+    def real_page_height
+        page_height - footer_height
+    end
+
+    def footer_height
+        5 * FONT_SMALL_SIZE
+    end
+
+    def create_layout(cr, text)
+        layout = cr.create_pango_layout
+
+        layout.width_in_points = page_width
+        layout.font_description = FONT
+        layout.wrap = Pango::Layout::WRAP_CHAR
+        layout.ellipsize = Pango::Layout::ELLIPSIZE_NONE
+        layout.single_paragraph_mode = false
+
+        layout.text = text
+
+        layout
+    end
+
+    def draw_footer(cr, nth_page, total_page)        
+        layout = cr.create_pango_layout
+        layout.alignment = Pango::Layout::ALIGN_RIGHT
+        layout.font_description = FONT_SMALL
+        layout.text = "Page %d/%d" % [nth_page, total_page] + "\n" + \
+            Time.now.strftime("Printed on %Y/%m/%d at %H:%M") + "\n" + \
+                "Powered by Ruby-GNOME2!"
+        width, height = layout.size_in_points
+        x, y = [page_width, page_height]
+        x -= width
+        y -= height
+        cr.move_to(x, y)
+        cr.show_pango_layout(layout)
+        cr.rel_move_to(width, -2)
+        cr.rel_line_to(-page_width, 0)
+        cr.stroke
+    end
+
+end
+
+class Window < Gtk::Window
+
+    def initialize
+        super
+
+        signal_connect("delete-event") { Gtk.main_quit }
+
+        set_default_size(600, 600)
+
+        @textview = Gtk::TextView.new
+        @textview.wrap_mode = Gtk::TextTag::WRAP_WORD
+
+        hbox = Gtk::HBox.new
+
+        page_setup_button = Gtk::Button.new
+        page_setup_button.label = "Page setup"
+        page_setup_button.signal_connect("clicked") do
+            @page_setup = Print::run_page_setup_dialog(self, # parent window
+                                                       @page_setup)
+        end
+
+        print_preview_button = Gtk::Button.new(Gtk::Stock::PRINT_PREVIEW)
+        print_preview_button.signal_connect("clicked") do
+            printop = Print.new(self, @textview.buffer.text)
+            printop.default_page_setup = @page_setup if @page_setup
+            printop.run_preview
+        end
+
+        print_button = Gtk::Button.new(Gtk::Stock::PRINT)
+        print_button.signal_connect("clicked") do
+            printop = Print.new(self, @textview.buffer.text)
+            printop.default_page_setup = @page_setup if @page_setup
+            printop.run_print_dialog
+        end
+
+        [page_setup_button, print_preview_button, print_button].each do |b|
+            hbox.pack_start(b, true, true)  # expand, fill
+        end
+
+        scrollbar = Gtk::VScrollbar.new
+
+        vbox = Gtk::VBox.new
+        scroll = Gtk::ScrolledWindow.new.add(@textview)        
+        scroll.set_policy(Gtk::POLICY_AUTOMATIC, Gtk::POLICY_AUTOMATIC)
+        vbox.pack_start(scroll)
+        vbox.pack_end(hbox, false, false)
+
+        add(vbox)
+
+        show_all
+        
+    end
+
+end
+
+Window.new
+
+Gtk.main

data/sample/misc/properties.rb

@@ -0,0 +1,85 @@
+=begin
+  properties.rb - 
+
+  GLib::Object#properties and Gtk::Container#child_properties sample script.
+
+  Copyright (C) 2004-2006 Masao Mutoh
+
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: properties.rb,v 1.3 2006/06/17 13:18:12 mutoh Exp $
+=end
+
+require 'gtk2'
+
+class MyButton < Gtk::Button
+  type_register
+
+  def initialize(label = nil)
+    # XXX: 
+    # When type_register() is used.
+    # super is equivalent to GLib::Object#initialize.
+    super("label" => label)
+    @fuga = 0
+    @hoge = 0
+  end
+
+  # define new property "fuga"
+  install_property(GLib::Param::Int.new("fuga", # name
+                                        "Fuga", # nick
+                                        "fuga fuga", # blurb
+                                        0,     # min
+                                        10000, # max
+                                        0,     # default
+                                        GLib::Param::READABLE |
+                                        GLib::Param::WRITABLE))
+
+  # define new property "hoge"
+  install_child_property(GLib::Param::Int.new("hoge", # name
+                                      "Hoge", # nick
+                                      "hoge hoge", # blurb
+                                      0,     # min
+                                      10000, # max
+                                      0,     # default
+                                      GLib::Param::READABLE |
+                                      GLib::Param::WRITABLE))
+
+  # implementation of the property "fuga"
+  def fuga
+    puts "MyButton#fuga is called"
+    @fuga
+  end
+  def fuga=(arg)
+    puts "MyButton#fuga= is called"
+    @fuga = arg
+    notify("fuga")
+  end
+
+  # implementation of the property "hoge"
+  def get_hoge(child)
+    puts "MyButton#get_hoge is called"
+    @hoge
+  end
+  def set_hoge(child, arg)
+    puts "MyButton#set_hoge is called"
+    @hoge = arg
+  end
+end
+
+b = MyButton.new("Hello")
+p b
+p b.label
+p b.gtype
+
+p MyButton.properties
+p b.get_property("fuga")
+b.set_property("fuga", 1)
+p b.get_property("fuga")
+
+p MyButton.child_properties
+p child = b.child
+p b.child_get_property(child, "hoge")
+b.child_set_property(child, "hoge", 2)
+p b.child_get_property(child, "hoge")
+
+p MyButton.ancestors

data/sample/misc/radiobutton.rb

@@ -0,0 +1,47 @@
+#!/usr/bin/env ruby
+=begin
+  radiobutton.rb - Ruby/GTK2 sample script.
+
+  Copyright (c) 2002-2006 Ruby-GNOME2 Project Team 
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: radiobutton.rb,v 1.10 2006/06/17 13:18:12 mutoh Exp $
+=end
+
+require 'gtk2'
+
+window = Gtk::Window.new("Gtk::RadioButton sample")
+window.signal_connect("destroy"){Gtk.main_quit}
+
+box1 = Gtk::VBox.new
+window.add(box1)
+
+box2 = Gtk::VBox.new(false, 10)
+box2.border_width = 10
+box1.add(box2)
+
+button1 = Gtk::RadioButton.new("_button1")
+button2 = Gtk::RadioButton.new(button1, "_button2", false)
+button3 = Gtk::RadioButton.new(button1, Gtk::Stock::QUIT)
+
+box2.add(button1).add(button2).add(button3)
+
+box1.add(Gtk::HSeparator.new)
+
+box2 = Gtk::VBox.new(false, 10)
+box2.border_width = 10
+box1.add(box2)
+
+close = Gtk::Button.new("close")
+close.signal_connect("clicked") do
+  Gtk.main_quit
+end
+box2.add(close)
+
+close.can_default = true
+close.grab_default
+
+window.signal_connect("destroy"){Gtk.main_quit}
+window.show_all
+
+Gtk.main