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