focus_order.p
1 |
def var h1 as handle. |
---|---|
2 |
def var h2 as handle. |
3 |
|
4 |
create window h1 assign title = "h1". |
5 |
create window h2 assign title = "h2". |
6 |
|
7 |
def var i1 as int label "Number". |
8 |
def var str1 as char label "Text". |
9 |
|
10 |
def button ok1 label "ok". |
11 |
|
12 |
form i1 skip str1 skip ok1 with frame f1 title "fh1". |
13 |
|
14 |
|
15 |
def var i2 as int. |
16 |
def var str2 as char. |
17 |
|
18 |
def button ok2 label "ok". |
19 |
|
20 |
form i2 skip str2 skip ok2 with frame f2 title "fh2". |
21 |
|
22 |
|
23 |
def var i as int. |
24 |
def var str as char. |
25 |
|
26 |
def button ok label "ok". |
27 |
|
28 |
form i skip str skip ok with frame f0 title "f0". |
29 |
|
30 |
enable i1 str1 ok1 with frame f1 in window h1. |
31 |
enable i2 str2 ok2 with frame f2 in window h2. |
32 |
enable i str ok with frame f0. |
33 |
|
34 |
current-window = default-window. |
35 |
|
36 |
on "choose" of ok in frame f0 do: |
37 |
message "ok". |
38 |
end. |
39 |
|
40 |
on "choose" of ok1 in frame f1 do: |
41 |
message "ok1" in window h1. |
42 |
end. |
43 |
|
44 |
|
45 |
on "choose" of ok2 in frame f2 do: |
46 |
message "ok2" in window h2. |
47 |
end. |
48 |
|
49 |
|
50 |
view h1. |
51 |
view h2. |
52 |
|
53 |
on "1" anywhere do: |
54 |
current-window = h1. |
55 |
end. |
56 |
|
57 |
|
58 |
on "2" anywhere do: |
59 |
current-window = h2. |
60 |
end. |
61 |
|
62 |
|
63 |
on "3" anywhere do: |
64 |
update i1 str1 with frame f1. |
65 |
end. |
66 |
|
67 |
|
68 |
on "4" anywhere do: |
69 |
update i2 str2 with frame f2. |
70 |
end. |
71 |
|
72 |
|
73 |
wait-for close of current-window. |