diff options
Diffstat (limited to 'editor/actions/add_page.ml')
-rwxr-xr-x | editor/actions/add_page.ml | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/editor/actions/add_page.ml b/editor/actions/add_page.ml new file mode 100755 index 0000000..b817573 --- /dev/null +++ b/editor/actions/add_page.ml @@ -0,0 +1,11 @@ +type t = Forms.Events.event option Note.E.send + +let apply + : t -> State.t -> State.t + = fun close_sender state -> + let title = Jstr.v "Nouvelle page" in + let popup = Forms.Ui.popup + ~title + ~form:(Some (Forms.Add_page.create ())) + close_sender in + { state with window = popup::state.window} |