*

.Define the TABCONTROL, BUTTON, and COLLECTIONS required

.

TAB1

TABCONTROL

BUTTON

BUTTON

C

COLLECTION

(2)

*

.Define the First Tabs Objects

.

W1BUTTON

BUTTON

W1CHECK

CHECKBOX

*

.Define the Second Tabs Objects

.

W2BUTTON

BUTTON

W2CHECK

CHECKBOX

*

.Define Some Work Variables

.

ACTIVE

FORM

"1"

RESULT

FORM

2

OBJECTNO

FORM

2

*

.Create the TABCONTROL and BUTTON

.

CREATE

TAB1=5:15:15:65,TABLABEL="Tab &1;Tab &2",ZORDER=10

*

.Create the Items Shown on Tab 1

.

CREATE

W1BUTTON=9:10:25:35,"Object 1":

ZORDER=20,OBJECTID=1

CREATE

W1CHECK=12:13:25:38,"Object 2":

ZORDER=20,OBJECTID=2

LISTINS

C(1),W1BUTTON,W1CHECK

*

.Create the Items Show on Tab 2

.

CREATE

W2BUTTON=9:10:25:35,"Object 3":

ZORDER=20,OBJECTID=3

CREATE

W2CHECK=12:13:25:38,"Object 4":

ZORDER=20,OBJECTID=4

LISTINS

C(2),W2BUTTON,W2CHECK

*

.Create the Quit Button

.

 CREATE

BUTTON=20:21:35:42,"Quit",DEFAULT

*

.Activate the TABCONTROL, First Set of Objects and BUTTON

.

ACTIVATE

TAB1,TABCHG,RESULT

ACTIVATE

C(1),FLDCHK,RESULT

ACTIVATE

BUTTON,QUIT,RESULT

*

.Wait for an Event to Occur

.

LOOP

  EVENTWAIT

REPEAT

*

.Tab Change Detected

.

TABCHG

DEACTIVATE

C(ACTIVE) // Hide Current Objects

MOVE

RESULT,ACTIVE // Remember Current Tab

ACTIVATE

C(ACTIVE),FLDCHK,RESULT // Show New Objects

RETURN

*

.Item Selected

.

FLDCHK

GETFOCUS

OBJECTNO // Retrieve ID of Object Selected

DISPLAY

*P1:18,"Object",OBJECTNO:

" Selected.",*W,*H=1,*EL;

RETURN

*

.Quit Button Selected

.

QUIT

STOP