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