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