boblsturm@0: function templateScrollCb(src, callbackdata, handles)
boblsturm@0: 
boblsturm@0: selectedTemplate = findobj(gca, 'Color', 'b');
boblsturm@0: if(callbackdata.VerticalScrollCount < 0 && size(selectedTemplate, 1) ~= 0) %Up scroll
boblsturm@0:     newTemplateIndex = length(handles) - selectedTemplate.XData(1) + 2;
boblsturm@0:     if(newTemplateIndex > length(handles))
boblsturm@0:         newTemplateIndex = 2;
boblsturm@0:     end
boblsturm@0:     neighbouringTemplate = newTemplateIndex + 1;
boblsturm@0: elseif(callbackdata.VerticalScrollCount > 0 && size(selectedTemplate, 1) ~= 0) %Down scroll
boblsturm@0:     newTemplateIndex = length(handles) - selectedTemplate.XData(1);
boblsturm@0:     if(newTemplateIndex < 1)
boblsturm@0:         newTemplateIndex = length(handles);
boblsturm@0:     end
boblsturm@0: end
boblsturm@0: 
boblsturm@0: if(size(selectedTemplate, 1) == 0)
boblsturm@0:     set(handles(1), 'Color', 'b');
boblsturm@0: else
boblsturm@0:     set(selectedTemplate, 'Color', get(handles(newTemplateIndex), 'Color'));
boblsturm@0:     set(handles(newTemplateIndex), 'Color', 'b');
boblsturm@0: end