gtk2 0.20.1 → 0.90.2

data/sample/testgtk/radiobutton.rb

@@ -0,0 +1,61 @@
+=begin header
+
+  radiobutton.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+
+  Rewritten by Hiroshi IGARASHI <igarashi@ueda.info.waseda.ac.jp>
+  $Date: 2005/07/18 17:13:32 $
+  $Id: radiobutton.rb,v 1.7 2005/07/18 17:13:32 mutoh Exp $
+
+Original Copyright:
+ 
+  GTK - The GIMP Toolkit
+  Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
+ 
+  This library is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Library General Public
+  License as published by the Free Software Foundation; either
+  version 2 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
+  Library General Public License for more details.
+ 
+  You should have received a copy of the GNU Library General Public
+  License along with this library; if not, write to the
+  Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+  Boston, MA 02111-1307, USA.
+
+=end
+
+require 'sample'
+
+class RadioButtonSample < SampleWindow
+  def initialize
+    super("radio buttons")
+    set_border_width(10)
+
+    vbox = Gtk::VBox.new(false, 10)
+    add(vbox)
+
+    button1 = Gtk::RadioButton.new("button1")
+    vbox.add(button1)
+
+    button2 = Gtk::RadioButton.new(button1, "button2")
+    vbox.add(button2)
+
+    button3 = Gtk::RadioButton.new(button1, "button3")
+    vbox.add(button3)
+
+    vbox.add(Gtk::HSeparator.new)
+
+    button = Gtk::Button.new("close")
+    button.signal_connect("clicked"){destroy}
+    vbox.pack_start(button, false, true)
+
+    button.can_default = true
+    button.grab_default
+  end
+end

data/sample/testgtk/range.rb

@@ -0,0 +1,65 @@
+=begin header
+
+  range.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+
+  $Id: range.rb,v 1.6 2005/07/18 17:13:32 mutoh Exp $
+
+  Rewritten by TAKAHASHI Hitoshi <thitoshi@ne.scphys.kyoto-u.ac.jp>
+
+Original Copyright:
+
+  GTK - The GIMP Toolkit
+  Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
+ 
+  This library is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Library General Public
+  License as published by the Free Software Foundation; either
+  version 2 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
+  Library General Public License for more details.
+ 
+  You should have received a copy of the GNU Library General Public
+  License along with this library; if not, write to the
+  Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+  Boston, MA 02111-1307, USA.
+
+=end
+
+require 'sample'
+
+class RangeSample < SampleWindow
+  def initialize
+    super("range controls")
+
+    vbox = Gtk::VBox.new(false, 10)
+    add(vbox)
+
+    adjustment = Gtk::Adjustment.new(0.0, 0.0, 101.0, 0.1, 1.0, 1.0)
+
+    scale = Gtk::HScale.new(adjustment)
+    scale.set_size_request(150, 50)
+    scale.update_policy = Gtk::UPDATE_DELAYED
+    scale.digits = 1
+    scale.draw_value = true
+
+    vbox.add(scale)
+
+    scrollbar = Gtk::HScrollbar.new(adjustment)
+    scrollbar.update_policy = Gtk::UPDATE_CONTINUOUS
+    vbox.add(scrollbar)
+
+    vbox.add(Gtk::HSeparator.new)
+
+    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/sample/testgtk/reparent.rb

@@ -0,0 +1,91 @@
+=begin header
+
+  reparent.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+
+  $Id: reparent.rb,v 1.6 2005/07/18 17:13:33 mutoh Exp $
+
+  Rewritten by TAKAHASHI Hitoshi <thitoshi@ne.scphys.kyoto-u.ac.jp>
+
+Original Copyright:
+
+  GTK - The GIMP Toolkit
+  Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
+ 
+  This library is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Library General Public
+  License as published by the Free Software Foundation; either
+  version 2 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
+  Library General Public License for more details.
+ 
+  You should have received a copy of the GNU Library General Public
+  License along with this library; if not, write to the
+  Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+  Boston, MA 02111-1307, USA.
+
+=end
+
+require 'sample'
+
+class ReparentSample < SampleWindow
+  def initialize
+    super("reparent")
+
+    vbox = Gtk::VBox.new(false, 0)
+    add(vbox)
+
+    box2 = Gtk::HBox.new(false, 5)
+    box2.set_border_width(10)
+    vbox.pack_start(box2, true, true, 0)
+
+    label = Gtk::Label.new("Hello World")
+
+    frame = Gtk::Frame.new("Frame 1")
+    box2.pack_start(frame, true, true, 0)
+
+    framebox1 = Gtk::VBox.new(false, 5)
+    framebox1.border_width = 5
+    frame.add(framebox1)
+
+    button = Gtk::Button.new("switch")
+    button.signal_connect("clicked"){
+      label.reparent(framebox1)
+    }
+    framebox1.pack_start(button, false, true, 0)
+
+    framebox1.add(label)
+    label.signal_connect("parent_set"){ |child, old_parent|
+      puts "set_parent for \"#{child.class}\":"
+      puts " new parent: \"#{if child.parent then child.parent.class else 'NULL' end}\","
+      puts " old parent: \"#{if old_parent then old_parent.class else 'NULL' end}\","
+      puts " data: 42\n"
+    }
+
+    frame = Gtk::Frame.new("Frame 2")
+    box2.pack_start(frame, true, true, 0)
+
+    framebox2 = Gtk::VBox.new(false, 5)
+    framebox2.border_width = 5
+    frame.add(framebox2)
+
+    button = Gtk::Button.new("switch")
+    button.signal_connect("clicked"){
+      label.reparent(framebox2)
+    }
+    framebox2.pack_start(button, false, true, 0)
+
+    vbox.pack_start(Gtk::HSeparator.new, false, true)
+
+    button = Gtk::Button.new("close")
+    button.signal_connect("clicked"){destroy}
+
+    vbox.pack_start(button, false, true, 10)
+    button.can_default = true
+    button.grab_default
+  end
+end

data/sample/testgtk/rulers.rb

@@ -0,0 +1,46 @@
+=begin header
+
+  rulers.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+
+  $Id: rulers.rb,v 1.9 2005/07/18 17:13:33 mutoh Exp $
+
+=end
+
+require 'sample'
+
+class RulerSample < SampleWindow
+  def initialize
+    super("rulers")
+
+    set_default_size(300, 300)
+
+    set_events(Gdk::Event::POINTER_MOTION_MASK | 
+	       Gdk::Event::POINTER_MOTION_HINT_MASK)
+
+    table = Gtk::Table.new(2, 2, false)
+    add(table)
+
+    hruler = Gtk::HRuler.new
+    hruler.metric = Gtk::CENTIMETERS
+    hruler.set_range(100, 0, 0, 20)
+
+    vruler = Gtk::VRuler.new
+    vruler.set_range(5, 15, 0, 20)
+
+    signal_connect("motion_notify_event"){ |w, e|
+      vruler.signal_emit("motion_notify_event", e)
+    }
+
+    table.attach(hruler, 1, 2, 0, 1,
+		 Gtk::EXPAND | Gtk::FILL, Gtk::FILL, 0, 0)
+
+    signal_connect("motion_notify_event"){ |w, e|
+       hruler.signal_emit("motion_notify_event", e)
+    }
+
+    table.attach(vruler, 0, 1, 1, 2,
+		 Gtk::FILL, Gtk::EXPAND | Gtk::FILL, 0, 0)
+  end
+end

data/sample/testgtk/sample.rb

@@ -0,0 +1,80 @@
+=begin header
+
+  sample.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+
+  $Id: sample.rb,v 1.9 2005/07/21 17:47:19 mutoh Exp $
+
+=end
+
+require 'gtk2'
+
+module Sample
+  def destroy
+    super
+    @destroyed = true
+  end
+  def destroyed?
+    @destroyed
+  end
+end
+
+module SampleClass
+  def invoke
+    @singleton = nil unless defined? @singleton
+    @singleton = new if @singleton.nil? or @singleton.destroyed?
+    unless @singleton.visible?
+      @singleton.show_all
+    else
+      @singleton.destroy
+    end
+  end
+end
+
+class SampleWindow < Gtk::Window
+  include Sample
+  extend SampleClass
+
+  def initialize(title)
+    super(title)
+    @destroyed = false
+    signal_connect("destroy") do destroy end
+  end
+end
+
+class SampleDialog < Gtk::Dialog
+  include Sample
+  extend SampleClass
+
+  def initialize(title)
+    super(title)
+    @destroyed = false
+    signal_connect("destroy") do destroy end
+  end
+end
+
+OptionMenuItem = Struct.new("OptionMenuItem", :name, :block)
+
+def build_option_menu(items, history)
+  omenu = Gtk::OptionMenu.new
+
+  menu = Gtk::Menu.new
+  group = nil
+
+  items.size.times do |i|
+    menu_item = Gtk::RadioMenuItem.new(group, items[i].name)
+    menu_item.signal_connect("activate") do |widget|
+       items[i].block.call(widget)
+    end
+    group = menu_item.group
+    menu.append(menu_item)
+    menu_item.active = true if i == history
+    menu_item.show
+  end
+
+  omenu.menu = menu
+  omenu.history = history
+
+  omenu
+end

data/sample/testgtk/savedposition.rb

@@ -0,0 +1,87 @@
+=begin
+
+  savedposition.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+
+  $Id: savedposition.rb,v 1.7 2005/07/21 17:47:19 mutoh Exp $
+
+  Rewritten by TAKAHASHI Hitoshi <thitoshi@ne.scphys.kyoto-u.ac.jp>
+
+Original Copyright:
+
+  GTK - The GIMP Toolkit
+  Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
+ 
+  This library is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Library General Public
+  License as published by the Free Software Foundation; either
+  version 2 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
+  Library General Public License for more details.
+ 
+  You should have received a copy of the GNU Library General Public
+  License along with this library; if not, write to the
+  Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+  Boston, MA 02111-1307, USA.
+
+=end
+
+require 'sample'
+
+class SavedPositionSample < SampleWindow
+  Pos = [ 0, 0 ]
+
+  def initialize
+    super("Saved Position")
+    move(Pos[0], Pos[1])
+    set_default_size(200, 100)
+    set_border_width = 5
+
+    vbox = Gtk::VBox.new
+    add(vbox)
+
+    hbox1 = Gtk::HBox.new
+    hbox1.border_width = 5
+    vbox.add(hbox1)
+
+    label = Gtk::Label.new("X Origin : ")
+    label.set_alignment(0, 0.5)
+    hbox1.add(label)
+
+    x_label = Gtk::Label.new("")
+    hbox1.add(x_label)
+
+    hbox2 = Gtk::HBox.new
+    hbox2.set_border_width(5)
+    vbox.add(hbox2)
+
+    label = Gtk::Label.new("Y Origin : ")
+    label.set_alignment(0, 0.5)
+    hbox2.add(label)
+ 
+    y_label = Gtk::Label.new("")
+    hbox2.add(y_label)
+
+    signal_connect("configure_event") do
+      x, y = window.root_origin
+      Pos[0] = x
+      Pos[1] = y
+      x_label.text = x.to_s
+      y_label.text = y.to_s
+      false
+    end
+
+    vbox.pack_start(Gtk::HSeparator.new, false, true, 10)
+
+    button = Gtk::Button.new("Close")
+    button.signal_connect("clicked"){destroy}
+
+    vbox.add(button)
+    button.can_default = true
+    button.grab_default
+  end
+end

data/sample/testgtk/scrolledwindow.rb

@@ -0,0 +1,67 @@
+=begin header
+
+  scrolledwindow.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+
+  Rewritten by Hiroshi IGARASHI <igarashi@ueda.info.waseda.ac.jp>
+  $Date: 2005/07/21 17:47:19 $
+  $Id: scrolledwindow.rb,v 1.7 2005/07/21 17:47:19 mutoh Exp $
+
+Original Copyright:
+ 
+  GTK - The GIMP Toolkit
+  Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
+ 
+  This library is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Library General Public
+  License as published by the Free Software Foundation; either
+  version 2 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
+  Library General Public License for more details.
+ 
+  You should have received a copy of the GNU Library General Public
+  License along with this library; if not, write to the
+  Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+  Boston, MA 02111-1307, USA.
+
+=end
+
+require 'sample'
+
+class ScrolledWindowSample < SampleDialog
+  def initialize
+    super("dialog")
+
+    scrolled_window = Gtk::ScrolledWindow.new
+    scrolled_window.border_width = 10
+    scrolled_window.set_policy(Gtk::POLICY_AUTOMATIC,
+                               Gtk::POLICY_AUTOMATIC)
+    vbox.add(scrolled_window)
+
+    table = Gtk::Table.new(20, 20, false)
+    table.row_spacings = 10
+    table.column_spacings = 10
+    scrolled_window.add_with_viewport(table)
+
+    table.focus_hadjustment = scrolled_window.hadjustment
+    table.focus_vadjustment = scrolled_window.vadjustment
+
+    for i in 0..19
+      for j in 0..19
+        buffer = "button (#{i},#{j})"
+        button = Gtk::ToggleButton.new(buffer)
+        table.attach(button, i, i + 1, j, j + 1)
+      end
+    end
+
+    button = Gtk::Button.new("close")
+    button.signal_connect("clicked"){destroy}
+    action_area.pack_start(button, true, true, 0)
+
+    set_default_size(300, 300)
+  end
+end