From fd7d721f82a3c709f4074d5754c94d87095ef7a8 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 4 Dec 2000 21:51:38 +0000
Subject: [PATCH] ..

original commit: 94eab4c3c59d40fc779b98819a6bab9a5ebb2055
---
 src/mred/wrap/mred.ss | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index fc177316..5fb74490 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -534,6 +534,9 @@
       [focus #f]
       [target #f])
     
+    (public
+      [flush-resize-cache (entry-point (lambda () (set! last-width -1) (set! last-height -1)))])
+
     (override
       [enable
        (lambda (b)
@@ -3140,6 +3143,10 @@
       [maximize (entry-point-1 (lambda (on?) (send wx maximize on?)))]
       [get-menu-bar (entry-point (lambda () (let ([mb (ivar wx menu-bar)])
 					      (and mb (wx->mred mb)))))])
+
+    (public
+      [flush-resize-cache (lambda () (send wx flush-resize-cache))])
+
     (sequence
       (as-entry
        (lambda ()