From 315e52614ab5b45fa421ca9658e7b4f278f51b3d Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 15 Jan 2000 16:48:09 +0000
Subject: [PATCH] ...

original commit: f2d8b98c45628e50c069a5ba4e36c8bd77f34884
---
 collects/framework/finder.ss     |  2 +-
 collects/framework/frame.ss      |  5 +++--
 collects/tests/framework/main.ss | 32 +++++++++++++++++++++-----------
 3 files changed, 25 insertions(+), 14 deletions(-)

diff --git a/collects/framework/finder.ss b/collects/framework/finder.ss
index 2cf61f29..faca69c5 100644
--- a/collects/framework/finder.ss
+++ b/collects/framework/finder.ss
@@ -309,7 +309,7 @@
 	 (lambda args
 	   (let loop ([n 0])
 	     (if (< n (send result-list get-number))
-		 (if (send result-list selected? n)
+		 (if (send result-list is-selected? n)
 		     (begin
 		       (send result-list delete n)
 		       (loop n))
diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss
index 1c48adbb..f9866ae5 100644
--- a/collects/framework/frame.ss
+++ b/collects/framework/frame.ss
@@ -94,7 +94,8 @@
          (lambda (filename)
            (handler:edit-file filename))])
 
-      (inherit change-children)
+      ;; added call to set label here to hopefully work around a problem in mac mred
+      (inherit set-label change-children)
       (override
 	[after-new-child
 	 (lambda (child)
@@ -127,7 +128,7 @@
 		       [parent style]
 		       [mdi-parent (cons 'mdi-child style)]
 		       [else style])))
-
+        
         (accept-drop-files #t)
 
 	(make-object menu% "&Windows" (make-object (get-menu-bar%) this))
diff --git a/collects/tests/framework/main.ss b/collects/tests/framework/main.ss
index 54a7b169..436dba38 100644
--- a/collects/tests/framework/main.ss
+++ b/collects/tests/framework/main.ss
@@ -142,34 +142,44 @@
 					   ov))))])
 		   (pretty-print sexp)
 		   (newline)))])
+	  (printf "1~n")
 	  (unless (and in-port
 		       out-port
 		       (or (not (char-ready? in-port))
 			   (not (eof-object? (peek-char in-port)))))
 	    (restart-mred))
 	  (printf "  ~a // ~a: sending to mred:~n" section-name test-name)
+	  (printf "2~n")
 	  (show-text sexp)
+	  (printf "3~n")
 	  (write sexp out-port)
+	  (printf "4~n")
 	  (newline out-port)
+	  (printf "5~n")
 	  (let ([answer
 		 (with-handlers ([(lambda (x) #t)
-				  (lambda (x) (list 'cant-read
-						    (string-append
-						     (exn-message x)
-						     "; rest of string: "
-						     (apply
-						      string
-						      (let loop ()
-							(if (char-ready? in-port)
-							    (cons (read-char in-port)
-								  (loop))
-							    null))))))])
+				  (lambda (x)
+				    (printf "8 ~a~n" (exn-message x))
+				    (list 'cant-read
+					  (string-append
+					   (exn-message x)
+					   "; rest of string: "
+					   (apply
+					    string
+					    (let loop ()
+					      (if (char-ready? in-port)
+						  (cons (read-char in-port)
+							(loop))
+						  null))))))])
+		   (printf "6~n")
 		   (read in-port))])
 	    (unless (or (eof-object? answer)
 			(and (list? answer)
 			     (= 2 (length answer))))
 	      (error 'send-sexp-to-mred "unpected result from mred: ~s~n" answer))
 
+	  (printf "7~n")
+
 	    (if (eof-object? answer)
 		(raise (make-eof-result))
 		(case (car answer)