home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 2
/
fishmore-publicdomainlibraryvol.ii1991xetec.iso
/
dirs
/
rexxintuition_463.lzh
/
RexxIntuition
/
RexxIntui.lzh
/
scripts
/
Wind.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1990-06-27
|
545b
|
17 lines
/* An example of using the dissidents rx_intui.library */
/* Open a window on WB. Let it be the default IDCMP. */
wind=GetWindow('hello',,,,,,,,)
IF wind == '' | wind == 0 THEN SAY 'Window open error'
/* Wait for - ANY - IDCMP message to drop us through */
/* Note that if no window opened, this returns a null string '' immediately */
spec=WaitMsg(wind)
/* Print out the IDCMP spec to the CLI */
SAY spec
/* Close the window, thus freeing any resources for it. */
/* Note that if no window opened, this does nothing. */
err=EndWindow(wind)