home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / tpp / rexx / 1.preview next >
Text File  |  1995-02-27  |  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.