home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / Tk / ROText.pm < prev    next >
Encoding:
Perl POD Document  |  1997-08-10  |  761 b   |  45 lines
  1. # Copyright (c) 1995-1997 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. require Tk;
  5. package Tk::ROText;
  6. require Tk::Text;
  7. @ISA = qw(Tk::Text);
  8. Construct Tk::Widget 'ROText';
  9.  
  10. sub ClassInit
  11. {
  12.  my ($class,$mw) = @_;
  13.  return $class->bindRdOnly($mw);
  14. }
  15.  
  16. sub Tk::Widget::ScrlROText { shift->Scrolled('ROText' => @_) }
  17.  
  18. 1;
  19.  
  20. __END__
  21.  
  22. =head1 NAME
  23.  
  24. Tk::ROText - 'readonly' perl/tk Text widget
  25.  
  26. =head1 SYNOPSIS
  27.  
  28.     use Tk::ROText;
  29.     ...
  30.     $ro = $mw->ROText(?options,...?);
  31.  
  32. =head1 DESCRIPTION
  33.  
  34. This IS-A text widget with all bindings removed that would alter the contents
  35. of the text widget.
  36.  
  37. =head1 KEYS
  38.  
  39. widget, text, readonly
  40.  
  41. =head1 SEE ALSO
  42.  
  43. Tk::Text(3)
  44.  
  45.