gtk2 0.20.1 → 0.90.2

data/sample/testgtk/testgtk.rb

@@ -0,0 +1,179 @@
+#!/usr/bin/env ruby
+
+=begin header
+
+  testgtk.rb - testgtk.c rewritten in Ruby/GTK2
+
+  Copyright (C) 2002-2006 Ruby-GNOME2 Project Team
+
+  $Id: testgtk.rb,v 1.16 2006/06/17 13:18:12 mutoh Exp $
+
+  Rewritten by Hiroshi IGARASHI <igarashi@ueda.info.waseda.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 'gtk2'
+require 'sample'
+require 'button'
+require 'checkbutton'
+require 'togglebutton'
+require 'radiobutton'
+require 'buttonbox'
+require 'toolbar'
+require 'statusbar'
+require 'reparent'
+require 'pixmap'
+require 'tooltips'
+require 'labels'
+require 'layout'
+require 'menu'
+require 'scrolledwindow'
+require 'entry'
+require 'spinbutton'
+require 'colorselect'
+require 'dialog'
+require 'range'
+require 'rulers'
+require 'notebook'
+require 'shapedwindow'
+require 'wmhints'
+require 'progressbar'
+require 'gammacurve'
+require 'savedposition'
+require 'filesel'
+require 'fontselection'
+
+#
+# Main Window
+#
+def create_main_window
+  buttons = [
+    ["button box", ButtonBoxSample],
+    ["buttons", ButtonSample],
+    ["check buttons", CheckButtonSample],
+    ["color selection", ColorSelectionSample],
+    ["dialog", DialogSample],
+    ["entry", EntrySample],
+    ["file selection", FileSelectionSample],
+    ["font selection", FontSelectionSample],
+    ["gamma curve", GammaCurveSample],
+    ["labels", LabelSample],
+    ["layout", LayoutSample],
+    ["menus", MenuSample],
+    ["notebook", NotebookSample],
+    ["pixmap", PixmapSample],
+    ["progress bar", ProgressBarSample],
+    ["radio buttons", RadioButtonSample],
+    ["range controls", RangeSample],
+    ["reparent", ReparentSample],
+    ["rulers", RulerSample],
+    ["saved position", SavedPositionSample],
+    ["scrolled windows", ScrolledWindowSample],
+    ["shapes", ShapesSample],
+    ["spinbutton", SpinButtonSample],
+    ["statusbar", StatusbarSample],
+    ["toggle buttons", ToggleButtonSample],
+    ["toolbar", ToolbarSample],
+    ["tooltips", TooltipsSample],
+    ["WM hints", WMHintsSample],
+  ]
+  nbuttons = buttons.size
+
+  window = Gtk::Window.new
+  window.name = "main window"
+
+  window.set_default_size(200, 400)
+  window.move(20, 20)
+
+  window.signal_connect("destroy"){Gtk.main_quit}
+
+  box1 = Gtk::VBox.new(false, 0)
+  window.add(box1)
+
+  label = Gtk::Label.new("Gtk+ v#{Gtk::MAJOR_VERSION}.#{Gtk::MINOR_VERSION}.#{Gtk::MICRO_VERSION}")
+  box1.pack_start(label, false, false, 0)
+
+  label = Gtk::Label.new("Ruby/GTK2 v#{Gtk::BINDING_VERSION.join(".")}")
+  box1.pack_start(label, false, false, 0)
+
+  scrolled_window = Gtk::ScrolledWindow.new(nil, nil)
+  scrolled_window.border_width = 10
+  scrolled_window.set_policy(Gtk::POLICY_AUTOMATIC,
+                             Gtk::POLICY_AUTOMATIC)
+  box1.pack_start(scrolled_window, true, true, 0)
+
+  box2 = Gtk::VBox.new(false, 0)
+  box2.border_width = 10
+  scrolled_window.add_with_viewport(box2);
+  box2.focus_vadjustment = scrolled_window.vadjustment
+
+  buttons.each do |title, sample_class|
+    button = Gtk::Button.new(title)
+    unless sample_class.nil?
+      button.signal_connect("clicked"){|obj|
+        sample_class.invoke
+      }
+    else
+      button.sensitive = false
+    end
+    box2.pack_start(button, true, true, 0)
+  end
+
+  box1.pack_start(Gtk::HSeparator.new, false, true, 0)
+
+  button = Gtk::Button.new("close")
+  button.signal_connect("clicked") do
+    window.destroy
+    Gtk.main_quit
+  end
+  box1.pack_start(button, false, true, 5)
+  window.show_all
+end
+
+def main
+  srand
+  Gtk::RC.parse("testgtkrc")
+  create_main_window
+  Gtk.main
+end
+
+if $DEBUG
+  $stderr.sync = true
+  Thread.start do
+    loop do
+      STDERR.print("+")
+      GC.start
+      sleep(1)
+    end
+  end
+  $stderr.puts("#{$0}: started GC-thread for debugging.")
+
+  # timeout
+  Gtk.timeout_add(1000) do
+    $stderr.print("*")
+    true
+  end
+end
+
+main
+puts("#{$0}: done.")

data/sample/testgtk/testgtkrc

@@ -0,0 +1,146 @@
+# pixmap_path "<dir 1>:<dir 2>:<dir 3>:..."
+#
+# include "rc-file"
+#
+# style <name> [= <name>]
+# {
+#   <option>
+# }
+#
+# widget <widget_set> style <style_name>
+# widget_class <widget_class_set> style <style_name>
+
+# testgtkrc2 sets all the buttons in the main window to blue by default
+include "testgtkrc2"
+
+#include "/usr/local/share/themes/Pixmap/gtk/gtkrc"
+#include "/usr/local/share/themes/Redmond95/gtk/gtkrc"
+#include "/usr/local/share/themes/Metal/gtk/gtkrc"
+#include "/usr/local/share/themes/Notif/gtk/gtkrc"
+#include "/usr/local/share/themes/Default/gtk/gtkrc"
+
+#pixmap_path "."
+
+style "defaultfont"
+{
+#  fontset = "-adobe-helvetica-medium-r-normal--*-100-*-*-*-*-*-*,*"
+  font = "-adobe-helvetica-medium-r-normal--*-120-*-*-*-*-*-*,*"
+}
+
+# common default
+class "GtkWidget" style "defaultfont"
+
+style "window"
+{
+# bg_pixmap[NORMAL] = "marble.xpm"
+}
+
+style "scale"
+{
+  fg[NORMAL] = { 1.0, 0, 0 }
+  bg_pixmap[NORMAL] = "<parent>"
+}
+
+style "button" = "default"
+{
+#  fg[PRELIGHT] = { 1.0, 1.0, 1.0 }
+#  bg[PRELIGHT] = { 0, 0, 0.75 }
+#  bg[PRELIGHT] = { 0.75, 0, 0x00 }
+}
+
+style "toggle_button" = "button"
+{
+  fg[NORMAL] = { 1.0, 0, 0 }
+  fg[ACTIVE] = { 1.0, 0, 0 }
+#  bg_pixmap[ACTIVE] = "check-y.xpm"
+#  bg_pixmap[NORMAL] = "check-n.xpm"
+}
+
+style "text"
+{
+  bg_pixmap[NORMAL] = "marble.xpm"
+  text[NORMAL] = { 1.0, 1.0, 1.0 }
+  fg[NORMAL] = { 1.0, 1.0, 1.0 }
+  base[NORMAL] = { 0.0, 0.0, 0.0 }
+}
+
+style "slider"
+{
+  fg[NORMAL] = { 1.0, 1.0, 1.0 }
+  bg[NORMAL] = { 0.0, 0.0, 1.0 }
+  bg[ACTIVE] = { 0.0 ,0.0, 0.5 }
+  bg[PRELIGHT] = { 0.75 ,0.75, 1.0 }
+}
+
+style "ruler"
+{
+  font = '-adobe-helvetica-medium-r-normal--*-80-*-*-*-*-*-*'
+}
+
+style "curve"
+{
+  fg[NORMAL] = { 58000, 0, 0 }                  # red
+}
+
+style "red-bar"
+{
+  bg[PRELIGHT] = { 0.95, .55, 0.55 }
+}
+
+# override testgtk2, introduce the green color in the button list
+style 'button_list' = 'button'
+{
+  font = "-adobe-helvetica-medium-r-normal--*-100-*-*-*-*-*-*"
+  bg[PRELIGHT] = { 0, 0.75, 0x00 }
+}
+widget "main window.*GtkScrolledWindow.*GtkButton*" style "button_list"
+
+
+class "GtkScrollbar" style "red-bar"
+
+widget_class "GtkWindow" style "window"
+widget_class "GtkDialog" style "window"
+widget_class "GtkFileSelection" style "window"
+widget_class "*Gtk*Scale" style "scale"
+widget_class "*GtkCheckButton*" style "toggle_button"
+widget_class "*GtkRadioButton*" style "toggle_button"
+widget_class "*GtkButton*" style "button"
+widget_class "*Ruler" style "ruler"
+widget_class "*GtkText" style "text"
+widget "*GtkCurve" style "curve"
+
+binding "test1"
+{
+  bind "<ctrl>1" {
+    "debug-msg" ("jup!")
+  }
+}
+
+binding "test2"
+{
+  bind "<ctrl>1" {
+    "debug-msg" ("hallo and")
+    "debug-msg" ("huhu")
+  }
+}
+
+# possible priorities are (in ascending order):
+# lowest
+# gtk         (used by gtk for internal class bindings)
+# application (for hard coded bindings on application basis)
+# rc          (used implicitel by rc files)
+# highest
+class "GtkCList" binding  "test1"           # implicit : rc
+#class "GtkWindow" binding : highest "test2" # override "rc" priority
+
+binding "clist-test"
+{
+  bind "j" {
+    "scroll-vertical" (step-backward, 0.0)
+  }
+  bind "k" {
+    "scroll-vertical" (step-forward, 0.0)
+  }
+}
+
+class "GtkCList" binding "clist-test"

data/sample/testgtk/testgtkrc2

@@ -0,0 +1,21 @@
+# pixmap_path "<dir 1>:<dir 2>:<dir 3>:..."
+#
+# include "rc-file"
+#
+# style <name> [= <name>]
+# {
+#   <option>
+# }
+#
+# widget <widget_set> style <style_name>
+# widget_class <widget_class_set> style <style_name>
+
+# this file gets included from testgtkrc
+
+style 'main_buttons' = 'button'
+{
+  font = "-adobe-helvetica-medium-r-normal--*-100-*-*-*-*-*-*"
+  bg[PRELIGHT] = { 0, 0, 0.75 }
+}
+
+widget "main window.*GtkButton*" style "main_buttons"

data/sample/testgtk/togglebutton.rb

@@ -0,0 +1,53 @@
+=begin header
+
+  togglebutton.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: togglebutton.rb,v 1.6 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 ToggleButtonSample < SampleWindow
+  def initialize
+    super("toggle buttons")
+
+    set_border_width(5)
+
+    vbox = Gtk::VBox.new(false, 5)
+    add(vbox)
+
+    (1..3).each do |i|
+      vbox.add(Gtk::ToggleButton.new("button#{i}"))
+    end
+    vbox.pack_start(Gtk::HSeparator.new, false, true, 0)
+
+    button = Gtk::Button.new("close")
+    button.signal_connect("clicked"){destroy}
+    vbox.add(button)
+  end
+end

data/sample/testgtk/toolbar.rb

@@ -0,0 +1,82 @@
+=begin header
+
+  toolbar.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>
+  $Id: toolbar.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 ToolbarSample < SampleWindow
+  def initialize
+    super("Toolbar test")
+
+    toolbar = Gtk::Toolbar.new
+
+    toolbar.append("Horizontal", "Horizontal toolbar layout",
+		   "Toolbar/Horizontal", Gtk::Image.new("test.xpm")){
+      toolbar.orientation = Gtk::ORIENTATION_HORIZONTAL
+    }
+    toolbar.append("Vertical", "Vertical toolbar layout",
+		   "Toolbar/Vertical", Gtk::Image.new("test.xpm")){
+      toolbar.orientation = Gtk::ORIENTATION_VERTICAL
+    }
+
+    toolbar.append_space
+
+    toolbar.append("Icons", "Only show toolbar icons",
+		   "Toolbar/IconsOnly", Gtk::Image.new("test.xpm")){
+      toolbar.toolbar_style = Gtk::Toolbar::ICONS
+    }
+    toolbar.append("Text", "Only show toolbar text", "Toolbar/TextOnly",
+		   Gtk::Image.new("test.xpm")){
+      toolbar.toolbar_style = Gtk::Toolbar::TEXT
+    }
+    toolbar.append("Both", "Show toolbar icons and text", "Toolbar/Both",
+                   Gtk::Image.new("test.xpm")){
+      toolbar.toolbar_style = Gtk::Toolbar::BOTH
+    }
+
+    toolbar.append_space
+
+    toolbar.append(Gtk::Entry.new, "This is an unusable Gtk::Entry ;)",
+		   "Hey don't click me!!!")
+
+    toolbar.append_space
+
+    toolbar.append("Enable", "Enable tooltips", nil,
+		   Gtk::Image.new("test.xpm")){
+      toolbar.tooltips = true
+    }
+    toolbar.append("Disable", "Disable tooltips", nil,
+		   Gtk::Image.new("test.xpm")){
+      toolbar.tooltips = false
+    }
+
+    add(toolbar)
+  end
+end