loading from rootstore

This commit is contained in:
cqc
2024-05-22 15:17:11 -05:00
parent 986abc223c
commit cd79cd2537
5 changed files with 9 additions and 6 deletions

View File

@ -55,8 +55,7 @@ let main =
Gl.clear_color 0.1 0.2 0.2 1.;
Memtrace.trace_if_requested ();
(*Memtrace.trace_if_requested (); *)
let ctx =
Gv.create ~flags:Gv.CreateFlags.(antialias lor stencil_strokes) ()
in
@ -142,7 +141,8 @@ let main =
in
ignore
(Toploop.use_input out_ppf (String "#use \"topfind\";;\n#list;;"));
(Toploop.use_input out_ppf
(String "#use \"topfind\";;\n#list;;#require \"lwt\";;"));
(* toplevel execution binding *)
Ui.(
update_bindings ui