From b8305fd4d6988425a29671cd57c9f4c614e254a6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 11 May 2000 20:32:51 +0000
Subject: [PATCH] .

original commit: f944c667beb264f1c7bdc6c6953ae57be89b873c
---
 collects/tests/mred/item.ss | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss
index 8ae54b8a..c2187c7f 100644
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@@ -13,6 +13,12 @@
   (send mdi-frame maximize #t)
   (send mdi-frame show #t))
 
+(define default-parent-frame #f)
+(define (parent-frame)
+  (set! default-parent-frame (make-object frame% "Item Test Parent" #f
+			       100 100))
+  (send default-parent-frame show #t))
+
 (when (defined? 'mdi?)
   (when mdi?
     (mdi)))
@@ -20,7 +26,7 @@
 (define make-frame
   (opt-lambda (% name [parent #f] [x #f] [y #f] [w #f] [h #f] [style '()])
     (make-object % name
-		 (or parent mdi-frame)
+		 (or parent mdi-frame default-parent-frame)
 		 x y w h
 		 (if mdi-frame
 		     (cons 'mdi-child style)