1 files changed, 16 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl.straw/lib/Tk/Labelframe.pm b/Master/tlpkg/tlperl.straw/lib/Tk/Labelframe.pm
new file mode 100755
index 00000000000..14c577b5e35
--- /dev/null
+++ b/Master/tlpkg/tlperl.straw/lib/Tk/Labelframe.pm
@@ -0,0 +1,16 @@
+package Tk::Labelframe;
+use strict;
+
+use vars qw($VERSION);
+$VERSION = sprintf '4.%03d', q$Revision: #2 $ =~ /#(\d+)/;
+
+# New widget which is a kind of Frame with a label ...
+
+use base qw(Tk::Frame);
+
+Construct Tk::Widget 'Labelframe';
+
+sub Tk_cmd { \&Tk::labelframe }
+
+1;
+__END__