Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | # Copyright (c) 1995-1999 Nick Ing-Simmons. All rights reserved. |
2 | # This program is free software; you can redistribute it and/or | |
3 | # modify it under the same terms as Perl itself. | |
4 | package Tk::Message; | |
5 | use strict; | |
6 | ||
7 | use vars qw($VERSION); | |
8 | $VERSION = '3.010'; # $Id: //depot/Tk8/Tk/Message.pm#10 $ | |
9 | ||
10 | require Tk::Widget; | |
11 | ||
12 | use base qw(Tk::Widget); | |
13 | ||
14 | Construct Tk::Widget 'Message'; | |
15 | ||
16 | sub Tk_cmd { \&Tk::message } | |
17 | ||
18 | 1; | |
19 | __END__ | |
20 |