home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TUTOR03.PRG < prev    next >
Text File  |  1994-06-04  |  1KB  |  39 lines
  1. //----------------------------------------------------------------------------//
  2. //  FiveWin 1.5 - Tutorial
  3. //  (c) A.Linares, F.Pulpón 1993-4
  4. //
  5. //  Construir con BUILD Tutor03
  6. //  Build with    BUILD Tutor03
  7. //----------------------------------------------------------------------------//
  8.  
  9. // Nuestra primera ventana, ahora con ejemplos de control de eventos y
  10. // con barra de mensajes
  11.  
  12. // Our first Window, now with Control events examples and with a
  13. // message bar
  14.  
  15. #include "FiveWin.ch"
  16.  
  17. //----------------------------------------------------------------------------//
  18.  
  19. function Main()
  20.  
  21.    local oWnd, oBrush
  22.    
  23.    DEFINE BRUSH oBrush FILENAME "..\bitmaps\Back1.bmp"
  24.  
  25.    DEFINE WINDOW oWnd TITLE "FiveWin" ;
  26.       FROM 3, 6 TO 20, 70 ;
  27.       BRUSH oBrush
  28.       
  29.    SET MESSAGE OF oWnd TO "FiveWin 1.5, (c) A.Linares & F.Pulpon, 1993-4"
  30.  
  31.    ACTIVATE WINDOW oWnd ;                                 
  32.       ON LEFT CLICK MsgInfo( "Left Click", "Event!" ) ;
  33.       ON RESIZE MsgAlert( "ReSize", "Event!" ) ;
  34.       ON PAINT  oWnd:Say( 2, 2, "Hello World!" )
  35.  
  36. return nil
  37.  
  38. //----------------------------------------------------------------------------//
  39.