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