vb_timeseries_viewer_slider_event

 Copyright (C) 2011, ATR All Rights Reserved.
 License : New BSD License(see VBMEG_LICENSE.txt)

0001 function vb_timeseries_viewer_slider_event(varargin)
0002 %
0003 % Copyright (C) 2011, ATR All Rights Reserved.
0004 % License : New BSD License(see VBMEG_LICENSE.txt)
0005 
0006 fig  = getappdata(gcbo, 'Figure');
0007 obj = guidata(fig);
0008 
0009 hObj = findobj(fig, 'Tag', get(gcbo, 'Tag'));
0010 setappdata(hObj, 'dragging', true);
0011 
0012 % slider callback is realized by using MATLAB hack.
0013 % So, gcf function doesn't work in the callback function.
0014 % Then, I change ShowHiddenHandles turn on and after calling callback
0015 % function, and revert it immediately.
0016 current = get(0, 'ShowHiddenHandles');
0017 set(0, 'ShowHiddenHandles', 'on');
0018 set(0, 'CurrentFigure', obj.figure);
0019 vb_timeseries_viewer_callback(obj, hObj);
0020 set(0, 'ShowHiddenHandles', current);
0021 setappdata(hObj, 'dragging', false);
0022