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 ()