home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / OBJ20D.ZIP / TESTWND.PRG < prev    next >
Text File  |  1993-05-15  |  735b  |  33 lines
  1. // Probando la Clase TWindow
  2.  
  3. // (C) Antonio Linares, 1993
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main()
  8.  
  9.    local wnd1 := TWindow():New( 3, 3, 10, 40, "Hola" )
  10.    local wnd2 := TWindow():New( 10, 12, 16, 50, "Adios", "W+/R, G+/G" )
  11.  
  12.    SET COLOR TO N/BG
  13.    SET CURSOR OFF
  14.    CLS
  15.  
  16.    wnd1:Display()
  17.    wnd1:Say( 2, 2, "Objects 1.5", "GR+/RB" )
  18.    wnd1:Say( 4, 4, "hummm..." )
  19.    InKey( 0 )
  20.  
  21.    wnd2:Display()
  22.    wnd2:Say( 3, 2, "Object Oriented Engine", "G+/W" )
  23.    wnd2:Say( 5, 4, "no está mal..." )
  24.    InKey( 0 )
  25.  
  26.    wnd2:Hide()
  27.    InKey( 0 )
  28.    wnd1:Hide()
  29.  
  30. return
  31.  
  32. //----------------------------------------------------------------------------//
  33.