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