tomwalters@0: % method of class @parameter
tomwalters@0: % 
tomwalters@0: % (c) 2003-2008, University of Cambridge
tomwalters@0: % Maintained by Tom Walters (tcw24@cam.ac.uk), written by Stefan Bleeck (stefan@bleeck.de)
tomwalters@0: % http://www.pdn.cam.ac.uk/cnbh/aim2006/tools/parameter
tomwalters@0: % $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $
tomwalters@0: function param=setradiobutton(param,text,inbox)
tomwalters@0: 
tomwalters@0: 
tomwalters@0: cont=param.entries;
tomwalters@0: nrent=length(cont);
tomwalters@0: 
tomwalters@0: 
tomwalters@0: for i=1:nrent
tomwalters@0:     type=cont{i}.type;
tomwalters@0:     if strcmp(type,'radiobutton') && strcmp(cont{i}.panel,inbox)
tomwalters@0:         if strcmp(cont{i}.text,text)
tomwalters@0:             cont{i}.value=1;
tomwalters@0:             param.entries=cont;
tomwalters@0:             return
tomwalters@0:         end
tomwalters@0:     end
tomwalters@0: end
tomwalters@0: 
tomwalters@0: % if still here, then it could have been an 'other' enty:
tomwalters@0: for i=1:nrent
tomwalters@0:     type=cont{i}.type;
tomwalters@0:     if strcmp(type,'radiobutton') && strcmp(cont{i}.panel,inbox) && strcmp(cont{i}.text,'other...')
tomwalters@0:         cont{i}.userdata=text;
tomwalters@0:         cont{i}.value=1;
tomwalters@0:         param.entries=cont;
tomwalters@0:         return
tomwalters@0:     end
tomwalters@0: end
tomwalters@0: 
tomwalters@0: val='error, the entry does not exist';