function scribefiglisten(fig,onoff)
%SCRIBEFIGLISTEN listeners for figures and their axes children.
% SCRIBEFIGLISTEN(fig,onoff) creates child added/removed listeners 
% (if they do not already exist) for fig and its non-legend,
% non-colorbar axes children, and enables (onoff=true) or 
% disables(onoff=false)them. Firing listeners turns off zoom and 
% rotate3d for the figure.
% Called by zoom and rotate3d
%

%   Glen M. DeLoid 02-01-2001
%   Copyright 1984-2002 The MathWorks, Inc. 
%   $Revision: 1.5 $  $Date: 2002/04/08 21:44:36 $


% create listeners if they don't already exist
if isempty(findprop(handle(fig),'ScribeFigListeners'))
    % create listeners property
    pl = schema.prop(handle(fig),'ScribeFigListeners','MATLAB array');
    pl.AccessFlags.Serialize = 'off';
    % create listeners array
    l.chadd = handle.listener(fig,'ObjectChildAdded',...
        {@scribeFigChildAdded, fig});
    l.chremove = handle.listener(fig,'ObjectChildRemoved',...
        {@scribeFigChildRemoved, fig});
    % set listeners property to listeners array
    set(handle(fig),'ScribeFigListeners',l);
end

% set figure listeners enabled/disabled
l = get(handle(fig),'ScribeFigListeners');
set(l.chadd,'Enabled',onoff);
set(l.chremove,'Enabled',onoff);

% get list of axes children
ax = findobj(fig,'type','axes');

if ~isempty(ax)
    % create listeners for axes if they don't exist
    for i=1:length(ax)
        % don't create them for axes that are legends or colorbars
        if ~any(strcmp(get(get(ax(i),'children'),'tag'),'TMW_COLORBAR')) & ...
                ~strcmp(get(ax(i),'tag'),'legend')
            if isempty(findprop(handle(ax(i)),'ScribeFigAxListeners'))
                % create listeners property
                pl = schema.prop(handle(ax(i)),'ScribeFigAxListeners','MATLAB array');
                pl.AccessFlags.Serialize = 'off';
                % create listeners array
                l.chadd = handle.listener(ax(i),'ObjectChildAdded',...
                    {@scribeFigAxChildAdded, fig});
                l.chremove = handle.listener(ax(i),'ObjectChildRemoved',...
                    {@scribeFigAxChildRemoved, fig});
                % set listeners property to listeners array
                set(handle(ax(i)),'ScribeFigAxListeners',l);
            end
            % set figure axes listeners enabled/disabled
            l = get(handle(ax(i)),'ScribeFigAxListeners');
            set(l.chadd,'Enabled',onoff);
            set(l.chremove,'Enabled',onoff);
        end
    end
end

%------------------------------------------------------------------------%
% figure add child callback
% if the added child is an axes
% or is a uicontextmenu or uicontrol
% turn off zoom and rotate3d
function scribeFigChildAdded(src,event,fig)

chh = handle(event.child);
tag = get(chh,'tag');
type = get(chh,'type');

% don't do anything if child being added is a temporary
% text or uicontrol object (e.g. used to get the dimensions of a string)
% as in legend
if (strcmpi(tag,'temphackytext') & strcmpi(type,'text')) | ...
        (strcmpi(tag,'temphackyui') & strcmpi(type,'uicontrol'))
 
% if obect being added is a legend, and zoom or rotate3d is on,
% turn it off and then on again to make state data saved by
% uiclearmode current.
elseif strcmpi(tag,'legend')
    if isappdata(fig,'Rotate3dOnState')
        rotate3d(fig,'off');
        rotate3d(fig,'on');
    elseif strcmpi('out',zoom(fig,'getmode'))
        zoom(fig,'off');
        zoom(fig,'outmode');
    elseif isappdata(fig,'ZoomOnState')
        zoomstate = getappdata(fig,'ZoomOnState');
        zoom(fig,'off');
        zoom(fig,zoomstate);
    end

% otherwise if object is an axes, uicontextmenu or uicontrol
% turn zoom and rotate3d off.
elseif  event.child.isa('hg.axes') | ...
        event.child.isa('hg.uicontextmenu') | ...
        event.child.isa('hg.uicontrol')

    zoom(fig,'off');
    rotate3d(fig,'off');
    
end

%------------------------------------------------------------------------%
% figure remove child callback
% if the child is an axes
% or is a uicontextmenu or uicontrol
% turn off zoom and rotate3d
function scribeFigChildRemoved(src,event,fig)

chh = handle(event.child);
tag = get(chh,'tag');
type = get(chh,'type');

% don't do anything if child being removed is a temporary
% text or ui object (e.g. used to get the dimensions of a string)
% as in legend
if (strcmpi(tag,'temphackytext') & strcmpi(type,'text')) | ...
        (strcmpi(tag,'temphackyui') & strcmpi(type,'uicontrol'))

% if obect being removed is a legend, and zoom or rotate3d is on,
% turn it off and then on again to make state data saved by
% uiclearmode current.
elseif strcmpi(tag,'legend')
    if isappdata(fig,'Rotate3dOnState')
        rotate3d(fig,'off');
        rotate3d(fig,'on');
    elseif strcmpi('out',zoom(fig,'getmode'))
        zoom(fig,'off');
        zoom(fig,'outmode');
    elseif isappdata(fig,'ZoomOnState')
        zoomstate = getappdata(fig,'ZoomOnState');
        zoom(fig,'off');
        zoom(fig,zoomstate);
    end

% otherwise if object is an axes, uicontextmenu or uicontrol
% turn zoom and rotate3d off.
elseif  event.child.isa('hg.axes') | ...
        event.child.isa('hg.uicontextmenu') | ...
        event.child.isa('hg.uicontrol')

    zoom(fig,'off');
    rotate3d(fig,'off');
    
end

%------------------------------------------------------------------------%
% axes add child callback
% turn off zoom and rotate3d
function scribeFigAxChildAdded(src,event,fig)
    
    chh = handle(event.child);
    tag = get(chh,'tag');
    type = get(chh,'type');
    
    % don't turn zoom/rotate3d off if obect being added is a temporary text or ui object
    % or a legend delete proxy
    if ~strcmpi(tag,'LegendDeleteProxy') & ... 
        ~(strcmpi(tag,'temphackytext') & strcmpi(type,'text')) & ...
        ~(strcmpi(tag,'temphackyui') & strcmpi(type,'uicontrol'))
     
        zoom(fig,'off');
        rotate3d(fig,'off');
        
    end


%------------------------------------------------------------------------%
% axes remove child callback
% turn off zoom and rotate3d
function scribeFigAxChildRemoved(src,event,fig)
    
    chh = handle(event.child);
    tag = get(chh,'tag');
    type = get(chh,'type');
    
    % don't turn zoom/rotate3d off if obect being added is a temporary text or ui object
    % or a legend delete proxy
    if ~strcmpi(tag,'LegendDeleteProxy') & ... 
        ~(strcmpi(tag,'temphackytext') & strcmpi(type,'text')) & ...
        ~(strcmpi(tag,'temphackyui') & strcmpi(type,'uicontrol'))
     
        zoom(fig,'off');
        rotate3d(fig,'off');
        
    end

%------------------------------------------------------------------------%