From f59d9ef1fc165db82a2d90c1a776f85037cedccb Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 8 Nov 2008 16:54:43 +0000 Subject: [PATCH] improved tab switching when the contour window is open svn: r12352 original commit: 4e623ef655ccc4e9f56281f2fa77e6243bdb128b --- collects/framework/private/canvas.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/framework/private/canvas.ss b/collects/framework/private/canvas.ss index 9025edc0..42a07879 100644 --- a/collects/framework/private/canvas.ss +++ b/collects/framework/private/canvas.ss @@ -46,8 +46,8 @@ (send (get-top-level-window) set-info-canvas (and on? this)) (when on? (send (get-top-level-window) update-info))) - (define/override (set-editor m) - (super set-editor m) + (define/override (set-editor m [redraw? #t]) + (super set-editor m redraw?) (let ([tlw (get-top-level-window)]) (when (eq? this (send tlw get-info-canvas)) (send tlw update-info))))