method private _cb__edit_query = fun () ->
match query_view.qry_view#selection#get_selected_rows with
| [path] ->
let row = query_model#get_row_reference path in
let query = query_model#get_data ~row:row#iter in
let query_window =
new QGUI.query_gui
(self#_query_gui_update_answer row query)
self#_check_gui_query
{ QGUI.qrygi_name = query.SQL_db.qry_name;
QGUI.qrygi_query = query.SQL_db.qry_query;
QGUI.qrygi_comment = query.SQL_db.qry_comment; }
in
query_window#start ()
| _ -> ()