!********************************************************************
! RDtags.Inc                            Copyright 1997 by Allerup EDB
!********************************************************************
! Declaration of the RDTags CLASS
!********************************************************************

RDTags            CLASS,TYPE
Ctrl                &RDCtrl     !Pointer to tagged control object
RegionNW            &RDCtrl     !Pointer to NW corner object
RegionNE            &RDCtrl     !Pointer to NE corner object
RegionSW            &RDCtrl     !Pointer to SW corner object
RegionSE            &RDCtrl     !Pointer to SE corner object
RegionN             &RDCtrl     !Pointer to N object
RegionS             &RDCtrl     !Pointer to S object
RegionE             &RDCtrl     !Pointer to E object
RegionW             &RDCtrl     !Pointer to W object
BoxCtrl             &RDCtrl     !Pointer to box object

Init                Procedure (*RDCtrl pCtrl, *Long pNextCtrl)
Kill                Procedure
CheckMouseIn        Function (), Short
CheckMouseOut       Function (), Short
CheckMouseDrag      Function (), Short
SetDragCursor       Procedure (Short pDirections)
MoveCtrl            Procedure (Long pOrgMouseX, Long pOrgMouseY, Short pDirection)
UpdatePosition      Procedure
SetTagProp          Procedure (Short pTaggedCtrl)
SetTagColor         Procedure (Long pColor)
SetTagCursor        Procedure (Short pSetOnOff, Short pTaggedCtrl)
                  END

RDTagQueue        QUEUE,TYPE
OneTag              &RDTags
                  END