gtk2 0.20.1 → 0.90.2

data/sample/gtk-demo/clipboard.rb

@@ -0,0 +1,72 @@
+# Copyright (c) 2003-2005 Ruby-GNOME2 Project Team
+# This program is licenced under the same licence as Ruby-GNOME2.
+# $Id: clipboard.rb,v 1.3 2005/07/28 14:30:38 mutoh Exp $
+=begin
+= Clipboard
+
+GtkClipboard is used for clipboard handling. This demo shows how to
+copy and paste text to and from the clipboard.
+=end
+
+require 'common'
+
+module Demo
+  class Clipboard < Demo::BasicWindow
+    def initialize
+      super('Clipboard')
+
+      unless Gtk.check_version?(2, 2, 0)
+         add(Gtk::Label.new("This sample requires GTK+ 2.2.0 or later"))
+         return
+      end
+
+      vbox = Gtk::VBox.new(false, 0)
+      vbox.border_width = 8
+
+      add(vbox)
+
+      label = Gtk::Label.new(%Q["Copy" will copy the text\nin the entry to the clipboard])
+
+      vbox.pack_start(label, false, false, 0)
+
+      hbox = Gtk::HBox.new(false, 0)
+      hbox.border_width = 8
+      vbox.pack_start(hbox, false, false, 0)
+
+      # Create the first entry
+      entry = Gtk::Entry.new
+      hbox.pack_start(entry, true, true, 0)
+
+      # Create the button
+      button = Gtk::Button.new(Gtk::Stock::COPY)
+      hbox.pack_start(button, false, false, 0)
+      button.signal_connect('clicked', entry) do |w, e|
+        clipboard = e.get_clipboard(Gdk::Selection::CLIPBOARD)
+        clipboard.text = e.text
+      end
+
+      label = Gtk::Label.new(%Q["Paste" will paste the text from the clipboard to the entry])
+      vbox.pack_start(label, false, false, 0)
+
+      hbox = Gtk::HBox.new(false, 4)
+      hbox.border_width = 8
+      vbox.pack_start(hbox, false, false, 0)
+
+      # Create the second entry
+      entry = Gtk::Entry.new
+      hbox.pack_start(entry, true, true, 0)
+
+      # Create the button
+      button = Gtk::Button.new(Gtk::Stock::PASTE)
+      hbox.pack_start(button, false, false, 0)
+      button.signal_connect('clicked', entry) do |w, e|
+        clipboard = e.get_clipboard(Gdk::Selection::CLIPBOARD)
+        clipboard.request_text do |board, text, data|
+          e.text = text
+        end
+      end
+
+    end
+  end
+end
+

data/sample/gtk-demo/colorsel.rb

@@ -0,0 +1,84 @@
+# Copyright (c) 2003-2005 Ruby-GNOME2 Project Team
+# This program is licenced under the same licence as Ruby-GNOME2.
+#
+# $Id: colorsel.rb,v 1.4 2005/02/12 23:02:43 kzys Exp $
+=begin
+= Color Selector 
+
+Gtk::ColorSelection lets the user choose a color. Gtk::ColorSelectionDialog
+is a prebuilt dialog containing a Gtk::ColorSelection.
+=end
+require 'common'
+
+module Demo
+  class ColorSel < BasicWindow
+    def initialize
+      super('Color Selection')
+
+      @color = Gdk::Color.new(0, 0, 65535)
+
+      set_border_width(8)
+      
+      vbox = Gtk::VBox.new(false, 0)
+      vbox.set_border_width(8)
+      add(vbox)
+
+      ## Create the color swatch area
+      @frame = Gtk::Frame.new
+      @frame.set_shadow_type(Gtk::SHADOW_IN)
+      vbox.pack_start(@frame, true, true, 0)
+
+      @da = Gtk::DrawingArea.new
+      
+      @da.signal_connect('expose_event') do |widget, event|
+	if widget.window
+	  style = widget.style
+
+	  widget.window.draw_rectangle(style.bg_gc(Gtk::STATE_NORMAL),
+				       true,
+				       event.area.x, event.area.y,
+				       event.area.width, event.area.height)
+	end
+      end
+
+      # set a minimum size
+      @da.set_size_request(200, 200)
+      # set the color
+      @da.modify_bg(Gtk::STATE_NORMAL, @color)
+
+      @frame.add(@da)
+
+      alignment = Gtk::Alignment.new(1.0, 0.5, 0.0, 0.0)
+
+      button = Gtk::Button.new('_Change the above color', true)
+      alignment.add(button)
+
+      vbox.pack_start(alignment, false, false, 0)
+
+      button.signal_connect('clicked') do
+	change_color_callback
+      end
+    end
+
+    def change_color_callback
+      dialog = Gtk::ColorSelectionDialog.new('Changing color')
+
+      dialog.set_transient_for(self)
+
+      colorsel = dialog.colorsel
+
+      colorsel.set_previous_color(@color)
+      colorsel.set_current_color(@color)
+      colorsel.set_has_palette(true)
+
+      response = dialog.run
+      
+      if response == Gtk::Dialog::RESPONSE_OK
+	@color = colorsel.current_color
+	@da.modify_bg(Gtk::STATE_NORMAL, @color)
+      end
+
+      dialog.destroy
+    end
+  end
+end

data/sample/gtk-demo/common.rb

@@ -0,0 +1,88 @@
+=begin
+  common.rb - Common class for gtk-demo.
+
+  Copyright (c) 2003-2005 Ruby-GNOME2 Project Team
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: common.rb,v 1.9 2005/10/15 03:41:36 mutoh Exp $
+=end
+
+require 'gtk2'
+
+module Demo
+  def self.find_file(basename)
+    %w(. /usr/share/gtk-2.0/demo /usr/local/share/gtk-2.0/demo/).each do |dirname|
+      path = File.join(dirname, basename)
+      if File.exist?(path)
+	return path
+      end
+    end
+
+    raise "#{basename}: No such file or directory"
+  end
+
+  class BasicWindow < Gtk::Window
+    def initialize(title = nil)
+      super(Gtk::Window::TOPLEVEL)
+      if title
+	set_title("#{title} in Ruby/GTK")
+      end
+
+      signal_connect("key_press_event") do |widget, event|
+        if event.state.control_mask? and event.keyval == Gdk::Keyval::GDK_q
+          destroy
+          true
+        else
+          false
+        end
+      end
+
+      signal_connect("delete_event") do |widget, event|
+	quit
+      end
+    end
+
+    def quit
+      destroy
+      true
+    end
+  end
+
+  class CairoWindow < BasicWindow
+
+    def initialize(title=nil)
+      super
+      
+      unless Gdk.cairo_available?
+        add_cairo_require_label
+        return
+      end
+
+      drawing_area = Gtk::DrawingArea.new
+      add(drawing_area)
+
+      drawing_area.signal_connect("expose_event") do |widget, event|
+        cr = widget.window.create_cairo_context
+        cr.scale(*widget.window.size)
+        cr.set_line_width(0.04)
+
+        cr.save do
+          cr.set_source_color(Gdk::Color.new(65535, 65535, 65535))
+          cr.gdk_rectangle(Gdk::Rectangle.new(0, 0, 1, 1))
+          cr.fill
+        end
+        
+        draw(cr)
+      end
+    end
+    
+    def add_cairo_require_label
+      message = "This sample requires GTK+ 2.8.0 or later and cairo support"
+      add(Gtk::Label.new(message))
+    end
+
+    def draw(cr)
+      raise "not implemented"
+    end
+  end
+end

data/sample/gtk-demo/demo.ui

@@ -0,0 +1,258 @@
+<?xml version="1.0" standalone="no"?> <!--*- mode: xml -*-->
+<interface>
+    <object class="GtkListStore" id="liststore1">
+      <columns>
+        <column type="gchararray"/>
+        <column type="gchararray"/>
+        <column type="gint"/>
+        <column type="gchararray"/>
+      </columns>
+      <data>
+        <row>
+          <col id="0">John</col>
+          <col id="1">Doe</col>
+          <col id="2">25</col>
+          <col id="3">This is the John Doe row</col>
+        </row>
+        <row>
+          <col id="0">Mary</col>
+          <col id="1">Dole</col>
+          <col id="2">50</col>
+          <col id="3">This is the Mary Dole row</col>
+        </row>
+      </data>
+    </object>
+    <object class="GtkUIManager" id="uimanager">
+        <child>
+            <object class="GtkActionGroup" id="DefaultActions">
+                <child>
+                    <object class="GtkAction" id="Copy">
+                        <property name="name">Copy</property>
+                        <property name="tooltip" translatable="yes">Copy selected object into the clipboard</property>
+                        <property name="stock_id">gtk-copy</property>
+                    </object>
+                </child>
+                <child>
+                    <object class="GtkAction" id="Cut">
+                        <property name="name">Cut</property>
+                        <property name="tooltip" translatable="yes">Cut selected object into the clipboard</property>
+                        <property name="stock_id">gtk-cut</property>
+                    </object>
+                </child>
+                <child>
+                    <object class="GtkAction" id="EditMenu">
+                        <property name="name">EditMenu</property>
+                        <property name="label" translatable="yes">_Edit</property>
+                    </object>
+                </child>
+                <child>
+                    <object class="GtkAction" id="FileMenu">
+                        <property name="name">FileMenu</property>
+                        <property name="label" translatable="yes">_File</property>
+                    </object>
+                </child>
+                <child>
+                    <object class="GtkAction" id="New">
+                        <property name="name">New</property>
+                        <property name="tooltip" translatable="yes">Create a new file</property>
+                        <property name="stock_id">gtk-new</property>
+                    </object>
+                </child>
+                <child>
+                    <object class="GtkAction" id="Open">
+                        <property name="name">Open</property>
+                        <property name="tooltip" translatable="yes">Open a file</property>
+                        <property name="stock_id">gtk-open</property>
+                    </object>
+                </child>
+                <child>
+                    <object class="GtkAction" id="Paste">
+                        <property name="name">Paste</property>
+                        <property name="tooltip" translatable="yes">Paste object from the Clipboard</property>
+                        <property name="stock_id">gtk-paste</property>
+                    </object>
+                </child>
+                <child>
+                    <object class="GtkAction" id="Quit">
+                        <property name="name">Quit</property>
+                        <property name="tooltip" translatable="yes">Quit the program</property>
+                        <property name="stock_id">gtk-quit</property>
+                        <signal handler="quit_activate" name="activate"/>
+                    </object>
+                </child>
+                <child>
+                    <object class="GtkAction" id="Save">
+                        <property name="name">Save</property>
+                        <property name="is_important">True</property>
+                        <property name="tooltip" translatable="yes">Save a file</property>
+                        <property name="stock_id">gtk-save</property>
+                    </object>
+                </child>
+                <child>
+                    <object class="GtkAction" id="SaveAs">
+                        <property name="name">SaveAs</property>
+                        <property name="tooltip" translatable="yes">Save with a different name</property>
+                        <property name="stock_id">gtk-save-as</property>
+                    </object>
+                </child>
+                <child>
+                    <object class="GtkAction" id="HelpMenu">
+                        <property name="name">HelpMenu</property>
+                        <property name="label" translatable="yes">_Help</property>
+                    </object>
+                </child>
+                <child>
+                    <object class="GtkAction" id="About">
+                        <property name="name">About</property>
+                        <property name="stock_id">gtk-about</property>
+                        <signal handler="about_activate" name="activate"/>
+                    </object>
+                    <accelerator key="F1"/>
+                </child>
+            </object>
+        </child>
+        <ui>
+          <menubar name="menubar1">
+            <menu action="FileMenu" name="FileMenu">
+              <menuitem action="New" name="New"/>
+              <menuitem action="Open" name="Open"/>
+              <menuitem action="Save" name="Save"/>
+              <menuitem action="SaveAs" name="SaveAs"/>
+              <separator/>
+              <menuitem action="Quit" name="Quit"/>
+            </menu>
+            <menu action="EditMenu">
+              <menuitem action="Copy" name="Copy"/>
+              <menuitem action="Cut" name="Cut"/>
+              <menuitem action="Paste" name="Paste"/>
+            </menu>
+            <menu action="HelpMenu" name="HelpMenu">
+              <menuitem action="About" name="About"/>
+            </menu>
+          </menubar>
+          <toolbar name="toolbar1">
+            <toolitem action="New" name="New"/>
+            <toolitem action="Open" name="Open"/>
+            <toolitem action="Save" name="Save"/>
+            <separator/>
+            <toolitem action="Copy" name="Copy"/>
+            <toolitem action="Cut" name="Cut"/>
+            <toolitem action="Paste" name="Paste"/>
+          </toolbar>
+        </ui>
+    </object>
+    <object class="GtkAboutDialog" id="aboutdialog1">
+        <property name="program-name" translatable="yes">GtkBuilder demo</property>
+         <accessibility>
+	     <relation target="window1" type="subwindow-of"/>
+	 </accessibility>
+    </object>
+    <object class="GtkWindow" id="window1">
+        <property name="default_height">250</property>
+        <property name="default_width">440</property>
+        <property name="title">GtkBuilder demo</property>
+        <child>
+            <object class="GtkVBox" id="vbox1">
+                <property name="visible">True</property>
+                <child>
+                    <object constructor="uimanager" class="GtkMenuBar" id="menubar1">
+                        <property name="visible">True</property>
+	            	<child internal-child="accessible">
+	            	    <object class="AtkObject" id="a11y-menubar">
+	            	        <property name="AtkObject::accessible-name">The menubar</property>
+	            	    </object>
+	            	</child>
+	            </object>
+                    <packing>
+                        <property name="expand">False</property>
+                    </packing>
+                </child>
+                <child>
+                    <object constructor="uimanager" class="GtkToolbar" id="toolbar1">
+                        <property name="visible">True</property>
+	            	<child internal-child="accessible">
+	            	    <object class="AtkObject" id="a11y-toolbar">
+	            	        <property name="AtkObject::accessible-name">The toolbar</property>
+	            	    </object>
+	            	</child>
+                    </object>
+                    <packing>
+                        <property name="expand">False</property>
+                        <property name="position">1</property>
+                    </packing>
+                </child>
+                <child>
+                    <object class="GtkScrolledWindow" id="scrolledwindow1">
+                      <property name="hscrollbar_policy">automatic</property>
+                      <property name="shadow_type">in</property>
+                      <property name="visible">True</property>
+                      <property name="vscrollbar_policy">automatic</property>
+                      <child>
+                        <object class="GtkTreeView" id="treeview1">
+                          <property name="visible">True</property>
+                          <property name="model">liststore1</property>
+                          <property name="tooltip-column">3</property>
+	            	  <child internal-child="accessible">
+	            	      <object class="AtkObject" id="a11y-treeview">
+	            	          <property name="AtkObject::accessible-name">Name list</property>
+                                  <property name="AtkObject::accessible-description">
+                                    A list of person with name, surname and age columns
+                                  </property>
+	            	      </object>
+	            	  </child>
+                          <child>
+                            <object class="GtkTreeViewColumn" id="column1">
+                              <property name="title">Name</property>
+                              <child>
+                                <object class="GtkCellRendererText" id="renderer1"/>
+                                <attributes>
+                                  <attribute name="text">0</attribute>
+                                </attributes>
+                              </child>
+                            </object>
+                          </child>
+                          <child>
+                            <object class="GtkTreeViewColumn" id="column2">
+                              <property name="title">Surname</property>
+                              <child>
+                                <object class="GtkCellRendererText" id="renderer2"/>
+                                <attributes>
+                                  <attribute name="text">1</attribute>
+                                </attributes>
+                              </child>
+                            </object>
+                          </child>
+                          <child>
+                            <object class="GtkTreeViewColumn" id="column3">
+                              <property name="title">Age</property>
+                              <child>
+                                <object class="GtkCellRendererText" id="renderer3"/>
+                                <attributes>
+                                  <attribute name="text">2</attribute>
+                                </attributes>
+                              </child>
+                            </object>
+                          </child>
+                        </object>
+                      </child>
+		    <accessibility>
+		      	<action action_name="move-cursor" description="Move the cursor to select another person."/>
+		    </accessibility>
+                    </object>
+                    <packing>
+                        <property name="position">2</property>
+                    </packing>
+                </child>
+                <child>
+                    <object class="GtkStatusbar" id="statusbar1">
+                        <property name="visible">True</property>
+                    </object>
+                    <packing>
+                        <property name="expand">False</property>
+                        <property name="position">3</property>
+                    </packing>
+                </child>
+            </object>
+        </child>
+    </object>
+</interface>