js_of_ocaml中带有水平滚动条的画布

Question

我在js_of_ocaml中创建一个画布，如下所示。

(* create document *) 
let document = Dom_html.window##document

(* function to create canvas *)
let create_canvas () =
let canvas = Dom_html.createCanvas document in
canvas##width  <- 500;
canvas##height <- 500;
canvas

(* create canvas *)
let canvas = create_canvas ()

let start _ =
  let main = get_main () in 
  Dom.appendChild main canvas;
  Js._false in

Dom_html.window##onload <- Dom_html.handler start

我只能看到一个白色的屏幕。
现在，我想在画布上添加一个水平滚动条。
我想我必须制作一个带有水平滚动条的盒子，它比白色画布小，并且白色画布在盒子里。
我怎么能这样做？

Answer 1

您可以将画布放入宽度小于画布宽度的div中。请检查以下代码：

\s

此代码是以下jsfiddle的js_of_ocaml的翻译：https://jsfiddle.net/pre1wacc/