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
      | SQL_ty.Invalid_type msg ->
          GToolbox.message_box ~title:"Invalid type" msg