* 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

1 files changed, 24 insertions, 6 deletions

diff --git a/ext/tk/sample/demos-en/bind.rb b/ext/tk/sample/demos-en/bind.rb
index 0bd1f0ca6f..aabe7f0849 100644
--- a/ext/tk/sample/demos-en/bind.rb
+++ b/ext/tk/sample/demos-en/bind.rb
@@ -93,17 +93,35 @@ TkText.new($bind_demo){|t|
     tag_binding_for_bind_demo(tag, tagstyle_bold, tagstyle_normal)
   }
   d1.bind('1', 
-          proc{eval `cat #{[$demo_dir,'items.rb'].join(File::Separator)}`})
+          proc{
+            eval(`cat #{[$demo_dir,'items.rb'].join(File::Separator)}`, 
+                 _null_binding)
+          })
   d2.bind('1', 
-          proc{eval `cat #{[$demo_dir,'plot.rb'].join(File::Separator)}`})
+          proc{
+            eval(`cat #{[$demo_dir,'plot.rb'].join(File::Separator)}`, 
+                 _null_binding)
+          })
   d3.bind('1', 
-          proc{eval `cat #{[$demo_dir,'ctext.rb'].join(File::Separator)}`})
+          proc{
+            eval(`cat #{[$demo_dir,'ctext.rb'].join(File::Separator)}`, 
+                 _null_binding)
+          })
   d4.bind('1', 
-          proc{eval `cat #{[$demo_dir,'arrow.rb'].join(File::Separator)}`})
+          proc{
+            eval(`cat #{[$demo_dir,'arrow.rb'].join(File::Separator)}`, 
+                 _null_binding)
+          })
   d5.bind('1', 
-          proc{eval `cat #{[$demo_dir,'ruler.rb'].join(File::Separator)}`})
+          proc{
+            eval(`cat #{[$demo_dir,'ruler.rb'].join(File::Separator)}`, 
+                 _null_binding)
+          })
   d6.bind('1', 
-          proc{eval `cat #{[$demo_dir,'cscroll.rb'].join(File::Separator)}`})
+          proc{
+            eval(`cat #{[$demo_dir,'cscroll.rb'].join(File::Separator)}`, 
+                 _null_binding)
+          })
 
   TkTextMarkInsert.new(t, '0.0')
   configure('state','disabled')