diff options
Diffstat (limited to 'ext/tk/lib/tk.rb')
-rw-r--r-- | ext/tk/lib/tk.rb | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb index 107165f8ba..19d3ad06d5 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 |