use strict;
use Tcl;
use Tcl::Tk;

my $int = new Tcl::Tk; # this one for Maxima GUI
my $int2 = new Tcl::Tk;
my $mwm = $int->mainwindow;
my $mw = $int2->mainwindow;

# get maxima
$int->Eval('source xmaxima0');
$int->Eval('source m0.tcl');

# do our GUI

my $text_res;
my $str = 'integrate(1/(1+x^3),x)'; # text example for maxima expr

$mw->Entry(-font=>'Courier 12',-textvariable=>\$str)->pack(-fill=>'x');
$mw->Button(-text=>'Do it!',-command=>sub {
  $text_res->insert('end',''.$int->domax($str));
  $text_res->seeEnd;
})->pack;
$text_res = $mw->Scrolled('Text',-font=>'Courier 12')->pack;

$mwm->withdraw;

$int2->MainLoop;
$mwm->destroy;