in reply to Re^10: Perl tk - How to integrate external scripts
in thread Perl tk - How to integrate external scripts

Do you know if it's possible to print the result in a window ?

Sure, see Perl tk - open file and print content

  • Comment on Re^11: Perl tk - How to integrate external scripts

Replies are listed 'Best First'.
Re^12: Perl tk - How to integrate external scripts
by Giorgio C (Novice) on Feb 01, 2012 at 12:20 UTC
    Yes i see it it was a post started by me. I'v tried to set at the end : 
    my $te2= tkinit->Scrolled( q/TextUndo/,-scrollbars => 'osw',

                           -background => 'white',

                          -font =>'normal',

                          -wrap => 'none',)->pack; 
$te2>Load( "$distrib" ); MainLoop;

    [download]
    But in this case there is a multiple print line to see on screen and however i am unable to see even one of them. Any suggestions?
[reply]
[d/l]

      Tk::TextUndo inherits the methods from the Tk::Text widget, so you can use ->insert() to add text to the widget: 

          ...
    $te2->insert('end',  "Mean length:\t" . $stat->mean() . "\n");    
+# append line
    ...
    ...
    # $te2->see('end');    # optionally scroll to the end

      [download]
[reply]
[d/l]
        Eliya you're great !!! At this rate I'll mention you in the acknowledgments of my PhD thesis :) Thanks a lot
[reply]

In Section Seekers of Perl Wisdom