Code: Select all
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL cVar := "Other"
LOCAL aItems := { "Test 1", "Test 2", "Test 3" }
DEFINE DIALOG oDlg
@ 1 , 1 COMBOBOX cVar;
ITEMS aItems
@ 3, 1 BUTTON "&Close";
ACTION oDlg:End()
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL