FWD » Core Development » User Interface

// Demonstrates ENTRY/EVENT signals when a window receives focus

// In this demo, 3 frames are defined with totally 2 buttons:

// 1. 'outerframe': an outermost frame

// 2-3. two frames in 'outerFrame':

//    # 'innerFrame' with the 'focusable2' button.

//    # 'innerFrame2' with the 'focusable3' button.

DEFINE FRAME outerFrame

WITH SIZE 80 BY 15

AT COL 1 ROW 1.

DEFINE BUTTON focusable2.

DEFINE FRAME innerFrame

  focusable2

  WITH SIZE 60 BY 2

  AT COLUMN 1 ROW 1.

FRAME innerFrame:FRAME = FRAME outerFrame:HANDLE.

DEFINE BUTTON focusable3.

DEFINE FRAME innerFrame2

  focusable3

  WITH SIZE 60 BY 2

  AT COLUMN 1 ROW 5.

FRAME innerFrame2:FRAME = FRAME outerFrame:HANDLE.

{functions.i}

{printEntryLeave.i &widget="FRAME outerFrame"}

{printEntryLeave.i &widget="FRAME innerFrame"}

{printEntryLeave.i &widget="FRAME innerFrame2"}

{printEntryLeave.i &widget="focusable2"}

{printEntryLeave.i &widget="focusable3"}

ON ENTRY OF focusable2 DO:

   RUN PrintEntry(focusable2:HANDLE).

   RETURN NO-APPLY.

END.

ENABLE focusable2 WITH FRAME innerFrame.

ENABLE focusable3 WITH FRAME innerFrame2.

VIEW FRAME outerFrame.

WAIT-FOR GO OF FRAME outerFrame.