home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 2
/
fishmore-publicdomainlibraryvol.ii1991xetec.iso
/
dirs
/
rexxintuition_463.lzh
/
RexxIntuition
/
RexxIntui.lzh
/
scripts
/
Msg3.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1990-06-27
|
637b
|
21 lines
/* An example of using the dissidents rx_intui.library */
wind=GetWindow('Show Req',,,,,,,,)
IF wind == '' | wind == 0 THEN SAY 'Window open error'
/* Set a wait pointer just for demo purposes */
err=RedrawWind(wind,2)
/* Present an Automessage to the user. This one allows up to 3 lines of text, */
/* and has an OK and NO (returns 1 or 0 respectively). Note that for the 3rd */
/* line of text I pass no arg. This means no third line. */
ans=MsgThree(wind,'This is an automessage','Here is line #2',)
/* Clear the wait pointer */
err=RedrawWind(wind,1)
/* Print out the returned answer to the CLI */
SAY ans
err=EndWindow(wind)