tie STDOUT in Tkx

Roboz has asked for the wisdom of the Perl Monks concerning the following question:

Hello Perl Monks! Once again I need your wisdom. I'm converting a script with Perl::Tk to Tkx for that "more modern" look. Everything was going well till I got to the following:

tie *STDOUT, 'Tk::Text', $txt;
tie *STDERR, 'Tk::Text', $txt;
[download]

These worked great in Perl::Tk but I'm having a heck of a time finding the Tkx equivalent. I'm thinking it has something to do with the TIEHANDLE method. Is this supported in Tkx? Thanks.

Comment on tie STDOUT in Tkx Download Code

Replies are listed 'Best First'.
Re: tie STDOUT in Tkx by Anonymous Monk on Dec 03, 2012 at 10:33 UTC
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~~ fail again ~~?node_id=3989;BIT=tie%20;HIT=Tkx...~~ 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;	[reply] [d/l]
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]