method private _check_saved =
if not saved then begin
let answer = GToolbox.question_box ~title:"DB not saved"
~buttons:["Yes"; "No"]
"You current database is not saved. Continue ?"
in
answer = 1
end else
true