home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / rexxintuition_463.lzh / RexxIntuition / RexxIntui.lzh / scripts / IDCMP.rexx < prev    next >
OS/2 REXX Batch file  |  1990-06-27  |  585b  |  19 lines
  1. /* An example of using the dissidents rx_intui.library */
  2.  
  3. wind=GetWindow('idcmp',,,,300,100,,,,)
  4. IF wind == '' | wind == 0 THEN SAY 'Window open error'
  5.  
  6. /* Here's our IDCMP loop. We just print all returned specs until we get */
  7. /* CLOSEWINDOW class (0). Start out CLASS = 1 before we get into the loop. */
  8. class = 1
  9. DO WHILE class > 0
  10. spec=WaitMsg(wind)
  11. /* divide the spec into separate parts */
  12. PARSE var spec class part1 part2 part3
  13. SAY spec
  14. END
  15.  
  16. /* Close the window, thus freeing any resources for it. */
  17. /* Note that if no window opened, this does nothing. */
  18. err=EndWindow(wind)
  19.