diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2021-06-01 13:11:58 +0200 |
---|---|---|
committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:43:33 +0100 |
commit | 72e3b16bbd258e63f047392c973ba5e8f0a823c8 (patch) | |
tree | 67f75383a9d20590587c648ecb5e3c78f6bd0044 /editor/actions/delete_page.ml | |
parent | 54f6e68c051afec0d20c349352feee5356e11b35 (diff) |
Added export button in editor
Diffstat (limited to 'editor/actions/delete_page.ml')
-rwxr-xr-x | editor/actions/delete_page.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/editor/actions/delete_page.ml b/editor/actions/delete_page.ml index 9086fc3..fb600bd 100755 --- a/editor/actions/delete_page.ml +++ b/editor/actions/delete_page.ml @@ -17,10 +17,13 @@ end let create : unit -> State.event Note.event = fun () -> - let title = Jstr.v "Confirmation" in + let title = Jstr.v "Confirmation" + and message = + Jstr.v "La page sera définitivement supprimée" + in let ev = Elements.Popup.create ~title - ~form:(Some (Forms.Delete_page.create () )) + ~form:(Some (Forms.Validation.create message )) in Note.E.map (fun v -> State.E |