home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a066 / 1.img / HTBOX.PRG < prev    next >
Encoding:
Text File  |  1992-03-20  |  993 b   |  56 lines
  1. /*
  2.     htbox.prg
  3.  
  4.     21/03/1991 21:36 avs - updated
  5.     26/05/1991 08:21 avs - updated
  6.  
  7.     Companion program to HERITEST.PRG.
  8. */
  9.  
  10. #include "class(y).ch"
  11.  
  12.  
  13. create class Box from Rectangle
  14.     instvar boxChars
  15.     instvar frameColor
  16.     instvar paneColor
  17.  
  18. protected:
  19.     instvar boxType
  20.  
  21. export:
  22.     classvar nBoxes
  23.  
  24.     method    draw
  25.     method    test
  26.  
  27. endclass
  28.  
  29.  
  30. constructor new (nTop, nLeft, nBottom, nRight, cFrame, cFrameColor, cPaneColor), ;
  31.     (nTop, nLeft, nBottom, nRight)
  32.  
  33.     ::boxChars     := cFrame
  34.     ::frameColor := cFrameColor
  35.     ::paneColor  := cPaneColor
  36.  
  37.     ::draw()
  38. return
  39.  
  40.  
  41. method procedure draw
  42.     setcolor(::frameColor)
  43.     @ ::top, ::left, ::bottom, ::right box ::boxChars
  44.     setcolor(::paneColor)
  45.     @ ::top + 1, ::left + 1 clear to ::bottom - 1, ::right - 1
  46. return
  47.  
  48.  
  49. method procedure test
  50.     // print a message to indicate which method is executing
  51.     ? 'Executing Box:test'
  52. return
  53.  
  54.  
  55. // eof htbox.prg
  56.