#/usr/bin/perl

use Tk;
use Tk::ExecuteCommand;

$mw = MainWindow->new;


$executecommand = $mw->ExecuteCommand(-height => 10, -scrollbars => 'ose', bg => 'white')->pack(-expand => 'yes', -fill =>'both');

$executecommand->terse_gui;
$executecommand->bell;
$executecommand->update;

$executecommand->configure(-command => 'set'); #for example

my $b_stopstart = $mw->Button(-text => "execute",
	-width => 12, -command => sub {
		$executecommand->execute_command;

	}
)->pack(-side => 'right');


MainLoop;