$c->bind( $but1,
          '<ButtonPress>',
           sub {
             #$c->itemconfigure( $but1, -image => $image1);
             exit;
            });