method private _cb__remove_ty_button_clicked = fun () ->
match tyopts_view.str2_view#selection#get_selected_rows with
| [path] ->
let iter = tyopts_store#get_iter path in
ignore (tyopts_store#remove iter);
if not (path_is_valid tyopts_store path) then
ignore(GTree.Path.prev path);
tyopts_view.str2_view#selection#select_path path
| _ ->
()