From 59f4f161d59f6b352f8951f8cdc44ce31eccb300 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 24 Aug 2000 03:17:50 +0000
Subject: [PATCH] ...

original commit: bd0c59dad8f3ab39d30c7c289645b755f28f334b
---
 collects/framework/frame.ss | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss
index 1cbddbe7..3ef50976 100644
--- a/collects/framework/frame.ss
+++ b/collects/framework/frame.ss
@@ -147,7 +147,12 @@
       (public
 	[get-area-container (lambda () panel)])
       (sequence
-	(set! after-init? #t))))
+	(set! after-init? #t)
+	'(global-defined-value 'open-frames
+			      (cons (make-weak-box this)
+				    (global-defined-value 'open-frames))))))
+
+  '(global-defined-value 'open-frames null)
 
   (define info<%> (interface (basic<%>)
 		    determine-width