home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / textra / scripts / c_scripts / box.textra next >
Text File  |  1995-02-27  |  1KB  |  50 lines
  1. /*
  2. ** routine to put a comment box around the selected text
  3. **   adapted from Mike Haas's 'slide' routine
  4. */
  5.  
  6. BOXWIDTH=72  /* Width of the comment box */
  7.  
  8. OPTIONS results
  9.  
  10. 'get' "select position"   /* get the select boundary, if any */
  11.  
  12. if (result == "NO SELECT") then   /* is nothing selected? */
  13.     exit   /* Then just go back */
  14.  
  15. parse var result   startx ' ' starty ' ' endx ' ' endy
  16. LinesSelected = (endy - starty)
  17.     
  18.     /* if only the 'eol' of the previous line is selected
  19.     (nothing on this line is actually included, i.e. x==0),
  20.     then don't include it.
  21.     */
  22. if (endx > 0) then  LinesSelected = LinesSelected + 1   
  23.  
  24. 'prefs' autoindent read; autoindent = result
  25.  
  26. 'unselect'
  27. 'gotoxy' 0 starty
  28. 'textn' '/' || copies('*', BOXWIDTH-1)
  29. do LinesSelected
  30.    /* At this point we are in column zero of a line to be
  31.    ** included in the comment box.  We go down a line and then left
  32.    ** one char to get to the end of the line, and pad with spaces
  33.    ** so that the '*' line up properly
  34.    */
  35.     'text' '* '
  36.     'left' 2
  37.     'down' 1
  38.     'left' 1
  39.     'get' "cursor position"
  40.     parse var result   curx .
  41.     'text' '"' || copies(' ', BOXWIDTH-curx-1) || '*"'
  42.     'right' 1
  43. end
  44.  
  45. 'textn' copies('*', BOXWIDTH-1) || '/'
  46.  
  47. 'prefs' 'autoindent' autoindent
  48. exit
  49.  
  50.