Home > m > gui > ltpdv > callbacks > ltpdv_importObjs.m

ltpdv_importObjs

PURPOSE ^

LTPDV_IMPORTOBJS import given objects to the object list

SYNOPSIS ^

function ltpdv_importObjs(varargin)

DESCRIPTION ^

 LTPDV_IMPORTOBJS import given objects to the object list
 
 M Hewitson 22-04-08
 
 $Id: ltpdv_importObjs.m,v 1.2 2008/06/18 15:07:35 hewitson Exp $

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function ltpdv_importObjs(varargin)
0002 % LTPDV_IMPORTOBJS import given objects to the object list
0003 %
0004 % M Hewitson 22-04-08
0005 %
0006 % $Id: ltpdv_importObjs.m,v 1.2 2008/06/18 15:07:35 hewitson Exp $
0007 %
0008 
0009 myh     = varargin{1};
0010 mainfig = varargin{end-1};
0011 oh      = varargin{end};
0012 
0013 % Get data
0014 data = get(oh, 'Data');
0015 
0016 % Get selected rows
0017 rows = getappdata(mainfig, 'ImportWorkspaceSelectedRows');
0018 
0019 % Do we rename to variable name?
0020 ch = findobj(mainfig, 'Tag', 'LTPDVusevarnameChk');
0021 if get(ch, 'Value')
0022    useVarname = true;
0023 else
0024    useVarname = false;
0025 end
0026 
0027 % Data to import
0028 idata = data(rows,:);
0029 % Current objects
0030 % Get each object from the workspace
0031 for j=1:size(idata,1)
0032    % get variable name
0033    varname = idata{j,1};
0034    % get object
0035    obj = evalin('base',  varname);
0036    if useVarname
0037       for k=1:numel(obj)
0038          obj(k) = obj(k).setName(varname);
0039       end
0040    end
0041    % Add these objecs to the object list
0042    for j=1:numel(obj)
0043       objs = getappdata(mainfig, 'LTPDAobjects');
0044       setappdata(mainfig, 'LTPDAobjects', [objs {obj(j)}]);
0045    end
0046    % Refresh object list
0047    ltpdv_refresh_object_list(mainfig);
0048 end
0049 
0050 
0051 
0052 % END

Generated on Mon 08-Sep-2008 13:18:47 by m2html © 2003