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