summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/dirtree.pl
diff options
context:
space:
mode:
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.pl7
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;