From 477f730aa45adfb6867925cc232c22a002a76571 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 21 Oct 2003 04:46:21 +0000
Subject: [PATCH] bug fix

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4821 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tk.rb                | 4 ++--
 ext/tk/sample/demos-en/items.rb | 4 ++--
 ext/tk/sample/demos-jp/items.rb | 4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index e79d97ac8e..a71ac7590e 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -5058,7 +5058,7 @@ class TkScale<TkWindow
   end
 
   def set(val)
-    tk_send "set", val
+    tk_send("set", val)
   end
 
   def value
@@ -5066,7 +5066,7 @@ class TkScale<TkWindow
   end
 
   def value= (val)
-    set val
+    set(val)
   end
 end
 
diff --git a/ext/tk/sample/demos-en/items.rb b/ext/tk/sample/demos-en/items.rb
index e6bf57ee82..8447430694 100644
--- a/ext/tk/sample/demos-en/items.rb
+++ b/ext/tk/sample/demos-en/items.rb
@@ -257,9 +257,9 @@ TkEntry.new(cvs, 'width'=>20, 'relief'=>'sunken') {|e|
 		'window'=>e, 'anchor'=>'nw', 'tags'=>$tag_item)
 }
 TkScale.new(cvs, 'from'=>0, 'to'=>100, 'length'=>'6c', 'sliderlength'=>'.4c', 
-	    'width'=>'.5c', 'tickinterval'=>0 ) {|s|
+	    'width'=>'.5c', 'tickinterval'=>0 ) {|scl|
   TkcWindow.new(cvs, '28.5c','17.5c', 
-		'window'=>s, 'anchor'=>'n', 'tags'=>$tag_item)
+		'window'=>scl, 'anchor'=>'n', 'tags'=>$tag_item)
 }
 TkcText.new(cvs, '21c', '17.9c', 'text'=>'Button:', 'anchor'=>'sw')
 TkcText.new(cvs, '21c', '20.9c', 'text'=>'Entry:', 'anchor'=>'sw')
diff --git a/ext/tk/sample/demos-jp/items.rb b/ext/tk/sample/demos-jp/items.rb
index 84e561f27c..e1007c5a8d 100644
--- a/ext/tk/sample/demos-jp/items.rb
+++ b/ext/tk/sample/demos-jp/items.rb
@@ -255,9 +255,9 @@ TkEntry.new(cvs, 'width'=>20, 'relief'=>'sunken') {|e|
 		'window'=>e, 'anchor'=>'nw', 'tags'=>$tag_item)
 }
 TkScale.new(cvs, 'from'=>0, 'to'=>100, 'length'=>'6c', 'sliderlength'=>'.4c', 
-	    'width'=>'.5c', 'tickinterval'=>0 ) {|s|
+	    'width'=>'.5c', 'tickinterval'=>0 ) {|scl|
   TkcWindow.new(cvs, '28.5c','17.5c', 
-		'window'=>s, 'anchor'=>'n', 'tags'=>$tag_item)
+		'window'=>scl, 'anchor'=>'n', 'tags'=>$tag_item)
 }
 TkcText.new(cvs, '21c', '17.9c', 'text'=>'ボタン:', 'anchor'=>'sw')
 TkcText.new(cvs, '21c', '20.9c', 'text'=>'エントリ:', 'anchor'=>'sw')