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;