From 1348145b5242ed645fa61e7f9a42f233f45e4162 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 24 May 2011 12:55:16 -0600
Subject: [PATCH] use container sequence to avoid resize flicker for
 `text-field%'

original commit: cc647f0ab9833195a8012bece70e8eba83cb6df3
---
 collects/mred/private/wxtextfield.rkt | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/collects/mred/private/wxtextfield.rkt b/collects/mred/private/wxtextfield.rkt
index 56a6cc92..82c547aa 100644
--- a/collects/mred/private/wxtextfield.rkt
+++ b/collects/mred/private/wxtextfield.rkt
@@ -131,6 +131,8 @@
 
   (define wx-text-field%
     (class100 wx-horizontal-panel% (mred proxy parent fun label value style _font)
+      (sequence
+       (send (send parent get-top-level) begin-container-sequence))
       ;; Make text field first because we'll have to exit
       ;;  for keymap initializer
       (private-field
@@ -336,4 +338,5 @@
 	(let ([min-size (get-min-size)])
 	  (set-min-width (car min-size))
 	  (set-min-height (cadr min-size)))
+	(send (send parent get-top-level) end-container-sequence)
 	(callback-ready)))))