From 469acea5e434cbf221e89e2444d7149029eef165 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 10 Mar 1999 05:18:56 +0000
Subject: [PATCH] .

original commit: 6df4e55f3ff323e1dd90338a5f431b18651f4fd8
---
 collects/tests/mred/mem.ss | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/collects/tests/mred/mem.ss b/collects/tests/mred/mem.ss
index dd27b754..9c951f3c 100644
--- a/collects/tests/mred/mem.ss
+++ b/collects/tests/mred/mem.ss
@@ -51,6 +51,14 @@
     [(2) horizontal-pane%]
     [else (get-panel% n)]))
 
+(define (get-image n)
+  (build-path (collection-path "icons")
+   (case (modulo n 4)
+     [(0) "mini-plt.xpm"]
+     [(1) "lock.gif"]
+     [(2) "help.bmp"]
+     [(3) "return.xbm"])))
+
 (define (maker id n)
   (sleep)
   (collect-garbage)
@@ -187,8 +195,11 @@
 	
 	(when offscreen?
 	  (let ([m (remember tag (make-object bitmap-dc%))]
+	        [b0 (remember (cons tag 'f) (make-object bitmap% (get-image n)))]
 		[b (remember (cons tag 'u) (make-object bitmap% 100 100))]
 		[b2 (remember (cons tag 'x) (make-object bitmap% 100 100))])
+	    (unless (send b0 ok?)
+	      (error "bitmap load error"))
 	    (send m set-bitmap b)))
 	
 	(when edit?