Project

General

Profile

8917.p

Vladimir Tsichevski, 07/02/2024 01:39 PM

Download (736 Bytes)

 
1
// Demonstrates the FWD bug: focus change happens ON mouse UP instead OF mouse DOWN
2

    
3
// Defines 2 frames with buttons:
4
// 1. 'outerFrame'
5
// 2. 'innerFrame' inside the 'outerFrame'
6

    
7
DEFAULT-WINDOW:TITLE = '8376'.
8

    
9
DEFINE BUTTON focusable1.
10
DEFINE FRAME outerFrame focusable1 WITH SIZE 80 BY 10.
11

    
12
DEFINE BUTTON focusable2.
13
DEFINE FRAME innerFrame focusable2 WITH SIZE 20 BY 4 AT ROW 3 COL 1.
14
FRAME innerFrame:FRAME = FRAME outerFrame:HANDLE.
15

    
16
{functions.i}
17

    
18
{printEntryLeave.i &widget="FRAME outerFrame"}
19
{printEntryLeave.i &widget="FRAME innerFrame"}
20
{printEntryLeave.i &widget="focusable1"}
21
{printEntryLeave.i &widget="focusable2"}
22

    
23
ENABLE ALL WITH FRAME outerFrame.
24
ENABLE ALL WITH FRAME innerFrame.
25
WAIT-FOR GO OF FRAME outerFrame.
26