home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / rexxintuition_463.lzh / RexxIntuition / RexxIntui.lzh / scripts / Screen.rexx < prev    next >
OS/2 REXX Batch file  |  1990-06-27  |  760b  |  21 lines
  1. /* An example of using the dissidents rx_intui.library */
  2.  
  3. /* Open a custom screen with default width, height, depth=3, mode=HIRES */
  4. screen=GetScreen('my Screen',,,,,,,)
  5. IF screen == '' | screen == 0 THEN SAY 'Screen open error'
  6.  
  7. /* Open a window on this screen. Note that if the screen doesn't open, this */
  8. /* will open on WB. Let it be the default IDCMP. */
  9. wind=GetWindow('hello',screen,,,300,100,,,,)
  10. IF wind == '' | wind == 0 THEN SAY 'Window open error'
  11.  
  12. /* Wait for - ANY - IDCMP message to drop us through */
  13. msg=WaitMsg(wind)
  14.  
  15. /* Close the window, thus freeing any resources for it. */
  16. err=EndWindow(wind)
  17.  
  18. /* Close the screen, thus freeing any resources for it. */
  19. /* Note that if the screen didn't open, this does nothing */
  20. err=EndScreen(screen)
  21.