From b22d6ba31475aa134f600963547f9c34b77f3544 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 2 Jan 2011 07:56:57 -0600 Subject: [PATCH] adjust check to only insist that, when there is an editor, is it the right kind of editor. original commit: 465d5a9f758c7b87b9e621a0ebbedefddb746176 --- collects/framework/private/canvas.rkt | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/framework/private/canvas.rkt b/collects/framework/private/canvas.rkt index 42a07879..666dd44c 100644 --- a/collects/framework/private/canvas.rkt +++ b/collects/framework/private/canvas.rkt @@ -152,11 +152,12 @@ (set-max-height snip-height)))))))))) (define/public (recalc-snips) (let ([editor (get-editor)]) - (unless (is-a? editor text:wide-snip<%>) - (error 'recalc-snips "expected a text:wide-snip<%> editor, instead ~e" editor)) - (when (eq? (send editor get-canvas) this) - (for-each (update-snip-size #t) (send editor get-wide-snips)) - (for-each (update-snip-size #f) (send editor get-tall-snips))))) + (when editor + (unless (is-a? editor text:wide-snip<%>) + (error 'recalc-snips "expected a text:wide-snip<%> editor, instead ~e" editor)) + (when (eq? (send editor get-canvas) this) + (for-each (update-snip-size #t) (send editor get-wide-snips)) + (for-each (update-snip-size #f) (send editor get-tall-snips)))))) (define/public (add-wide-snip snip) (let ([editor (get-editor)]) (unless (is-a? editor text:wide-snip<%>)