0001 function cb_workspaceObjsList(varargin)
0002
0003 myh = varargin{1};
0004 mainfig = varargin{4};
0005
0006
0007 val = get(myh, 'Value');
0008 if length(val) == 1
0009 lines = get(myh, 'String');
0010 objname = deblank(strtok(lines{val}));
0011
0012 cmd = sprintf('obj = evalin(''base'', ''%s'');', objname);
0013 eval(cmd);
0014
0015 objtxt = display(obj);
0016 else
0017 objtxt = '';
0018 end
0019
0020
0021 ltpdaObjInfo = findobj('Tag', 'ltpdaObjInfo');
0022 set(ltpdaObjInfo, 'String', objtxt)
0023
0024
0025