$TOP->bind('<Alt-+>' => sub {&zoom("+")}); # increment zoom
$TOP->bind('<Alt-minus>' => sub {&zoom("-")}); # dercrement zoom