You have a serious misunderstanding of what is going on. Tk::ExecuteCommand is designed to do just that .... execute a command , which means sending a valid command to a shell to be run. What you want to do is just plainly run some perl code and have it's output in the Text widget.

For the question of killing a running command, make another button labeled 'Stop', and use Tk::ExecuteCommand's $exec->kill_command;

my $kill_button = $mw->Button( -text => 'Stop',
                          -command=> sub{ $exec->kill_command;   }
                          )->pack();
[download]

As to your other problem of sending plain text messages to the Text Widget, instead of a command, you will need to figure out a way in your subroutine of determining if you have a valid command, or just an informational message. If it's an information message, you can write it directly into the ROText subwidget like the following:

#!/usr/bin/perl
use Tk;
use Tk::ExecuteCommand;

my $mw = MainWindow->new;

$ec = $mw->ExecuteCommand(
    -command    => '',
    -entryWidth => 50,
    -height     => 10,
    -label      => '',
    -text       => 'Execute',
)->pack;

$ec->configure( -command => 'dir' );

$ec->execute_command;
$ec->bell;
$ec->update;

# read perldoc Tk::ExecuteCommand for the Advertised Widget section
my $ROText = $ec->Subwidget('text');
print "$ROText\n";

$ROText->configure(-bg=>'white');

$ROText->insert('end', "\n\nHi, this is a message\n\n");   
$ROText->see('end');


#execute some perl code and output it to the text widget
&do_something;

MainLoop;

sub do_something{
  # the Tk::ExecuteCommand kill button won't stop this

for (1..5){

  $ROText->insert('end', "$_\n");   
  $ROText->see('end');
   }
}
[download]

Hi Zentara, I couldn't help to express my thankfulness to you, your explanation and sample codes did help me to clear my doubts and misunderstanding on all those that I found by googling, which bothering me since the past weeks. Now I'm much clearer on the usage and how to apply both the ROText and ExecuteCommand in my codes. Yeah.. the explanation with sample codes means a lot! ALso, not forget to thanks all those who take the trouble on replying to me- Corion and RonW. I'm so excited to implement that in my real code now! Thanks a bunch!

Hi Zentara, I have one extra question regarding the text widget gui, is that possible to change the vertical scrollbar to the right hand side instead of current position on the left sided.

You probably will have to dig into the "advertised widgets" of Tk::ExecuteCommand, find the scrolled frame, then issue a configure command to it. -scrollbars => 'osoe'

This code change does it:

# read perldoc Tk::ExecuteCommand for the Adverised Widget section
my $ROText = $ec->Subwidget('text');
print "$ROText\n";

$ROText->configure(-scrollbars => 'osoe');
[download]

---

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh