From ed6ce8b43b6f25df1d4809ac799de4dd1c85c1f3 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 12 Jul 2009 23:08:32 +0000
Subject: * ext/tk/extconf.rb: New strategy for searching Tcl/Tk libraries. *
 ext/tk/*: Support new features of Tcl/Tk8.6b1 and minor bug fixes.      (
 [KNOWN BUG] Ruby/Tk on Ruby 1.9 will not work on Cygwin. ) * ext/tk/*: Unify
 sources between Ruby 1.8 & 1.9.             Improve default_widget_set
 handling. * ext/tk/*: Multi-TkInterpreter (multi-tk.rb) works on Ruby 1.8 &
 1.9.      ( [KNOWN BUG] On Ruby 1.8, join to a long term Thread on Tk       
 callbacks may freeze. On Ruby 1.9, cannot create a second        master
 interpreter (creating slaves are OK); supported master        interpreter is
 the default master interpreter only. ) * ext/tk/lib/tkextlib/*: Update
 supported versions of Tk extensions.          Tcllib 1.8/Tklib 0.4.1  ==> 
 Tcllib 1.11.1/Tklib 0.5          BWidgets 1.7            ==>  BWidgets 1.8   
       TkTable 2.9             ==>  TkTable 2.10          TkTreeCtrl
 2005-12-02   ==>  TkTreeCtrl 2.2.9          Tile 0.8.0/8.5.1        ==>  Tile
 0.8.3/8.6b1          IncrTcl 2005-02-14      ==>  IncrTcl 2008-12-15         
 TclX 2005-02-07         ==>  TclX 2008-12-15          Trofs 0.4.3            
 ==>  Trofs 0.4.4

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@24063 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tk/canvas.rb | 31 +++++++++++++++++++++++++++----
 1 file changed, 27 insertions(+), 4 deletions(-)

(limited to 'ext/tk/lib/tk/canvas.rb')

diff --git a/ext/tk/lib/tk/canvas.rb b/ext/tk/lib/tk/canvas.rb
index b05a619939..1e24c0be97 100644
--- a/ext/tk/lib/tk/canvas.rb
+++ b/ext/tk/lib/tk/canvas.rb
@@ -45,7 +45,7 @@ class Tk::Canvas<TkWindow
 
   TkCommandNames = ['canvas'.freeze].freeze
   WidgetClassName = 'Canvas'.freeze
-  WidgetClassNames[WidgetClassName] = self
+  WidgetClassNames[WidgetClassName] ||= self
 
   def __destroy_hook__
     TkcItem::CItemID_TBL.delete(@path)
@@ -265,6 +265,12 @@ class Tk::Canvas<TkWindow
     self
   end
 
+  def imove(tagOrId, idx, x, y)
+    tk_send_without_enc('imove', tagid(tagOrId), idx, x, y)
+    self
+  end
+  alias i_move imove
+
   def index(tagOrId, idx)
     number(tk_send_without_enc('index', tagid(tagOrId), idx))
   end
@@ -523,11 +529,18 @@ class Tk::Canvas<TkWindow
     self
   end
 
-  def move(tag, x, y)
-    tk_send_without_enc('move', tagid(tag), x, y)
+  def move(tag, dx, dy)
+    tk_send_without_enc('move', tagid(tag), dx, dy)
     self
   end
 
+  def moveto(tag, x, y)
+    # Tcl/Tk 8.6 or later
+    tk_send_without_enc('moveto', tagid(tag), x, y)
+    self
+  end
+  alias move_to moveto
+
   def postscript(keys)
     tk_send("postscript", *hash_kv(keys))
   end
@@ -541,6 +554,15 @@ class Tk::Canvas<TkWindow
     self
   end
 
+  def rchars(tag, first, last, str_or_coords)
+    # Tcl/Tk 8.6 or later
+    str_or_coords = str_or_coords.flatten if str_or_coords.kinad_of? Array
+    tk_send_without_enc('rchars', tagid(tag), first, last, str_or_coords)
+    self
+  end
+  alias replace_chars rchars
+  alias replace_coords rchars
+
   def scale(tag, x, y, xs, ys)
     tk_send_without_enc('scale', tagid(tag), x, y, xs, ys)
     self
@@ -581,7 +603,8 @@ class Tk::Canvas<TkWindow
 end
 
 #TkCanvas = Tk::Canvas unless Object.const_defined? :TkCanvas
-Tk.__set_toplevel_aliases__(:Tk, Tk::Canvas, :TkCanvas)
+#Tk.__set_toplevel_aliases__(:Tk, Tk::Canvas, :TkCanvas)
+Tk.__set_loaded_toplevel_aliases__('tk/canvas.rb', :Tk, Tk::Canvas, :TkCanvas)
 
 
 class TkcItem<TkObject
-- 
cgit v1.2.3