home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / textra / scripts / delwholeline.textra < prev    next >
Text File  |  1995-02-27  |  1KB  |  36 lines
  1.     /******************************************************************
  2.      *   TEXTRA AREXX script -- Mike Haas, 1991, All Rights Reserved.  *
  3.      * Freely distributable ONLY as a component of the TEXTRA package. *
  4.      * This banner may not be removed or altered (improvements to the  *
  5.      *    actual program welcome).  Please document and send to me.    *
  6.      *        !!! PLACE THIS FILE IN YOUR REXX: DIRECTORY !!!          *
  7.      ******************************************************************/
  8.  
  9. /* Usage:  DelWholeLine
  10.  *
  11.  * This script accepts no parameters, and simply deletes the cursor/selected
  12.  * line.  If the select is greater than one line, it presents a notification
  13.  * requester.
  14.  *
  15.  */
  16.  
  17. options results
  18.  
  19. get cursor position
  20.  
  21. if (result ~= SELECT) then do
  22.     parse var result xstart' 'ystart
  23. end
  24. else do
  25.     get select position
  26.     parse var result xstart' 'ystart' 'xend' 'yend
  27.     if (ystart ~= yend) then
  28.        if ((xend ~= 0) | ((yend-ystart) > 1)) then do
  29.           notify '"Only 1 selected line allowed for DelWholeLine script."'
  30.           exit
  31.        end
  32. end
  33.  
  34. selectline ystart
  35. backspace
  36.