leave-entry-up.p
| 1 |
def var str1 as char init "str1". |
|---|---|
| 2 |
def var str2 as char init "str2". |
| 3 |
def var str3 as char init "str3". |
| 4 |
|
| 5 |
display str1 str2 str3 with frame fr. |
| 6 |
enable all with frame fr. |
| 7 |
|
| 8 |
on "LEFT-MOUSE-DOWN" of str2 do: |
| 9 |
message "mouse down (str2)" focus:name. |
| 10 |
end. |
| 11 |
|
| 12 |
on "LEFT-MOUSE-UP" of str2 do: |
| 13 |
message "mouse up (str2)" focus:name. |
| 14 |
end. |
| 15 |
|
| 16 |
on "leave" of str1 do: |
| 17 |
message "leave (str1)" focus:name. |
| 18 |
end. |
| 19 |
|
| 20 |
on "entry" of str2 do: |
| 21 |
message "entry (str2)" focus:name. |
| 22 |
end. |
| 23 |
|
| 24 |
|
| 25 |
on "LEFT-MOUSE-CLICK" of str3 do: |
| 26 |
message "mouse clicked (str3)" focus:name. |
| 27 |
end. |
| 28 |
|
| 29 |
on "entry" of str3 do: |
| 30 |
message "entry (str3)" focus:name. |
| 31 |
end. |
| 32 |
|
| 33 |
message "click on str2 OR click on str3". |
| 34 |
|
| 35 |
wait-for close of current-window. |