home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a066 / 1.img / WINTEST.PRG < prev   
Encoding:
Text File  |  1992-03-20  |  1.2 KB  |  56 lines
  1. /*
  2.     wintest.prg
  3.  
  4.     Test program for windows class.  Demonstrates some of the key
  5.     capabilities of the class.
  6. */
  7.  
  8. #include "class(y).ch"
  9. #include "win.ch"
  10.  
  11.  
  12. procedure main
  13.     local hWin1 := window():new(5, 5, 15, 35, , "R+/W", "RB+/BG")
  14.     local hWin2 := window():new(7, 7, 20, 40)
  15.  
  16.     // note window-relative @...SAYs achieved with preprocessor (win.ch)
  17.     @ 2, 2 say "This text is in a window"
  18.     @ 3, 2 say "Press a key..."
  19.     inkey(0)
  20.  
  21.     // hWin1 is not selected, but accessing it as follows selects it
  22.     hWin1:title("A Title", wTC)
  23.     inkey(0)
  24.  
  25.     // hide the unselected window
  26.     hWin2:hide()
  27.  
  28.     @ 2, 2 say "This sentence is truncated because it is too long"
  29.     @ 3, 2 say "Press a key"
  30.     inkey(0)
  31.  
  32.     // print out the instance variables - a bit messy, since '?' is not
  33.     // window relative.  Better demos will be developed over time.
  34.     printInstVars(hWin1)
  35.  
  36.     hWin2:show()
  37.     inkey(0)
  38.  
  39.     window():hideAll()
  40.  
  41.     ? 'WOW!'
  42. return
  43.  
  44.  
  45. static procedure printInstVars(obj)
  46.     local i
  47.     local aMsgs := instvarlist(obj)
  48.     for i := 1 to len(aMsgs)
  49.         ? aMsgs[i]
  50.     next
  51.     wait
  52. return
  53.  
  54.  
  55. // eof wintest.prg
  56.