function font=getfont
%GETFONT  Return the current font.
%
%	FONT = GETFONT
%
%	getfont return the UserData of the cheked on menu
%
%	See also: GETLINESTYLE, GETLINEWIDTH, GETPENCOLOR, 
%		  GETFILLCOLOT, GETFONTSTYLE, GETFONTSIZE.
%
%	Claudio  May 16 1995
%

%
% Copyright (c) 1995 by Claudio Rivetti and Mark Young
% claudio@alice.uoregon.edu,    mark@alice.uoregon.edu
%

global Handlefig

mnb=findobj(finduimenu(Handlefig), 'label', 'Options');
mn=findobj(mnb, 'label', ' Font');
ch=get(mn, 'children');
ck=findobj(ch, 'checked', 'on');         
font=get(ck, 'UserData');

return