* ext/tk/tkutil/tkutil.c: add TkUtil::CallbackSubst.subst_arg(m, ...)

  & _define_attribute_aliases(hash) to get substitution-argument from
  attributes (e.g. subst_arg(:x,:y,:num,:button) --> "%x %y %b %b ").
* ext/tk/lib/tk/event.rb: use _define_attribute_aliases().


git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@8618 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 14 insertions, 0 deletions

diff --git a/ext/tk/lib/tk/event.rb b/ext/tk/lib/tk/event.rb
index dd01ba630..35d2beecd 100644
--- a/ext/tk/lib/tk/event.rb
+++ b/ext/tk/lib/tk/event.rb
@@ -130,6 +130,7 @@ module TkEvent
     #  []
     #end
 
+=begin
     alias button num
     alias delta  wheel_delta
     alias root   rootwin_id
@@ -138,6 +139,19 @@ module TkEvent
     alias rooty  y_root
     alias root_y y_root
     alias sendevent send_event
+=end
+    ALIAS_TBL = {
+      :button    => :num, 
+      :delta     => :wheel_delta, 
+      :root      => :rootwin_id, 
+      :rootx     => :x_root, 
+      :root_x    => :x_root, 
+      :rooty     => :y_root, 
+      :root_y    => :y_root, 
+      :sendevent => :send_event
+    }
+
+    _define_attribute_aliases(ALIAS_TBL)
 
   end