From 75362fbd47cedf4b4906a361a6c54bc4ad8ea5ec Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 31 Jul 2003 20:52:40 +0000
Subject: * (IMPORTANT BUG FIX) scan of event keywords doesn't work on recent  
 versions of Tck/Tk * (bug fix) initialize error of instance variable on
 TkComposite * (bug fix) initialize error on encoding-system on MultiTkIp *
 (bug fix) trouble on destroying widgets * (new) add JP and EN version of
 Ruby/Tk widget demos

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4249 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/sample/demos-en/hello | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 ext/tk/sample/demos-en/hello

(limited to 'ext/tk/sample/demos-en/hello')

diff --git a/ext/tk/sample/demos-en/hello b/ext/tk/sample/demos-en/hello
new file mode 100644
index 0000000000..f06eabe518
--- /dev/null
+++ b/ext/tk/sample/demos-en/hello
@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+require 'tk'
+
+unless /^8\.[1-9]/ =~ Tk::TCL_VERSION && !Tk::JAPANIZED_TK
+  require 'tkencoding'
+end
+
+TkButton.new(nil,
+	'text'=>"Hello Ruby world!",
+	'font'=>TkFont.new('k14'),
+	'command'=>proc{print "Hello Ruby world!\n"; exit}
+).pack
+
+Tk.mainloop
-- 
cgit v1.2.3