view m-toolbox/classes/@constructor/buildObj.m @ 50:7d2e2e065cf1 database-connection-manager

Update unit tests
author Daniele Nicolodi <nicolodi@science.unitn.it>
date Wed, 07 Dec 2011 17:24:37 +0100
parents f0afece42f48
children
line wrap: on
line source

function buildObj(varargin)
  
  mainfig = varargin{end};
    
  % get object name
  varh = findobj(mainfig.handle, 'Tag', 'VariableTxt');
  varname = get(varh, 'String');

  % get base workspace variables
  ws_vars = evalin('base','who');
  
  % check if this one is there or not
  if ismember(varname, ws_vars)
    j = 1;
    vname = varname;
    while ismember(vname, ws_vars)
      vname = sprintf('%s_%03d', varname, j);
      j = j + 1;
    end
  else
    vname = varname;
  end
  
  disp(sprintf('** exporting to %s', vname));
  
  % get constructor string
  h = findobj(mainfig.handle, 'Tag', 'ConstructorDisplay');
  cstr = get(h, 'String');
  
  cmd = sprintf('%s = %s;', vname, cstr);
  evalin('base', cmd);
  
  
  
end