% clickhandler.m

% Line objects don't have a CurrentPoint property, so if the user
% mouses on the bump itself and gcbo returns a line, we should replace
% that handle with the parent handle (the axes object).

obj = gcbo;
if ~strcmp(get(obj,'Type'),'axes')
  obj = get(obj,'Parent');
end


mousepos = get(obj,'CurrentPoint');
stim_index = max(1,min(NEUNITS,floor(mousepos(1,1))));
stim_scale = mousepos(1,2);

if obj == ax1  
   External = External + stim_scale * rot(W,-(stim_index-1));
else
   External(p2) = External(p2) + stim_scale * rot(W,-(stim_index-1));
   axes(ax1);
end


if run_flag <= 0
  run_flag = 1;
  mainloop
end