home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / programmieren / basic / guitoolkit / arexx / moveeverything.rx < prev   
Encoding:
Text File  |  1997-11-07  |  298 b   |  22 lines
  1. /* This script will move all gadgets xoffset and yoffset  */
  2.  
  3. address "GUITKREXX"
  4. Options Results
  5. xoff=8
  6. yoff=8
  7.  
  8. NoOfGadgets
  9. say (result)
  10.  
  11. n=Result
  12. do loop = 1 to n
  13.     MoveGadget loop xoff yoff
  14.     end    
  15. NoOfBorders
  16. n=Result
  17. say (result)
  18. do loop = 1 to n
  19.     MoveBorder loop xoff yoff
  20.     end    
  21. say "all done!"
  22.