From 5399cf9b4331d163aa54132ac202fb4b5e6d6874 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 30 May 2008 17:00:30 +0000
Subject: [PATCH] fix update for borderless tabs and for group panels

svn: r10050
---
 src/wxmac/src/mac/wx_canvs.cc | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/wxmac/src/mac/wx_canvs.cc b/src/wxmac/src/mac/wx_canvs.cc
index b5a7fe26ce..48e5fb73fa 100644
--- a/src/wxmac/src/mac/wx_canvs.cc
+++ b/src/wxmac/src/mac/wx_canvs.cc
@@ -936,7 +936,17 @@ void wxCanvas::PaintRgn(RgnHandle rgn)
   if (!cHidden) {
     if (cStyle & wxAS_CONTROL) {
       /* Run on-paint atomically */
+      RgnHandle old;
+
+      old = wx_dc->clip_reg;
+
+      wx_dc->clip_reg = rgn;
+      wx_dc->SetCanvasClipping();
+
       MrEdAtomicallyPaint(this);
+
+      wx_dc->clip_reg = old;
+      wx_dc->SetCanvasClipping();
     } else {
       AddPaintRegion(rgn);
       /* In wx_frame.cc: */