- Code: Select all Expand view
- #include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL cVar1 := SPACE( 30 )
LOCAL cVar2 := SPACE( 30 )
DEFINE DIALOG oDlg;
SIZE 800, 600
@ 1, 1 GET cVar1 SIZE 200, 20
@ 7, 1 BUTTON "Test";
ACTION TEST( @cVar2 )
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
STATIC FUNCTION TEST( cVar )
@ 7, 1 GET cVar SIZE 200, 30
RETURN NIL
EMG