#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oFont
   local cText := "Hello World!"

   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE "Testing Colored Gets"

   DEFINE FONT oFont NAME "Arial" SIZE 20, 20

   @ 2, 2 GET cText OF oWnd SIZE 400, 50 ;
      COLOR "W+/B" FONT oFont

   @ 7, 2 GET cText OF oWnd SIZE 400, 50 ;
      COLOR CLR_WHITE, CLR_GREEN FONT oFont

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//
