method private _cb__add_query = fun () ->
    let defaults = { QGUI.qrygi_name    = SQL_db.create_query_name db ();
                     QGUI.qrygi_query   = "" ;
                     QGUI.qrygi_comment = "";
                   }
    in
    let query_window = new QGUI.query_gui
        self#_query_gui_answer
        self#_check_gui_query
        defaults
    in
    query_window#start ()