0001 function cb_workspaceObjsList(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 obj
0024 objtxt = display(obj);
0025 else
0026 objtxt = '';
0027 end
0028
0029 st = '';
0030 for j=1:length(objtxt)
0031 st = [st sprintf('%s\n', objtxt{j})];
0032 end
0033
0034
0035 set(myh, 'TooltipString', st);
0036
0037
0038
0039
0040