gtk2 0.20.1 → 0.90.2

data/sample/testgtk/check-n.xpm

@@ -0,0 +1,21 @@
+/* XPM */
+static char *openfile[] = {
+/* width height num_colors chars_per_pixel */
+"    10    9       5            1",
+/* colors */
+". c None",
+"# c #000000",
+"y c #666666",
+"i c #ff1f00",
+"# c #9f9f9f",
+/* pixels */
+"..........",
+"........yy",
+".......yy.",
+"......yy..",
+".yyy.yy...",
+"..yyyy....",
+"...yy.....",
+"..........",
+"..........",
+};

data/sample/testgtk/check-y.xpm

@@ -0,0 +1,21 @@
+/* XPM */
+static char *openfile[] = {
+/* width height num_colors chars_per_pixel */
+"    10    9       5            1",
+/* colors */
+". c None",
+"# c #000000",
+"i c #ff0fff",
+"y c #ff1f00",
+"# c #9f9f9f",
+/* pixels */
+"..........",
+"........yy",
+".......yy.",
+"......yy..",
+".yyy.yy...",
+"..yyyy....",
+"...yy.....",
+"..........",
+"..........",
+};

data/sample/testgtk/checkbutton.rb

@@ -0,0 +1,67 @@
+=begin header
+
+  checkbutton.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+  $Id: checkbutton.rb,v 1.6 2005/07/17 16:55:26 mutoh Exp $
+
+  Rewritten by Hiroshi IGARASHI <igarashi@ueda.info.waseda.ac.jp>
+  $Date: 2005/07/17 16:55:26 $
+  $Id: checkbutton.rb,v 1.6 2005/07/17 16:55:26 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 CheckButtonSample < SampleWindow
+  def initialize
+    super("check buttons")
+
+    box1 = Gtk::VBox.new
+    add(box1)
+
+    box2 = Gtk::VBox.new(false, 10)
+    box2.border_width = 10
+    box1.add(box2)
+
+    button = Gtk::CheckButton.new("button1")
+    box2.add(button)
+
+    button = Gtk::CheckButton.new("button2")
+    box2.add(button)
+
+    button = Gtk::CheckButton.new("button3")
+    box2.add(button)
+
+    box1.pack_start(Gtk::HSeparator.new)
+
+    box2 = Gtk::VBox.new(false, 10)
+    box2.border_width = 10
+    box1.add(box2)
+
+    button = Gtk::Button.new("close")
+    button.signal_connect("clicked"){destroy}
+
+    box2.add(button)
+  end
+end

data/sample/testgtk/circles.xbm

@@ -0,0 +1,46 @@
+#define circles_width 64
+#define circles_height 64
+static unsigned char circles_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff,
+   0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0xff, 0xff, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0xfc, 0xff, 0xff, 0x07, 0x00, 0x00, 0x00, 0x00, 0xff, 0xff,
+   0xff, 0x1f, 0x00, 0x00, 0x00, 0xc0, 0xff, 0xff, 0xff, 0x7f, 0x00, 0x00,
+   0x00, 0xe0, 0xff, 0xff, 0xff, 0xff, 0x00, 0x00, 0x00, 0xf0, 0xff, 0xff,
+   0xff, 0xff, 0x01, 0x00, 0x00, 0xfc, 0xff, 0xff, 0xff, 0xff, 0x07, 0x00,
+   0x00, 0xfe, 0xff, 0x01, 0xf0, 0xff, 0x0f, 0x00, 0x00, 0xff, 0x3f, 0x00,
+   0x80, 0xff, 0x1f, 0x00, 0x80, 0xff, 0x0f, 0x00, 0x00, 0xfe, 0x3f, 0x00,
+   0x80, 0xff, 0x03, 0x00, 0x00, 0xf8, 0x3f, 0x00, 0xc0, 0xff, 0x01, 0x00,
+   0x00, 0xf0, 0x7f, 0x00, 0xe0, 0x7f, 0x00, 0x00, 0x00, 0xc0, 0xff, 0x00,
+   0xf0, 0x3f, 0x00, 0x00, 0x00, 0x80, 0xff, 0x01, 0xf0, 0x1f, 0x00, 0x00,
+   0x00, 0x00, 0xff, 0x01, 0xf8, 0x1f, 0x00, 0x20, 0x00, 0x00, 0xff, 0x03,
+   0xf8, 0x0f, 0x00, 0xff, 0x07, 0x00, 0xfe, 0x03, 0xfc, 0x07, 0xc0, 0xff,
+   0x1f, 0x00, 0xfc, 0x07, 0xfc, 0x07, 0xf0, 0xff, 0x7f, 0x00, 0xfc, 0x07,
+   0xfc, 0x03, 0xf8, 0xff, 0xff, 0x00, 0xf8, 0x07, 0xfe, 0x03, 0xfc, 0xff,
+   0xff, 0x01, 0xf8, 0x0f, 0xfe, 0x01, 0xfe, 0x8f, 0xff, 0x03, 0xf0, 0x0f,
+   0xfe, 0x01, 0xfe, 0x01, 0xfc, 0x03, 0xf0, 0x0f, 0xff, 0x01, 0xff, 0x00,
+   0xf8, 0x07, 0xf0, 0x1f, 0xff, 0x00, 0x7f, 0x00, 0xf0, 0x07, 0xe0, 0x1f,
+   0xff, 0x80, 0x3f, 0x00, 0xe0, 0x0f, 0xe0, 0x1f, 0xff, 0x80, 0x1f, 0x00,
+   0xc0, 0x0f, 0xe0, 0x1f, 0xff, 0x80, 0x1f, 0x00, 0xc0, 0x0f, 0xe0, 0x1f,
+   0xff, 0x80, 0x1f, 0x00, 0xc0, 0x0f, 0xe0, 0x1f, 0xff, 0x80, 0x0f, 0x00,
+   0x80, 0x0f, 0xe0, 0x1f, 0xff, 0xc0, 0x0f, 0x00, 0x80, 0x1f, 0xe0, 0x1f,
+   0xff, 0x80, 0x0f, 0x00, 0x80, 0x0f, 0xe0, 0x1f, 0xff, 0x80, 0x1f, 0x00,
+   0xc0, 0x0f, 0xe0, 0x1f, 0xff, 0x80, 0x1f, 0x00, 0xc0, 0x0f, 0xe0, 0x1f,
+   0xff, 0x80, 0x1f, 0x00, 0xc0, 0x0f, 0xe0, 0x1f, 0xff, 0x81, 0x3f, 0x00,
+   0xe0, 0x0f, 0xf0, 0x1f, 0xfe, 0x01, 0x7f, 0x00, 0xf0, 0x07, 0xf0, 0x0f,
+   0xfe, 0x01, 0xff, 0x00, 0xf8, 0x07, 0xf0, 0x0f, 0xfe, 0x03, 0xfe, 0x01,
+   0xfc, 0x03, 0xf8, 0x0f, 0xfc, 0x03, 0xfe, 0x8f, 0xff, 0x03, 0xf8, 0x07,
+   0xfc, 0x07, 0xfc, 0xff, 0xff, 0x01, 0xfc, 0x07, 0xfc, 0x07, 0xf8, 0xff,
+   0xff, 0x00, 0xfc, 0x07, 0xf8, 0x0f, 0xf0, 0xff, 0x7f, 0x00, 0xfe, 0x03,
+   0xf8, 0x1f, 0xc0, 0xff, 0x1f, 0x00, 0xff, 0x03, 0xf0, 0x1f, 0x00, 0xff,
+   0x07, 0x00, 0xff, 0x01, 0xf0, 0x3f, 0x00, 0x20, 0x00, 0x80, 0xff, 0x01,
+   0xe0, 0x7f, 0x00, 0x00, 0x00, 0xc0, 0xff, 0x00, 0xc0, 0xff, 0x01, 0x00,
+   0x00, 0xf0, 0x7f, 0x00, 0x80, 0xff, 0x03, 0x00, 0x00, 0xf8, 0x3f, 0x00,
+   0x80, 0xff, 0x0f, 0x00, 0x00, 0xfe, 0x3f, 0x00, 0x00, 0xff, 0x3f, 0x00,
+   0x80, 0xff, 0x1f, 0x00, 0x00, 0xfe, 0xff, 0x01, 0xf0, 0xff, 0x0f, 0x00,
+   0x00, 0xfc, 0xff, 0xff, 0xff, 0xff, 0x07, 0x00, 0x00, 0xf0, 0xff, 0xff,
+   0xff, 0xff, 0x01, 0x00, 0x00, 0xe0, 0xff, 0xff, 0xff, 0xff, 0x00, 0x00,
+   0x00, 0xc0, 0xff, 0xff, 0xff, 0x7f, 0x00, 0x00, 0x00, 0x00, 0xff, 0xff,
+   0xff, 0x1f, 0x00, 0x00, 0x00, 0x00, 0xfc, 0xff, 0xff, 0x07, 0x00, 0x00,
+   0x00, 0x00, 0xe0, 0xff, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff,
+   0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};

data/sample/testgtk/colorselect.rb

@@ -0,0 +1,33 @@
+=begin
+
+  colorselect.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project
+  $Id: colorselect.rb,v 1.5 2005/07/17 16:55:27 mutoh Exp $
+=end
+
+require 'sample'
+
+class ColorSelectionSample < Gtk::ColorSelectionDialog
+  include Sample
+  extend SampleClass
+
+  def initialize
+    super("color selection dialog")
+    @destroyed = false
+    signal_connect("destroy"){destroy}
+
+    colorsel.set_has_opacity_control(true)
+    set_window_position(Gtk::Window::POS_MOUSE)
+
+    colorsel.signal_connect("color_changed"){
+      colorsel.current_color
+    }
+    ok_button.signal_connect("clicked"){
+      color = colorsel.current_color
+      colorsel.set_current_color(color)
+    }
+    cancel_button.signal_connect("clicked"){destroy}
+  end
+end
+

data/sample/testgtk/dialog.rb

@@ -0,0 +1,47 @@
+=begin
+
+  dialog.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+  $Id: dialog.rb,v 1.6 2005/07/17 16:55:27 mutoh Exp $
+
+=end
+
+require 'sample'
+
+class DialogSample < SampleDialog
+
+  def initialize
+    super("Gtk::Dialog")
+    set_default_size(200, 100)
+
+    button = Gtk::Button.new("OK")
+    button.can_default = true
+
+    action_area.pack_start(button)
+    button.grab_default
+
+    button = Gtk::Button.new("Toggle")
+    button.signal_connect("clicked"){label_toggle}
+
+    button.can_default = true
+    action_area.pack_start(button)
+
+    @label = nil
+  end
+
+  private
+  def label_toggle
+    if @label == nil then
+      @label = Gtk::Label.new("Dialog Test")
+      @label.signal_connect("destroy"){@label = nil}
+      @label.set_padding(10, 10)
+
+      vbox.pack_start(@label)
+      @label.show
+    else
+      @label.destroy
+    end
+  end
+
+end

data/sample/testgtk/entry.rb

@@ -0,0 +1,73 @@
+=begin header
+
+  entry.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002,2003 Ruby-GNOME2 Project Team
+
+  $Id: entry.rb,v 1.6 2005/07/17 16:55:27 mutoh Exp $
+
+=end
+
+require 'sample'
+
+class EntrySample < SampleWindow
+  def initialize
+    cbitems = [
+      "item0",
+      "item1 item1",
+      "item2 item2 item2",
+      "item3 item3 item3 item3",
+      "item4 item4 item4 item4 item4",
+      "item5 item5 item5 item5 item5 item5",
+      "item6 item6 item6 item6 item6",
+      "item7 item7 item7 item7",
+      "item8 item8 item8",
+      "item9 item9"
+    ]
+
+    super("entry")
+
+    box = Gtk::VBox.new(false, 5)
+    add(box)
+
+    entry = Gtk::Entry.new
+    entry.text = "hello world"
+    entry.select_region(0, 5)
+    box.add(entry)
+
+    cb = Gtk::Combo.new
+    cb.set_popdown_strings(cbitems)
+    cb.entry.text = "hello world"
+    cb.entry.select_region(0, -1)
+    box.add(cb)
+
+    editable_check = Gtk::CheckButton.new("Editable")
+    box.add(editable_check)
+    editable_check.signal_connect("toggled"){
+      entry.editable = editable_check.active?
+    }
+    editable_check.active = true
+
+    visible_check = Gtk::CheckButton.new("Visible")
+    box.add(visible_check)
+    visible_check.signal_connect("toggled"){
+      entry.visibility = visible_check.active?
+    }
+    visible_check.active = true
+
+    sensitive_check = Gtk::CheckButton.new("Sensitive")
+    box.add(sensitive_check)
+    sensitive_check.signal_connect("toggled"){
+      entry.sensitive = sensitive_check.active?
+    }
+    sensitive_check.active = true
+
+    box.pack_start(Gtk::HSeparator.new, false, true, 5)
+
+    button = Gtk::Button.new("close")
+    button.signal_connect("clicked"){ destroy }
+    
+    box.add(button)
+
+  end
+end

data/sample/testgtk/filesel.rb

@@ -0,0 +1,67 @@
+=begin header
+
+  filesel.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+
+  $Id: filesel.rb,v 1.6 2005/07/17 16:55:27 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 FileSelectionSample < Gtk::FileSelection
+  include Sample
+  extend SampleClass
+
+  def initialize
+    super("file selection dialog")
+    @destroyed = false
+    signal_connect("destroy") do destroy end
+
+    set_window_position(Gtk::Window::POS_MOUSE)
+    hide_fileop_buttons
+
+    ok_button.signal_connect("clicked") do
+      puts filename
+      destroy
+    end
+    cancel_button.signal_connect("clicked") do
+      destroy
+    end
+
+    button = Gtk::Button.new("Hide Fileops")
+    button.signal_connect("clicked") do
+      hide_fileop_buttons
+    end
+    action_area.pack_start(button, false, false, 0)
+
+    button = Gtk::Button.new("Show Fileops")
+    button.signal_connect("clicked") do
+      show_fileop_buttons
+    end
+    action_area.pack_start(button, false, false, 0)
+  end
+end

data/sample/testgtk/fontselection.rb

@@ -0,0 +1,56 @@
+=begin header
+
+  fontselection.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+
+  $Id: fontselection.rb,v 1.6 2005/07/17 16:55:27 mutoh Exp $
+
+  Rewritten by Neil Conway <neilconway@rogers.com>
+
+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 FontSelectionSample < Gtk::FontSelectionDialog
+  include Sample
+  extend SampleClass
+
+  def initialize
+    super('Font Selection Dialog')
+    set_window_position(Gtk::Window::POS_MOUSE)
+    
+    signal_connect('destroy') {
+      destroy
+    }
+    
+    ok_button.signal_connect('clicked') {
+      puts font_name
+      destroy
+    }
+    
+    cancel_button.signal_connect('clicked') {
+      destroy
+    }
+  end
+end

data/sample/testgtk/gammacurve.rb

@@ -0,0 +1,70 @@
+=begin header
+
+  gammacurve.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+
+  $Id: gammacurve.rb,v 1.6 2005/07/17 16:55:27 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 GammaCurveSample < SampleWindow
+  include Math
+
+  def initialize
+    super("Gtk::GammaCurve")
+    set_border_width(10)
+
+    @curve = Gtk::GammaCurve.new
+    add(@curve)
+    @count = 0
+  end
+
+  def update
+    max = 127 + (@count % 2) * 128
+    @curve.curve.set_range(0, max, 0, max)
+    vec = []
+    max.times do |i|
+      vec[i] = (127 / sqrt(max)) * sqrt(i)
+    end
+    @curve.curve.set_vector(max, vec)
+    @count += 1
+  end
+
+  attr_reader :count
+
+  def GammaCurveSample.invoke
+    @singleton = new if @singleton.nil? or @singleton.destroyed?
+    @singleton.update
+    unless @singleton.visible?
+      @singleton.show_all
+    end
+    if @singleton.count == 4
+      @singleton.destroy
+    end
+  end
+end