protect against redraw requests before the canvas is properly sized

svn: r9654
2008-05-05 12:24:06 +00:00 · 2008-05-05 12:24:06 +00:00 · 665e4c07bf
commit 665e4c07bf
parent b53e01c460
1 changed files with 2 additions and 2 deletions
--- 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)