Do not set sizeReq on the widgetInstance itself (parent should take care)

src/Monomer/Widgets/Composite.hs

@@ -418,9 +418,7 @@ compositeGetSizeReq comp state wenv widgetComp = newSizeReq where
     _cpsRoot = newRoot
   }
   newComp = widgetComp {
-    _wiWidget = createComposite comp newState,
-    _wiSizeReqW = childReqW,
-    _wiSizeReqH = childReqH
+    _wiWidget = createComposite comp newState
   }
   newSizeReq = WidgetSizeReq newComp childReqW childReqH
 
@@ -574,11 +572,7 @@ resizeResult comp state wenv result widgetComp = resizedResult where
   model = getModel comp wenv
   cwenv = convertWidgetEnv wenv _cpsGlobalKeys model
   widgetRoot = _wrWidget result
-  sizeReq = widgetGetSizeReq (_wiWidget widgetRoot) cwenv widgetRoot
-  reqRoot = sizeReq ^. L.widget
-    & L.sizeReqW .~ sizeReq ^. L.sizeReqW
-    & L.sizeReqH .~ sizeReq ^. L.sizeReqH
-  tempRoot = widgetResize (_wiWidget reqRoot) cwenv viewport renderArea reqRoot
+  tempRoot = resizeWidget cwenv viewport renderArea widgetRoot
   newRoot = tempRoot {
     _wiViewport = viewport,
     _wiRenderArea = renderArea

src/Monomer/Widgets/Container.hs

@@ -543,9 +543,7 @@ getSizeReqWrapper container wenv inst = newSizeReq & L.widget .~ newInst where
   newSizeReq = sizeReqAddStyle style (WidgetSizeReq inst sizeReqW sizeReqH)
   newInst
     | resizeRequired = inst {
-        _wiChildren = newChildren,
-        _wiSizeReqW = newSizeReq ^. L.sizeReqW,
-        _wiSizeReqH = newSizeReq ^. L.sizeReqH
+        _wiChildren = newChildren
       }
     | otherwise = inst
 

src/Monomer/Widgets/Single.hs

@@ -225,15 +225,11 @@ getSizeReqWrapper
   -> WidgetEnv s e
   -> WidgetInstance s e
   -> WidgetSizeReq s e
-getSizeReqWrapper single wenv inst = newSizeReq & L.widget .~ newInst where
+getSizeReqWrapper single wenv inst = newSizeReq where
   handler = singleGetSizeReq single
   style = activeStyle wenv inst
   (sizeReqW, sizeReqH) = handler wenv inst
   newSizeReq = sizeReqAddStyle style (WidgetSizeReq inst sizeReqW sizeReqH)
-  newInst = inst {
-    _wiSizeReqW = newSizeReq ^. L.sizeReqW,
-    _wiSizeReqH = newSizeReq ^. L.sizeReqH
-  }
 
 defaultResize :: SingleResizeHandler s e
 defaultResize wenv viewport renderArea inst = inst