source: trunk/src/set_param_input.m @ 1160

% set_param_input: set input parameters for transform functions
%OUTPUT: 
% ParamOut: structure with parameter values
%INPUT:
% LisParam: list of parameter names (cell array)
% DefaultValue: default values of the parameters in the absence of other input 
% ParamIn: default values set by the structure ParamIn


function [ParamOut,errormsg] = set_param_input(ListParam,DefaultValue,ParamIn,Comment)
ParamOut=[];
errormsg=[];
NbParam=numel(ListParam);
if numel(DefaultValue)~=NbParam
    errorsmsg='ERROR in set_param_input: the list of default values must have the same size as the list of parameters';
    return
end
if ~exist('Comment','var')
    Comment=cell(NbParam,1);
end
prompt=cell(NbParam,1);
checknumeric=zeros(NbParam,1);
for ilist=1:numel(ListParam)
    if isfield(ParamIn,ListParam{ilist})
        prompt{ilist}=ParamIn.(ListParam{ilist});
    else
        prompt{ilist}=DefaultValue{ilist};
    end
    if isnumeric(prompt{ilist})
        checknumeric(ilist)=1;
        prompt{ilist}=num2str(prompt{ilist});
    end
end
dlg_title = 'get the input parameters';
options.Resize='on';
answer = inputdlg(ListParam,dlg_title,NbParam,prompt,options);
%answer = msgbox_uvmat('INPUT_TXT',ListParam);
if isempty(answer)
    return
end
for ilist=1:NbParam
    if checknumeric(ilist)
        answer{ilist}=str2num(answer{ilist});
    end
    ParamOut.(ListParam{ilist})=answer{ilist};
end