event_flag.ml
fmlib_browser
1 2 3 4 5 6 7 8 9 10 type prevent = Prevent of bool type stop = Stop of bool let prevent: prevent = Prevent true let no_prevent: prevent = Prevent false let stop: stop = Stop true let no_stop: stop = Stop false
1 2 3 4 5 6 7 8 9 10
type prevent = Prevent of bool type stop = Stop of bool let prevent: prevent = Prevent true let no_prevent: prevent = Prevent false let stop: stop = Stop true let no_stop: stop = Stop false