home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / utils / acroarex.dms / in.adf / Public_Domain / PD_STUFF.lha / RexxIntuition / Scripts / text.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-05-30  |  902 b   |  30 lines
  1. /* An example of using the dissidents rx_intui.library */
  2.  
  3. /* Open a window on WB. Let it be the default IDCMP. */
  4. wind=rxi_GetWindow('Printing text to the window',,,,,,,,,)
  5. IF wind == '' | wind == 0 THEN SAY 'Window open error'
  6.  
  7. /* Print a message */
  8. mytext = 'Close window to see message clear'
  9. err=rxi_Text(mytext,wind,10,40)
  10.  
  11. /* Wait for - ANY - IDCMP message to drop us through */
  12. msg=rxi_WaitMsg(wind)
  13.  
  14. /* Erase that message. Note that it was 33 characters long */
  15. err=rxi_Erase(33,wind,10,40)
  16.  
  17. /* Print a message one line down. Note that the default font is 8 pixels high */
  18. mytext = 'Line #2 '
  19. err=rxi_Text(mytext,wind,10,40+8)
  20.  
  21. /* Print from where the previous print left off. */
  22. mytext = 'more text'
  23. err=rxi_Text(mytext,wind,,)
  24.  
  25. /* Wait for - ANY - IDCMP message to drop us through */
  26. msg=rxi_WaitMsg(wind)
  27.  
  28. /* Close the window, thus freeing any resources for it. */
  29. wind=rxi_EndWindow(wind)
  30.