$dialog->bind('<Return>',\&ok_subroutine);