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

telist is lwd.var

Browse Source
This commit is contained in:
cqc
2024-07-06 00:14:56 -05:00
parent 023495b3b0
commit b117b6916b
2 changed files with 45 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
oplevel.ml
View File

@ -160,7 +160,6 @@ let main =
[
[
Key (Press, X, [ Control ]);
Key (Release, X, [ Control ]);
Key (Press, E, [ Control ]);
];
]
@ -168,7 +167,6 @@ let main =
Custom
( "toplevel_execute",
fun () ->
F.epr "Ctrl-X Ctrl-E@.";
TextBuffer.peek tb_init >>= fun str ->
Toploop.use_input out_ppf (String str)
|> F.epr "Toploop.use_input=%b@.";
@ -179,7 +177,11 @@ let main =
system ui `Y
~style:
Style.{ default with margin = Margin.symmetric 10.0 10.0 }
[ TextEdit.multiline ui tb_init; TextEdit.multiline ui to_init ])
(Lwd.var
[
TextEdit.multiline ui tb_init;
TextEdit.multiline ui to_init;
]))
>>= fun page ->
let page_root = Lwd.observe page in