console/oplevel
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove more debug

Browse Source
This commit is contained in:
cqc
2024-05-15 15:10:50 -05:00
parent d72b7529c5
commit accf22a9f9
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ogui.ml
View File

@ -616,9 +616,9 @@ module Ui = struct
| None -> Event.resolver [ Event.pack Fun.id t.bindings ] | None -> Event.resolver [ Event.pack Fun.id t.bindings ]
in in
Event.( (*Event.(
F.epr "Ui.keycallback %a %a %a@." pp_key key pp_key_action state F.epr "Ui.keycallback %a %a %a@." pp_key key pp_key_action state
pp_mods mods); pp_mods mods); *)
match Event.resolve (Key (state, key, mods)) res with match Event.resolve (Key (state, key, mods)) res with
| Event.Accepted actions -> | Event.Accepted actions ->
callback_resolver := None; callback_resolver := None;
@ -639,8 +639,8 @@ module Ui = struct
ui.bindings <- f ui.bindings ui.bindings <- f ui.bindings
let chrcallback_ref : (Uchar.t -> unit Lwt.t) ref = let chrcallback_ref : (Uchar.t -> unit Lwt.t) ref =
ref (fun c -> ref (fun _c ->
F.epr "chrcallback: '%a'@." pp_uchar c; (* F.epr "chrcallback: '%a'@." pp_uchar _c; *)
Lwt.return_unit) Lwt.return_unit)
let chrcallback _t (chr : int) : unit Lwt.t = let chrcallback _t (chr : int) : unit Lwt.t =