在LablGtk2中向窗口添加滚动条

Question

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

 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 ());

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

Answer 1

使用GBin模块中的scrolled_window。