% SUPTITLEBAR.M
%   Put the current figure number, and the current figure title in the
%   titlebar of the figure. Also set the title of the figure using the
%   suptitle function. 

% Vivek Nadkarni
% Trimble
% October 2, 2002
function titlebar(text); 


suptitle(text); 
curfig = gcf; 
set(curfig, 'NumberTitle', 'off');
titlebarstr = sprintf('%d: %s', curfig, text); 
set(curfig, 'Name', titlebarstr); 

return; 