Dom.preventDefault hack keeps browser shortcuts from happening.
This commit is contained in:
@ -118,5 +118,6 @@ let _ =
|
||||
images);
|
||||
buffered_loop (make_event Dom_html.Event.keydown) Dom_html.document
|
||||
(fun ev _ ->
|
||||
Dom.preventDefault ev;
|
||||
Lwt.return
|
||||
@@ push_event (Some (`Keys [ Event_js.evt_of_jskey ev ])))
|
||||
|
||||
2
human.ml
2
human.ml
@ -3163,7 +3163,7 @@ module Widgets = struct
|
||||
else `Unhandled))
|
||||
| [ (`Uchar u, [ `Ctrl ]) ] when eq_uc_c u 'k' ->
|
||||
`Handled
|
||||
| [ (`Uchar u, [ `Ctrl ]) ] when eq_uc_c u 'x' ->
|
||||
| [ (`Uchar s, [ `Ctrl ]) ] when eq_uc_c s 's' ->
|
||||
let b = Buffer.create 1024 in
|
||||
Lwd_table.iter
|
||||
(fun line ->
|
||||
|
||||
Reference in New Issue
Block a user