Code covered by the BSD License  

Highlights from
Improvement to Title function

image thumbnail
from Improvement to Title function by Yanai
Add the "title" string to figure title (blue area)

title(varargin)
function hh = title(varargin)
%TITLE  Graph title.
%   TITLE('text') adds text at the top of the current axis.
%
%   TITLE('text','Property1',PropertyValue1,'Property2',PropertyValue2,...)
%   sets the values of the specified properties of the title.
%
%   TITLE(AX,...) adds the title to the specified axes.
%
%   H = TITLE(...) returns the handle to the text object used as the title.
%
%   See also XLABEL, YLABEL, ZLABEL, TEXT.

%   Copyright 1984-2006 The MathWorks, Inc.
%   $Revision: 5.14.6.8 $  $Date: 2007/10/18 20:39:59 $


error(nargchk(1,inf,nargin,'struct'));

[ax,args,nargs] = axescheck(varargin{:});
if isempty(ax)
  % call title recursively or call method of Axes subclass
  h = title(gca,varargin{:}); 
  if nargout > 0, hh = h; end
  return;
end

if nargs > 1 && (rem(nargs-1,2) ~= 0)
  error('MATLAB:title:InvalidNumberOfInputs','Incorrect number of input arguments')
end

string = args{1};
if isempty(string), string=''; end;
pvpairs = args(2:end);

%---Check for bypass option
if isappdata(ax,'MWBYPASS_title')       
   h = mwbypass(ax,'MWBYPASS_title',string,pvpairs{:});

%---Standard behavior      
else
   h = get(ax,'title');

   %Over-ride text objects default font attributes with
   %the Axes' default font attributes.
   set(h, 'FontAngle',  get(ax, 'FontAngle'), ...
          'FontName',   get(ax, 'FontName'), ...
          'FontUnits',  get(ax, 'FontUnits'), ...
          'FontSize',   get(ax, 'FontSize'), ...
          'FontWeight', get(ax, 'FontWeight'), ...
          'Rotation',   0, ...
          'string',     string, pvpairs{:});
end

if nargout > 0
  hh = h;
end

%YANAI - put string in figure title also:
if ischar(string)
	set(gcf,'NumberTitle','off');
	set(gcf,'name',sprintf('%d: %s', gcf, string));
end

Contact us at files@mathworks.com