Soporte de MsgBar

[Antonio Linares]

Code: Select all  Expand view

#include "FiveMac.ch"

function Main()

   local oWnd
   
   DEFINE WINDOW oWnd TITLE "Tutor02" ;
       FROM 200, 200 TO 600, 400
       
   DEFINE MSGBAR OF oWnd    

   ACTIVATE WINDOW oWnd ;
      ON CLICK MsgInfo( "Click" ) ;
      VALID MsgYesNo( "Want to end ?" )  

return nil
 

[Antonio Linares]