home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 1 / amigaformatcd01.iso / pd / text_editors / bed / rexx / indentblk.bed < prev    next >
Encoding:
Text File  |  1996-04-30  |  478 b   |  36 lines
  1. /*
  2. ** $VER: IndentBlk.bed 1.0 (02.01.96)
  3. **
  4. ** Indent the selected block
  5. */
  6.  
  7. OPTIONS RESULTS
  8.  
  9. SetInputLock ON
  10. SetDisplayLock ON
  11.  
  12. GetBlkDims
  13. PARSE VAR RESULT mode . start . end
  14.  
  15. GetCursorPos
  16. PARSE VAR RESULT y x .
  17.  
  18. IF mode = OFF THEN DO
  19.     SetStatusBar "Error: No block selected!"
  20. END; ELSE DO
  21.     SetStatusBar "Indenting the block..."
  22.     Move LINE start
  23.  
  24.     RecordMacro QUIET
  25.     ShiftRight TABS
  26.     MoveDown
  27.     EndMacro
  28.  
  29.     PlayMacro end-start
  30.  
  31.     Move y x
  32. END
  33.  
  34. SetDisplayLock OFF
  35. SetInputLock OFF
  36.