.

original commit: b0b6204027176385aac220dfb709b3036069ef06

src/mred/wrap/mred.ss

@@ -459,6 +459,7 @@
       [pending-redraws? #t]
 
       [perform-updates? #t]
+      [seq-count 0]
       
       [ignore-redraw-request? #f]
       
@@ -549,6 +550,17 @@
 	[(f) (set! perform-updates? (not f))
 	     (when pending-redraws?
 	       (force-redraw))])]
+      [begin-container-sequence
+       (lambda ()
+	 (when (zero? seq-count)
+	   (delay-updates #t))
+	 (set! seq-count (add1 seq-count)))]
+      [end-container-sequence
+       (lambda ()
+	 (set! seq-count (sub1 seq-count))
+	 (when (zero? seq-count)
+	   (delay-updates #f)))]
+
 
       ; force-redraw: receives a message from to redraw the
       ; entire frame.
@@ -2624,7 +2636,7 @@
 
 (define area-container<%> 
   (interface (area<%>) 
-    reflow-container
+    reflow-container begin-container-sequence end-container-sequence
     container-size
     get-children change-children place-children
     after-new-child
@@ -2639,6 +2651,8 @@
     (public
       [after-new-child (lambda (c) (void))]
       [reflow-container (entry-point (lambda () (send (send (get-wx-panel) get-top-level) force-redraw)))]
+      [begin-container-sequence (entry-point (lambda () (send (send (get-wx-panel) get-top-level) begin-container-sequence)))]
+      [end-container-sequence (entry-point (lambda () (send (send (get-wx-panel) get-top-level) end-container-sequence)))]
       [get-children (entry-point (lambda () (map wx->proxy (ivar (get-wx-panel) children))))]
       [border (param get-wx-panel 'border)]
       [spacing (param get-wx-panel 'spacing)]