FWD » Core Development » User Interface

// Demonstrates ENTRY/EVENT signals when focus is set explicitly in WAIT-FOR

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

// 1. 'outerframe': an outermost frame

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

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

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

DEFAULT-WINDOW:TITLE = '8770-explicit-focus'.

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="DEFAULT-WINDOW"}

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

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

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

{printEntryLeave.i &widget="focusable2"}

{printEntryLeave.i &widget="focusable3"}

ON 'a' ANYWHERE DO:

  DEFINE VARIABLE hFocus AS HANDLE NO-UNDO.

  hFocus = FOCUS.

  DEFINE VARIABLE cFocusName AS CHARACTER NO-UNDO.

  IF FOCUS <> ? THEN

     cFocusName = FOCUS:NAME.

  MESSAGE "FOCUS:" cFocusName.

END.

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 FOCUS focusable2.