But I need to have there also a Button which will stop/start scrolling in the ExecuteCommand window

You can't. At least you can't without rewriting/overriding a private method of Tk::ExecuteCommand.

The _read_stdout sub is the problem.

sub _read_stdout {

    # Called when input is available for the output window.  Also chec
+ks
    # to see if the user has clicked Cancel.

    my($self) = @_;

    if ($self->{-finish}) {
    $self->kill_command;
    } else {
    my $h = $self->{-handle};
    if ( sysread $h, $_, 4096 ) {
        my $t = $self->Subwidget('text');
        $t->insert('end', $_);
        $t->yview('end');
    } else {
        $self->{-finish} = 1;
    }
    }
    
} # end _read_stdout

[download]

That line: $t->yview('end'); is the problem. Every time it reads anything from the handle, it is going to scroll to the end of the text widget. It would be fairly trivial to modify the sub to scroll unless a "no scroll" flag is set, and you could easily modify it locally. It may be worth emailing the module author and asking to have that functionality added. I have found Steve to be relatively receptive to comments and requests.

In reply to Re: Tk::ExecuteCommand stop scrolling by thundergnat
in thread Tk::ExecuteCommand stop scrolling by dzon

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.