/ 
Tie-Tk-Text-0.01
River stage one • 1 direct dependent • 2 total dependents
/ Tie::Tk::Text

NAME

Tie::Tk::Text - Access Tk::Text or Tk::ROText widgets as arrays.

SYNOPSIS

use Tie::Tk::Text;

my $w = $mw->Text()->pack();
tie my @text, 'Tie::Tk::Text', $w;

$w->insert('end', "foo\nbar\nbaz\n");

print $text[1]; # "bar\n"

DESCRIPTION

This module defines a class for tie()ing Tk::Text and Tk::ROText widgets to an array, allowing them to be accessed as if they were an array of lines.

It's not expected that anyone will actually want to populate their Text widgets this way. Instead, this makes them accessible to functions which expect an array reference as their input. (e.g. Algorithm::Diff::sdiff)

BUGS

Only provides read support at present. (i.e. FETCH and FETCHSIZE)

AUTHOR

Michael J. Carman <mjcarman@mchsi.com>

COPYRIGHT AND LICENSE

Copyright (C) 2006 by Michael J. Carman

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.