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 / Msg3.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-05-30  |  658 b   |  21 lines
  1. /* An example of using the dissidents rx_intui.library */
  2.  
  3. wind=rxi_GetWindow('Show Req',,,,,,,,)
  4. IF wind == '' | wind == 0 THEN SAY 'Window open error'
  5.  
  6. /* Set a wait pointer just for demo purposes */
  7. err=rxi_RedrawWind(wind,2)
  8.  
  9. /* Present an Automessage to the user. This one allows up to 3 lines of text, */
  10. /* and has an OK and NO (returns 1 or 0 respectively). Note that for the 3rd  */
  11. /* line of text I pass no arg. This means no third line. */
  12. ans=rxi_MsgThree(wind,'This is an automessage','Here is line #2',)
  13.  
  14. /* Clear the wait pointer */
  15. err=rxi_RedrawWind(wind,1)
  16.  
  17. /* Print out the returned answer to the CLI */
  18. SAY ans
  19.  
  20. wind=rxi_EndWindow(wind)
  21.