function imagenote(note)
%IMAGENOTE Set the note edit uicontrol

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

global H Note_txt Note_lab Handlefig

if nargin==0
  note=[];
end

bgnote=[0.5 0.3 0.3];
bg = [0.55 0.55 0.55];


if isempty(note)
  str=getparameter(H, 'Note',1);
  if str~=inf
    note=str;
  end
end


if ~ischildren(Note_txt, Handlefig)
  Note_lab=uicontrol(Handlefig, 'Style', 'text',...
		'string', 'Note:',...
                'Units', 'normalized',...
                'Position', [0.01 0.035 0.2 0.037],...
		'HorizontalAlignment', 'left',...
		'tag', 'noteui',...
                'BackgroundColor', bg);

  Note_txt = uicontrol(Handlefig, 'Style', 'edit',...
                'Units', 'normalized',...
                'Position', [0.062 0.035 0.93 0.037],...
		'HorizontalAlignment', 'left',...
		'tag', 'noteui',...
		'Callback', 'global Note_txt;H=setparameter(H, ''Note'',  get(Note_txt, ''string''));');
end

set(Note_txt, 'String', note);

return