home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / rexxintuition_463.lzh / RexxIntuition / RexxIntui.lzh / scripts / Peek.rexx < prev    next >
OS/2 REXX Batch file  |  1990-06-27  |  676b  |  27 lines
  1. /* An example of using the dissidents rx_intui.library */
  2.  
  3. wind=GetWindow('hello',,,,,,,,)
  4. IF wind == '' | wind == 0 THEN SAY 'Window open error'
  5. err=SetDraw(wind,1,0,4)
  6.  
  7. /* Get Window's current PenA #, PenB #, and DrawMode. These are BYTEs. You */
  8. /* must first find the window's Rastport. */
  9. rastport=PEEK(wind,50,2)
  10. penA=PEEK(rastport,25,0)
  11. penB=PEEK(rastport,26,0)
  12. drawmode=PEEK(rastport,28,0)
  13.  
  14. /* Print these values */
  15. err=Text('penA = 'penA,wind,5,20)
  16. err=Text('penB = 'penB,wind,5,28)
  17. err=Text('drawmode = 'drawmode,wind,5,36)
  18.  
  19. class = 1
  20. DO WHILE class > 0
  21. spec=WaitMsg(wind)
  22. PARSE var spec class part1 part2 part3
  23. IF class == 3 THEN class = 0
  24. END
  25.  
  26. err=EndWindow(wind)
  27.