www.gusucode.com > mbcguitools 工具箱 matlab 源码程序 > mbcguitools/@xreglistctrl/append.m

    function obj= append(obj,new)
%APPEND Append new controls to the list
%
%  APPEND(OBJ, NEWCTRL) appends NEWCTRL to those already in place.

%  Copyright 2000-2013 The MathWorks, Inc. and Ford Global Technologies, Inc.


sh = obj.slider;
ud = get(sh,'UserData');
controls = ud.controls;

if iscell(new)
    ud.controls = [controls, new(:)'];
    uic = get(obj,'UIContextMenu');
    for i = 1:length(ud.controls)
        set(ud.controls{i}, 'Parent', obj.frame);
        try
            set(ud.controls{i},'Callback', {@i_cellcb, obj, i},...
                'UIContextMenu',uic);
        end
    end
end

set(sh,'UserData',ud);

obj = redraw(obj,'cell');

function i_cellcb(src, evt, obj, idx)
callback(obj, idx);