view release on metacpan or  search on metacpan

DoCommand.pm  view on Meta::CPAN

#
# Do a command asynchronously, for Perl/Tk
#
#-----------------------------------------------------------------------------

package Tk::DoCommand;
use vars qw/$VERSION/;
$VERSION = '0.1';

use Tk::widgets qw/ROText/;
use base qw/Tk::Derived Tk::ROText/;
use strict;
use warnings;

use Carp;
use IO::Handle;
use Proc::Killfam;

Construct Tk::Widget 'DoCommand';

sub ClassInit {