function A = doclick(A)
%FRAMERECT/DOCLICK

%   Copyright 1984-2000 The MathWorks, Inc. 
%   $Revision: 1.5 $  $Date: 2000/06/01 02:52:42 $
%   J.H. Roh & B.A. Jones 4-25-97.

figH = get(A,'Figure');
figObjH = getobj(figH);
selType = figObjH.SelectionType;

selected = get(A,'IsSelected');

switch selType
case 'open' % do a double click: edit properties.
case 'normal'
   dragBinH = figObjH.DragObjects;
   for aObjH = dragBinH.Items;
      set(aObjH,'IsSelected',0);
   end
   A = set(A,'IsSelected',1);
end
