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