From 4fff414719c52304f333799ccaf4ea407e857257 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 26 Sep 2001 01:18:37 +0000
Subject: [PATCH] .

original commit: 57b43c6aa61754a002a324d61c6df2c9896eb108
---
 collects/tests/mred/item.ss | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss
index d2aa60d9..24b4c1f5 100644
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@@ -244,6 +244,17 @@
 					 "[on-demand hook]"
 					 m
 					 void)
+			    (let mloop ([m m][sub-at-50? #t])
+			      (let ([sm (make-object menu% "Too Tall" m)])
+				(let loop ([n 1])
+				  (unless (= n 101)
+				    (if (and sub-at-50? (= n 50))
+					(let ([m (make-object menu% "Item 50" sm)])
+					  (mloop m #f))
+					(make-object menu-item% (format "Item ~a" n) sm void))
+				    (when (zero? (modulo (- n 5) 10))
+				      (make-object separator-menu-item% sm))
+				    (loop (add1 n))))))
 			    m)
 			  last-m)])
 	       (set! last-m m)