gui_active.m

来自「基于Matlab的地震数据处理显示和测井数据显示于处理的小程序」· M 代码 · 共 39 行

function ret = gui_active(optional_input)
%
% gui_active - used to implement an abort function in a GUI
%
% Initiate with: gui_active(1)
%
% then: in the aplication, at various places,
%
%  EITHER  1) if (~gui_active) then ... do abort action
%  OR      2) polling gui_active(-1) will cause an error with the value 'abort_requested'
%             that can be caught with a "try-catch" block
%
% to initiate the abort (for both cases) call:  gui_active(0)
%
% the call to drawnow enable other controls to "patch-in" before the
% rest of this code executes and possibly change the "is_active" state

persistent    is_active;

if (nargin > 0)
    if (optional_input == -1) 
        drawnow;
        if (~is_active)
            error('abort_requested');
        end
    else
        prev_is_active  = is_active;
        is_active       = optional_input;
        if ((prev_is_active > 0) & (is_active == 0))
            disp('operation aborted');
        end
    end
else
    drawnow;
end

ret = is_active;