www.gusucode.com > mbcguitools 工具箱 matlab 源码程序 > mbcguitools/@xregGui/@rbgroup/rbgroup.m
function obj=rbgroup(varargin) %RBGROUP Create an rbgroup object % Copyright 2000-2015 The MathWorks, Inc. and Ford Global Technologies, Inc. obj=xregGui.rbgroup; if nargin>0 && mbcgui.util.isComponentParent(varargin{1}) obj.Parent = varargin{1}; varargin(1) = []; end set(obj,varargin{:}); if isempty(obj.Parent) obj.Parent = gcf; end % set colors based on figure defaults, if they weren't explicitly set f = ancestor(obj.Parent,'figure'); if ~any(strcmpi('ForegroundColor',varargin(1:2:end))) obj.ForegroundColor = get(f,'DefaultUIControlForegroundColor'); end if ~any(strcmpi('BackgroundColor',varargin(1:2:end))) obj.BackgroundColor = get(f,'DefaultUIControlBackgroundColor'); end obj.grid = xreggridbaglayout(obj.Parent, ... 'dimension',[obj.ny obj.nx], ... 'packgroup','XREG_PERM_ON', ... 'elements',{},... 'gapx',obj.gapx, ... 'gapy',obj.gapy, ... 'position',obj.position); connect(obj.grid, obj, 'up'); % Setup value array if obj.Selected>0 vals = zeros(obj.ny, obj.nx); vals(obj.Selected) = 1; obj.Value = vals; end % setup listeners obj.doSetup; % create radiobutton objects obj.doCreateRBs; obj.doCallback; obj.doString; obj.doValue;