1 files changed, 32 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/Tiler.pod b/Master/tlpkg/tlperl/lib/Tk/Tiler.pod
new file mode 100755
index 00000000000..2db172ebaf1
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/Tk/Tiler.pod
@@ -0,0 +1,32 @@
+
+=head1 NAME
+
+Tk::Tiler - Scrollable frame with sub-widgets arranged into rows
+
+=for pm Tk/Tiler.pm
+
+=for category Tk Geometry Management
+
+=head1 SYNOPSIS
+
+  use Tk::Tiler;
+
+  my $tl = $parent->Scrolled('Tiler', -columns => n, -rows => n);
+
+  my $a  = $tl->Xxxxx(...);
+  my $b  = $tl->Xxxxx(...);
+  my $c  = $tl->Xxxxx(...);
+
+  $tl->Manage($a,$b,$c);
+
+=head1 DESCRIPTION
+
+Tiler is derived form Tk::Frame. It is a geometry managing widget which
+accepts widgets to manage. It places the widgets in a grid with as many
+widgets as possible in a row. All the "slots" in the grid are the same size,
+which is determined by the largest managed widget.
+
+The grid may be scrolled vertically.
+
+=cut
+