home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / mg-3b.lha / mg-3b / REXX / clipclean.mg < prev    next >
Encoding:
Text File  |  1990-06-02  |  555 b   |  23 lines
  1. /*
  2.  * clipclean - cleans up all the clips it was told about by mgclip. This
  3.  * should be run via rexx-do-on-exit, when mg exits.
  4.  *
  5.  * To have it clean up a clip, just call mgclip with the name of the clip
  6.  * as a the argument. Clip names that aren't "words" by the definitions
  7.  * of Rexx won't get cleaned properly.
  8.  */
  9.  
  10. clipname = "mg.cleanclips."
  11.  
  12. options failat 2
  13. 'rexx-unlock'        /* Free the mg - we can't complain anyway... */
  14.  
  15. cliplist = getclip(clipname)
  16.  
  17. call setclip clipname
  18.  
  19. do i = 1 to words(cliplist)
  20.     call setclip word(cliplist, i)
  21.     end
  22. exit
  23.