method
reset =
let
b = view
#
buffer
in
b
#
delete ~start: (b
#
get_iter
`
START
) ~stop: (b
#
get_iter
`
END
)