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