Home > m > gui > ltpdaRepoGUI > callbacks > cb_workspaceObjsList.m

cb_workspaceObjsList

PURPOSE ^

Callback to fill the list of workspace objects

SYNOPSIS ^

function cb_workspaceObjsList(varargin)

DESCRIPTION ^

 Callback to fill the list of workspace objects
 
 M Hewitson
 
 $Id: cb_workspaceObjsList.m,v 1.3 2008/02/23 13:44:08 hewitson Exp $

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function cb_workspaceObjsList(varargin)
0002 
0003 % Callback to fill the list of workspace objects
0004 %
0005 % M Hewitson
0006 %
0007 % $Id: cb_workspaceObjsList.m,v 1.3 2008/02/23 13:44:08 hewitson Exp $
0008 %
0009 
0010 
0011 myh     = varargin{1};
0012 mainfig = varargin{4};
0013 
0014 % get the selected line
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 % set objDisplay Txt
0035 set(myh, 'TooltipString', st);
0036 % ltpdaObjInfo = findobj('Tag', 'ltpdaObjInfo');
0037 % set(ltpdaObjInfo, 'String', objtxt)
0038 
0039 
0040

Generated on Mon 31-Mar-2008 13:54:54 by m2html © 2003