##All GUI defining.layout stuff here
# 
EVT_BUTTON  ($self,
                $start_btn,
                 \&runProcess1,
                 );
EVT_BUTTON  ($self,
                $pause_btn,
                 \&runProcess2,
                 );

sub runProcess1{
    my ($self, $event)= @_;
    
    if (!$MyFrame::startIsClicked){
         &MyMethods::testStartJob($self,$event);    
    }
}
sub runProcess2{
    my ($self, $event)= @_;
    $| =1;
    print "This is the pause event \n";
    
}