home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / DVD!FX17.LHA / FrexxEd / fpl / BlockErase.FPL < prev    next >
Encoding:
Text File  |  1994-11-18  |  546 b   |  25 lines
  1. export void BackspaceBlock(void)
  2. {
  3.     if (ReadInfo("block_exist") == 1) {
  4.         if ((ReadInfo("block_end_y") == ReadInfo("line")) && (ReadInfo("block_end_x") == ReadInfo("column"))) {
  5.             BlockDelete(0);
  6.             exit;
  7.         }
  8.     }
  9.     Backspace();
  10. }
  11.  
  12. export void DeleteBlock(void)
  13. {
  14.     if (ReadInfo("block_exist") == 1) {
  15.         if ((ReadInfo("block_begin_y") == ReadInfo("line")) && (ReadInfo("block_begin_x") == ReadInfo("column"))) {
  16.             BlockDelete(0);
  17.             exit;
  18.         }
  19.     }
  20.     Delete();
  21. }
  22.  
  23. AssignKey("BackspaceBlock();", "'Backspace'");
  24. AssignKey("DeleteBlock();", "'Delete'");
  25.