home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a066 / 1.img / SCRNRECT.PRG < prev    next >
Encoding:
Text File  |  1992-03-20  |  1.4 KB  |  61 lines
  1.     // scrnrect.prg
  2.  
  3.     #include "class(y).ch"
  4.     #include "box.ch"
  5.  
  6.     create class ScreenRect from Rectangle
  7.         instvar screenBuf
  8.         instvar boxStyle
  9.         instvar color
  10.  
  11.     export:
  12.         method moveUp, moveDown
  13.         method moveLeft, moveRight
  14.         method hide, show
  15.     endclass
  16.  
  17.     constructor new (top, left, bottom, right, color, boxStyle), ;
  18.             (top, left, bottom, right)
  19.  
  20.         ::boxStyle := if(boxStyle == nil, B_DOUBLE, boxStyle)
  21.         ::color := color
  22.         ::show()
  23.     return
  24.  
  25.     method procedure hide
  26.         restscreen(::top, ::left, ::bottom, ::right, ::screenBuf)
  27.     return
  28.  
  29.     method procedure show
  30.         local oldColor := setcolor(::color)
  31.         ::screenBuf := savescreen(::top, ::left, ::bottom, ::right)
  32.         @ ::top, ::left, ::bottom, ::right box ::boxStyle
  33.         setcolor(oldColor)
  34.     return
  35.  
  36.     method procedure moveUp(n)
  37.         ::hide()
  38.         ::set(::top - n, nil, ::bottom - n, nil)
  39.         ::show()
  40.     return
  41.  
  42.     method procedure moveDown(n)
  43.         ::hide()
  44.         ::set(::top + n, nil, ::bottom + n, nil)
  45.         ::show()
  46.     return
  47.  
  48.     method procedure moveLeft(n)
  49.         ::hide()
  50.         ::set(nil, ::left - n, nil, ::right - n)
  51.         ::show()
  52.     return
  53.  
  54.     method procedure moveRight(n)
  55.         ::hide()
  56.         ::set(nil, ::left + n, nil, ::right + n)
  57.         ::show()
  58.     return
  59.  
  60.     // eof scrnrect.prg
  61.