function notebookDeleteFigures
%NOTEBOOKDELETEFIGURES	Notebook utility routine to delete figures.

% Copyright 1984-2004 The MathWorks, Inc.
% $Revision: 1.1.6.1 $  $Date: 2004/11/29 23:30:22 $

global notebookGlobalFigureList

% Delete all but the last figure
if length(notebookGlobalFigureList) > 1
   notebookGlobalFigureList = notebookGlobalFigureList(1:length(notebookGlobalFigureList)-1)
   close(notebookGlobalFigureList)
end
clear global notebookGlobalFigureList