method private _cb__ok_button_clicked = fun () -> try cb self#_grab_input; glade#toplevel#destroy () with | Invalid_input msg -> GToolbox.message_box ~title:"Invalid input" msg