Commit d661e784 authored by Peter Achten's avatar Peter Achten
Browse files

(PA) clipping region improved when Look attribute is True

parent 2681fb72
...@@ -23,7 +23,7 @@ drawwindowlook wMetrics wPtr drawFirst updState wH=:{whSelect,whSize,whWindowInf ...@@ -23,7 +23,7 @@ drawwindowlook wMetrics wPtr drawFirst updState wH=:{whSelect,whSize,whWindowInf
#! picture = packPicture origin (copyPen look.lookPen) True osPict tb #! picture = packPicture origin (copyPen look.lookPen) True osPict tb
#! picture = pictsetcliprgn clipRgn picture #! picture = pictsetcliprgn clipRgn picture
#! picture = drawFirst picture #! picture = drawFirst picture
#! picture = appClipPicture (toRegion wFrame) (look.lookFun select updState) picture #! picture = appClipPicture (toRegion (if look.lookSysUpdate updState.updArea [wFrame])) (look.lookFun select updState) picture
#! (_,pen,_,osPict,tb) = unpackPicture picture #! (_,pen,_,osPict,tb) = unpackPicture picture
#! tb = OSreleaseWindowPictContext wPtr osPict tb #! tb = OSreleaseWindowPictContext wPtr osPict tb
#! tb = OSvalidateWindowRgn wPtr clipRgn tb // PA: added to eliminate update of window (in drawing part) #! tb = OSvalidateWindowRgn wPtr clipRgn tb // PA: added to eliminate update of window (in drawing part)
...@@ -52,7 +52,7 @@ drawwindowlook` wMetrics wPtr drawFirst updState wH=:{whSelect,whSize,whWindowIn ...@@ -52,7 +52,7 @@ drawwindowlook` wMetrics wPtr drawFirst updState wH=:{whSelect,whSize,whWindowIn
#! (additionalUpdateArea,picture) #! (additionalUpdateArea,picture)
= drawFirst picture = drawFirst picture
updState = {updState & updArea = [RectToRectangle r \\ r<-additionalUpdateArea | not (IsEmptyRect r)] ++ updState.updArea} updState = {updState & updArea = [RectToRectangle r \\ r<-additionalUpdateArea | not (IsEmptyRect r)] ++ updState.updArea}
#! picture = appClipPicture (toRegion wFrame) (look.lookFun select updState) picture #! picture = appClipPicture (toRegion (if look.lookSysUpdate updState.updArea [wFrame])) (look.lookFun select updState) picture
#! (_,pen,_,osPict,tb) = unpackPicture picture #! (_,pen,_,osPict,tb) = unpackPicture picture
#! tb = OSreleaseWindowPictContext wPtr osPict tb #! tb = OSreleaseWindowPictContext wPtr osPict tb
#! tb = OSvalidateWindowRgn wPtr clipRgn tb // PA: added to eliminate update of window (in drawing part) #! tb = OSvalidateWindowRgn wPtr clipRgn tb // PA: added to eliminate update of window (in drawing part)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment