From b9eb058cec8eff39aa8afd2eaac3b20f2f659b16 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 1 Aug 2010 07:17:06 -0600 Subject: [PATCH] fix problem with PNGs that have no background color --- collects/racket/draw/png.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/draw/png.rkt b/collects/racket/draw/png.rkt index 578f21e1b3..e89283ec3e 100644 --- a/collects/racket/draw/png.rkt +++ b/collects/racket/draw/png.rkt @@ -131,7 +131,7 @@ (define-png png_write_end (_fun _png_structp _png_infop -> _void)) (define-png png_get_valid (_fun _png_structp _png_infop _uint32 -> _uint32)) -(define-png png_get_bKGD (_fun _png_structp _png_infop (p : (_ptr o _png_color_16-pointer)) -> (r : _bool) -> (and r p))) +(define-png png_get_bKGD (_fun _png_structp _png_infop (p : (_ptr o _png_color_16-pointer/null)) -> (r : _bool) -> (and r p))) (define-png png_set_background (_fun _png_structp _png_color_16-pointer _int _int _double* -> _bool)) (define-png png_get_gAMA (_fun _png_structp _png_infop (g : (_ptr o _double)) -> (ok? : _bool)