125 lines
2.5 KiB
Ruby
125 lines
2.5 KiB
Ruby
#
|
|
# tkextlib/tkDND/tkdnd.rb
|
|
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
|
|
#
|
|
|
|
require 'tk'
|
|
|
|
# call setup script for general 'tkextlib' libraries
|
|
require 'tkextlib/setup.rb'
|
|
|
|
# call setup script
|
|
require 'tkextlib/tkDND/setup.rb'
|
|
|
|
TkPackage.require('tkdnd')
|
|
|
|
module Tk
|
|
module TkDND
|
|
def self.package_version
|
|
begin
|
|
TkPackage.require('tkdnd')
|
|
rescue
|
|
''
|
|
end
|
|
end
|
|
|
|
class DND_Subst < TkUtil::CallbackSubst
|
|
KEY_TBL = [
|
|
[ ?a, ?l, :actions ],
|
|
[ ?A, ?s, :action ],
|
|
[ ?b, ?L, :codes ],
|
|
[ ?c, ?s, :code ],
|
|
[ ?d, ?l, :descriptions ],
|
|
[ ?D, ?l, :data ],
|
|
[ ?L, ?l, :source_types ],
|
|
[ ?m, ?l, :modifiers ],
|
|
[ ?t, ?l, :types ],
|
|
[ ?T, ?s, :type ],
|
|
[ ?W, ?w, :widget ],
|
|
[ ?x, ?n, :x ],
|
|
[ ?X, ?n, :x_root ],
|
|
[ ?y, ?n, :y ],
|
|
[ ?Y, ?n, :y_root ],
|
|
nil
|
|
]
|
|
|
|
PROC_TBL = [
|
|
[ ?n, TkComm.method(:num_or_str) ],
|
|
[ ?s, TkComm.method(:string) ],
|
|
[ ?l, TkComm.method(:list) ],
|
|
[ ?L, TkComm.method(:simplelist) ],
|
|
[ ?w, TkComm.method(:window) ],
|
|
nil
|
|
]
|
|
|
|
# setup tables
|
|
_setup_subst_table(KEY_TBL, PROC_TBL);
|
|
end
|
|
|
|
module DND
|
|
def self.version
|
|
begin
|
|
TkPackage.require('tkdnd')
|
|
rescue
|
|
''
|
|
end
|
|
end
|
|
|
|
def dnd_bindtarget_info(type=nil, event=nil)
|
|
if event
|
|
procedure(tk_call('dnd', 'bindtarget', @path, type, event))
|
|
elsif type
|
|
procedure(tk_call('dnd', 'bindtarget', @path, type))
|
|
else
|
|
simplelist(tk_call('dnd', 'bindtarget', @path))
|
|
end
|
|
end
|
|
|
|
def dnd_bindtarget(type, event, cmd=Proc.new, prior=50, *args)
|
|
event = tk_event_sequence(event)
|
|
if prior.kind_of?(Numeric)
|
|
tk_call('dnd', 'bindtarget', @path, type, event,
|
|
install_bind_for_event_class(DND_Subst, cmd, *args),
|
|
prior)
|
|
else
|
|
tk_call('dnd', 'bindtarget', @path, type, event,
|
|
install_bind_for_event_class(DND_Subst, cmd, prior, *args))
|
|
end
|
|
self
|
|
end
|
|
|
|
def dnd_cleartarget
|
|
tk_call('dnd', 'cleartarget', @path)
|
|
self
|
|
end
|
|
|
|
def dnd_bindsource_info(type=nil)
|
|
if type
|
|
procedure(tk_call('dnd', 'bindsource', @path, type))
|
|
else
|
|
simplelist(tk_call('dnd', 'bindsource', @path))
|
|
end
|
|
end
|
|
|
|
def dnd_bindsource(type, cmd=Proc.new, prior=None)
|
|
tk_call('dnd', 'bindsource', @path, type, cmd, prior)
|
|
self
|
|
end
|
|
|
|
def dnd_clearsource()
|
|
tk_call('dnd', 'clearsource', @path)
|
|
self
|
|
end
|
|
|
|
def dnd_drag(keys=nil)
|
|
tk_call('dnd', 'drag', @path, *hash_kv(keys))
|
|
self
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
class TkWindow
|
|
include Tk::TkDND::DND
|
|
end
|