% method of class @parameter
% 
% (c) 2003-2008, University of Cambridge
% Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de)
% http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter
% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $
function param=setradiobutton(param,text,inbox)


cont=param.entries;
nrent=length(cont);


for i=1:nrent
    type=cont{i}.type;
    if strcmp(type,'radiobutton') && strcmp(cont{i}.panel,inbox)
        if strcmp(cont{i}.text,text)
            cont{i}.value=1;
            param.entries=cont;
            return
        end
    end
end

% if still here, then it could have been an 'other' enty:
for i=1:nrent
    type=cont{i}.type;
    if strcmp(type,'radiobutton') && strcmp(cont{i}.panel,inbox) && strcmp(cont{i}.text,'other...')
        cont{i}.userdata=text;
        cont{i}.value=1;
        param.entries=cont;
        return
    end
end

val='error, the entry does not exist';