home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of A1200
/
World_Of_A1200.iso
/
programs
/
text
/
tpp
/
rexx
/
1.preview
next >
Wrap
Text File
|
1995-02-27
|
266b
|
10 lines
/* brings TextPlus to front (started from Preview) */
options results
IF (SHOW('P', 'TextPlus')) THEN DO
ADDRESS 'TextPlus' 'ScreenToFront'
ADDRESS 'TextPlus' 'WindowToFront'
ADDRESS 'TextPlus' 'GetName'
ADDRESS 'TextPlus' 'Activate' result
END