..

original commit: 94eab4c3c59d40fc779b98819a6bab9a5ebb2055
2000-12-04 21:51:38 +00:00 · 2000-12-04 21:51:38 +00:00 · fd7d721f82
commit fd7d721f82
parent 8d99136ebf
1 changed files with 7 additions and 0 deletions
--- 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 ()