Log::Dispatch::TkText 1.007

Log::Dispatch::TkText provides a Text widget for Log::Dispatch.

SYNOPSIS

use Tk ;
use Log::Dispatch;
use Log::Dispatch::TkText ;

my $dispatch = Log::Dispatch->new;

my $mw = MainWindow-> new ;

my $tklog = $mw->Scrolled(LogText, name => tk,
min_level => debug);
$tklog -> pack ;

# add the logger object to $dispatch (not the widget !!)
$dispatch->add($tklog->logger) ;

$dispatch -> log
(
level => info,
message => "Quaquacomekiki ? (so says Averell Dalton)"
) ;

This widget provide a read-only text widget (based on Tk::ROText) for logging through the Log::Dispatch module.

Note that this widget works with a buddy Log::Dispatch::ToTk object which will be created by the widgets constructor. The reference to this buddy object must be added to the main log dispatcher.