function Value = getfont(RespObj,Name,Property)
%GETFONT  Get font properties of RespObj text objects
%         (title,xlabel,ylabel,axes,iolabels)

%   Author(s): A. DiVergilio
%   Copyright 1986-2000 The MathWorks, Inc. 
%   $Revision: 1.3 $  $Date: 2000/06/14 20:07:29 $

switch lower(Name)
case 'title' 
   h = RespObj.Handles.Title;
case 'xlabel'
   h = RespObj.Handles.Xlabel;
case 'ylabel'
   h = RespObj.Handles.Ylabel;
case 'axes'
   h = RespObj.PlotAxes;
case 'iolabels'
   pa = RespObj.PlotAxes;
   ht = get(pa,{'Title'}); 
   hx = get(pa,{'XLabel'});
   hy = get(pa,{'YLabel'});
   h = [ht{:};hx{:};hy{:}];
end

%---Get font properties
Value = get(h(1,1),Property);
