home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / text / edit / FrexxEdA.lha / FrexxEd / fpl / ClipBlock.FPL < prev    next >
Text File  |  1995-07-19  |  807b  |  32 lines
  1.  
  2. export int BlockPasteGet_clip(int blockid)
  3. {
  4.   if (!blockid)
  5.     StringToBlock(ClipToString(0));
  6.   return(0);
  7. }
  8. export int BlockGet_clip(int blockid, int x1, int y1, int x2, int y2)
  9. {
  10.   if (!blockid)
  11.     StringToBlock(ClipToString(0));
  12.   return(0);
  13. }
  14.  
  15. export int BlockStore_clip(int blockid, int x1, int y1, int x2, int y2)
  16. {
  17.   if (!blockid)
  18.     StringToClip(0, GetBlock());
  19.   return(0);
  20. }
  21.  
  22. Hook("BlockPaste", "BlockPasteGet_clip", "!block_exist");
  23. Hook("BlockPasteRect", "BlockPasteGet_clip", "!block_exist");
  24.  
  25. Hook("BlockCopyAppend", "BlockGet_clip", "!block_exist");
  26. HookPast("BlockCopyAppend", "BlockStore_clip");
  27. Hook("BlockCutAppend", "BlockGet_clip", "!block_exist");
  28. HookPast("BlockCutAppend", "BlockStore_clip");
  29.  
  30. HookPast("BlockCopy", "BlockStore_clip");
  31. HookPast("BlockCut", "BlockStore_clip");
  32.