# list1002.rb

require 'tk'

x = TkVariable.new                  # 変数の確保

b1 = TkCheckButton.new(nil,
    'text' => '日本語モード',
    'variable' => x)                # チェックボタンのオン、オフを x に入れてもらう
                                    # オンのときは、文字列 '1' が入り、オフのときは '0' が入る

b2 = TkButton.new(nil,
    'text' => '合言葉は？',
    'command' => proc{
	if x.value == "1"           
            puts 'こんにちは、世界！'
        else
	    puts 'Hello, World!'
        end
    }
)

b1.pack('side'=>'top')
b2.pack('side'=>'top','fill'=>'x')

Tk.mainloop