From a2e217a8467046ef2710de104d1015f65c0043b2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 30 Nov 2013 20:57:56 -0700 Subject: [PATCH] racket/gui win32: reset canvas backing size when scroll bars change Avoids a gray box at the bottom of the GRacket REPL window on startup, or in DrRacket when a horizontal scroll is automatically removed due to, say, hiding a interactions window positioned to the right of the definitions window (where the definitions content is narrower than the whole window but wider than half). Merge to v6.0 original commit: 836f4cab20c9ac4e8084a0c9f97e10e82533809f --- pkgs/gui-pkgs/gui-lib/mred/private/wx/win32/canvas.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pkgs/gui-pkgs/gui-lib/mred/private/wx/win32/canvas.rkt b/pkgs/gui-pkgs/gui-lib/mred/private/wx/win32/canvas.rkt index ec089a85..6e3b0751 100644 --- a/pkgs/gui-pkgs/gui-lib/mred/private/wx/win32/canvas.rkt +++ b/pkgs/gui-pkgs/gui-lib/mred/private/wx/win32/canvas.rkt @@ -394,7 +394,8 @@ (when vscroll? (atomically (set! v-scroll-visible? (and v? #t)) - (ShowScrollBar canvas-hwnd SB_VERT v?)))) + (ShowScrollBar canvas-hwnd SB_VERT v?))) + (reset-dc)) (define/override (do-set-scrollbars h-step v-step h-len v-len