view release on metacpan or  search on metacpan

lib/Tk/FileTree.pm  view on Meta::CPAN

# FileTree -- TixFileTree widget
#
# Derived from Tk::DirTree

use strict;
use vars qw($VERSION);
$VERSION = '1.01';

use Tk;
use Tk::Derived;
use Tk::Tree;
use Tk::ItemStyle;
use Cwd;
use DirHandle;
use File::Spec qw();

use base  qw(Tk::Derived Tk::Tree);
use strict;

Construct Tk::Widget 'FileTree';

sub ClassInit
{
	my ($class,$mw) = @_;

	$class->SUPER::ClassInit($mw);
	$mw->bind($class,'<FocusIn>','focus');