function fs=getfontsize
%GETFONTSIZE  Return the current fontsize.
%
%	FONTSIZE = GETFONTSIZE
%
%	getfontsize return the UserData of the cheked on menu
%
%	See also: GETLINESTYLE, GETLINEWIDTH, GETPENCOLOR, 
%		  GETFILLCOLOT, GETFONT, GETFONTSTYLE.
%
%	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', ' Size');
ch=get(mn, 'children');
ck=findobj(ch, 'checked', 'on');         
fs=get(ck, 'UserData');

return