home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / WASTE 1.1a4 / Demo Source / WEDemoDrags.p < prev    next >
Encoding:
Text File  |  1994-10-15  |  1.1 KB  |  44 lines  |  [TEXT/PJMM]
  1. unit DemoDrags;
  2.  
  3. { WASTE DEMO PROJECT: }
  4. { Drag Handlers }
  5.  
  6. { Copyright © 1993-1994 Merzwaren }
  7. { All Rights Reserved }
  8.  
  9. interface
  10.     uses
  11.         DemoIntf;
  12.  
  13.     function MyTrackingHandler (theMessage: DragTrackingMessage;
  14.                                     theWindow: WindowPtr;
  15.                                     handlerRefCon: Ptr;
  16.                                     theDrag: DragReference): OSErr;
  17.     function MyReceiveHandler (theWindow: WindowPtr;
  18.                                     handlerRefCon: Ptr;
  19.                                     theDrag: DragReference): OSErr;
  20.  
  21. implementation
  22.  
  23.     function MyTrackingHandler (theMessage: DragTrackingMessage;
  24.                                     theWindow: WindowPtr;
  25.                                     handlerRefCon: Ptr;
  26.                                     theDrag: DragReference): OSErr;
  27.     begin
  28.         if (theWindow <> nil) then
  29.             MyTrackingHandler := WETrackDrag(theMessage, theDrag, DocumentPeek(theWindow)^.hWE)
  30.         else
  31.             MyTrackingHandler := noErr;
  32.     end;  { MyTrackingHandler }
  33.  
  34.     function MyReceiveHandler (theWindow: WindowPtr;
  35.                                     handlerRefCon: Ptr;
  36.                                     theDrag: DragReference): OSErr;
  37.     begin
  38.         if (theWindow <> nil) then
  39.             MyReceiveHandler := WEReceiveDrag(theDrag, DocumentPeek(theWindow)^.hWE)
  40.         else
  41.             MyReceiveHandler := noErr;
  42.     end;  { MyReceiveHandler }
  43.  
  44. end.