close_fig

'close_fig': function  activated when a figure is closed
----------------------------------------------------------------
 function close_fig(ggg,eventdata,hparent,type)
 activated by the command:
set(hObject,'DeleteFcn',{@close_fig,hparent,type})
 where hObject is the handle of the figure

0001 %'close_fig': function  activated when a figure is closed
0002 %----------------------------------------------------------------
0003 % function close_fig(ggg,eventdata,hparent,type)
0004 % activated by the command:
0005 %set(hObject,'DeleteFcn',{@close_fig,hparent,type})
0006 % where hObject is the handle of the figure
0007 %
0008 
0009 function close_fig(ggg,eventdata,hparent,type)
0010 if isequal(type,'zoom')
0011     delete(hparent)  % delete the rectangle showing the zoom graph in the parent fig
0012 end