view release on metacpan or  search on metacpan

lib/Tk/Terminal.pm  view on Meta::CPAN

#use IO::Pty;
use Term::ANSIColor;
use Tk;
require Tk::Clipboard;

#boilerplating
my $sep = '/';
my $qsep = quotemeta($sep);
my $root = qr/^\//;

use base qw(Tk::Derived Tk::TextANSIColor);
Construct Tk::Widget 'Terminal';

=head1 SYNOPSIS

 require Tk::Terminal;
 my $text= $window->Terminal(@options)->pack;

=head1 DESCRIPTION

Inherits L<Tk::TextANSIColor>.