home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / DVD!FX17.LHA / FrexxEd / fpl / MegaIndent.FPL < prev    next >
Encoding:
Text File  |  1994-11-18  |  419 b   |  22 lines
  1. export int MegaIndent()
  2. {
  3.    string file;
  4.    int x, y;
  5.  
  6.    x = ReadInfo("block_begin_x");
  7.    y = ReadInfo("block_begin_y");
  8.  
  9.    BlockCut();
  10.    file = GetBlock();
  11.    SaveString("T:Fred_tmp", file);
  12.    System("indent T:Fred_tmp");
  13.  
  14.    BlockMark(0);
  15.  
  16.    file = LoadString("T:Fred_tmp");
  17.    Output(file);
  18.    BlockMark(2, x, y, ReadInfo("column"), ReadInfo("line"));
  19. }
  20.  
  21. AssignKey("MegaIndent();", "amiga a", "block_exist");
  22.