summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/Labelframe.pm
blob: 14c577b5e35e7fd2d3481190c92eb1b562f6cd01 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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__