$t->bind('Tk::Text', '<Control-s>', \&save_file);