Full_sensor trigger only once

このコミットが含まれているのは:
Frédéric Bour 2020-06-04 15:43:25 +02:00
コミット 9eb18e2207
1個のファイルの変更4行の追加2行の削除

ファイルの表示

@ -196,9 +196,9 @@ struct
type t = {
w : int; sw : int;
h : int; sh : int;
desc : t desc;
mutable desc : t desc;
focus : Focus.status;
flags : flags;
mutable flags : flags;
mutable cache : cache;
}
and cache = {
@ -419,6 +419,7 @@ struct
let rec update_sensors ox oy sw sh ui =
if ui.flags land flag_full_sensor <> 0 then (
ui.flags <- ui.flags land lnot flag_full_sensor;
match ui.desc with
| Atom _ -> ()
| Overlay _ -> ()
@ -427,6 +428,7 @@ struct
update_sensors ox oy sw sh t
| Full_sensor (t, f) ->
f ox oy sw sh;
ui.desc <- t.desc;
update_sensors ox oy sw sh t
| Resize (t, g, _) ->
let open Gravity in