summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/dirtree.pl
blob: 0cf91417a56e9e3e0bfd0ff898fd9dc642dba303 (plain)
1
2
3
4
5
6
7
# DirTree, display directory tree.

use Tk;
use Tk::DirTree;
my $top = MainWindow->new;
my $dl  = $top->Scrolled('DirTree')->pack(-expand => 1 , -fill => 'both');
MainLoop;