https://github.com/garrigue/lablgtk/commit/034d4fbb1f09431048dd4231bf2ba9c69db59e6a --- a/src/gPack.ml 2020-06-19 09:37:39.000000000 -0600 +++ b/src/gPack.ml 2021-06-18 14:15:02.993282607 -0600 @@ -134,7 +134,7 @@ end let layout ?hadjustment ?vadjustment ?layout_width ?layout_height = Layout.make_params [] ?hadjustment:(may_map GData.as_adjustment hadjustment) - ?vadjustment:(may_map GData.as_adjustment hadjustment) + ?vadjustment:(may_map GData.as_adjustment vadjustment) ?width:layout_width ?height:layout_height ~cont:( pack_container ~create:(fun p -> new layout (Layout.create p)))