home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 499.lha / RexxIntuition_rel2 / scripts / IDCMP.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1991-04-08  |  585 b   |  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.