home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / RexxIntuition.lha / RexxIntuition / RexxIntui.lzh / scripts / Msg.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1990-06-27  |  347 b   |  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.