Contents

=begin header

  sample.rb - a part of testgtk.c rewritten in Ruby/GTK2

  Copyright (C) 2002-2005 Ruby-GNOME2 Project Team

  $Id: sample.rb,v 1.9 2005/07/21 17:47:19 mutoh Exp $

=end

require 'gtk2'

module Sample
  def destroy
    super
    @destroyed = true
  end
  def destroyed?
    @destroyed
  end
end

module SampleClass
  def invoke
    @singleton = nil unless defined? @singleton
    @singleton = new if @singleton.nil? or @singleton.destroyed?
    unless @singleton.visible?
      @singleton.show_all
    else
      @singleton.destroy
    end
  end
end

class SampleWindow < Gtk::Window
  include Sample
  extend SampleClass

  def initialize(title)
    super(title)
    @destroyed = false
    signal_connect("destroy") do destroy end
  end
end

class SampleDialog < Gtk::Dialog
  include Sample
  extend SampleClass

  def initialize(title)
    super(title)
    @destroyed = false
    signal_connect("destroy") do destroy end
  end
end

OptionMenuItem = Struct.new("OptionMenuItem", :name, :block)

def build_option_menu(items, history)
  omenu = Gtk::OptionMenu.new

  menu = Gtk::Menu.new
  group = nil

  items.size.times do |i|
    menu_item = Gtk::RadioMenuItem.new(group, items[i].name)
    menu_item.signal_connect("activate") do |widget|
       items[i].block.call(widget)
    end
    group = menu_item.group
    menu.append(menu_item)
    menu_item.active = true if i == history
    menu_item.show
  end

  omenu.menu = menu
  omenu.history = history

  omenu
end

Version data entries

184 entries across 184 versions & 1 rubygems

Version	Path
gtk2-3.4.3	sample/testgtk/sample.rb
gtk2-3.4.2	sample/testgtk/sample.rb
gtk2-3.4.1	sample/testgtk/sample.rb
gtk2-3.4.0	sample/testgtk/sample.rb
gtk2-3.3.9	sample/testgtk/sample.rb
gtk2-3.3.8	sample/testgtk/sample.rb
gtk2-3.3.7	sample/testgtk/sample.rb
gtk2-3.3.6	sample/testgtk/sample.rb
gtk2-3.3.5	sample/testgtk/sample.rb
gtk2-3.3.4	sample/testgtk/sample.rb
gtk2-3.3.3	sample/testgtk/sample.rb
gtk2-3.3.2	sample/testgtk/sample.rb
gtk2-3.3.1	sample/testgtk/sample.rb
gtk2-3.3.0	sample/testgtk/sample.rb
gtk2-3.2.9-x64-mingw32	sample/testgtk/sample.rb
gtk2-3.2.9-x86-mingw32	sample/testgtk/sample.rb
gtk2-3.2.9	sample/testgtk/sample.rb
gtk2-3.2.8-x64-mingw32	sample/testgtk/sample.rb
gtk2-3.2.8-x86-mingw32	sample/testgtk/sample.rb
gtk2-3.2.8	sample/testgtk/sample.rb