在 LablGtk2 中将滚动条添加到 window

Question

我想在 LablGtk2 中为 window 添加一个滚动条。 我写的如下。

 let w = GWindow.window
         ~width:width
         ~height:height
         ~allow_grow:true
         ~allow_shrink:true
         ~decorated:true
         () in
 ignore(GRange.scrollbar `HORIZONTAL ~packing:w#add ~show:true ());

但是，window（代码中的 w）没有显示滚动条。 如何制作滚动条？

Answer 1

使用 GBin 模块中的 scrolled_window。