ruby--ruby/ext/tk/sample/tkhello.rb

require "tk"

TkButton.new(nil, 
	     'text' => 'hello',
	     'command' => proc{print "hello\n"}).pack('fill'=>'x')
TkButton.new(nil,
	     'text' => 'quit',
	     'command' => proc{exit}).pack('fill'=>'x')

Tk.mainloop
remove marshal/gtk/kconv git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@518 b2dd03c8-39d4-4d8f-98ff-823fe69b080e 1999-08-13 01:37:52 -04:00			`require "tk"`

			`TkButton.new(nil,`
			`'text' => 'hello',`
			`'command' => proc{print "hello\n"}).pack('fill'=>'x')`
			`TkButton.new(nil,`
			`'text' => 'quit',`
* tcltklib.c (lib_mainloop_core): fixed signal-trap bug * multi-tk.rb, tk.rb, tkafter.rb, tkcanvas.rb, tkfont.rb, tktext.rb, tkvirtevent.rb : Ruby/Tk works at $SAFE == 4 git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4527 b2dd03c8-39d4-4d8f-98ff-823fe69b080e 2003-09-07 03:10:44 -04:00			`'command' => proc{exit}).pack('fill'=>'x')`
remove marshal/gtk/kconv git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@518 b2dd03c8-39d4-4d8f-98ff-823fe69b080e 1999-08-13 01:37:52 -04:00
			`Tk.mainloop`