1999-08-13 05:37:52 +00:00
|
|
|
require "tk"
|
|
|
|
|
|
2009-03-06 03:56:38 +00:00
|
|
|
TkButton.new(nil,
|
2004-10-11 04:51:21 +00:00
|
|
|
:text => 'hello',
|
|
|
|
|
:command => proc{print "hello\n"}).pack(:fill=>'x')
|
1999-08-13 05:37:52 +00:00
|
|
|
TkButton.new(nil,
|
2004-10-11 04:51:21 +00:00
|
|
|
:text => 'quit',
|
|
|
|
|
:command => proc{exit}).pack(:fill=>'x')
|
1999-08-13 05:37:52 +00:00
|
|
|
|
|
|
|
|
Tk.mainloop
|
