function delete(A)
%SCRIBEHGOBJ/DELETE

%   Copyright (c) 1984-98 by The MathWorks, Inc.
%   $Revision: 1.9 $  $Date: 1997/12/11 21:37:05 $

myhandle = get(A,'MyHandle');
if get(myhandle,'IsSelected'), set(myhandle,'IsSelected',0); end

myParent = get(A,'MyBin');
if ~isempty(myParent)
   myParent.RemoveItem = A;
end
