sub run {
         #disable $push 
         $button->configure(-state=>'disabled');

         #do something

         #enable $push
         $button->configure(-state=>'normal');
        }