function delete(ViewerObj)
%DELETE  Open system-delete GUI for LTI Viewer

%   Author(s): A. DiVergilio
%   Copyright 1986-2000 The MathWorks, Inc. 
%   $Revision: 1.2 $  $Date: 2000/06/14 20:03:10 $

%---Build system list (from viewer)
Systems = ViewerObj.Systems;
SystemNames = ViewerObj.SystemNames;
size_str = cell(size(SystemNames));
class_str = cell(size(SystemNames));
for ctS = 1:length(SystemNames)
   class_str{ctS}=class(Systems{ctS});
   if isequal(length(size(Systems{ctS})),2)
      s = mat2str(size(Systems{ctS}));
      s = strrep(s,' ','x');
      size_str{ctS} = s(2:end-1);
   else
      size_str{ctS} = [num2str(length(size(Systems{ctS}))),'-D'];
   end
end
AllNames = strvcat(SystemNames{:});
MaxName = size(AllNames,2);
NameBlanks = repmat(max(0,blanks(15-MaxName)),size(AllNames,1),1);
AllSize = strvcat(size_str);
MaxSize = size(AllSize,2);
SizeBlanks = repmat(max(0,blanks(13-MaxSize )),size(AllSize,1),1);
AllClass = strvcat(class_str{:});
ListStr = [AllNames,char(NameBlanks),AllSize,char(SizeBlanks),AllClass];

%---Update status bar and open GUI
status(ViewerObj,'Select the systems to remove from the LTI Viewer...');
ltibrowse('delete',ViewerObj.Handle,ListStr,SystemNames);  
