Code: Select all
#include "FWCE.ch"
function Main()
local oDlg, cText := "Hello world! "
DEFINE DIALOG oDlg TITLE "Source code Dialog" ;
SIZE 200, 100
@ 0.7, 2 SAY "Name:" SIZE 18, 10
@ 1, 4 GET cText SIZE 50, 10
@ 1.8, 6 BUTTON "End" ACTION oDlg:End() SIZE 30, 10
ACTIVATE DIALOG oDlg CENTERED ;
ON CLICK MsgInfo( "click!" ) ;
VALID MsgYesNo( "want to end ?" )
return nil