From 6f0acc4b4378651dd1ed4285dc883c69a6c02cac Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 6 Apr 2014 08:37:23 -0500 Subject: [PATCH] fix 2htdp/image for text-only mode and add a test case that covers improvements from 8fb8f56 original commit: e08ffde1b530975bd88c511bbf4f95ee4b829284 --- pkgs/gui-pkgs/gui-lib/mrlib/image-core-wxme.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/pkgs/gui-pkgs/gui-lib/mrlib/image-core-wxme.rkt b/pkgs/gui-pkgs/gui-lib/mrlib/image-core-wxme.rkt index b2ce8655..630878b2 100644 --- a/pkgs/gui-pkgs/gui-lib/mrlib/image-core-wxme.rkt +++ b/pkgs/gui-pkgs/gui-lib/mrlib/image-core-wxme.rkt @@ -10,5 +10,8 @@ (class* object% (snip-reader<%>) (define/public (read-header vers stream) (void)) (define/public (read-snip text? cvers stream) - (snipclass-bytes->image (send stream read-raw-bytes '2htdp/image))) + (define bytes (send stream read-raw-bytes '2htdp/image)) + (if text? + #"." + (snipclass-bytes->image bytes))) (super-new))))