home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / programmieren / gui / ieditor / arexx / alignboxleft.ie < prev    next >
Encoding:
Text File  |  1997-06-17  |  395 b   |  33 lines
  1. /*
  2.     $VER: AlignBoxLeft.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. 'SETBOXATTR' which 'L' to.leftedge
  21.  
  22.  
  23. /*---------------------------------------------------------*/
  24.  
  25. EXIT
  26.  
  27.  
  28. ERROR:
  29.  
  30. say 'Error' RC 'on line' SIGL
  31.  
  32. EXIT RC
  33.