home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTCLR2.PRG < prev    next >
Text File  |  1994-06-03  |  905b  |  34 lines
  1. //----------------------------------------------------------------------------//
  2. //  FiveWin - Tutorial
  3. //  (c) A.Linares, F.Pulpón 1993-4
  4. //
  5. //  Contruir con BUILD Tutor02
  6. //  Build with   BUILD Tutor02
  7. //----------------------------------------------------------------------------//
  8.  
  9. // ¡¡¡ Nuestra primera ventana en Windows !!!
  10. // Our first Window in Windows !!!
  11.  
  12. #include "FiveWin.ch"
  13.  
  14. //----------------------------------------------------------------------------//
  15.  
  16. function Main()
  17.  
  18.    local oWnd, oSay
  19.  
  20.    DEFINE WINDOW oWnd FROM 3, 6 TO 20, 70 ;
  21.       TITLE "Wellcome to FiveWin" ;
  22.       COLOR "W+*/R"
  23.       
  24.    @ 2, 2 SAY oSay PROMPT "Hello" DESIGN OF oWnd
  25.  
  26.    @ 4, 2 BUTTON "&Change Color" SIZE 120, 25 OF oWnd ;
  27.       ACTION oSay:SelColor()
  28.  
  29.    ACTIVATE WINDOW oWnd
  30.  
  31. return nil
  32.  
  33. //----------------------------------------------------------------------------//
  34.