script_radiogroup.m

由VB6.0 gui生成matlab的m文件

function script_radiogroup(selected)
%   A callback function that conducts XOR operation on radio buttons

%   Martin Dale, July 2002
%   Copyright 2002   All Rights Reserved.
%   Version 1.00   9 June 2002
%   Contact [e-mail]

all_data=get(0,'UserData');
data=get(selected,'UserData');
parent_data=get(eval(['all_data.',data.virtualparent]),'userdata');
[m]=find(parent_data.radiolist==selected);
set(parent_data.radiolist,'value',0);
set(parent_data.radiolist(m),'value',1);