FiveTech Support Forums

#include "FWCE.ch"

function Main()

   local oWnd, oSay
   
   DEFINE WINDOW oWnd TITLE "TestSay"
   
   @ 1, 2 SAY oSay PROMPT "Test" SIZE 100, 20
   
   @ 3, 2 BUTTON "SetText" SIZE 80, 20 ACTION oSay:SetText( Time() )
   
   ACTIVATE WINDOW oWnd 
   
return nil