Move a clarion window from clicking on a region

gistfile1.txt

! NOTE: Look here for a more correct implementation - http://support.microsoft.com/kb/114593
! The below code works well enough but it does have some limitations, such as the nested ACCEPT loop will stop the calling window from receiving events.

MoveWindow PROCEDURE()
origX LONG
origY LONG
CODE

  CASE Field()
  OF ?MyRegion
    CASE EVENT()
    OF Event:MouseDown
      origX = MOUSEX()
      origY = MOUSEY()
      ACCEPT
        CASE EVENT()
        OF Event:MouseUp
          BREAK
        OF Event:MouseMove
          0{Prop:Xpos} = 0{Prop:Xpos} + (MOUSEX() - origX)
          0{Prop:Ypos} = 0{Prop:Ypos} + (MOUSEY() - origY)
        END
      END
    END
  END