view release on metacpan or  search on metacpan

lib/Log/Dispatch/TkText.pm  view on Meta::CPAN

package Log::Dispatch::TkText;

use strict;
use warnings;
use vars qw($VERSION);

use Tk;
use Tk::ROText ;
use Log::Dispatch::ToTk;
use base qw(Tk::Derived Tk::ROText);

$VERSION = '2.01';

Tk::Widget->Construct('LogText');

sub InitObject
  {
    my ($dw,$args) = @_ ;

    my %params ;