home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 67 / IOPROG_67A.ISO / soft / Tools / mwsppv4.exe / REVERSELINES.SCRIPT < prev    next >
Encoding:
Text File  |  1999-06-22  |  912 b   |  47 lines
  1. !!Script
  2. // Copyright ⌐ 1999 - Modelworks Software
  3. // @Created build 305 cm1999622
  4.  
  5. /**
  6. @Tool: reverseLines~reverses lines in 
  7. the current selection.
  8. @EndTool: 
  9. @Summary: reverseLines~reverses lines
  10. */
  11.  
  12.  
  13. function DoCommand()
  14. {    
  15.     var editor = getActiveEditor();
  16.     if (editor)
  17.     {   
  18.         var range = editor.getSelection();
  19.  
  20.         editor.select(range.startLineIndex, 0, range.startLineIndex, 0);
  21.             
  22.         if (range.endCharIndex == 0)
  23.         {
  24.             range.endLineIndex -= 1;
  25.         }
  26.         var i = range.startLineIndex;
  27.         var j = range.endLineIndex;
  28.         if ( i < j)
  29.         {
  30.             for (; i < j; i++, j--)
  31.             {
  32.                 var iline = editor.copy(i);
  33.                 var jline = editor.copy(j); 
  34.             
  35.                 editor.replace(iline, j);
  36.                 editor.replace(jline, i);     
  37.             }
  38.             
  39.             editor.select(range.startLineIndex, 0, range.endLineIndex+1, 0);
  40.             editor.setActive("Reverse Lines"); // So you can undo the reverse
  41.         }
  42.     }
  43. }
  44.  
  45. !!/Script
  46.  
  47.