home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / rexxintuition_393.lzh / RexxIntuition / Scripts / Msg.rexx < prev    next >
OS/2 REXX Batch file  |  1990-10-28  |  347b  |  13 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. /* Present an Automessage to the user. This one only has an OK (returns 1) */
  7. ans=MsgOne(wind,'This is an automessage')
  8.  
  9. /* Print out the returned answer to the CLI */
  10. SAY ans
  11.  
  12. err=EndWindow(wind)
  13.