                                  let (bw,bh) = rectangleDim (uiBounds info)
                                      w = if fromIntegral iw > bw
                                            then bw
                                            else fromIntegral iw
                                      h = if fromIntegral ih > bh
                                            then bh
                                            else fromIntegral ih
                                  in
                                  mkRectangle (rectangleTopLeft (uiBounds info)) w h
                                _ -> uiBounds info
}
