diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/dirtree.pl')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/dirtree.pl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/dirtree.pl b/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/dirtree.pl new file mode 100644 index 00000000000..0cf91417a56 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/dirtree.pl @@ -0,0 +1,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; |