Ruby/GTK+ でちょっと考えた

gtk_sample2c.rb

require 'gtk2'

class GUI < Gtk::Window
  Meth = [:wanwan, :nya]
  
  def initialize(&bk)
    super("GUI")
    set_width_request(200)
    
    box = Gtk::VBox.new
    add(box)
    
    @button1 = Gtk::Button.new("イヌ")
    @button2 = Gtk::Button.new("ネコ")
    
    label1 = Gtk::Label.new("吾輩はイヌである")
    label2 = Gtk::Label.new("吾輩はネコである")
    
    [@button1, label1, @button2, label2].each do |wd|
      box.pack_start(wd, true, true, 5)
    end
    
    signal_connect("destroy") {Gtk.main_quit}
    
    @meth = {}
    instance_eval(&bk)
    
    [@button1, @button2].zip(Meth).each do |bt|
      bt[0].signal_connect("clicked", &@meth[bt[1]])
    end
    
    show_all
    Gtk.main
  end
  
  Meth.each do |name|
    define_method(name) {|&bk| @meth[name] = bk}
  end
end


GUI.new do
  wanwan do
    puts "わんわん"
    md = Gtk::MessageDialog.new(self, Gtk::Dialog::MODAL,
            Gtk::MessageDialog::INFO, Gtk::MessageDialog::BUTTONS_OK, "わんわん")
    md.signal_connect("response") {md.destroy}
    md.run
  end
  
  nya {puts "にゃー"}
end