gtk3 2.2.4-x64-mingw32

data/sample/gtk-demo/entry_completion.rb

@@ -0,0 +1,63 @@
+# Copyright (c) 2003-2005 Ruby-GNOME2 Project Team
+# This program is licenced under the same licence as Ruby-GNOME2.
+# $Id: entry_completion.rb,v 1.3 2005/02/25 17:09:24 kzys Exp $
+=begin
+= Entry Completion (EntryCompletion)
+
+GtkEntryCompletion provides a mechanism for adding support for
+completion in GtkEntry.
+=end
+
+require 'common'
+
+module Demo
+  class EntryCompletion < Gtk::Dialog
+    def initialize
+      super('GtkEntryCompletion',
+            nil, # parent
+            0,
+            [Gtk::Stock::CLOSE, Gtk::Dialog::RESPONSE_NONE])
+
+      self.resizable = false
+
+      signal_connect('response') do
+        self.destroy
+      end
+
+      vbox = Gtk::VBox.new(false, 5)
+      self.vbox.pack_start(vbox, :expand => true, :fill => true)
+      vbox.border_width = 5
+
+      label = Gtk::Label.new
+      label.markup = 'Completion demo, try writing <b>total</b> or <b>gnome</b> for example'
+      vbox.pack_start(label, :expand => false, :fill => false)
+
+      # Create our entry
+      entry = Gtk::Entry.new
+      vbox.pack_start(entry, :expand => false, :fill => false)
+
+      # Create the completion object
+      completion = Gtk::EntryCompletion.new
+
+      # Assign the completion to the entry
+      entry.completion = completion
+
+      # Create a tree model and use it as the completion model
+      completion.model = create_completion_model
+
+      # Use model column 0 as the text column
+      completion.text_column = 0
+    end
+
+
+    def create_completion_model
+      store = Gtk::ListStore.new(String)
+      %w(GNOME total totally).each do |word|
+        iter = store.append
+        iter[0] = word
+      end
+
+      store
+    end
+  end
+end

data/sample/gtk-demo/expander.rb

@@ -0,0 +1,42 @@
+# Copyright (c) 2003-2005 Ruby-GNOME2 Project Team
+# This program is licenced under the same licence as Ruby-GNOME2.
+# $Id: expander.rb,v 1.2 2005/02/25 17:09:25 kzys Exp $
+=begin
+= Expander (Expander)
+
+GtkExpander allows to provide additional content that is initially hidden.
+This is also known as "disclosure triangle".
+=end
+
+require 'common'
+
+module Demo
+  class Expander < Gtk::Dialog
+    def initialize
+      # as opposed to the GTK2 dialog, the buttons have to be enclodes by brackeds
+      # together with their ResponseType AND all groups have to bracketed together
+      super(:title => 'GtkExpander',
+            :parent => nil,
+            :flags => 0,
+            :buttons => [[Gtk::Stock::CLOSE, Gtk::ResponseType::NONE]])
+      self.resizable = false
+
+      signal_connect('response') do
+        self.destroy
+      end
+
+      vbox = Gtk::Box.new(:vertical, 5)
+      self.child.pack_start(vbox, :expand => true, :fill => true)
+      vbox.border_width = 5
+
+      label = Gtk::Label.new('Expander demo. CLick on the triangle for details.')
+      vbox.pack_start(label, :expand => false, :fill => false)
+
+      # Create the expander
+      expander = Gtk::Expander.new('Details')
+      vbox.pack_start(expander, :expand => false, :fill => false)
+
+      expander.add(Gtk::Label.new('Details can be shown or hidden.'))
+    end
+  end
+end

data/sample/gtk-demo/hypertext.rb

@@ -0,0 +1,211 @@
+# Copyright (c) 2003-2005 Ruby-GNOME2 Project Team
+# This program is licenced under the same licence as Ruby-GNOME2.
+#
+# $Id: hypertext.rb,v 1.2 2005/12/01 09:27:01 ktou Exp $
+=begin
+= Text Widget/Hypertext
+
+Usually, tags modify the appearance of text in the view, e.g. making it
+bold or colored or underlined. But tags are not restricted to appearance.
+They can also affect the behavior of mouse and key presses, as this demo
+shows.
+=end
+
+require 'common'
+
+module Demo
+  class Hypertext < BasicWindow
+    def initialize
+      super('Hypertext')
+
+      @hand_cursor = Gdk::Cursor.new(Gdk::Cursor::HAND2)
+      @regular_cursor = Gdk::Cursor.new(Gdk::Cursor::XTERM)
+      @hovering = false
+
+      set_default_size(450, 450)
+      self.border_width = 0
+
+      view = Gtk::TextView.new
+
+      view.wrap_mode = :word
+
+      view.signal_connect('key-press-event') do |*args|
+        key_press_event(*args)
+      end
+      view.signal_connect('event-after') do |*args|
+        event_after(*args)
+      end
+      view.signal_connect('motion-notify-event') do |*args|
+        motion_notify_event(*args)
+      end
+      view.signal_connect('visibility-notify-event') do |*args|
+        visibility_notify_event(*args)
+      end
+
+      buffer = view.buffer
+
+      sw = Gtk::ScrolledWindow.new
+      sw.set_policy(:automatic,
+                    :automatic)
+
+      add(sw)
+      sw.add(view)
+
+      show_page(buffer, 1)
+    end
+
+
+    # Inserts a piece of text into the buffer, giving it the usual
+    # appearance of a hyperlink in a web browser: blue and underlined.
+    # Additionally, attaches some data on the tag, to make it recognizable
+    # as a link.
+    def insert_link(buffer, iter, text, page)
+      tag = buffer.create_tag(nil,
+                              {
+                                'foreground' => 'blue',
+                                'underline' => Pango::AttrUnderline::SINGLE,
+                              })
+      tag.page = page
+
+      buffer.insert(iter, text, tag)
+      print("Insert #{tag}:#{page}\n")
+    end
+
+    # Fills the buffer with text and interspersed links. In any real
+    # hypertext app, this method would parse a file to identify the links.
+    def show_page(buffer, page)
+      puts
+
+      buffer.text = ''
+      iter = buffer.get_iter_at(:offset => 0)
+
+      case page
+      when 1
+        buffer.insert(iter, 'Some text ot show that simple ')
+        insert_link(buffer, iter, 'hypertext', 3)
+        buffer.insert(iter, ' can easily be realized with ')
+        insert_link(buffer, iter, 'tags', 2)
+        buffer.insert(iter, '.')
+      when 2
+        buffer.insert(iter,
+                      %Q[A tag is an attribute that can be applied to some range of text. For example, a tag might be called "bold" and make the text insid the tag bold. However, the tag concept is more general than that; tags don't have to affect appearance. They can instead affect the behavior of mouse and key presses, "lock" a range of text so the user can't edit it, or countless other things.])
+        buffer.insert(iter, "\n")
+        insert_link(buffer, iter, 'Go back', 1)
+      when 3
+        tag = buffer.create_tag(nil,
+                                {
+                                  'weight' =>
+                                    Pango::FontDescription::WEIGHT_BOLD
+                                })
+        buffer.insert(iter, "hypertext:\n", tag);
+        buffer.insert(iter, %Q[machine-readable text that is not sequential but is organized so that related items of information are connected.\n])
+        insert_link(buffer, iter, 'Go back', 1)
+      end
+    end
+
+    # Looks at all tags covering the position of iter in the text view,
+    # and if one of them is a link, follow it by showing the page identified
+    # by the data attached to it.
+    def follow_if_link(text_view, iter)
+      tags = iter.tags
+      tags.each do |tag|
+        print("Follow #{tag}:#{tag.page}\n")
+        if tag.page
+          show_page(text_view.buffer, tag.page)
+          break
+        end
+      end
+    end
+
+    # Links can be activated by pressing Enter.
+    def key_press_event(text_view, event)
+      case event.keyval
+      when Gdk::Keyval::GDK_Return, Gdk::Keyval::GDK_KP_Enter
+        buffer = text_view.buffer
+        iter = buffer.get_iter_at_mark(buffer.get_mark("insert"))
+        follow_if_link(text_view, iter)
+      end
+
+      false
+    end
+
+    # Links can also be activated by clicking.
+    def event_after(text_view, event)
+      unless event.kind_of?(Gdk::EventButton) and event.button == 1
+        return false
+      end
+
+      buffer = text_view.buffer
+
+      # we shouldn't follow a link if the user has selected something
+      range = buffer.selection_bounds
+      if range and range[0].offset != range[1].offset
+        return false
+      end
+
+      x, y = text_view.window_to_buffer_coords(Gtk::TextView::WINDOW_WIDGET,
+                                               event.x, event.y)
+      iter = text_view.get_iter_at_location(x, y)
+
+      follow_if_link(text_view, iter)
+    end
+
+    # Looks at all tags covering the position (x, y) in the text view,
+    # and if one of them is a link, change the cursor to the "hands" cursor
+    # typically used by web browsers.
+    def set_cursor_if_appropriate(text_view, x, y)
+
+      buffer = text_view.buffer
+      iter = text_view.get_iter_at_location(x, y)
+
+      hovering = false
+
+      tags = iter.tags
+      tags.each do |t|
+        if t.page
+          hovering = true
+          break
+        end
+      end
+
+      if hovering != @hovering
+        @hovering = hovering
+
+        window = text_view.get_window(Gtk::TextView::WINDOW_TEXT)
+
+        window.cursor = if @hovering
+                          @hand_cursor
+                        else
+                          @regular_cursor
+                        end
+      end
+    end
+
+    # Update the cursor image if the pointer moved.
+    def motion_notify_event(text_view, event)
+      x, y = text_view.window_to_buffer_coords(Gtk::TextView::WINDOW_WIDGET,
+                                               event.x, event.y)
+      set_cursor_if_appropriate(text_view, x, y)
+      text_view.window.pointer
+
+      false
+    end
+
+    # Also update the cursor image if the window becomes visible
+    # (e.g. when a window covering it got iconified).
+    def visibility_notify_event (text_view, event)
+      window, wx, wy = text_view.window.pointer
+      bx, by = text_view.window_to_buffer_coords(Gtk::TextView::WINDOW_WIDGET,
+                                                 wx, wy)
+      set_cursor_if_appropriate(text_view, bx, by)
+
+      false
+    end
+  end
+end
+
+module Gtk
+  class TextTag
+    attr_accessor :page
+  end
+end

data/sample/gtk-demo/iconview.rb

@@ -0,0 +1,110 @@
+# Copyright (c) 2005 Ruby-GNOME2 Project Team
+# This program is licenced under the same licence as Ruby-GNOME2.
+#
+# $Id: iconview.rb,v 1.7 2007/08/05 15:41:31 mutoh Exp $
+=begin
+= Icon View (IconView)
+
+The Gtk::IconView widget is used to display and manipulate icons.
+It uses a Gtk::TreeModel for data storage, so the list store example
+might be helpful.
+=end
+
+
+require 'common'
+
+module Demo
+  class IconView < Demo::BasicWindow
+    COL_PATH, COL_DISPLAY_NAME, COL_IS_DIR, COL_PIXBUF = (0..3).to_a
+
+    def fill_store
+      @store.clear
+      Dir.glob(File.join(@parent, "*")).each do |path|
+        is_dir = FileTest.directory?(path)
+        iter = @store.append
+        # set COL_DISPLAY_NAME first because changing an iter will trigger the
+        # sort function; if we set something else first, the value of
+        # COL_DISPLAY_NAME for this row will be "nil" and the sort function will fail
+#puts path
+#puts GLib.convert(GLib.filename_to_utf8(path), "Shift_JIS", "UTF-8")
+#puts File.basename(GLib.convert(GLib.filename_to_utf8(path), "Shift_JIS", "UTF-8"))
+#        iter[COL_DISPLAY_NAME] = File.basename(GLib.filename_to_utf8(path))
+        iter[COL_DISPLAY_NAME] = GLib.filename_to_utf8(path)
+        iter[COL_PATH] = path
+        iter[COL_IS_DIR] = is_dir
+        iter[COL_PIXBUF] = is_dir ? @folder_pixbuf : @file_pixbuf
+      end
+    end
+
+    def initialize
+      super('Gtk::IconView demo')
+      @file_pixbuf = Gdk::Pixbuf.new(Demo.find_file("gnome-fs-regular.png"))
+      @folder_pixbuf = Gdk::Pixbuf.new(Demo.find_file("gnome-fs-directory.png"))
+
+      @store = Gtk::ListStore.new(String, String, TrueClass, Gdk::Pixbuf)
+      @parent = "/"
+
+      @store.set_default_sort_func do |a, b|
+        if !a[COL_IS_DIR] and b[COL_IS_DIR]
+          1
+        elsif a[COL_IS_DIR] and !b[COL_IS_DIR]
+          -1
+        else
+          a[COL_DISPLAY_NAME] <=> b[COL_DISPLAY_NAME]
+        end
+      end
+      @store.set_sort_column_id(Gtk::TreeSortable::DEFAULT_SORT_COLUMN_ID,
+                                Gtk::SortType::ASCENDING)
+
+      fill_store
+      set_default_size(650, 400)
+      set_border_width(8)
+
+      vbox = Gtk::Box.new(:vertical)
+      add(vbox)
+
+      toolbar = Gtk::Toolbar.new
+      vbox.pack_start(toolbar, :expand => false, :fill => false, :padding => 0)
+
+      up_button = Gtk::ToolButton.new(:stock_id => :go_up)
+      up_button.important = true
+      up_button.sensitive = false
+      toolbar.insert(up_button, -1)
+      up_button.signal_connect("clicked") do
+        @parent = File.dirname(@parent)
+        fill_store
+        up_button.sensitive = @parent != "/"
+      end
+
+      home_button = Gtk::ToolButton.new(:stock_id => :home)
+      home_button.important = true
+      toolbar.insert(home_button, -1)
+      home_button.signal_connect("clicked") do
+        @parent = GLib.home_dir
+        fill_store
+        up_button.sensitive = true
+      end
+
+      sw = Gtk::ScrolledWindow.new
+      sw.shadow_type = :etched_in
+      sw.set_policy(:automatic, :automatic)
+      vbox.pack_start(sw, :expand => true, :fill => true, :padding => 0)
+
+      iconview = Gtk::IconView.new(@store)
+      iconview.selection_mode = :multiple
+      iconview.text_column = COL_DISPLAY_NAME
+      iconview.pixbuf_column = COL_PIXBUF
+      iconview.signal_connect("item_activated") do |iview, path|
+        iter = @store.get_iter(path)
+        if iter[COL_DISPLAY_NAME]
+          @parent = iter[COL_PATH]
+          fill_store
+          up_button.sensitive = true
+        end
+      end
+      sw.add(iconview)
+      iconview.grab_focus
+    end
+  end
+end
+