function dummy = setfont(Editor,Component,Property,Value)
% Sets font for designated editor component

%   Author(s): P. Gahinet
%   Copyright 1986-2000 The MathWorks, Inc. 
%   $Revision: 1.3 $  $Date: 2000/06/14 20:21:09 $

% REVISIT
dummy = [];

switch Component
case 'title'
    % Title font
    % Revisit: merge
    Title = Editor.Title;
    Title = setfield(Title,Property,Value);
    Editor.Title = Title;
case 'xylabel'
    % XY label font
    % Revisit: merge
    Xlabel = Editor.Xlabel;
    Xlabel = setfield(Xlabel,Property,Value);
    Editor.Xlabel = Xlabel;
    Ylabel = Editor.Ylabel;
    Ylabel = setfield(Ylabel,Property,Value);
    Editor.Ylabel = Ylabel;
case 'axes'
    % Tick label font
    HG = Editor.HG;
    % Axes tick labels
    set(HG.PlotAxes,Property,Value)
    % Grid labels
    if isfield(HG,'GridLines')
        set(findobj(HG.GridLines,'Type','text'),Property,Value)
    end
end

