Master/tlpkg/tlperl/lib/Tk/Labelframe.pm


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__