home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / programmieren / gui / ieditor / arexx / alignboxright.ie < prev    next >
Encoding:
Text File  |  1997-06-17  |  445 b   |  35 lines
  1. /*
  2.     $VER: AlignBoxRigth.ie 1.0 (5.12.95) © Simone Tellini
  3. */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. SIGNAL ON ERROR
  8.  
  9. ADDRESS 'IEDITOR.1'
  10.  
  11. /*---------------- INSERT HERE YOUR CODE ------------------*/
  12.  
  13.  
  14. 'GETBOX'
  15. which = result
  16.  
  17. 'GETBOX'
  18. 'GETBOXATTR' result to
  19.  
  20. 'GETBOXATTR' which from
  21.  
  22. 'SETBOXATTR' which 'L' ((to.leftedge+to.width)-from.width)
  23.  
  24.  
  25. /*---------------------------------------------------------*/
  26.  
  27. EXIT
  28.  
  29.  
  30. ERROR:
  31.  
  32. say 'Error' RC 'on line' SIGL
  33.  
  34. EXIT RC
  35.