From 95d0611dd186880cf7471b4b7cddbc61d196c832 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 24 Dec 2004 14:30:14 +0000
Subject: * ext/tk/lib/tk/image.rb: TkPhotoImage#cget bug fix

git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@7652 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog              | 4 ++++
 ext/tk/lib/tk/image.rb | 4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a92fadb11..823757a30 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Fri Dec 24 23:27:18 2004  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/lib/tk/image.rb: TkPhotoImage#cget bug fix
+
 Fri Dec 24 18:39:25 2004  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
 
 	* win32/win32.[ch]: failed to compile on bcc32 (and probably wince)
diff --git a/ext/tk/lib/tk/image.rb b/ext/tk/lib/tk/image.rb
index 6eb7b98d6..0848eb596 100644
--- a/ext/tk/lib/tk/image.rb
+++ b/ext/tk/lib/tk/image.rb
@@ -89,9 +89,9 @@ class TkPhotoImage<TkImage
   def cget(option)
     case option.to_s
     when 'data', 'file'
-      tk_send 'cget', option
+      tk_send 'cget', '-' << option.to_s
     else
-      tk_tcl2ruby(tk_send('cget', option))
+      tk_tcl2ruby(tk_send('cget', '-' << option.to_s))
     end
   end
 
-- 
cgit