diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/reindex.pl')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/reindex.pl | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/reindex.pl b/Master/tlpkg/tlperl/lib/Tk/reindex.pl deleted file mode 100644 index 7af5cc1d13f..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/reindex.pl +++ /dev/null @@ -1,33 +0,0 @@ -#!/bin/perl - -use lib qw(/home1/gbartels/textlist); -use Tk; - -use Tk::TextReindex qw(Tk::ROText ROTextReindex); - -$mw=new MainWindow; - -my $idx; - -$w=$mw->ROTextReindex()->pack(-side => "top"); -$t=$mw->Label(-textvariable => \$idx)->pack(-side => "bottom"); - -$w->bind('<Key>',sub{$idx=$w->index("insert")}); - -$w->insert('end',"abcd\n"); -$w->insert('end',"efgh\n"); -$w->insert('end',"mnop\n"); -$w->insert('end',"qrst\n"); -$w->insert('end',"uvwx\n"); - -$w->insert('2.0',"ijkl\n"); - -my $string = $w->get('4.0'); - - -my $result = "reading index 4.0 : expect string to equal >q<, actual value is $string \n"; -$w->insert('end',$result); - -print $result; - -MainLoop; |