_layoutInBox :: Gtk.BoxClass b => IO b -> WidgetNetwork a -> Widget a
_layoutInBox boxNew (WidgetNetwork innerWidgetPack) = Widget {
    widgetRealize = do
        box <- liftIO boxNew
        result <- innerWidgetPack (_addToBox Gtk.PackGrow box)
        return (Gtk.toWidget box, result)
}
_layoutInBox :: Gtk.BoxClass b => IO b -> WidgetNetwork a -> Widget a
_layoutInBox boxNew (WidgetNetwork innerWidgetPack) = Widget {
    widgetRealize = do
        box <- liftIO boxNew
        result <- innerWidgetPack (_addToBox Gtk.PackGrow box)
        return (Gtk.toWidget box, result)
}
_layoutInBox boxNew (WidgetNetwork innerWidgetPack) = Widget {
    widgetRealize = do
        box <- liftIO boxNew
        result <- innerWidgetPack (_addToBox Gtk.PackGrow box)
        return (Gtk.toWidget box, result)
}