method private _cb__open = fun () ->
if self#_check_saved then begin
let dialog = GWindow.file_chooser_dialog ~action:`OPEN
~title:"Open database"
~position:`MOUSE () in
dialog#add_select_button_stock `OPEN `OK;
match dialog#run () with
| `OK ->
let name = Dbf_misc.unopt dialog#filename in
dialog#destroy ();
self#open_file name
| `DELETE_EVENT -> dialog#destroy ()
end