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 ()
      | _      -> ()