Re: tie STDOUT in Tkx

Sure it is, maybe :)

fail ~~[cpan://tkx tie], [metacpan://tkx tie], [google://site:perlmonks.org tkx tie stdout] tkx tie, tkx tie, site:perlmonks.org tkx tie stdout~~

use Tie::STDOUT print => sub { $textvariable .= join ''. @_; }
use Tie::STDERR print => sub { $textwidget->insert("end", join ''. @_ ); }

use constant STAPENDER => sub { $textwidget->insert_end( @_ ); };
use Tie::STDOUT print => STAPENDER;
use Tie::STDERR print => STAPENDER;

Comment on Re: tie STDOUT in Tkx Download Code

Replies are listed 'Best First'.
Re^2: tie STDOUT in Tkx by ColonelPanic (Friar) on Dec 03, 2012 at 11:19 UTC
`The road to wisdom? -- Well, it's plain and simple to express: Err and err and err again but less and less and less.` [download] -- Piet Hein ;) When's the last time you used duct tape on a duct? --Larry Wall	[reply] [d/l]
Re^3: tie STDOUT in Tkx by Anonymous Monk on Dec 03, 2012 at 11:23 UTC
:) Yup, it should be use Tie::STDERR STAPENDER(); as the two modules aren't by the same author their interface isn't identical	[reply]