home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _4b06f7f801f91841e7388f7e0d2ae07e < prev    next >
Encoding:
Text File  |  2004-06-01  |  439 b   |  21 lines
  1. # Copyright (c) 1995-2003 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 = '4.006'; # $Id: //depot/Tkutf8/Tk/Message.pm#6 $
  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.  
  21.