function delete(A)
%SCRIBEHGOBJ/DELETE

%   Copyright 1984-2000 The MathWorks, Inc. 
%   $Revision: 1.10 $  $Date: 2000/06/01 02:53:00 $

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

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