Re^3: Printing text from scrolled window?

See the reply to Fletch.

BTW, why introduce a variable, or even the named sub come to that?

$frame_2->Button(
    -text => 'Print', -width=>7,
    -command=>sub {print $scroll->Contents ()},
    )->pack(-side =>'bottom');
[download]

does what is required without the sub or variable, but doesn't show OP how to get the lines into an array and doesn't illustrate the technique required to use a named sub for the command handler.

It may well be that OP doesn't require instruction in such things and possibly no-one who comes after will benefit, but it wasn't much effort to illustrate those techniques and someone may learn from it.

DWIM is Perl's answer to Gödel

Comment on Re^3: Printing text from scrolled window? Download Code

Replies are listed 'Best First'.
Re^4: Printing text from scrolled window? by Fletch (Bishop) on Jul 28, 2006 at 19:11 UTC
The worry is that they might get the wrong idea from it: I need to print out these lines, so I'll split things into an array and then use join when I print because I saw that code on PerlMonks so it must be right.</cargocult> I actually think your above answer is better because it does directly answer the question. You could always supplement it with asides about "to get an array of the lines use split like ...", or "if you're going to do complex processing before printing the contents you might want to use `\&process_and_print` and move the actual work to `sub process_and_print { ... }`". But that's just me.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: Printing text from scrolled window?
by Fletch (Bishop) on Jul 28, 2006 at 19:11 UTC

The worry is that they might get the wrong idea from it: I need to print out these lines, so I'll split things into an array and then use join when I print because I saw that code on PerlMonks so it must be right.</cargocult>

I actually think your above answer is better because it does directly answer the question. You could always supplement it with asides about "to get an array of the lines use split like ...", or "if you're going to do complex processing before printing the contents you might want to use \&process_and_print and move the actual work to sub process_and_print { ... }".

But that's just me.

[reply]
[d/l]
[select]