% CB_EXPORT2MFILE export the selected pipeline to an m-file
%
% CALL: LTPDAworkbench.cb_export2mfile
%
% M Hewitson 13-11-08
%
% $Id: cb_export2mfile.m,v 1.2 2010/08/06 19:10:48 ingo Exp $
%
function cb_export2mfile(varargin)
  
  wb = varargin{1};
  
  % get a file name from the user
  [filename, pathname] = uiputfile('*.m', 'Export pipeline to');
  if isequal(filename,0) || isequal(pathname,0)
  else
    wb.export(fullfile(pathname, filename));
  end
  
end