Help for this page

Select Code to Download

Select or download this

$i -> call("dnd bindsource", ".perl_hlist_object", "text/uri", {\&Perl
+_Sub});
$i -> call("bind", ".perl_hlist_object", "<1>", {dnd drag %W};

Select or download this

$i -> call("dnd", "bindsource", ".perl_hlist_object", "text/uri", \\'%
+W',sub{Perl_Sub(shift)});
$i -> call("bind", ".perl_hlist_object", "<1>", 'dnd drag %W');