home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 499.lha / RexxIntuition_rel2 / scripts / Msg3.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1991-04-08  |  637 b   |  21 lines
  1. /* An example of using the dissidents rx_intui.library */
  2.  
  3. wind=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=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=MsgThree(wind,'This is an automessage','Here is line #2',)
  13.  
  14. /* Clear the wait pointer */
  15. err=RedrawWind(wind,1)
  16.  
  17. /* Print out the returned answer to the CLI */
  18. SAY ans
  19.  
  20. err=EndWindow(wind)
  21.