$toplevel->destroy if Tk::Exists($toplevel)