%
% stack: drag-mode
%
% allow move 0x02 and copy 0x01
%
 dup .!Drag
 <
 |Before
  _TLAUTODRAGMODE_BEFOREITEM
 |Child
  _TLAUTODRAGMODE_ASCHILD
 |After
  _TLAUTODRAGMODE_AFTERITEM
 > not
 {
  _TLAUTODRAGMODE_NONE
 } if
 "DragMode" set
 _Hier.Drag false "DragOp" do