calcSTO(varargin)

function outText = calcSTO(varargin)
persistent windowBounds
if ~nargin
    outText = 'Event-Triggered Overlay';
    return
end

    if isempty(windowBounds)
        windowBounds = [-10 100];
    end
    handleList = get(gcf, 'userData');
    handles = handleList.axes;
    kids = get(handles, 'children');
    if ~iscell(kids)
        kids = {kids};
    end
    for index = 1:numel(kids)
        kids{index} = kids{index}(strcmp(get(kids{index}, 'userData'), 'data'));
        for j = 1:numel(kids{index})
            kidTraces{index}{j} = getappdata(kids{index}(j), 'traceName');
        end
    end

    windowBounds = str2double(inputdlg({'Window Start (msec)', 'Window End (msec)'},'',1, {num2str(windowBounds(1)); num2str(windowBounds(2))}));
    
    events = getappdata(gca, 'events');
    data = zeros(numel(handles), round((handleList.maxX - handleList.minX) / handleList.xStep) + 1);

    if numel(events(varargin{5}).data)
        for axesIndex = 1:numel(handles)
            data(axesIndex, :) = get(kids{axesIndex}(strcmp(events(varargin{5}).traceName, kidTraces{axesIndex})), 'yData');
        end        
        eventTriggeredAverage(events(varargin{5}).data' ./ handleList.xStep, data, windowBounds, handleList.xStep, 1);  
    end