itext.m

美国德克萨斯州大学电子工程系开发的一套进行语音分析的MATLAB程序． A MATLAB software tool for speech analysis．

function itext(action)

% Copyright (c) 1995 by Philipos C. Loizou
%

global txtc tf ht fFig 

if strcmp(action,'add')==1

if isempty(tf)
  tf=figure('Units','Pixels','Position',[300 300 200 90],'MenuBar','None','Name',...
	'Text Window','NumberTitle','Off');
	txtc=uicontrol('Style','edit','String','text','Position',[20 40 160 20],...
	'Callback','adtext');
	uicontrol('Style','Push','String','close','Position',[80 10 50 20],...
	'Callback','closem(''tf'')');
else
 figure(tf); 
end

else


h1=findobj(fFig,'Type','text');
i = find(h1 == ht);

  if  i == 1
    delete(ht);
  else
    disp('ERROR! Nothing to delete.');
  end

end