gtk2 0.20.1 → 0.90.2

data/sample/misc/recentchooserdialog.rb

@@ -0,0 +1,59 @@
+#!/usr/bin/env ruby
+=begin
+  recentchooserdialog.rb - Ruby/GTK2 sample script.
+
+  Copyright (c) 2006 Ruby-GNOME2 Project Team
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: recentchooserdialog.rb,v 1.2 2006/11/15 23:46:13 mutoh Exp $
+=end
+
+require 'gtk2'
+
+if str = Gtk.check_version(2, 10, 0)
+  puts "This sample requires GTK+ 2.10.0 or later"
+  puts str
+  exit
+end
+
+dialog = Gtk::RecentChooserDialog.new("Recent Chooser Dialog Sample",
+                                      nil,
+                                      [Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL], 
+                                      [Gtk::Stock::OPEN, Gtk::Dialog::RESPONSE_ACCEPT])
+
+dialog.signal_connect("response") do |widget, response|
+  case response
+  when Gtk::Dialog::RESPONSE_ACCEPT
+    info = dialog.current_item
+    if info
+      puts "----"
+      puts info.uri
+      puts info.display_name
+      puts info.description
+      puts info.mime_type
+      puts info.added
+      puts info.modified
+      puts info.visited
+      puts info.private_hint?
+      p    info.application_info("gedit")
+      p    info.applications
+      puts info.last_application
+      p    info.groups
+      puts info.has_group?("web")
+      puts info.has_application?("gedit")
+      puts info.get_icon(64)
+      puts info.short_name
+      puts info.uri_display
+      puts info.age
+      puts info.local?
+      puts info.exist?
+    end
+  else
+    p "Close"
+    dialog.destroy
+    Gtk.main_quit
+  end
+end
+dialog.show_all
+
+Gtk.main

data/sample/misc/rgtk+cairo.rb

@@ -0,0 +1,44 @@
+#!/usr/bin/env ruby
+=begin
+  rgtk+cairo.rb - Ruby/GTK2 using Ruby/Cairo sample script.
+
+  Copyright (c) 2002-2006 Ruby-GNOME2 Project Team
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  Heavily inspired from png.rb example of rcairo.
+
+  $Id: rgtk+cairo.rb,v 1.3 2006/06/17 13:18:12 mutoh Exp $
+=end
+
+require 'gtk2'
+require 'cairo'
+
+w = Gtk::Window.new.add(vb = Gtk::VBox.new)
+vb.add(da = Gtk::DrawingArea.new)
+da.set_size_request(200, 200)
+
+da.signal_connect('expose-event') { |widget, event|
+   cr = widget.window.create_cairo_context
+
+   # fill background with white
+   cr.set_source_rgba(1.0, 1.0, 1.0)
+   cr.paint
+
+   # create shape
+   cr.move_to(50, 50)
+   cr.curve_to(100, 25, 100, 75, 150, 50)
+   cr.line_to(150, 150)
+   cr.line_to(50, 150)
+   cr.close_path
+
+   cr.set_source_rgb(0.0, 0.0, 0.0)
+   cr.fill_preserve
+   cr.set_source_rgb(1.0, 0.0, 0.0)
+   cr.set_line_join(Cairo::LINE_JOIN_MITER)
+   cr.set_line_width(4)
+   cr.stroke
+}
+
+w.signal_connect("destroy"){Gtk.main_quit}
+w.show_all
+Gtk.main

data/sample/misc/scalebutton.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/env ruby
+=begin
+  scalebutton.rb - Very simple Gtk::ScaleButton example.
+
+  Copyright (c) 2007 Ruby-GNOME2 Project Team 
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: scalebutton.rb,v 1.1 2007/07/12 14:04:54 ggc Exp $
+=end
+
+require 'gtk2'
+
+if str = Gtk.check_version(2, 12, 0)
+    puts "This sample requires GTK+ 2.12.0 or later"
+    puts str
+    exit
+end
+
+window = Gtk::Window.new
+window.add(scale = Gtk::ScaleButton.new(Gtk::IconSize::BUTTON))
+scale.set_icons(['gtk-goto-bottom', 'gtk-goto-top', 'gtk-execute'])
+scale.signal_connect('value-changed') { |widget, value| puts "value changed: #{value}" }
+window.show_all
+
+Gtk.main

data/sample/misc/settings.rb

@@ -0,0 +1,41 @@
+=begin
+  setting.rb - Gtk::Settings sample script.
+
+  Copyright (C) 2004-2006 Masao Mutoh
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: settings.rb,v 1.3 2006/06/17 13:18:12 mutoh Exp $
+=end
+
+require 'gtk2'
+
+spec = GLib::Param::Int.new("integer",         # name
+			    "Integer",         # nick
+			    "Integer integer", # blurb
+			    0,                 # min
+			    10000,             # max
+			    0,                 # default
+			    GLib::Param::READABLE|
+			    GLib::Param::WRITABLE)
+
+enum = GLib::Param::Enum.new("enum",                      # name
+			     "Enum",                      # nick
+			     "Enum enum",                 # blurb
+			     GLib::Type["GdkCursorType"], #type
+			     Gdk::Cursor::ARROW,          #default
+			     GLib::Param::READABLE|
+			     GLib::Param::WRITABLE)
+
+flags = GLib::Param::Flags.new("flags",                       # name
+			       "Flags",                       # nick
+			       "Flags flags",                 # blurb
+			       GLib::Type["GdkEventMask"],    #type
+			       Gdk::Event::LEAVE_NOTIFY_MASK, #default
+			       GLib::Param::READABLE|
+			       GLib::Param::WRITABLE)
+
+p Gtk::Settings.rc_property_parse_color(spec, "{2222,44444,65535}").to_a
+p Gtk::Settings.rc_property_parse_enum(enum, "watch")
+p Gtk::Settings.rc_property_parse_flags(flags, "(scroll-mask|structure-mask)")
+p Gtk::Settings.rc_property_parse_requisition(spec, "{100, 200}")
+p Gtk::Settings.rc_property_parse_border(spec, "{100, 200, 300, 400}").to_a

data/sample/misc/statusicon.rb

@@ -0,0 +1,123 @@
+#!/usr/bin/env ruby
+=begin
+  status_icon.rb - Gtk::StatusIcon sample.
+
+  This sample refers gtk/tests/teststatusicon.c of GTK+-2.10.x.
+
+  Copyright (c) 2006 Ruby-GNOME2 Project Team
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: statusicon.rb,v 1.1 2006/11/17 18:12:41 mutoh Exp $
+=end
+
+require 'gtk2'
+
+if str = Gtk.check_version(2, 10, 0)
+  puts "This sample requires GTK+ 2.10.0 or later"
+  puts str
+  exit
+end
+
+class StatusIconSample < Gtk::StatusIcon
+  STATUS_INFO = 0
+  STATUS_QUESTION = 1
+
+  def initialize
+    super
+    @status = STATUS_INFO
+    update_icon
+
+    set_blinking(true)
+    signal_connect("activate"){
+      icon_activated
+    }
+    signal_connect("popup-menu"){|w, button, activate_time|
+      menu = Gtk::Menu.new
+      checkmenuitem = Gtk::CheckMenuItem.new("Blink")
+      checkmenuitem.active = blinking?
+      checkmenuitem.signal_connect("activate"){|w|
+        set_blinking(w.active?)
+      }
+      menu.append(checkmenuitem)
+      
+      menuitem = Gtk::MenuItem.new("Quit")
+      menuitem.signal_connect("activate"){
+        set_visible(false)
+        Gtk.main_quit
+      }
+      menu.append(menuitem)
+      menu.show_all
+      menu.popup(nil, nil, button, activate_time)
+    }
+
+    timeout_func
+  end
+
+  def update_icon
+    if @status == STATUS_INFO
+      set_icon_name(Gtk::Stock::DIALOG_INFO)
+      set_tooltip("Some Information ...")
+    else
+      set_icon_name(Gtk::Stock::DIALOG_QUESTION)
+      set_tooltip("Some Question ...")
+    end
+  end
+
+  def timeout_func
+    GLib::Timeout.add(2000) {
+      if @status == STATUS_INFO
+        @status = STATUS_QUESTION
+      else
+        @status = STATUS_INFO
+      end
+      update_icon
+      true
+    }
+  end
+
+  def icon_activated
+    unless @dialog
+      @dialog = Gtk::MessageDialog.new(nil, 0,
+                                       Gtk::MessageDialog::QUESTION,
+                                       Gtk::MessageDialog::BUTTONS_CLOSE,
+                                       "You wanna test the status icon?")
+      @dialog.window_position = Gtk::Window::POS_CENTER
+      
+      @dialog.signal_connect("response"){ @dialog.hide }
+      @dialog.signal_connect("delete_event"){ @dialog.hide_on_delete }
+      
+      toggle = Gtk::ToggleButton.new("_Show the icon")
+      @dialog.vbox.pack_end(toggle, true, true, 6)
+      toggle.active = visible?
+      toggle.signal_connect("toggled"){|w|
+        set_visible(w.active?)
+      }
+
+      toggle = Gtk::ToggleButton.new("_Blink the icon")
+      @dialog.vbox.pack_end(toggle, true, true, 6)
+      toggle.active = blinking?
+      toggle.signal_connect("toggled"){|w|
+        set_blinking(w.active?)
+      }
+ 
+      toggle = Gtk::ToggleButton.new("_Change the icon")
+      @dialog.vbox.pack_end(toggle, true, true, 6)
+      toggle.active = (@timeout != 0)
+      toggle.signal_connect("toggled"){ 
+        if @timeout and @timeout > 0
+          GLib::Source.remove(@timeout)
+          @timeout = 0
+        else 
+          @timeout = timeout_func
+        end
+      }
+    end
+    @dialog.show_all
+    @dialog.present
+  end
+
+end
+
+StatusIconSample.new
+  
+Gtk.main

data/sample/misc/stock.rb

@@ -0,0 +1,36 @@
+=begin
+  stock.rb - Gtk::Stock sample script.
+
+  Copyright (C) 2001-2006 Masao Mutoh
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: stock.rb,v 1.7 2006/06/17 13:18:12 mutoh Exp $
+=end
+
+require 'gtk2'
+
+window = Gtk::Window.new("Gtk::Stock sample")
+window.signal_connect("destroy"){Gtk.main_quit}
+
+stocks = Gtk::Stock.constants.sort
+
+image = Gtk::Image.new
+label = Gtk::Label.new
+button = Gtk::Button.new("Click!")
+cnt = 0
+button.signal_connect("clicked") do
+  stock_name = "Gtk::Stock::#{stocks[cnt]}"
+  label.set_text(stock_name)
+  image.set(eval(stock_name), Gtk::IconSize::DIALOG)
+  if cnt < stocks.size - 1
+    cnt += 1
+  else
+    cnt = 0
+  end
+end
+
+box = Gtk::VBox.new.add(image).add(label).add(button)
+window.add(box).set_default_size(200,200).show_all
+
+Gtk.main
+

data/sample/misc/style_property.rb

@@ -0,0 +1,67 @@
+#!/usr/bin/env ruby
+=begin
+  style_property.rb - Ruby/GTK2 sample script.
+
+  Copyright (c) 2004,2006 Ruby-GNOME2 Project Team
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: style_property.rb,v 1.4 2006/06/17 13:18:12 mutoh Exp $
+=end
+
+require 'gtk2'
+
+class MyButton < Gtk::Button
+  type_register
+
+  def initialize(label = nil)
+    # When type_register() is used.
+    # super is equivalent to GLib::Object#initialize.
+    super("label" => label)
+  end
+
+  install_style_property(GLib::Param::Int.new("foo", # name
+					      "Foo", # nick
+					      "FOO", # blurb
+					      0,     #min 
+					      100,   #max
+					      5,     #default
+					      GLib::Param::READABLE |
+					      GLib::Param::WRITABLE)) do |pspec, str|
+    p pspec, str
+    str.to_i + 10  #return the converted value.
+  end
+
+  install_style_property(GLib::Param::Enum.new("bar", # name
+					       "Bar", # nick
+					       "BAR", # blurb
+					       GLib::Type["GdkCursorType"], #Enum type
+					       Gdk::Cursor::ARROW, #default
+					       GLib::Param::READABLE |
+					       GLib::Param::WRITABLE)) do |pspec, str|
+    p pspec, str
+    if str.strip! == "boat"
+      Gdk::Cursor::BOAT
+    else
+      pspec.default
+    end
+  end
+end
+
+Gtk::RC.parse("./style_property.rc")
+
+win = Gtk::Window.new("Gtk::RC sample")
+b = MyButton.new("Hello")
+b.signal_connect("clicked"){ Gtk.main_quit }
+
+p MyButton.style_properties
+
+win.set_default_size(100, 100)
+win.add(b).show_all
+win.signal_connect("destroy"){ Gtk.main_quit }
+
+# You need to call them after "Gtk::Widget#show"
+# (Or in expose event).
+p b.style_get_property("foo")
+p cursor = b.style_get_property("bar")
+
+Gtk.main

data/sample/misc/style_property.rc

@@ -0,0 +1,19 @@
+/*
+  style_property.rc - Ruby/GTK sample rc file for style_property.rb.
+
+  Copyright (c) 2004 Ruby-GNOME2 Project Team
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: style_property.rc,v 1.1 2004/01/25 15:52:38 mutoh Exp $
+*/
+style "test-default"
+{
+	bg[NORMAL] = { 0.80, 0.80, 0.40 }
+	MyButton::focus-line-width    = 3
+	MyButton::focus-line-pattern    = "\10\2"
+	MyButton::foo = 30
+	MyButton::bar = boat
+}
+
+class "MyButton" style "test-default"
+

data/sample/misc/t-gtkplug.rb

@@ -0,0 +1,58 @@
+#!/usr/bin/env ruby
+
+=begin
+  Sample script using Gtk::Socket and Gtk::Plug.
+
+  $ ruby t-gtksocket.rb
+
+  Written by Alex Boussinet <mailto:dbug@wanadoo.fr> for testing purpose only.
+
+  Copyright (c) 2003-2006 Ruby-GNOME2 Project Team
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: t-gtkplug.rb,v 1.5 2006/06/17 13:18:12 mutoh Exp $
+=end
+
+require 'gtk2'
+
+class MyGtkPlug
+  def initialize(xid, plug)
+    plug = "Button" if plug.nil?
+    if xid.nil?
+      @window = Gtk::Window.new("Gtk::Plug Test")
+      @window.set_default_size(250, 50)
+    else
+      @window = Gtk::Plug.new(xid.to_i)
+    end
+    @window.window_position = Gtk::Window::POS_CENTER
+    @window.signal_connect("delete_event"){Gtk.main_quit}
+    @vbox = Gtk::VBox.new(true, 5)
+    @window.add(@vbox)
+    @button1 = Gtk::Button.new(plug)
+    @button1.signal_connect("clicked"){ $stderr.puts plug}
+    @button2 = Gtk::Button.new("Exit")
+    @button2.signal_connect("clicked"){Gtk.main_quit}
+    # Exit button to test an unexpected end of child process by Gtk::Socket
+    @vbox.add(@button1)
+    @vbox.add(@button2)
+    @window.show_all
+  end
+end
+
+xid = nil
+ARGV.each_index { |i|
+  arg = ARGV.at(i)
+  if arg == "-x"
+    if arg.length > 2
+      xid = arg[2..-1]
+    else
+      xid = ARGV.at(i + 1)
+      ARGV.delete_at(i + 1)
+    end
+    xid = nil if xid.to_i <= 0
+    ARGV.delete_at(i)
+  end 
+}
+
+MyGtkPlug.new(xid, ARGV.shift)
+Gtk.main