function lstxt(str)
% LSTXT Displays text strings in a listbox. 
%
%  For example:
%  str = {'x=10',
%  'y = 20',
%  'z=x*y'};
%  lstxt(str);
%  

%    Yama Habibzai
%    Copyright (c) 1984-98 by The MathWorks, Inc. All Rights Reserved
%    $Revision: 1.3 $
%    $Date: 1997/12/03 17:29:53 $ 


cla reset
pos = get(gca,'position');
set(gca,'Box','on','XTick',[],'YTick',[],'Visible','on');

list = findobj(gcf, 'Type', 'uicontrol', 'tag','listtag');
if ~isempty(list) 
  delete(list)
end

h= uicontrol('Style', 'listbox','Units','Normalized',...
    'Position', pos,...
    'String',str,...
    'Tag', 'listtag',...
    'BackGroundColor', [1 1 1],...
    'Max', 2, 'value', []);







