home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTTIME.PRG < prev    next >
Text File  |  1994-04-13  |  2KB  |  63 lines
  1. //----------------------------------------------------------------------------//
  2. //  FiveWin 1.5 - Ejemplos
  3. //  (c) A.Linares, F.Pulpón 1993
  4. //
  5. //  Construir con BUILD TestTime
  6. //----------------------------------------------------------------------------//
  7.  
  8. // Ejemplo de utilización de Timers
  9. // Para FiveWin los 'timers' son tambien ¡ Objetos !
  10.  
  11. // Using Timers. Timers are also Objects!
  12.  
  13. #include "FiveWin.ch"
  14.  
  15. static oWnd, oTimer
  16.  
  17. //----------------------------------------------------------------------------//
  18.  
  19. function Main()
  20.  
  21.    DEFINE WINDOW oWnd FROM 3, 3 TO 20, 50 ;
  22.       TITLE OemToAnsi( "Probando los Timers -> ( Temporizadores )" ) ;
  23.       MENU  BuildMenu()
  24.  
  25.    SET MESSAGE OF oWnd TO "FiveWin 1.5 - Controlando eventos de tiempo..."
  26.  
  27.    ACTIVATE WINDOW oWnd
  28.  
  29. return
  30.  
  31. //----------------------------------------------------------------------------//
  32.  
  33. function BuildMenu()
  34.  
  35.    local oMenu
  36.  
  37.    MENU oMenu
  38.       MENUITEM "&Timers"
  39.       MENU
  40.          MENUITEM "&Crear un Timer" ACTION Timers()
  41.          SEPARATOR
  42.          MENUITEM "&Nos vamos..."   ACTION oWnd:End()
  43.       ENDMENU
  44.    ENDMENU
  45.  
  46. return oMenu
  47.  
  48. //----------------------------------------------------------------------------//
  49.  
  50. function Timers()
  51.  
  52.    if oTimer == nil
  53.       DEFINE TIMER oTimer ACTION ( oWnd:SetMsg( Time() ),;
  54.                                    oWnd:Say( 2, 2, Time() ) )
  55.       ACTIVATE TIMER oTimer
  56.    else
  57.       Alert( "Ya hay un Timer funcionando" )
  58.    endif
  59.  
  60. return
  61.  
  62. //----------------------------------------------------------------------------//
  63.