2000-04-10

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

1 files changed, 13 insertions, 1 deletions

diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index 107165f8b..19d3ad06d 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -350,6 +350,10 @@ module TkComm
     _bind_core('+', what, context, cmd, args)
   end
 
+  def _bind_remove(what, context)
+    tk_call(*(what + ["<#{tk_event_sequence(context)}>", '']))
+  end
+
   def _bindinfo(what, context=nil)
     if context
       tk_call(*what+["<#{tk_event_sequence(context)}>"]).collect {|cmdline|
@@ -366,7 +370,7 @@ module TkComm
     end
   end
   private :install_bind, :tk_event_sequence, 
-          :_bind_core, :_bind, :_bind_append, :_bindinfo
+          :_bind_core, :_bind, :_bind_append, ,:_bind_remove, :_bindinfo
 
   def bind(tagOrClass, context, cmd=Proc.new, args=nil)
     _bind(["bind", tagOrClass], context, cmd, args)
@@ -376,6 +380,10 @@ module TkComm
     _bind_append(["bind", tagOrClass], context, cmd, args)
   end
 
+  def bind_remove(tagOrClass, context)
+    _bind_remove(['bind', tagOrClass], context)
+  end
+
   def bindinfo(tagOrClass, context=nil)
     _bindinfo(['bind', tagOrClass], context)
   end
@@ -729,6 +737,10 @@ module TkBindCore
     Tk.bind_append(to_eval, context, cmd, args)
   end
 
+  def bind_remove(context)
+    Tk.bind_remove(to_eval, context)
+  end
+
   def bindinfo(context=nil)
     Tk.bindinfo(to_eval, context)
   end