method private _cb__save_as = fun () ->
    let dialog = GWindow.file_chooser_dialog ~action:`SAVE
                   ~title:"Save database"
                   ~position:`MOUSE () in
      dialog#add_select_button_stock `SAVE `OK;
      match dialog#run () with
        | `OK ->
            self#save (Dbf_misc.unopt dialog#filename);
            dialog#destroy ()
        | `DELETE_EVENT -> dialog#destroy ()