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 >
Wrap
OS/2 REXX Batch file
|
1990-06-27
|
585b
|
19 lines
/* An example of using the dissidents rx_intui.library */
wind=GetWindow('idcmp',,,,300,100,,,,)
IF wind == '' | wind == 0 THEN SAY 'Window open error'
/* Here's our IDCMP loop. We just print all returned specs until we get */
/* CLOSEWINDOW class (0). Start out CLASS = 1 before we get into the loop. */
class = 1
DO WHILE class > 0
spec=WaitMsg(wind)
/* divide the spec into separate parts */
PARSE var spec class part1 part2 part3
SAY spec
END
/* Close the window, thus freeing any resources for it. */
/* Note that if no window opened, this does nothing. */
err=EndWindow(wind)