withCFont :: Font -> (FontPtr -> IO a) -> IO a
withCFont (Font foreignPtr _) = withForeignPtr foreignPtr
withCFont :: Font -> (FontPtr -> IO a) -> IO a
withCFont (Font foreignPtr _) = withForeignPtr foreignPtr
withCFont (Font foreignPtr _) = withForeignPtr foreignPtr