gtk3 2.2.4-x64-mingw32

data/sample/testgtk/menu.rb

@@ -0,0 +1,79 @@
+=begin header
+
+  menu.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+
+  $Id: menu.rb,v 1.6 2005/07/18 17:13:32 mutoh Exp $
+
+=end
+
+require 'sample'
+
+class MenuSample < SampleWindow
+  def initialize
+    super("menus")
+    signal_connect("delete_event") do true end
+
+    box = Gtk::VBox.new(false, 10)
+    add(box)
+
+    menubar = Gtk::MenuBar.new
+    box.pack_start(menubar, false, true, 0)
+
+    menu = create_menu(2, true)
+
+    menuitem = Gtk::MenuItem.new("test\nline2")
+    menuitem.set_submenu(menu)
+    menubar.append(menuitem)
+    
+    menuitem = Gtk::MenuItem.new("foo")
+    menuitem.set_submenu(create_menu(3, true))
+    menubar.append(menuitem)
+
+    menuitem = Gtk::MenuItem.new("bar")
+    menuitem.set_submenu(create_menu(4, true))
+    menuitem.right_justified = true
+    menubar.append(menuitem)
+
+    optionmenu = Gtk::OptionMenu.new
+    optionmenu.set_menu(create_menu(1, false))
+    optionmenu.history = 4
+    box.add(optionmenu)
+
+    box.add(Gtk::HSeparator.new)
+
+    button = Gtk::Button.new("close")
+    button.signal_connect("clicked"){destroy}
+
+    box.add(button)
+
+    button.set_flags(Gtk::Widget::CAN_DEFAULT)
+    button.grab_default
+  end
+  private
+  def create_menu(depth, tearoff)
+    return nil if depth < 1
+
+    menu = Gtk::Menu.new
+    group = nil
+
+    if tearoff then
+      menuitem = Gtk::TearoffMenuItem.new
+      menu.append(menuitem)
+    end
+
+    for i in 0..4
+      j = i + 1
+      buf = sprintf("item %2d - %d", depth, j)
+      menuitem = Gtk::RadioMenuItem.new(group, buf)
+      group = menuitem.group
+      menu.append(menuitem)
+      menuitem.set_sensitive(false) if i == 3
+      submenu = create_menu(depth - 1, true)
+      menuitem.set_submenu(submenu) unless submenu.nil?
+    end
+
+    menu
+  end
+end

data/sample/testgtk/notebook.rb

@@ -0,0 +1,280 @@
+=begin header
+
+  notebook.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+
+  $Id: notebook.rb,v 1.11 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'
+
+$book_open_xpm = [
+"16 16 4 1",
+"       c None s None",
+".      c black",
+"X      c #808080",
+"o      c white",
+"                ",
+"  ..            ",
+" .Xo.    ...    ",
+" .Xoo. ..oo.    ",
+" .Xooo.Xooo...  ",
+" .Xooo.oooo.X.  ",
+" .Xooo.Xooo.X.  ",
+" .Xooo.oooo.X.  ",
+" .Xooo.Xooo.X.  ",
+" .Xooo.oooo.X.  ",
+"  .Xoo.Xoo..X.  ",
+"   .Xo.o..ooX.  ",
+"    .X..XXXXX.  ",
+"    ..X.......  ",
+"     ..         ",
+"                "
+]
+
+$book_closed_xpm = [
+"16 16 6 1",
+"       c None s None",
+".      c black",
+"X      c red",
+"o      c yellow",
+"O      c #808080",
+"#      c white",
+"                ",
+"       ..       ",
+"     ..XX.      ",
+"   ..XXXXX.     ",
+" ..XXXXXXXX.    ",
+".ooXXXXXXXXX.   ",
+"..ooXXXXXXXXX.  ",
+".X.ooXXXXXXXXX. ",
+".XX.ooXXXXXX..  ",
+" .XX.ooXXX..#O  ",
+"  .XX.oo..##OO. ",
+"   .XX..##OO..  ",
+"    .X.#OO..    ",
+"     ..O..      ",
+"      ..        ",
+"                "
+]
+
+class NotebookSample < SampleWindow
+  def initialize
+    super("notebook")
+
+    vbox = Gtk::VBox.new(false, 0)
+    add(vbox)
+
+    @notebook = Gtk::Notebook.new
+    @notebook.signal_connect("switch_page") do |widget, page, num_page|
+      unless destroyed?
+        page_switch(widget, page, num_page)
+      end
+    end
+    @notebook.tab_pos = :top # Gtk::PositionType::TOP
+    vbox.add(@notebook)
+    @notebook.border_width = 10
+
+    @notebook.realize
+
+    @book_open = Gdk::Pixbuf.new($book_open_xpm)
+    @book_closed = Gdk::Pixbuf.new($book_closed_xpm)
+
+    create_pages(1, 5)
+
+    vbox.add(Gtk::HSeparator.new)
+
+    cbutton1 = Gtk::CheckButton.new("popup menu")
+    vbox.add(cbutton1)
+    cbutton1.signal_connect("clicked"){
+      @notebook.enable_popup = cbutton1.active?
+    }
+
+    hbox = Gtk::HBox.new(false, 5)
+    hbox.border_width = 10
+    vbox.pack_start(hbox, false, false, 0)
+
+    label = Gtk::Label.new("Notebook Style :")
+    hbox.add(label)
+
+=begin
+    omenu = build_option_menu([
+      OptionMenuItem.new("Standard", proc { standard_notebook }),
+      OptionMenuItem.new("No tabs",  proc { notabs_notebook }),
+      OptionMenuItem.new("Scrollable", proc { scrollable_notebook }) ], 0)
+
+    hbox.add(omenu)
+=end
+
+    button = Gtk::Button.new("Show all Pages")
+
+    hbox.add(button)
+    button.signal_connect('clicked'){
+      @notebook.each do |w|
+        w.show
+      end
+    }
+
+    hbox = Gtk::HBox.new(true, 10)
+    hbox.set_border_width(10)
+    vbox.pack_start(hbox, false, true, 0)
+
+    button = Gtk::Button.new("prev")
+    button.signal_connect("clicked"){
+      @notebook.prev_page
+    }
+    hbox.pack_start(button, true, true, 0)
+
+    button = Gtk::Button.new("next")
+    button.signal_connect("clicked"){
+      @notebook.next_page
+    }
+    hbox.pack_start(button, true, true, 0)
+
+    button = Gtk::Button.new("rotate")
+    button.signal_connect("clicked"){
+      @notebook.tab_pos = (@notebook.tab_pos.to_i + 1) % 4
+    }
+    hbox.pack_start(button, true, true, 0)
+
+    vbox.add(Gtk::HSeparator.new)
+
+    button = Gtk::Button.new("close")
+    button.signal_connect("clicked"){destroy}
+
+    vbox.pack_start(button, false, false, 5)
+
+    button.can_default = true
+    button.grab_default
+  end
+
+  def standard_notebook
+    @notebook.set_show_tabs(true)
+    @notebook.set_scrollable(false)
+    if @notebook.children.size == 15
+      10.times do
+        @notebook.remove_page(5)
+      end
+    end
+  end
+
+  def notabs_notebook
+    @notebook.set_show_tabs(false)
+    if @notebook.children.size == 15
+      10.times do
+        @notebook.remove_page(5)
+      end
+    end
+  end
+
+  def scrollable_notebook
+    @notebook.set_show_tabs(true)
+    @notebook.set_scrollable(true)
+    if @notebook.children.size == 5
+      create_pages(6, 15)
+    end
+  end
+
+  def create_pages(start_page, end_page)
+    start_page.upto(end_page) do |i|
+      buffer = "Page #{i}"
+
+      child = Gtk::Frame.new(buffer)
+      child.border_width = 10
+
+      vbox = Gtk::VBox.new(true, 0)
+      vbox.border_width = 10
+      child.add(vbox)
+
+      hbox = Gtk::HBox.new(true, 0)
+      vbox.pack_start(hbox, false, true, 5)
+
+      button1 = Gtk::CheckButton.new("Fill Tab")
+      hbox.pack_start(button1, true, true, 5)
+      button1.active = true
+      button1.signal_connect('toggled'){
+        @notebook.child_set_property(child, :tab_fill, button1.active?)
+      }
+
+      button2 = Gtk::CheckButton.new("Expand Tab")
+      hbox.pack_start(button2, true, true, 5)
+      button2.signal_connect('toggled'){
+        @notebook.child_set_property(child, :tab_expand, button2.active?)
+      }
+
+=begin
+      button3 = Gtk::CheckButton.new("Pack end")
+      hbox.pack_start(button3, true, true, 5)
+      button3.signal_connect('toggled'){
+        expand, fill, pack = @notebook.query_tab_label_packing(child)
+        @notebook.set_tab_label_packing(child, expand, fill, button3.active? ? :end : :start)
+      }
+=end
+
+      button = Gtk::Button.new("Hide Page")
+      vbox.pack_end(button, false, false, 5)
+      button.signal_connect('clicked'){
+        child.hide
+      }
+
+      child.show_all
+
+      label_box = Gtk::HBox.new(false, 0)
+      pixwid = Gtk::Image.new(@book_closed, @book_closed_mask)
+      label_box.pack_start(pixwid, false, true, 0)
+      pixwid.set_padding(3, 1)
+      label = Gtk::Label.new(buffer)
+      label_box.pack_start(label, false, true, 0)
+      label_box.show_all
+      
+      menu_box = Gtk::HBox.new(false, 0)
+      pixwid = Gtk::Image.new(@book_closed, @book_closed_mask)
+      menu_box.pack_start(pixwid, false, true, 0)
+      pixwid.set_padding(3, 1)
+      label = Gtk::Label.new(buffer)
+      menu_box.pack_start(label, false, true, 0)
+      menu_box.show_all
+
+      @notebook.append_page_menu(child, label_box, menu_box)
+    end
+  end
+
+  def set_page_pixmaps(notebook, page_num, pix, mask)
+    child = notebook.get_nth_page(page_num)
+    label = notebook.get_tab_label(child).children[0].set(pix, mask)
+  end
+
+  def page_switch(notebook, page, page_num)
+    old_page_num = notebook.page
+    return if (page_num == old_page_num)
+    set_page_pixmaps(notebook, page_num, @book_open, @book_open_mask)
+    if (old_page_num != -1)
+      set_page_pixmaps(notebook, old_page_num, @book_closed, @book_closed_mask)
+    end
+  end
+end
+

data/sample/testgtk/pixmap.rb

@@ -0,0 +1,58 @@
+=begin header
+
+  pixmap.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: pixmap.rb,v 1.5 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 PixmapSample < SampleWindow
+  def initialize
+    super("pixmap")
+
+    vbox = Gtk::VBox.new(false, 0)
+    add(vbox)
+
+    button = Gtk::Button.new
+    vbox.pack_start(button, false, false, 10)
+
+    label = Gtk::Label.new("Pixmap\ntest")
+    boxbutton = Gtk::HBox.new(false, 0)
+    boxbutton.border_width = 2
+    boxbutton.add(Gtk::Image.new("test.xpm"))
+    boxbutton.add(label)
+    button.add(boxbutton)
+
+    vbox.add(Gtk::HSeparator.new)
+
+    button = Gtk::Button.new("close")
+    button.signal_connect("clicked"){destroy}
+    vbox.pack_start(button, false, false, 10)
+  end
+end

data/sample/testgtk/progressbar.rb

@@ -0,0 +1,173 @@
+=begin header
+
+  progressbar.rb - a part of testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team
+
+  $Id: progressbar.rb,v 1.9 2005/07/18 17:13:32 mutoh Exp $
+
+  Rewritten by Minoru Inachi <inachi@earth.interq.or.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 ProgressBarSample < SampleDialog
+
+  def initialize
+    super("Gtk::ProgressBar")
+    set_border_width(10)
+
+    vbox1 = Gtk::VBox.new(false, 5)
+    vbox1.border_width = 10
+    child.add(vbox1)
+
+    frame = Gtk::Frame.new("Progress")
+    vbox1.add(frame)
+
+    vbox2 = Gtk::VBox.new(false, 5)
+    frame.add(vbox2)
+
+    align = Gtk::Alignment.new(0.5, 0.5, 0, 0)
+    vbox2.pack_start(align, FALSE, FALSE, 5)
+
+    @pbar = Gtk::ProgressBar.new
+    align.add(@pbar)
+    @timer = GLib::Timeout.add(100){progress_timeout}
+
+    align = Gtk::Alignment.new(0.5, 0.5, 0, 0)
+    vbox2.pack_start(align, false, false, 5);
+
+    hbox = Gtk::HBox.new(false, 5)
+    align.add(hbox)
+    label = Gtk::Label.new("Label updated by user :")
+    hbox.add(label)
+    @label = Gtk::Label.new("")
+    hbox.add(@label)
+
+    frame = Gtk::Frame.new("Options")
+    vbox1.add(frame)
+
+    vbox2 = Gtk::VBox.new(false, 5)
+    frame.add(vbox2)
+
+    tab = Gtk::Table.new(3, 2, false)
+    vbox2.add(tab)
+
+    label = Gtk::Label.new("Orientation :");
+    tab.attach(label, 0, 1, 0, 1, [:expand, :fill], [:expand, :fill], 5, 5) # Gtk::EXPAND | Gtk::FILL
+    label.set_alignment(0, 0.5)
+
+=begin
+    @omenu1 = build_option_menu(
+	[ OptionMenuItem.new("Left-Right", proc { |w| toggle_orientation(w) }),
+	  OptionMenuItem.new("Right-Left", proc { |w| toggle_orientation(w) }),
+	  OptionMenuItem.new("Bottom-Top", proc { |w| toggle_orientation(w) }),
+	  OptionMenuItem.new("Top-Bottom", proc { |w| toggle_orientation(w) })
+	], 0)
+    hbox = Gtk::HBox.new(false, 0)
+    tab.attach(hbox, 1, 2, 0, 1,
+		Gtk::EXPAND | Gtk::FILL, Gtk::EXPAND | Gtk::FILL,
+		5, 5);
+    hbox.add(@omenu1)
+=end
+
+    check = Gtk::CheckButton.new("Show text")
+    check.signal_connect("clicked") do |w| toggle_show_text(w) end
+    tab.attach(check, 0, 1, 1, 2, [:expand, :fill], [:expand, :fill], 5, 5)
+
+    hbox = Gtk::HBox.new(false, 0)
+    tab.attach(hbox, 1, 2, 1, 2, [:expand, :fill], [:expand, :fill], 5, 5)
+
+    label = Gtk::Label.new("Text align :")
+    tab.attach(label, 0, 1, 2, 3, [:expand, :fill], [:expand, :fill], 5, 5)
+    label.set_alignment(0, 0.5)
+
+    hbox = Gtk::HBox.new(false, 0)
+    tab.attach(hbox, 1, 2, 2, 3, [:expand, :fill], [:expand, :fill], 5, 5)
+
+    label = Gtk::Label.new("x :")
+    hbox.pack_start(label, false, true, 5)
+      
+    adj = Gtk::Adjustment.new(0.5, 0, 1, 0.1, 0.1, 0)
+    @x_align_spin = Gtk::SpinButton.new(adj, 0, 1)
+    adj.signal_connect("value_changed"){adjust_align}
+    hbox.pack_start(@x_align_spin, false, true, 0)
+    @x_align_spin.sensitive = false
+
+    label = Gtk::Label.new("y :")
+    hbox.pack_start(label, false, true, 5)
+
+    adj = Gtk::Adjustment.new(0.5, 0, 1, 0.1, 0.1, 0)
+    @y_align_spin = Gtk::SpinButton.new(adj, 0, 1)
+    adj.signal_connect("value_changed"){adjust_align}
+    hbox.pack_start(@y_align_spin, false, true, 0)
+    @y_align_spin.sensitive = false
+
+    button = Gtk::Button.new("close")
+    button.signal_connect("clicked"){
+      GLib::Source.remove(@timer)
+      destroy
+    }
+    button.can_default = true
+    self.action_area.add(button)
+    button.grab_default
+  end
+
+  private
+  def toggle_orientation(rmitem)
+    return unless rmitem.mapped?
+
+    i = 3
+    group = rmitem.group
+    group.each do |g|
+      break if g.active?
+      i -= 1
+    end
+
+    @pbar.orientation = i
+  end
+
+  private
+  def progress_timeout
+    new_val = @pbar.fraction + 0.05
+    new_val = 0.0 if new_val > 1.0
+    @pbar.fraction = new_val
+    @label.text = "#{(new_val * 100).to_i}"
+    true
+  end
+
+  private
+  def toggle_show_text(cbutton)
+    @pbar.show_text = cbutton.active?
+    @x_align_spin.sensitive = cbutton.active?
+    @y_align_spin.sensitive = cbutton.active?
+  end
+
+  private
+  def adjust_align
+    @pbar.text_xalign = @x_align_spin.value
+    @pbar.text_yalign = @y_align_spin.value
+  end
+
+end