function [linkStr, name, type] = util_sf_link(obj)

%   Copyright 2010-2020 The MathWorks, Inc.

    sfIsa = sldvshareprivate('util_sfisa');
        
    switch sf('get', obj,'.isa')
    case sfIsa.chart
        name = sf('get', obj,'.name');
        type = 'chart';
    case sfIsa.state
        name = sf('get', obj,'.name');
        type = 'state';
    case sfIsa.transition
        name = sf('get', obj, '.labelString');
        type = 'transition';
    case  sfIsa.data
        name = sf('get', obj,'.name');
        type = 'data';
    case sfIsa.script
        name = '';
        type = 'script';
    otherwise
        name = '';
        type = '';
    end
    linkStr = sldv_hilite('makelink', obj, name);
end
