WINDOWS
Display a frame while dragging a window
Here is a working version (which actually does not use globals).
Note the first line of the code below (COMPILE ...) , which would have saved you some hassle {:-)
COMPILE ,_dimmedvarsOnly
END GLOBALS
LOCAL FN DragHell(myPointPtr&)
DIM screenRect;8, copyPt.4
copyPt;4=myPointPtr&
CALL LOCALTOGLOBAL (copyPt)
CALL SETRECT (screenRect, 0, 0, SYSTEM(6), SYSTEM(7))
CALL DRAGWINDOW (FN FRONTWINDOW, copyPt, screenRect)
END FN
WINDOW 1
DIM myPoint
DO
CALL GETMOUSE(myPoint)
FN DragHell(@myPoint)
HANDLEEVENTS
UNTIL 0
Robert Purves