function fc=getfillcolor
%GETFILLCOLOR  Return the current filling color.
%
%	COLOR = GETFILLCOLOR
%
%	getfillcolor return the UserData of the cheked on menu
%
%	See also: GETLINESTYLE, GETLINEWIDTH, GETPENCOLOR, 
%		  GETFONT, 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', ' Fill Color');
ch=get(mn, 'children');
ck=findobj(ch, 'checked', 'on');         
fc=get(ck, 'UserData');

return