ilocanc.m

A MATLAB tool for analysis of Transient Otoacoustic Emission signals

function hfc = ilocanc(command,param1) 
%   
%  ilocanc.m 
%   
%  usage:       ilocanc(command,parameter1) 
%   
%           where 
%   
%               'command' is used to perform some defined operation 
%               'parameter1' can be used pass extra information 
%                              to a defined operation 
%   
%           If no arguements are used the GUI is initialized. 
%   
%   
%  Created: 2-Jun-94 
%  Using  : GUIMaker by Patrick Marchand 
%                         ([e-mail]) 
%  Author : Pekka Kumpulainen  
%  Mods.  :  
%   

%  Copyright (c) 1994 by Patrick Marchand 
%       Permission is granted to modify and re-distribute this 
% code in any manner as long as this notice is preserved. 
% All standard disclaimers apply. 


if nargin == 0 
  command = 'new'; 
end 

if isstr(command) 
  if strcmp(lower(command),'initialize') | strcmp(lower(command),'new') 
    command = 0; 
  elseif strcmp(lower(command),lower('h(1)')) 
    command = 1; 
  end 
end 

if command ~= 0 
  handle_list = get(gcf,'userdata'); 
  if length(handle_list) > 0 
    h(1) = handle_list(1); 
    txt1 = handle_list(2); 
  end 
end 


if command == 0 
    hfc = figure(...
      'Position',[300 200 400 200],...
      'resize','off',...
      'Name','Processing',...
      'MenuBar','none',...
      'numberTitle','off',...
      'defaulttextcolor',[0 0 0],...
      'Color',[1 1 0], ...
      'WindowStyle','modal');
  set(gca,'visible','off'); 

  %  Uicontrol Object Creation 
  h(1) = uicontrol(... 
    'BackgroundColor',[0.7 0.7 0.7 ],... 
    'CallBack','ilocanc(''h(1)'');',... 
    'ForegroundColor',[0 0 0 ],... 
    'Units','normalized',... 
    'Position',[.35 .1 .3 .2],... 
    'String','Cancel',... 
    'Style','pushbutton',... 
    'Visible','on'); 

  handle_ui_list = [ h(1) ]; 


  %  Text Object Creation 
  txt1 = text(... 
    'Color',[0 0 0],... 
    'EraseMode','normal',... 
    'Position',[0.5 0.7],... 
    'Rotation',0 ,...
    'FontSize',14,...
    'FontName','helvetica',...
    'HorizontalAlignment','center',...
    'String',['Processing patients ']); 
% txt2 = text(... 
%   'Color',[0 0 0],... 
%   'EraseMode','normal',... 
%   'Position',[0.5 0.5],... 
%   'Rotation',0 ,...
%   'FontSize',14,...
%   'FontName','helvetica',...
%   'HorizontalAlignment','center',...
%   'String','Cancelling may take a while...'); 
%
%  handle_txt_list = [ txt1 txt2 ]; 

  handle_txt_list = [ txt1 ]; 


  handle_list = [handle_ui_list handle_txt_list]; 
  set(gcf,'userdata',handle_list); 


elseif command == 1 
  global STOP_ILOPRINT
  STOP_ILOPRINT = 1;
  delete(gcf);
else 
  error('Error: ilocanc.m called with incorrect command.') 
end