view release on metacpan or  search on metacpan

Tk/ListboxDnD.pm  view on Meta::CPAN

=cut


use strict;
use warnings;

use vars qw($VERSION);
$VERSION = '1.300';

use base  qw(Tk::Derived Tk::Listbox);
use Tk::widgets qw(Listbox );

Construct Tk::Widget 'ListboxDnD';

sub Populate
  {
    require Tk::Listbox;

    my($listbox, $args) = @_;