SourceBuffer.end_not_undoable_action obj
end
-let source_buffer =
+let source_buffer ?text =
SourceBuffer.make_params [] ~cont:(fun pl () ->
- new source_buffer (SourceBuffer.create pl))
+ let buf = new source_buffer (SourceBuffer.create pl) in
+ (match text with
+ | None -> ()
+ | Some text -> buf#set_text text);
+ buf)
(* alias used below, needed because "source_buffer" is a name in scope *)
let source_buffer' = source_buffer