Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | package Tk::NBFrame; |
2 | ||
3 | use vars qw($VERSION); | |
4 | $VERSION = '3.013'; # $Id: //depot/Tk8/NBFrame/NBFrame.pm#13 $ | |
5 | ||
6 | use Tk qw($XS_VERSION); | |
7 | ||
8 | use vars qw($VERSION); | |
9 | $VERSION = '3.013'; # $Id: //depot/Tk8/NBFrame/NBFrame.pm#13 $ | |
10 | ||
11 | use base qw(Tk::Widget); | |
12 | ||
13 | Construct Tk::Widget 'NBFrame'; | |
14 | ||
15 | bootstrap Tk::NBFrame; | |
16 | ||
17 | sub Tk_cmd { \&Tk::nbframe } | |
18 | ||
19 | Tk::Methods qw(activate add delete focus info geometryinfo identify | |
20 | move pagecget pageconfigure); | |
21 | ||
22 | 1; | |
23 |