home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fonts 1 / freshfonts1.bin / programs / amiga / tpp / rexx / 1.preview next >
Text File  |  1994-01-05  |  266b  |  10 lines
  1. /* brings TextPlus to front (started from Preview) */
  2. options results
  3.  
  4. IF (SHOW('P', 'TextPlus')) THEN DO
  5.     ADDRESS 'TextPlus' 'ScreenToFront'
  6.     ADDRESS 'TextPlus' 'WindowToFront'
  7.     ADDRESS 'TextPlus' 'GetName'
  8.     ADDRESS 'TextPlus' 'Activate' result
  9.     END
  10.