gtk2 0.20.1 → 0.90.2

data/sample/misc/dialog2.rb

@@ -0,0 +1,39 @@
+#!/usr/bin/env ruby
+=begin
+  dialog2.rb - Ruby/GTK2 sample script.
+
+  Copyright (c) 2002-2006 Ruby-GNOME2 Project Team
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: dialog2.rb,v 1.7 2006/06/17 13:18:12 mutoh Exp $
+=end
+
+require 'gtk2'
+
+window = Gtk::Window.new("Gtk::Dialog sample2")
+button = Gtk::Button.new("Create Dialog")
+button.signal_connect("clicked") do 
+  dialog = Gtk::Dialog.new("Gtk::Dialog Sample 2", window, 
+                           Gtk::Dialog::MODAL|Gtk::Dialog::NO_SEPARATOR,
+                           [Gtk::Stock::OK, Gtk::Dialog::RESPONSE_OK],
+                           [Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL])
+  dialog.vbox.add(Gtk::Label.new("Gtk::Dialog Sample 2"))
+  dialog.set_default_size(300, 300)
+  dialog.vbox.show_all
+  result = dialog.run
+  case result
+  when Gtk::Dialog::RESPONSE_OK
+    p "OK"
+  when Gtk::Dialog::RESPONSE_CANCEL
+    p "Cancel"
+  end
+  dialog.destroy
+end
+
+window.add(button).show_all.signal_connect("destroy"){Gtk.main_quit}
+
+Gtk.main
+
+
+                         
+

data/sample/misc/dnd.rb

@@ -0,0 +1,65 @@
+=begin
+  dnd.rb - Drag and Drop sample script.
+
+  Copyright (C) 2002-2006 Masao Mutoh
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Date: 2006/06/17 13:18:12 $
+  $Id: dnd.rb,v 1.9 2006/06/17 13:18:12 mutoh Exp $
+=end
+
+require 'gtk2'
+
+class SrcWindow < Gtk::Window
+  def initialize
+    super("Source Window")
+    @label = Gtk::Label.new("Drag here!")
+    add(@label)
+    set_default_size(100, 100)
+    Gtk::Drag.source_set(self, Gdk::Window::BUTTON1_MASK | 
+                         Gdk::Window::BUTTON2_MASK,
+                         [["test", Gtk::Drag::TARGET_SAME_APP, 12345]], 
+                         Gdk::DragContext::ACTION_COPY | 
+                         Gdk::DragContext::ACTION_MOVE)
+    signal_connect("drag_data_get") do |widget, context, selection_data, info, time|
+#      selection_data.set("text/uri-list", 8, "hoge.txt") 
+      selection_data.set(Gdk::Selection::TYPE_STRING, "hoge.txt")  
+    end
+ end
+end
+
+    
+class DestWindow < Gtk::Window
+  def initialize
+    super("Dest Window")
+
+    @label = Gtk::Label.new("Drop here!")
+    add(@label)
+    set_default_size(100, 100)
+    Gtk::Drag.dest_set(self, Gtk::Drag::DEST_DEFAULT_MOTION | 
+                       Gtk::Drag::DEST_DEFAULT_HIGHLIGHT,
+                       [["test", Gtk::Drag::TARGET_SAME_APP, 12345]], 
+                       Gdk::DragContext::ACTION_COPY|Gdk::DragContext::ACTION_MOVE)
+    
+    signal_connect("drag-data-received") do |w, dc, x, y, selectiondata, info, time|
+      dc.targets.each do |target|
+        if target.name == "test" ||
+            selectiondata.type == Gdk::Selection::TYPE_STRING
+          puts selectiondata.data
+        end
+      end
+    end
+    signal_connect("drag-drop") do |w, dc, x, y, time|
+      Gtk::Drag.get_data(w, dc, dc.targets[0], time)
+    end
+  end
+end
+
+win1 = SrcWindow.new
+win2 = DestWindow.new
+
+win1.show_all.signal_connect("destroy"){Gtk.main_quit}
+win2.show_all.signal_connect("destroy"){Gtk.main_quit}
+
+Gtk.main
+

data/sample/misc/dndtreeview.rb

@@ -0,0 +1,56 @@
+=begin
+  dndtreeview.rb - Drag and Drop sample script.
+
+  Copyright (C) 2003-2006 Masao Mutoh
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Date: 2006/06/17 13:18:12 $
+  $Id: dndtreeview.rb,v 1.3 2006/06/17 13:18:12 mutoh Exp $
+=end
+
+require 'gtk2'
+
+class TestWindow < Gtk::Window
+  attr_reader :list
+
+  TARGET_TABLE = [["GTK_TREE_MODEL_ROW", 0, 0]]
+
+  def initialize()
+    super("Drag and Drop Gtk::TreeView")
+
+    set_default_size(300,128)
+    signal_connect("destroy") { Gtk.main_quit }
+
+    data = [["Hello", "KON-NI-CHIWA"],
+      ["Goodbye", "SAYO-NARA"],
+      ["Good morning", "OHA-YO-GOZAI-MASU"],
+      ["Good evening", "KON-BAN-WA"]]
+
+    model = Gtk::ListStore.new(String, String)
+    view = Gtk::TreeView.new(model)
+    renderer = Gtk::CellRendererText.new
+    col1 = Gtk::TreeViewColumn.new("Data", renderer, {:text => 0})
+    col2 = Gtk::TreeViewColumn.new("Data", renderer, {:text => 1})
+    view.append_column(col1)
+    view.append_column(col2)
+
+    data.each do |v1, v2|
+      iter = model.append
+      iter.set_value(0, v1)
+      iter.set_value(1, v2)
+    end
+
+    view.enable_model_drag_source(Gdk::Window::BUTTON1_MASK,
+                                  TARGET_TABLE, 
+                                  Gdk::DragContext::ACTION_COPY|Gdk::DragContext::ACTION_MOVE)
+    view.enable_model_drag_dest(TARGET_TABLE,
+                                 Gdk::DragContext::ACTION_COPY|Gdk::DragContext::ACTION_MOVE) 
+
+    add(view)
+  end
+end
+
+win = TestWindow.new.show_all
+
+Gtk.main
+

data/sample/misc/drag-move.rb

@@ -0,0 +1,131 @@
+=begin
+  drag-move.rb - Move widget by drag sample script.
+
+  Copyright (C) 2006 Kouhei Sutou
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Date: 2006/06/17 13:18:12 $
+  $Id: drag-move.rb,v 1.2 2006/06/17 13:18:12 mutoh Exp $
+=end
+
+require 'gtk2'
+
+class DraggableWidget < Gtk::EventBox
+  def initialize
+    super
+    set_visible_window(false)
+    @dragging = false
+    @drag_button = 1
+    set_button_press_event
+    set_button_release_event
+    set_motion_notify_event
+  end
+
+  def layout
+    parent
+  end
+
+  def move(x, y)
+    if layout
+      layout.move(self, x, y)
+      true
+    else
+      false
+    end
+  end
+
+  def dragging?
+    @dragging
+  end
+
+  private
+  def set_button_press_event
+    signal_connect("button_press_event") do |widget, event|
+      if event.button == @drag_button
+        Gtk.grab_add(widget)
+        x, y, w, h = widget.allocation.to_a
+        drag_start(x, y, event.x_root, event.y_root)
+      else
+        false
+      end
+    end
+  end
+
+  def set_motion_notify_event
+    signal_connect("motion_notify_event") do |widget, event|
+      if dragging?
+        drag_motion(event.x_root, event.y_root)
+      else
+        false
+      end
+    end
+  end
+
+  def set_button_release_event
+    signal_connect("button_release_event") do |widget, event|
+      if event.button == @drag_button
+        Gtk.grab_remove(widget)
+        drag_end
+      else
+        false
+      end
+    end
+  end
+
+  def set_drag_move_position_event
+    signal_connect("drag_move_position") do |widget, x, y|
+      if layout
+        layout.move(widget, x, y)
+        true
+      else
+        false
+      end
+    end
+  end
+
+  def drag_start(x, y, base_x, base_y)
+    @dragging = true
+    @drag_x = x
+    @drag_y = y
+    @drag_base_x = base_x
+    @drag_base_y = base_y
+    true
+  end
+
+  def drag_motion(base_x, base_y)
+    delta_x = base_x - @drag_base_x
+    delta_y = base_y - @drag_base_y
+    if delta_x != 0 and delta_y != 0
+      move(@drag_x + delta_x, @drag_y + delta_y)
+    else
+      false
+    end
+  end
+    
+  def drag_end
+    @dragging = false
+    true
+  end
+end
+
+window = Gtk::Window.new("Draggable Widget sample")
+window.signal_connect("destroy"){Gtk.main_quit}
+
+layout = Gtk::Layout.new
+
+draggable_widget = DraggableWidget.new
+draggable_widget.set_size_request(50, 50)
+layout.put(draggable_widget, 75, 75)
+
+draggable_widget.signal_connect("expose_event") do |widget, event|
+  x, y, w, h = widget.allocation.to_a
+  fg = Gdk::GC.new(widget.window)
+  widget.window.draw_arc(fg, true, x, y, w, h, 0 * 64, 360 * 64)
+  false
+end
+
+window.add(layout)
+
+window.show_all
+
+Gtk.main

data/sample/misc/drawing.rb

@@ -0,0 +1,90 @@
+=begin
+  drawing.rb - Gtk::Drawing sample script.
+
+  Copyright (c) 2002-2006 Ruby-GNOME2 Project Team
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: drawing.rb,v 1.7 2006/06/17 13:18:12 mutoh Exp $
+=end
+
+require 'gtk2'
+
+class Canvas < Gtk::DrawingArea
+  def initialize
+    super
+    signal_connect("expose_event") { |w,e| expose_event(w,e) }
+    signal_connect("configure_event") { |w, e| configure_event(w,e) }
+    @buffer = nil
+    @bgc = nil
+  end
+
+  def expose_event(w,e)
+    unless @buffer.nil?
+      rec = e.area
+      w.window.draw_drawable(@bgc, @buffer, rec.x, rec.y,
+			   rec.x, rec.y, rec.width, rec.height)
+    end
+    false
+  end
+
+  def clear(b = @buffer)
+    return if b.nil?
+
+    g = b.size
+    @bgc = self.style.bg_gc(self.state) if @bgc.nil?
+    if (g[0] > 0 && g[1] > 0)
+      b.draw_rectangle(@bgc, true, 0,0, g[0], g[1])
+    end
+  end
+
+  def configure_event(w,e)
+    g = w.window.geometry
+    if (g[2] > 0 && g[3] > 0)
+      b = Gdk::Pixmap::new(w.window, g[2], g[3], -1)
+      clear(b)
+      if not @buffer.nil?
+	g = @buffer.size
+	b.draw_drawable(@bgc, @buffer, 0, 0, 0, 0, g[0], g[1])
+      end
+      @buffer = b
+    end
+    true
+  end
+end
+
+class A < Canvas
+  def initialize
+    super
+    signal_connect("button_press_event") { |w,e| pressed(w,e) }
+    set_events(Gdk::Event::BUTTON_PRESS_MASK)
+  end
+
+  def pressed(widget, ev)
+    if not @last.nil?
+      @buffer.draw_line(widget.style.fg_gc(widget.state),
+			@last.x, @last.y, ev.x, ev.y)
+
+      x1,x2 = if (@last.x < ev.x)
+	      then [@last.x, ev.x]
+	      else [ev.x,    @last.x]
+	      end
+      y1,y2 = if (@last.y < ev.y)
+	    then [@last.y, ev.y]
+	    else [ev.y,    @last.y]
+	    end
+      widget.queue_draw_area(x1, y1, x2 - x1 + 1, y2 - y1 + 1)
+    end
+    @last = nil
+    @last = ev
+    true
+  end
+end
+
+window = Gtk::Window.new("drawing test")
+window.signal_connect("destroy") { Gtk.main_quit }
+
+canvas = A.new
+window.add(canvas)
+
+window.show_all
+Gtk::main

data/sample/misc/entry.rb

@@ -0,0 +1,34 @@
+#!/usr/bin/env ruby
+=begin
+  entry.rb - Ruby/GTK2 sample script.
+
+  Copyright (c) 2002-2006 Ruby-GNOME2 Project Team
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: entry.rb,v 1.9 2006/06/17 13:18:12 mutoh Exp $
+=end
+
+require 'gtk2'
+
+window = Gtk::Window.new("entry")
+window.border_width = 0
+
+box1 = Gtk::VBox.new(false, 10)
+window.add(box1)
+
+entry = Gtk::Entry.new
+
+box1.add(entry)
+box1.add(Gtk::HSeparator.new)
+
+button = Gtk::Button.new("close")
+button.signal_connect("clicked") do
+  Gtk.main_quit
+end
+box1.add(button)
+
+window.show_all
+
+entry.text = "hello world"
+
+Gtk.main

data/sample/misc/entrycompletion.rb

@@ -0,0 +1,39 @@
+#!/usr/bin/env ruby
+=begin
+  entrycompletion.rb - Ruby/GTK sample script.
+
+  Copyright (c) 2004-2006 Ruby-GNOME2 Project Team
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  Enter "G", "t" on the entry box.
+
+  $Id: entrycompletion.rb,v 1.4 2006/06/17 13:18:12 mutoh Exp $
+=end
+
+require 'gtk2'
+
+if str = Gtk.check_version(2, 4, 0)
+  puts "This sample requires GTK+ 2.4.0 or later"
+  puts str
+  exit
+end
+
+window = Gtk::Window.new
+window.set_default_size(200, 200)
+
+entry = Gtk::Entry.new
+completion = Gtk::EntryCompletion.new
+entry.completion = completion
+
+model = Gtk::ListStore.new(String)
+["GNOME", "total", "totally"].each do |v|
+  iter = model.append
+  iter[0] = v
+end
+
+completion.model = model
+completion.text_column = 0
+
+window.add(entry).show_all.signal_connect("destroy"){Gtk.main_quit}
+
+Gtk.main