function [table, container] = tsuitable(varargin)

% Copyright 2002-2004 The MathWorks, Inc.

% Release: R14. This feature will not work in previous versions of MATLAB.

% Setup and P-V parsing
if feature('JavaFigures') == 0
    error('Uitable is not supported on this platform.');
    table = [];
    container = [];
    return;
end
error(nargoutchk(0,2,nargout));

fig = [];
numargs = nargin;

datastatus=false; columnstatus=false;
rownum = 1; colnum = 1; % Default to a 1x1 table.
position = [20 20 200 200];
combo_box_found = false;
check_box_found = false;

import com.mathworks.hg.peer.UitablePeer;
import com.mathworks.toolbox.timeseries.*;

if (numargs > 0 & ishandle(varargin{1}) & ...
        isa(handle(varargin{1}), 'figure'))
    fig = varargin{1};
    varargin = varargin(2:end);
    numargs = numargs - 1;
end

if (numargs > 0 & ishandle(varargin{1}))
    if ~isa(varargin{1}, 'javax.swing.table.DefaultTableModel')
        error(['Unrecognized parameter: ', varargin{1}]);
    end
    data_model = varargin{1};
    varargin = varargin(2:end);
    numargs = numargs - 1;

elseif ((numargs > 1) & isscalar(varargin{1}) & isscalar(varargin{2}))
    if(isnumeric(varargin{1}) & isnumeric(varargin{2}))
        rownum = varargin{1};
        colnum = varargin{2};

        varargin = varargin(3:end);
        numargs = numargs-2;
    else
        error('When using UITABLE numrows and numcols have to be numeric scalars.')
    end

elseif ((numargs > 1) & isequal(size(varargin{2},1), 1) & iscell(varargin{2}))
    if (size(varargin{1},2) == size(varargin{2},2))
        if (isnumeric(varargin{1}))
            varargin{1} = num2cell(varargin{1});
        end
    else
        error('Number of column names must match number of columns in data');
    end
    data = varargin{1};     datastatus        = true;
    coln = varargin{1+1};   columnstatus      = true;

    varargin = varargin(3:end);
    numargs = numargs-2;
end

for i = 1:2:numargs-1
    if (~ischar(varargin{i}))
        error(['Unrecognized parameter: ', varargin{1}]);
    end
    switch lower(varargin{i})
        case 'data'
            if (isnumeric(varargin{i+1}))
                varargin{i+1} = num2cell(varargin{i+1});
            end
            data        = varargin{i+1};
            datastatus  = true;

        case 'columnnames'
            if(iscell(varargin{i+1}))
                coln            = varargin{i+1};
                columnstatus    = true;
            else
                error('When using UITABLE Column data should be 1xn cell array')
            end

        case 'numrows'
            if (isnumeric(varargin{i+1}))
                rownum = varargin{i+1};
            else
                error('numrows has to be a scalar')
            end

        case 'numcolumns'
            if (isnumeric(varargin{i+1}))
                colnum = varargin{i+1};
            else
                error('numcolumns has to be a scalar')
            end

        case 'gridcolor'
            if (ischar(varargin{i+1}))
                gridcolor = varargin{i+1};
            else if (isnumeric(varargin{i+1}) & size(varargin{i+1}) == [1 3])
                    gridcolor = varargin{i+1};
                else
                    error('gridcolor has to be a valid string')
                end
            end

        case 'parent'
            if ishandle(varargin{i+1})
                f = varargin{i+1};
                if isa(handle(f), 'figure')
                    fig = f;
                end
            end

        case 'position'
            if (isnumeric(varargin{i+1}))
                position = varargin{i+1};
            else
                error('position has to be a 1x4 numeric array')
            end

        case 'columnwidth'
            if (isnumeric(varargin{i+1}))
                columnwidth = varargin{i+1};
            else
                error('columnwidth has to be a scalar')
            end
        otherwise
            error(['Unrecognized parameter: ', varargin{1}]);
    end
end

if (~exist('data_model'))
    data_model = javax.swing.table.DefaultTableModel;
end

% ---combo box detection--- %
% Begin edit
if (datastatus)
    if (iscell(data))
        rownum = size(data,1);
        colnum = size(data,2);
        combo_count =0;
        check_count = 0;
        for j = 1:rownum
            for k = 1:colnum
                if (iscell(data{j,k}))
                    combo_box_found = true;
                    combo_count = combo_count + 1;
                    combo_box_data{combo_count} = data{j,k};
                    combo_box_column(combo_count ) = k;
                    dc = data{j,k};
                    data{j,k} = dc{1};
                else
                    if(islogical(data{j,k}))
                        check_box_found = true;
                        check_count = check_count + 1;
                        check_box_column(check_count) = k;
                    end
                end
            end
        end
    end
end
% End edit
%%%%%%%%%%%%%%%%%%%%%%%%%%%%

if ( columnstatus & datastatus )
    if(size(data,2)== size(coln,2))
        data_model.setDataVector(data,coln);
    else
        error('Number of columns in both Data and ColumnNames should match');
    end
elseif ( ~columnstatus & datastatus )
    for i=1:size(data,2)
        coln{i} = num2str(i);
    end
    data_model.setDataVector(data,coln);
elseif ( columnstatus & ~datastatus)
    error('No Data provided along with ColumnNames');
end

if exist('rownum'),     data_model.setRowCount(rownum);,        end;
if exist('colnum'),     data_model.setColumnCount(colnum);,     end;

% todo - make the parent argument work above
if isempty(fig)
    fig = gcf;
end;

if isempty(get(fig,'JavaFrame'))
    error('You can create a Table only in Java Figures. To turn on the Java Figures, please type ''feature(''JavaFigures'',1)''')
end

table_h= tsUitablePeer(data_model,16,11);

if (combo_box_found),
    for i=1:combo_count
        table_h.setComboBoxEditor(combo_box_data(i), combo_box_column(i));
    end
end
if (check_box_found),
    for i = 1: check_count
        table_h.setCheckBoxEditor(check_box_column(i));
    end
end

% pass the figure child in, let javacomponent introspect
[obj, container] = javacomponent(table_h, position, fig);

% Remove component resizing listener since we are not using normalized
% units (performance reasons)
L = get(container,'Listeners__');
for k=1:length(L)
    if strcmp(L(k).SourceObject.Name,'PixelBounds')
        L(k).Enable = 'off';
        break
    end
end

% javacomponent returns a UDD handle for the java component passed in.
table = obj;

%drawnow;
if exist('gridcolor'),   table_h.setGridColor(gridcolor);,     end;
if exist('rowheight'),   table_h.setRowHeight(rowheight);,  end;
if exist('columnwidth'), table_h.setColumnWidth(columnwidth);, end;

% Add a predestroy listener so we can call cleanup on the table.
%addlistener(table, 'ObjectBeingDestroyed', {@componentDelete});

function componentDelete(src, evd)
% Clean up the table here so it disengages all its internal listeners.
src.cleanup;