From 665e4c07bfa435efeab69e8b9fafbb04497cac04 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 5 May 2008 12:24:06 +0000 Subject: [PATCH] protect against redraw requests before the canvas is properly sized svn: r9654 --- collects/mrlib/switchable-button.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mrlib/switchable-button.ss b/collects/mrlib/switchable-button.ss index bc78a9b19c..8f7253508e 100644 --- a/collects/mrlib/switchable-button.ss +++ b/collects/mrlib/switchable-button.ss @@ -95,8 +95,8 @@ (send dc draw-rounded-rectangle margin margin - (- cw margin margin) - (- ch margin margin)) + (max 0 (- cw margin margin)) + (max 0 (- ch margin margin))) (send dc set-alpha alpha) (send dc set-font normal-control-font)