-- | Embeds the given widget in a Gtk bin.
widgetAddToBin :: Gtk.BinClass c => c -> Widget a -> React.NetworkDescription a
widgetAddToBin bin wdg = do
    (backing, result) <- widgetRealize wdg
    liftIO (Gtk.containerAdd bin backing)
    return result
widgetAddToBin :: Gtk.BinClass c => c -> Widget a -> React.NetworkDescription a
widgetAddToBin bin wdg = do
    (backing, result) <- widgetRealize wdg
    liftIO (Gtk.containerAdd bin backing)
    return result
widgetAddToBin bin wdg = do
    (backing, result) <- widgetRealize wdg
    liftIO (Gtk.containerAdd bin backing)
    return result