home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / TextEditors&Viewers / Texteditors / FFRED10.LHA / fpl / MouseMark.FPL < prev    next >
Encoding:
Text File  |  1994-09-22  |  607 b   |  23 lines
  1. export int MouseMark(int blockonoff)
  2. {
  3.   int x, y;
  4.   x=ReadInfo("mouse_x");
  5.   y=ReadInfo("mouse_y");
  6.   if (x>=0 && y>=0) {
  7.     BlockMark(blockonoff);
  8.     PlaceCursor(x, y);
  9.   }
  10. }
  11.  
  12. /* Attach the 'MouseMark(1)' function to the 'MouseLeftDrag' action */
  13. AssignKey("MouseMark(1);", "MouseLeftDrag");
  14.  
  15. /* Attach the 'MouseMark(0)' function to the 'MouseLeftDrag' action */
  16. AssignKey("MouseMark(0);", "MouseLeft", "block_exist");
  17.  
  18.  
  19. /* Attach the 'BlockMark(2)' function to the 'MouseLeftUp' action and
  20.    let it be depended of the 'block_exist' flag. */
  21. AssignKey("BlockMark(2);", "MouseLeftUp", "block_exist");
  22.  
  23.