summaryrefslogtreecommitdiff
path: root/ext/tk/sample/tcltklib/sample0.rb
diff options
context:
space:
mode:
authorayumin <ayumin@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2011-09-14 17:25:37 +0000
committerayumin <ayumin@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2011-09-14 17:25:37 +0000
commit2fecb27eb47333fda1e0049584d6b56dd336197f (patch)
tree6a549de0a4c3980bb4c58b0de3055fd0b9756fbf /ext/tk/sample/tcltklib/sample0.rb
parent9da539cce9e823ab78699a8784eacfe789e67f6d (diff)
Merge branch 'tk_utf8' into trunk
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@33271 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/sample/tcltklib/sample0.rb')
-rw-r--r--ext/tk/sample/tcltklib/sample0.rb12
1 files changed, 6 insertions, 6 deletions
diff --git a/ext/tk/sample/tcltklib/sample0.rb b/ext/tk/sample/tcltklib/sample0.rb
index cd4c8069b43..0ac303ae9e1 100644
--- a/ext/tk/sample/tcltklib/sample0.rb
+++ b/ext/tk/sample/tcltklib/sample0.rb
@@ -1,18 +1,18 @@
#! /usr/local/bin/ruby -vd
-# tcltklib ライブラリのテスト
+# tcltklib ゃ鴻
require "tcltklib"
def test
- # インタプリタを生成する
+ # ゃ潟帥帥
ip1 = TclTkIp.new()
- # 評価してみる
+ # 荅箴<帥
print ip1._return_value().inspect, "\n"
print ip1._eval("puts {abc}").inspect, "\n"
- # ボタンを作ってみる
+ # 帥潟篏c帥
print ip1._return_value().inspect, "\n"
print ip1._eval("button .lab -text exit -command \"destroy .\"").inspect,
"\n"
@@ -20,12 +20,12 @@ def test
print ip1._eval("pack .lab").inspect, "\n"
print ip1._return_value().inspect, "\n"
- # インタプリタから ruby コマンドを評価してみる
+ # ゃ潟帥帥 ruby 潟潟荅箴<帥
# print ip1._eval(%q/ruby {print "print by ruby\n"}/).inspect, "\n"
print ip1._eval(%q+puts [ruby {print "print by ruby\n"; "puts by tcl/tk"}]+).inspect, "\n"
print ip1._return_value().inspect, "\n"
- # もう一つインタプリタを生成してみる
+ # 筝ゃゃ潟帥帥帥
ip2 = TclTkIp.new()
ip2._eval("button .lab -text test -command \"puts test ; destroy .\"")
ip2._eval("pack .lab")