From 0910355ec7466b506df84a6ab392ee1375bea8ba Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 9 Mar 1999 14:22:07 +0000
Subject: [PATCH] .

original commit: 6328ffeb249f18a66ddee5a14bc440fc470ab3b2
---
 collects/tests/mred/mem.ss | 27 ++++++++++++++++++++++-----
 notes/mred/MrEd_100.txt    | 15 +++++++++++++++
 2 files changed, 37 insertions(+), 5 deletions(-)

diff --git a/collects/tests/mred/mem.ss b/collects/tests/mred/mem.ss
index 14d4fc72..ac9bc202 100644
--- a/collects/tests/mred/mem.ss
+++ b/collects/tests/mred/mem.ss
@@ -38,6 +38,19 @@
 
 (send sub-collect-frame show #t)
 
+(define (get-panel% n)
+  (case (modulo n 3)
+    [(0) panel%]
+    [(1) vertical-panel%]
+    [(2) horizontal-panel%]))
+
+(define (get-pane% n)
+  (case (modulo n 6)
+    [(0) pane%]
+    [(1) vertical-pane%]
+    [(2) horizontal-pane%]
+    [else (get-panel% n)]))
+
 (define (maker id n)
   (sleep)
   (collect-garbage)
@@ -70,11 +83,15 @@
 		start 100))
 
 	(if frame?
-	    (let* ([f (make-object frame% "Tester" #f 200 200)]
-		   [p (remember tag (make-object panel% f))])
+	    (let* ([f (make-object (if (even? n)
+				       frame% 
+				       dialog%)
+				   "Tester" #f 200 200)]
+		   [p (remember tag (make-object (get-pane% n) f))])
 	      (remember tag (make-object canvas% f))
-	      (if (zero? (modulo n 3))
-		  (send f show #t))
+	      (when (zero? (modulo n 3))
+		(thread (lambda () (send f show #t)))
+		(let loop () (sleep) (unless (send f is-shown?) (loop))))
 	      (remember tag (make-object button% "one" p void))
 	      (let ([class check-box%])
 		(let loop ([m 10])
@@ -90,7 +107,7 @@
 	      (send f show #f)))
 
 	(if subwindows?
-	    (let ([p (make-object panel% sub-collect-frame)]
+	    (let ([p (make-object (get-panel% n) sub-collect-frame)]
 		  [cv (make-object canvas% sub-collect-frame)]
 		  [add-objects
 		   (lambda (p tag hide?)
diff --git a/notes/mred/MrEd_100.txt b/notes/mred/MrEd_100.txt
index 4edd4708..7f5dbdd8 100644
--- a/notes/mred/MrEd_100.txt
+++ b/notes/mred/MrEd_100.txt
@@ -1072,6 +1072,8 @@ canvas%'s get-view-start returns values in pixels, not scroll units.
 dc<%>'s get-text-extent and get-size return multiple values
  instead of mutating boxes.
 
+dc<%>'s get-/set-background-mode changed to get-/set-text-mode.
+
 A text editor's selection caret now blinks; added a blink-caret method
  to editor<%> and snip%.
 
@@ -1109,3 +1111,16 @@ the-color-database only has a find-color method; the others were
  removed. Certain color names with mappings under X (e.g.,
  "FORESTGREEN") are no longer available; instead, the only availabale
  colors are the ones defined in the manual.
+
+
+
+======================================================================
+TODO
+======================================================================
+
+* add grow-box-pane%
+
+* add get-client-inset for canvas<%> and panel<%>
+
+* add get-editor-inset for editor-canvas%
+