method private _cb__edit_table = fun () ->
match table_view.tv_view#selection#get_selected_rows with
| [path] -> let iter = table_model#get_iter path in
let table_data = table_model#get_data ~row:iter in
let table = table_data.td_table in
let defaults = { TGUI.tgi_name = table.SQL_db.ta_name;
TGUI.tgi_comment = table.SQL_db.ta_comment;
TGUI.tgi_logged = table.SQL_db.ta_logged ;
TGUI.tgi_pkey = table.SQL_db.ta_pkey;
TGUI.tgi_columns = Some table.SQL_db.ta_columns; }
in
let table_gui =
new TGUI.table_gui
(self#_table_gui_update_answer
(table_model#get_row_reference path) table) defaults
in
table_gui#start ()
| _ -> ()