itext.m

来自「语音处理平台 可以分析语音能量 第一振峰频率等数据」· M 代码 · 共 38 行

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