| 1 | use strict; |
| 2 | package Tk::ReindexedText; |
| 3 | |
| 4 | use vars qw($VERSION); |
| 5 | $VERSION = '3.002'; # $Id: //depot/Tk8/TextList/ReindexedText.pm#2 $ |
| 6 | |
| 7 | use Tk::Reindex qw(Tk::Text); |
| 8 | use base qw(Tk::Reindex Tk::Text); |
| 9 | Construct Tk::Widget 'ReindexedText'; |
| 10 | |
| 11 | 1; |
| 12 | |
| 13 | |