function A = doclick(A)
%FRAMERECT/DOCLICK

%   Copyright (c) 1984-98 by The MathWorks, Inc.
%   $Revision: 1.4 $  $Date: 1997/12/06 00:40:46 $
%   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
