method private _cb__edit_vtable = fun () ->
match vtable_view.vt_view#selection#get_selected_rows with
| [path] ->
let row = vtable_model#get_row_reference path in
let vtable = vtable_model#get_data ~row:row#iter in
let vtable_window =
new VTGUI.vtable_gui (db.SQL_db.db_tables)
(self#_vtable_gui_update_answer row vtable)
{ VTGUI.vtgi_name = vtable.SQL_db.vt_name;
VTGUI.vtgi_vtable = Some vtable; }
in
vtable_window#start ()
| _ -> ()