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