From 50deca1394a8564d023512ff8afce15ca417adde Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 4 Aug 2000 15:17:59 +0000
Subject: [PATCH] ...

original commit: 9c9cd3fbaff32459a5213c5fd19d7c9dccf33919
---
 collects/framework/frame.ss | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss
index c43d89b5..b02c701e 100644
--- a/collects/framework/frame.ss
+++ b/collects/framework/frame.ss
@@ -62,13 +62,16 @@
 		     get-area-container
 		     get-menu-bar%
 		     make-root-area-container
-		     close))
+		     close
+                     get-filename))
   (define basic-mixin
     (mixin ((class->interface frame%)) (basic<%>)
 	   (label [parent #f] [width #f] [height #f] [x #f] [y #f] [style null])
       (rename [super-can-close? can-close?]
 	      [super-on-close on-close]
 	      [super-on-focus on-focus])
+      (public
+        [get-filename (lambda () #f)])
       (private
 	[after-init? #f])
       (override
@@ -573,6 +576,10 @@
 	      [super-set-label set-label])
 	     
       (override
+        [get-filename
+         (lambda ()
+           (let ([e (get-editor)])
+             (and e (send e get-filename))))]
 	[on-close
 	 (lambda ()
 	   (super-on-close)