gtk3 2.2.5 → 3.0.1

data/sample/testgtk/testgtk.rb

@@ -1,176 +0,0 @@
-#!/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
-
-$:.unshift(File.dirname(__FILE__))
-
-require 'gtk3'
-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 'notebook'
-require 'shapedwindow'
-require 'wmhints'
-require 'progressbar'
-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 chooser", FileChooserSample],
-    ["font selection", FontSelectionSample],
-    ["labels", LabelSample],
-    ["layout", LayoutSample],
-    ["menus", MenuSample],
-    ["notebook", NotebookSample],
-    ["pixmap", PixmapSample],
-    ["progress bar", ProgressBarSample],
-    ["radio buttons", RadioButtonSample],
-    ["range controls", RangeSample],
-    ["reparent", ReparentSample],
-    ["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/GTK3 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(:automatic, :automatic) # Gtk::PolicyType::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

@@ -1,146 +0,0 @@
-# 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

@@ -1,21 +0,0 @@
-# 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

@@ -1,53 +0,0 @@
-=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

@@ -1,82 +0,0 @@
-=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