fix dispatch key order

This commit is contained in:
Frédéric Bour 2020-04-02 13:20:15 +02:00
parent 41ea6e4371
commit a4942d9a14
1 changed files with 5 additions and 2 deletions

View File

@ -629,9 +629,12 @@ struct
in
iter st'
| Focus_area (t, f) ->
begin match f key with
begin match iter [t] with
| `Handled -> `Handled
| `Unhandled -> iter (t :: tl)
| `Unhandled ->
match f key with
| `Handled -> `Handled
| `Unhandled -> iter tl
end
| Mouse_handler (t, _) | Size_sensor (t, _)
| Scroll_area (t, _, _) | Resize (t, _, _) ->