blob: cc15693f30ac9bf2881c32d9d760d87e9c377144 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
type t = Forms.Events.event option Note.E.send
let apply
: t -> State.t -> State.t
= fun close_sender state ->
begin match state.page_id with
| None -> state
| Some page_id ->
let title = Jstr.v "Confirmation" in
let popup = Forms.Ui.popup
~title
~form:(Some (Forms.Delete_page.create page_id))
close_sender in
{ state with window = popup::state.window}
end
|