Help for this page

Select Code to Download


  1. or download this
    Tk::Error: Can't call method "GetNearest" on an undefined value at C:\
+Perl\hd16.pl line 66.
 main::DropGlobalGroup at C:\Perl\hd16.pl line 66
...
 Tk::DropSite::Drop at C:/Perl/site/lib/Tk/DropSite.pm line 75
 Tk::DragDrop::Drop at C:/Perl/site/lib/Tk/DragDrop.pm line 285
 (command bound to event)
  2. or download this
    
require 5.006;
...
$tk{localgroup_list}-> DropSite(-droptypes=> [qw/Local/], -dropcommand
+=> [\ &DropGlobalGroup, $tk{Localgroup_list}, $dnd_token2],);
MainLoop;
exit(0);