home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / DOS / TEKST / AURORA2 / LONGLINE.AML < prev    next >
Text File  |  1995-04-28  |  1KB  |  47 lines
  1.  
  2. /* ------------------------------------------------------------------ */
  3. /* Macro:        LONGLINE.AML                                         */
  4. /* Written by:   nuText Systems                                       */
  5. /*                                                                    */
  6. /* Description:  This macro moves the cursor to the end of the        */
  7. /*               longest line in the current edit window.             */
  8. /*                                                                    */
  9. /* Usage:        Select this macro from the Macro List (on the Macro  */
  10. /*               menu), or run it from the macro picklist <shift f12> */
  11. /* ------------------------------------------------------------------ */
  12.  
  13.   // compile time macros and function definitions
  14.   include bootpath "define.aml"
  15.  
  16.   var maxlength
  17.  
  18.   // test for edit windows
  19.   if not wintype? "edit" then
  20.     msgbox "Edit windows only!"
  21.     return
  22.   end
  23.  
  24.   // make cursor position undo-able and goto file top
  25.   undocursor
  26.   row 1
  27.  
  28.   // do for all lines in the file
  29.   repeat
  30.  
  31.     // if the line length > current longest line..
  32.     if getlinelen > maxlength then
  33.  
  34.       // ..then make it the longest line and save the row
  35.       maxlength = getlinelen
  36.       longestline = getrow
  37.     end
  38.   until not down
  39.  
  40.   // goto to the end of the longest line
  41.   row longestline
  42.   col getlinelen + 1
  43.  
  44.   // use "onfound" (in EXT.AML) to adjust the window view if needed
  45.   send "onfound"
  46.  
  47.