Select Code to Download

my $plot = $mw->Button(-text=>'Plot', -command=>\&init)
    ->pack(-side=>'left');

my $computator = Computator->new($p, $mw, whatever ...);
$computator->reset();
...
# create a stop-button
my $stop = $mw->Button(-text=>'Stop', -command=>sub { $computator->sto
+p()})
    ->pack(-side=>'left');