$zinc->bind('pushbtn', '<1>', sub {&pushButton $zinc->bind('pushbtn', '', sub {&pullButton();});