diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index b90e7d7d..912e3cf9 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -2224,7 +2224,7 @@ [on-container-resize (lambda () (let ([edit (get-editor)]) (when edit - (as-exit (lambda () (send edit on-display-size))))))] + (as-exit (lambda () (send edit on-display-size-when-ready))))))] [on-set-focus (entry-point (lambda () diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss index 12d47a29..d666c0b5 100644 --- a/collects/mred/private/kernel.ss +++ b/collects/mred/private/kernel.ss @@ -255,6 +255,7 @@ resized set-caret-owner scroll-to + on-display-size-when-ready on-display-size on-change on-focus @@ -847,6 +848,7 @@ resized set-caret-owner scroll-to + on-display-size-when-ready on-display-size on-change on-focus @@ -1051,6 +1053,7 @@ resized set-caret-owner scroll-to + on-display-size-when-ready on-display-size on-change on-focus