gtk3 3.0.7 → 3.0.8

data/sample/gtk-demo/headerbar.rb

@@ -0,0 +1,57 @@
+# Copyright (c) 2015 Ruby-GNOME2 Project Team
+# This program is licenced under the same licence as Ruby-GNOME2.
+#
+=begin
+= Header Bar
+
+GtkHeaderBar is a container that is suitable for implementing
+window titlebars. One of its features is that it can position
+a title (and optional subtitle) centered with regard to the
+full width, regardless of variable-width content at the left
+or right.
+
+It is commonly used with gtk_window_set_titlebar()
+=end
+module HeaderbarDemo
+  def self.run_demo(main_window)
+    window = Gtk::Window.new(:toplevel)
+    window.screen = main_window.screen
+    window.set_default_size(600, 400)
+
+    header = Gtk::HeaderBar.new
+    header.set_show_close_button(true)
+    header.set_title("Welcome to Facebook - Log in, sign up or learn more")
+    header.set_has_subtitle(false)
+
+    button = Gtk::Button.new()
+
+    icon = Gio::ThemedIcon.new("mail-send-receive-symbolic")
+    image = Gtk::Image.new(:icon => icon, :size => :button)
+
+    button.add(image)
+    header.pack_end(button)
+
+    box = Gtk::Box.new(:horizontal, 0)
+    box.style_context.add_class("linked")
+
+    button = Gtk::Button.new
+    image = Gtk::Image.new(:icon_name => "pan-start-symbolic", :size => :button)
+    button.add(image)
+    box.add(button)
+
+    button = Gtk::Button.new
+    image = Gtk::Image.new(:icon_name => "pan-end-symbolic", :size => :button)
+    button.add(image)
+    box.add(button)
+
+    header.pack_start(box)
+    window.set_titlebar(header)
+    window.add(Gtk::TextView.new())
+
+    if !window.visible?
+      window.show_all
+    else
+      window.destroy
+    end
+  end
+end

data/sample/gtk-demo/iconview_edit.rb

@@ -0,0 +1,79 @@
+# Copyright (c) 2015 Ruby-GNOME2 Project Team
+# This program is licenced under the same licence as Ruby-GNOME2.
+#
+=begin
+=  Icon View/Editing and Drag-and-Drop
+
+ The GtkIconView widget supports Editing and Drag-and-Drop.
+ This example also demonstrates using the generic GtkCellLayout
+ interface to set up cell renderers in an icon view.
+=end
+module IconviewEditDemo
+  COL_TEXT = 0
+  NUM_COLS = 1
+  def self.run_demo(main_window)
+    window = Gtk::Window.new(:toplevel)
+    window.screen = main_window.screen
+    window.set_title("Editing and Drag-and-drop")
+
+    store = create_store
+    fill_store(store)
+
+    icon_view = Gtk::IconView.new(:model => store)
+    icon_view.set_selection_mode(:single)
+    icon_view.set_item_orientation(:horizontal)
+    icon_view.set_columns(2)
+    icon_view.set_reorderable(true)
+
+    renderer = Gtk::CellRendererPixbuf.new
+    icon_view.pack_start(renderer, true)
+
+    icon_view.set_cell_data_func(renderer) do |_layout, cell_renderer, model, iter|
+      text = model.get_value(iter, COL_TEXT)
+      if text
+        color = Gdk::RGBA.parse(text)
+        pixel = nil
+        if color
+          pixel = (color.red * 255).to_i << 24 |
+                  (color.green * 255).to_i << 16 |
+                  (color.blue * 255).to_i << 8 |
+                  (color.alpha * 255).to_i
+        end
+        pixbuf = Gdk::Pixbuf.new(Gdk::Pixbuf::COLORSPACE_RGB, true, 8, 24, 24)
+        pixbuf.fill!(pixel) if pixel
+        cell_renderer.set_property("pixbuf", pixbuf)
+      end
+    end
+
+    renderer = Gtk::CellRendererText.new
+    icon_view.pack_start(renderer, true)
+    renderer.set_property("editable", true)
+    renderer.signal_connect("edited") do |_cell, path_string, text|
+      model = icon_view.model
+      path = Gtk::TreePath.new(path_string)
+      iter = model.get_iter(path)
+      iter[COL_TEXT] = text
+    end
+
+    icon_view.set_attributes(renderer, "text" => COL_TEXT)
+    window.add(icon_view)
+
+    if !window.visible?
+      window.show_all
+    else
+      window.destroy
+    end
+    window
+  end
+
+  def self.create_store
+    store = Gtk::ListStore.new(String)
+    store
+  end
+
+  def self.fill_store(store)
+    %w(Red Green Blue Yellow).each do |color|
+      store.append.set_values([color])
+    end
+  end
+end

data/sample/gtk-demo/infobar.rb

@@ -1,78 +1,94 @@
-# Copyright (c) 2013 Ruby-GNOME2 Project Team
+# Copyright (c) 2015 Ruby-GNOME2 Project Team
 # This program is licenced under the same licence as Ruby-GNOME2.
 #
 =begin
-= Info bar
+=  Info Bars
 
-Info bar widgets are used to report important messages to the user.
+ Info bar widgets are used to report important messages to the user.
 =end
-require 'common'
-
-module Demo
-  class InfoBar < BasicWindow
-    def initialize
-      super('Info Bars')
-
-      self.border_width = 8
+module InfobarDemo
+  def self.run_demo(main_window)
+    actions = Gtk::Box.new(:horizontal, 0)
+
+    window = Gtk::Window.new(:toplevel)
+    window.screen = main_window.screen
+    window.set_title("Info Bars")
+    window.set_border_width(8)
+
+    vbox = Gtk::Box.new(:vertical, 0)
+    window.add(vbox)
+
+    generate_simple_infobar_and_button("info", vbox, actions)
+    generate_simple_infobar_and_button("warning", vbox, actions)
+
+    bar = Gtk::InfoBar.new
+    bar.add_button("_OK", Gtk::ResponseType::OK)
+    bar.set_show_close_button(true)
+    bar.signal_connect "response" do |info_bar, response_id|
+      info_bar.hide if response_id == Gtk::ResponseType::CLOSE
+      dialog = Gtk::MessageDialog.new(:parent => info_bar.toplevel,
+                                      :flags => [:modal, :destroy_with_parent],
+                                      :type => :info,
+                                      :buttons => :ok,
+                                      :message => "You clicked a button on an info bar")
+      dialog.secondary_text = "Your response has id #{response_id}"
+      dialog.signal_connect("response") { |widget| widget.destroy }
+      dialog.show_all
+    end
 
+    vbox.pack_start(bar,
+                    :expand => false,
+                    :fill => false,
+                    :padding => 0)
 
-      vbox = Gtk::Box.new :vertical
-      self.add vbox
+    bar.set_message_type(:question)
+    label = Gtk::Label.new("This is an info bar with message type Gtk::MessageType::QUESTION")
+    label.set_line_wrap(true)
+    label.set_xalign(0)
 
-      bar = Gtk::InfoBar.new
-      vbox.pack_start bar, :expand => false, :fill => false, :padding => 0
-      bar.message_type = :info
-      label = Gtk::Label.new 'This is an info bar with message type GTK_MESSAGE_INFO'
-      bar.content_area.pack_start label, :expand => false, :fill => false, :padding => 0
+    bar.content_area.pack_start(label, :expand => false, :fill => false, :padding => 0)
 
-      bar = Gtk::InfoBar.new
-      vbox.pack_start bar, :expand => false, :fill => false, :padding => 0
-      bar.message_type = :warning
-      label = Gtk::Label.new 'This is an info bar with message type GTK_MESSAGE_WARNING'
-      bar.content_area.pack_start label, :expand => false, :fill => false, :padding => 0
+    button = Gtk::ToggleButton.new(:label => "Question")
+    button.bind_property("active", bar, "visible", :bidirectional)
+    actions.add(button)
+    button.set_active(false)
 
-      bar = Gtk::InfoBar.new [:ok, :ok]
-      bar.signal_connect(:response) {|widget, response_id| on_bar_response widget, response_id}
-      vbox.pack_start bar, :expand => false, :fill => false, :padding => 0
-      bar.message_type = :question
-      label = Gtk::Label.new 'This is an info bar with message type GTK_MESSAGE_QUESTION'
-      bar.content_area.pack_start label, :expand => false, :fill => false, :padding => 0
+    generate_simple_infobar_and_button("error", vbox, actions)
+    generate_simple_infobar_and_button("other", vbox, actions)
 
-      bar = Gtk::InfoBar.new
-      vbox.pack_start bar, :expand => false, :fill => false, :padding => 0
-      bar.message_type = :error
-      label = Gtk::Label.new 'This is an info bar with message type GTK_MESSAGE_ERROR'
-      bar.content_area.pack_start label, :expand => false, :fill => false, :padding => 0
+    frame = Gtk::Frame.new("Info bars")
+    vbox.pack_start(frame, :expand => false, :fill => false, :padding => 8)
 
-      bar = Gtk::InfoBar.new
-      vbox.pack_start bar, :expand => false, :fill => false, :padding => 0
-      bar.message_type = :other
-      label = Gtk::Label.new 'This is an info bar with message type GTK_MESSAGE_OTHER'
-      bar.content_area.pack_start label, :expand => false, :fill => false, :padding => 0
+    vbox2 = Gtk::Box.new(:vertical, 8)
+    vbox2.set_border_width(8)
+    frame.add(vbox2)
 
+    label = Gtk::Label.new("An example of different info bars")
+    vbox2.pack_start(label, :expand => false, :fill => false, :padding => 0)
+    actions.show_all
+    vbox2.pack_start(actions, :expand => false, :fill => false, :padding => 0)
 
-      frame = Gtk::Frame.new 'Info bars'
-      vbox.pack_start frame, :expand => false, :fill => false, :padding => 8
+    if !window.visible?
+      window.show_all
+    else
+      window.destroy
+    end
+    window
+  end
 
-      vbox2 = Gtk::Box.new :vertical, 8
-      vbox2.border_width = 8
-      frame.add vbox2
+  def self.generate_simple_infobar_and_button(message_type, bar_parent, button_parent)
+    bar = Gtk::InfoBar.new
+    bar_parent.pack_start(bar, :expand => false, :fill => false, :padding => 0)
+    bar.set_message_type(message_type.to_sym)
 
-      # Standard message dialog
-      label = Gtk::Label.new 'An example of different info bars'
-      vbox2.pack_start label, :expand => false, :fill => false, :padding => 0
-    end
+    label = Gtk::Label.new("This is an info bar with message type Gtk::MessageType::#{message_type.upcase}")
+    label.set_line_wrap(true)
+    label.set_xalign(0)
 
-    def on_bar_response info_bar, response_id
-      dialog = Gtk::MessageDialog.new :parent => self,
-                                      :flags => [:modal, :destroy_with_parent],
-                                      :type => :info,
-                                      :buttons_type => :ok,
-                                      :message => 'You clicked a button on an info bar'
+    bar.content_area.pack_start(label, :expand => false, :fill => false, :padding => 0)
 
-      dialog.set_secondary_text "Your response has id %d" % response_id
-      dialog.signal_connect(:response) {dialog.destroy}
-      dialog.show_all
-    end
+    button = Gtk::ToggleButton.new(:label => "Message")
+    button.bind_property("active", bar, "visible", :bidirectional)
+    button_parent.add(button)
   end
-end
+end

data/sample/gtk-demo/links.rb

@@ -1,53 +1,66 @@
-# Copyright (c) 2013 Ruby-GNOME2 Project Team
+# Copyright (c) 2015 Ruby-GNOME2 Project Team
 # This program is licenced under the same licence as Ruby-GNOME2.
 #
 =begin
 = Links
 
-GtkLabel can show hyperlinks. The default action is to call gtk_show_uri() on their URI, but it is possible to override this with a custom handler.
+GtkLabel can show hyperlinks. The default action is to call
+gtk_show_uri() on their URI, but it is possible to override
+this with a custom handler.
 =end
-require 'common'
+module LinksDemo
+  def self.run_demo(main_window)
+    window = Gtk::Window.new(:toplevel)
+    window.screen = main_window.screen
+    window.set_title("Links")
+    window.set_border_width(12)
 
-module Demo
-  class Links < BasicWindow
-    def initialize
-      super('Links')
+    label = Gtk::Label.new(<<-MESSAGE)
+Some <a href="http://en.wikipedia.org/wiki/Text"
+title="plain text">text</a> may be marked up
+as hyperlinks, which can be clicked
+or activated via <a href="keynav">keynav</a>
+and they work fine with other markup, like when
+searching on <a href="http://www.google.com/">
+<span color="#0266C8">G</span><span color="#F90101">o</span>
+<span color="#F2B50F">o</span><span color="#0266C8">g</span>
+<span color="#00933B">l</span><span color="#F90101">e</span>
+</a>.
+    MESSAGE
+    label.set_use_markup(true)
 
-      title = 'Links'
-      border_width = 12
-      signal_connect(:destroy) {self.destroy}
-
-      label = Gtk::Label.new "Some <a href=\"http://en.wikipedia.org/wiki/Text\"" +
-                             "title=\"plain text\">text</a> may be marked up\n" +
-                             "as hyperlinks, which can be clicked\n" +
-                             "or activated via <a href=\"keynav\">keynav</a>\n" +
-                             "and they work fine with other markup, like when\n" +
-                             "searching on <a href=\"http://www.google.com/\">" +
-                             "<span color=\"#0266C8\">G</span><span color=\"#F90101\">o</span>" +
-                             "<span color=\"#F2B50F\">o</span><span color=\"#0266C8\">g</span>" +
-                             "<span color=\"#00933B\">l</span><span color=\"#F90101\">e</span>" +
-                             "</a>."
-      label.use_markup = true
-      label.signal_connect(:activate_link) {|widget, uri| activate_link uri}
-      add label
-      label.show
+    label.signal_connect "activate-link" do |_widget, uri|
+      if uri == "keynav"
+        parent = label.toplevel
+        dialog = Gtk::MessageDialog.new(:parent => parent,
+                                        :flags => :destroy_with_parent,
+                                        :type => :info,
+                                        :buttons => :ok,
+                                        :message => <<-MESSAGE)
+The term <i>keynav</i> is a shorthand for
+keyboard navigation and refers to the process of using
+a program (exclusively) via keyboard input.
+        MESSAGE
+        dialog.set_use_markup(true)
+        dialog.set_modal(true)
+        dialog.present
+        dialog.signal_connect "response" do
+          dialog.destroy
+        end
+        true
+      else
+        false
+      end
     end
 
-    def activate_link uri
-      if uri == 'keynav'
-        dialog = Gtk::MessageDialog.new :parent => self,
-                   :flags => :destroy_with_parent,
-                   :type => :info,
-                   :buttons_type => :ok
+    window.add(label)
+    label.show
 
-        dialog.markup = "The term <i>keynav</i> is a shorthand for " +
-                        "keyboard navigation and refers to the process of using " +
-                        "a program (exclusively) via keyboard input."
-        dialog.present
-        dialog.signal_connect(:response) {dialog.destroy}
-        return true
-      end
-      false
+    if !window.visible?
+      window.show_all
+    else
+      window.destroy
     end
+    window
   end
-end
+end

data/sample/gtk-demo/main.rb

@@ -21,6 +21,7 @@ require "optparse"
 require "fileutils"
 
 current_path = File.expand_path(File.dirname(__FILE__))
+
 gresource_bin = "#{current_path}/demo.gresource"
 gresource_xml = "#{current_path}/demo.gresource.xml"
 
@@ -42,24 +43,205 @@ Gio::Resources.register(resource)
 
 ENV["GSETTINGS_SCHEMA_DIR"] = current_path
 
+TITLE_COLUMN = 0
+FILENAME_COLUMN = 1
+STYLE_COLUMN = 2
+
+def script_info(path)
+  title = depend = nil
+  file = File.open(path)
+  file.each do |ln|
+    if !title && ln =~ /^=\s+(.*)$/
+      title = Regexp.last_match(1)
+      if title =~ /^(.*)\((.+?)\)$/
+        title = Regexp.last_match(1)
+        depend = Regexp.last_match(2)
+      end
+    end
+
+    break if title
+  end
+
+  [title, depend]
+end
+
+def generate_index
+  # Target scripts
+  scripts = Dir.glob(File.join(File.dirname(__FILE__), "*.rb"))
+  # Generate index tree
+  children = {}
+  index = []
+
+  scripts.each do |script|
+    next if ["common.rb", "main.rb"].include?(File.basename(script))
+    title, depend = script_info(script)
+
+    next if depend && !Gtk.const_defined?(depend)
+
+    if title =~ %r{^(.+?)/(.+)$}
+      parent = Regexp.last_match(1)
+      child = Regexp.last_match(2)
+
+      unless children[parent]
+        children[parent] = []
+        index += [[parent, nil, []]]
+      end
+      children[parent] += [[child, script]]
+    else
+      index += [[title, script]]
+    end
+  end
+
+  # Sort children
+  children.each_key do |parent|
+    children[parent].sort! do |a, b|
+      a[0] <=> b[0]
+    end
+  end
+
+  # Expand children
+  index.collect! do |row|
+    row[2] = children[row[0]] if row[2]
+
+    row
+  end
+
+  index.sort! do |a, b|
+    a[0] <=> b[0]
+  end
+
+  index
+end
+
+def append_children(model, source, parent = nil)
+  source.each do |title, filename, children|
+    iter = model.append(parent)
+    iter[TITLE_COLUMN] = title
+    iter[FILENAME_COLUMN] = filename
+    iter[STYLE_COLUMN] = Pango::FontDescription::STYLE_NORMAL
+
+    append_children(model, children, iter) if children
+  end
+end
+
+def get_demo_name_from_filename(filename)
+  File.basename(filename, ".rb").tr("-", "_")
+end
+
+def get_module_name_from_filename(filename)
+  pattern = get_demo_name_from_filename(filename)
+  module_name = pattern.split("_").map(&:capitalize).join
+  module_name << "Demo"
+end
+
+def list_demos(source, is_child = false)
+  source.each do |title, filename, children|
+    if is_child
+      printf("%-30.30s", "\t" + title)
+      printf("%-30.30s", get_demo_name_from_filename(filename))
+      puts ""
+    elsif filename
+      printf("%-38.38s", title)
+      printf("%-30.30s", get_demo_name_from_filename(filename))
+      puts ""
+    else
+      puts "#{title} : "
+    end
+
+    list_demos(children, true) if children
+  end
+end
 
+def find_demo_filename_from_name(source, name)
+  demo_filename = nil
+  source.each do |_title, filename, children|
+    if filename && name == get_demo_name_from_filename(filename)
+      demo_filename = filename
+    end
+    break if demo_filename
+    (demo_filename = find_demo_filename_from_name(children, name)) if children
+  end
+  demo_filename
+end
+
+def get_demo_filename_from_name(name)
+  index = generate_index
+  filename = find_demo_filename_from_name(index, name)
+  puts "Demo not found" unless filename
+
+  filename
+end
+
+def run_demo_from_file(filename, window)
+  module_name = get_module_name_from_filename(filename)
+
+  unless Module.const_defined?(module_name) == true
+    require filename
+  end
+
+  module_object = Module.const_get(module_name)
+  demo = module_object.send(:run_demo, window)
+
+  if demo && demo.class == Gtk::Window
+    demo.set_transient_for(window)
+    demo.modal = true
+  end
+  demo
+end
 
 class Demo < Gtk::Application
   def initialize
     super("org.gtk.Demo", [:non_unique, :handles_command_line])
 
+    action = Gio::SimpleAction.new("quit")
+    action.signal_connect "activate" do |_action, _parameter|
+      quit
+    end
+    add_action(action)
+
+    action = Gio::SimpleAction.new("about")
+    action.signal_connect "activate" do |_action, _parameter|
+      Gtk::AboutDialog.show(active_window,
+                            "program_name" => "GTK+ Demo",
+                            "version" => Gtk::Version::STRING,
+                            "copyright" => "(C) 1997-2013 The GTK+ Team",
+                            "license_type" => Gtk::License::LGPL_2_1,
+                            "website" => "http://www.gtk.org",
+                            "comments" => "Program to demonstrate GTK+ widgets",
+                            "authors" => ["The GTK+ Team"],
+                            "logo_icon_name" => "gtk3-demo",
+                            "title" => "About GTK+ Demo"
+                           )
+    end
+
+    add_action(action)
     @options = {}
     @exit_status = 0
 
     signal_connect "startup" do |application|
-      puts "startup"
       @builder = Gtk::Builder.new(:resource => "/ui/main.ui")
       appmenu = @builder["appmenu"]
       application.set_app_menu(appmenu)
+
+      @info_buffer = Gtk::TextBuffer.new
+      @source_buffer = Gtk::TextBuffer.new
+
+      @info_buffer.create_tag("title",
+                              "font" => "Sans 18")
+
+      @source_buffer.create_tag("comment",
+                                "foreground" => "red")
+      @source_buffer.create_tag("const",
+                                "foreground" => "ForestGreen")
+      @source_buffer.create_tag("string",
+                                "foreground" => "RosyBrown",
+                                "weight" => Pango::FontDescription::WEIGHT_BOLD
+                               )
+      @source_buffer.create_tag("reserved",
+                                "foreground" => "purple")
     end
 
-    signal_connect "activate" do |application|
-      puts "activate"
+    signal_connect "activate" do |_application|
       begin
         run_application
       rescue => error
@@ -68,8 +250,7 @@ class Demo < Gtk::Application
       end
     end
 
-    signal_connect "command-line" do |application, command_line|
-      puts "cmd"
+    signal_connect "command-line" do |_application, command_line|
       begin
         parse_command_line(command_line.arguments)
       rescue SystemExit => error
@@ -85,9 +266,10 @@ class Demo < Gtk::Application
         @exit_status
       end
     end
- end
+  end
 
   private
+
   def parse_command_line(arguments)
     parser = OptionParser.new
     parser.on("-r", "--run EXAMPLE", "Run an example") do |example|
@@ -109,66 +291,194 @@ class Demo < Gtk::Application
 
   def run_application
     if @options[:list]
-      puts "list"
-      # list_demos
+      list_demos(generate_index)
       quit
     end
 
-    if @options[:name]
-      puts "name"
-      # lookup_for_corresponding_demo
-      # load_demo
-    end
-
-    if @options[:autoquit]
-      puts "autoquit"
-      GLib::Timeout.add(1) do
-        #implement auto_quit
-      end
-    end
-
     window = @builder["window"]
     add_window(window)
-
     action = Gio::SimpleAction.new("run")
+
     action.signal_connect "activate" do |_action, _parameter|
-      # activate_run
+      selection = @treeview.selection
+      iter = selection.selected
+      filename = iter[1]
+      run_demo_from_file(filename, windows.first) if filename
     end
-    add_action(action)
+    window.add_action(action)
 
-    notebook = @builder["notebook"]
-    info_textwiew = @builder["info-textview"]
-    source_textview = @builder["source-textview"]
+    @notebook = @builder["notebook"]
+    @info_view = @builder["info-textview"]
+    @source_view = @builder["source-textview"]
     headerbar = @builder["headerbar"]
-    treeview = @builder["treeview"]
-    model = treeview.model
+    @treeview = @builder["treeview"]
+    model = @treeview.model
+    append_children(model, generate_index)
 
-    sw = @builder["source-scrolledwindow"]
-    scrollbar = sw.vscrollbar
+    @source_sw = @builder["source-scrolledwindow"]
+    scrollbar = @source_sw.vscrollbar
 
-    menu = Gtk::Menu.new
+    @menu = Gtk::Menu.new
 
-    item = Gtk::MenuItem.new("Start")
-    menu.append(item)
+    item = Gtk::MenuItem.new(:label => "Start")
+    @menu.append(item)
     item.signal_connect "activate" do
-      adj = scrollbar.adjustement
-      adj.value = adj.get_lower
+      adj = scrollbar.adjustment
+      adj.value = adj.lower
     end
 
-    item = Gtk::MenuItem.new("End")
-    menu.append(item)
+    item = Gtk::MenuItem.new(:label => "End")
+    @menu.append(item)
     item.signal_connect "activate" do
-      adj = scrollbar.adjustement
-      adj.value = adj.get_upper - adj.get_page_size
+      adj = scrollbar.adjustment
+      adj.value = adj.upper - adj.page_size
     end
 
-    menu.show_all
+    @info_sw = @builder["info-scrolledwindow"]
+
+    @menu.show_all
 
-    scrollbar.signal_connect "popup-menu" do
-      menu.popup(nil, nil, Gtk.current_event_time)
+    scrollbar.signal_connect "popup-menu" do |widget, button, activate_time|
+      @menu.popup(nil, nil, 0, Gtk.current_event_time)
+    end
+
+    @treeview.signal_connect "row-activated" do |_tree_view, path, _column|
+      iter = model.get_iter(path)
+      filename = iter[1]
+      iter[2] = Pango::FontDescription::STYLE_ITALIC
+      demo = run_demo_from_file(filename, windows.first)
+      demo.signal_connect "destroy" do
+        iter[2] = Pango::FontDescription::STYLE_NORMAL
+      end
+    end
+
+    treeview_selection = @builder["treeview-selection"]
+    treeview_selection.signal_connect "changed" do |selection, _model|
+      iter = selection.selected
+      filename = iter[1]
+      title = iter[0]
+      load_file(filename) if filename
+      headerbar.set_title(title)
     end
 
     window.show_all
+
+    if @options[:name]
+      filename = get_demo_filename_from_name(@options[:name])
+      run_demo_from_file(filename, windows.first)
+    end
+
+    if @options[:autoquit]
+      GLib::Timeout.add_seconds(1) do
+        quit
+      end
+    end
+  end
+
+  def fill_buffers_from(file)
+    start = @info_buffer.get_iter_at(:offset => 0)
+    state = :before_header
+
+    file.each do |line|
+      case state
+      when :before_header
+        state = :in_header if line =~ /^=begin$/
+      when :in_header
+        if line =~ /^=end$/
+          state = :body
+          start = @source_buffer.get_iter_at(:offset => 0)
+        elsif line =~ /^=\s+(.*)$/
+          title = Regexp.last_match(1)
+          title.gsub!(/\s*\(.*\)$/, "") # Delete depend field
+
+          last = start
+
+          @info_buffer.insert(last, title)
+          start = last.clone
+
+          start.backward_chars(title.length)
+          @info_buffer.apply_tag("title", start, last)
+
+          start = last
+        else
+          @info_buffer.insert(start, line)
+        end
+      when :body # Reading program body
+        @source_buffer.insert(start, line)
+      end
+    end
+  end
+
+  def load_file(filename)
+    return if filename == @current_file
+
+    # implement add_data_tab
+
+    @info_buffer.delete(*@info_buffer.bounds)
+
+    @source_buffer.delete(*@source_buffer.bounds)
+
+    file = begin
+             File.open(filename)
+           rescue
+             $stderr.puts "Cannot open: #{$ERROR_INFO}" if $DEBUG
+             return
+           end
+
+    fill_buffers_from(file)
+
+    fontify
+
+    @source_view.buffer = @source_buffer
+    @info_view.buffer = @info_buffer
+
+    @current_file = filename
+  end
+
+  def fontify(start_iter = @source_buffer.start_iter,
+                end_iter = @source_buffer.end_iter)
+    str = @source_buffer.get_text(start_iter, end_iter, true)
+    tokenizer = RubyTokonizer.new
+    tokenizer.tokenize(str, start_iter.offset) do |tag, start, last|
+      @source_buffer.apply_tag(tag.to_s,
+                               @source_buffer.get_iter_at(:offset => start),
+                               @source_buffer.get_iter_at(:offset => last))
+    end
+  end
+
+  class RubyTokonizer
+    RESERVED_WORDS = %w(begin end module class def if then else
+                        while unless do case when require yield)
+    RESERVED_WORDS_PATTERN = Regexp.compile(/(^|\s+)(#{RESERVED_WORDS.collect do |pat| Regexp.quote(pat) end.join("|")})(\s+|$)/)
+
+    def tokenize(str, index = 0)
+      until str.empty?
+        tag = nil
+
+        case str
+        when /".+?"/, /'.+?'/
+          tag = :string
+        when /#.*$/
+          tag = :comment
+        when RESERVED_WORDS_PATTERN
+          tag = :reserved
+        when /[A-Z][A-Za-z0-9_]+/
+          tag = :const
+        end
+
+        if tag
+          tokenize($LAST_MATCH_INFO.pre_match, index) do |*args|
+            yield(*args)
+          end
+          yield(tag, index + $LAST_MATCH_INFO.begin(0), index + $LAST_MATCH_INFO.end(0))
+          index += (str.length - $LAST_MATCH_INFO.post_match.length)
+          str = $LAST_MATCH_INFO.post_match
+        else
+          index += str.length
+          str = ""
+        end
+      end
+    end
   end
 end