From cde3bdf26f4fcccf15d69fd41f84403e2c1a12f4 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 13 Mar 2005 15:19:16 +0000
Subject: * ext/tk/lib/tk/timer.rb (TkRTTimer): correct calculation of offset  
 value. get a little better accuracy. * ext/tk/sample/demos-en/widget: use a
 binding with no local variables   when eval a sample script. *
 ext/tk/sample/demos-en/bind.rb: ditto. * ext/tk/sample/demos-en/tcolor:
 ditto. * ext/tk/sample/demos-jp/widget: ditto. *
 ext/tk/sample/demos-jp/bind.rb: ditto. * ext/tk/sample/demos-jp/tcolor:
 ditto.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8143 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/sample/demos-jp/widget | 34 +++++++++++++++++++++++++++++-----
 1 file changed, 29 insertions(+), 5 deletions(-)

(limited to 'ext/tk/sample/demos-jp/widget')

diff --git a/ext/tk/sample/demos-jp/widget b/ext/tk/sample/demos-jp/widget
index 7c559d2a09..ec9a07d778 100644
--- a/ext/tk/sample/demos-jp/widget
+++ b/ext/tk/sample/demos-jp/widget
@@ -11,7 +11,7 @@ require 'tk'
 $demo_dir = File.dirname($0)
 
 # root の生成
-$root = TkRoot.new{title "Widget Demonstration"}
+$root = TkRoot.new{title "Ruby/Tk Widget Demonstration"}
 
 # tk バージョンの取得
 $tk_version = Tk::TK_VERSION
@@ -551,7 +551,27 @@ else # ver >= 8.4
   alias showVars showVars2
 end
 
+def _null_binding
+  # binding
+  Module.new.instance_eval{binding}
+end
+private :_null_binding
+
 # テキスト上での click に対する動作
+def invoke(txt, idx)
+  tag = txt.tag_names(idx).find{|t| t.kind_of?(String) && t =~ /^demo-/}
+  return unless tag
+
+  cursor = txt.cget('cursor')
+  txt.cursor('watch')
+  Tk.update
+  eval(IO.readlines("#{[$demo_dir, tag[5..-1]].join(File::Separator)}.rb").join, _null_binding)
+  Tk.update
+  txt.cursor(cursor)
+
+  $tag_visited.add("#{idx} linestart +1 chars", "#{idx} lineend +1 chars")
+end
+=begin
 def invoke (txt, idx)
   tag = txt.tag_names(idx).find{|t| t.kind_of?(String) && t =~ /^demo-/}
   return unless tag
@@ -567,6 +587,7 @@ def invoke (txt, idx)
 
   $tag_visited.add("#{idx} linestart +1 chars", "#{idx} lineend +1 chars")
 end
+=end
 
 # 状態表示
 def showStatus (txt, index)
@@ -601,7 +622,7 @@ def showCode1(demo)
     }.pack('side'=>'left', 'expand'=>'yes', 'pady'=>2)
     TkButton.new(f) {
       text "再実行"
-      command proc{eval($code_text.get('1.0','end'))}
+      command proc{eval($code_text.get('1.0','end'), _null_binding)}
     }.pack('side'=>'left', 'expand'=>'yes', 'pady'=>2)
 #    f.pack('side'=>'bottom', 'expand'=>'yes', 'fill'=>'x')
     f.pack('side'=>'bottom', 'fill'=>'x')
@@ -694,7 +715,9 @@ def showCode2(demo)
                          :command=>proc{printCode($code_text, file)}, 
                          :image=>$image['print'], :compound=>:left)
     b_run = TkButton.new(bf, :text=>'再実行', 
-                         :command=>proc{eval($code_text.get('1.0','end'))}, 
+                         :command=>proc{
+                           eval($code_text.get('1.0','end'), _null_binding)
+                         }, 
                          :image=>$image['refresh'], :compound=>:left)
 
     TkGrid('x', b_run, b_prn, b_dis, :padx=>4, :pady=>[6,4])
@@ -819,7 +842,7 @@ end
 #
 def aboutBox
   Tk.messageBox('icon'=>'info', 'type'=>'ok', 'title'=>'About Widget Demo', 
-                'message'=>"Ruby/Tk ウィジェットデモ Ver.1.5.3-jp\n\n" + 
+                'message'=>"Ruby/Tk ウィジェットデモ Ver.1.5.4-jp\n\n" + 
                            "based on demos of Tk8.1 -- 8.5  " + 
                            "( Copyright:: " + 
                            "(c) 1996-1997 Sun Microsystems, Inc. / " + 
@@ -840,7 +863,8 @@ ARGV.each{|cmd|
   if cmd =~ /(.*).rb/
     cmd = $1
   end
-  eval IO.readlines("#{[$demo_dir, cmd].join(File::Separator)}.rb").join
+  eval(IO.readlines("#{[$demo_dir, cmd].join(File::Separator)}.rb").join, 
+       _null_binding)
 }
 if no_launcher
   $root.withdraw  # hide root window
-- 
cgit v1.2.3