Skip to content
GitLab
Commit d661e784 authored by Peter Achten's avatar Peter Achten
Browse files

(PA) clipping region improved when Look attribute is True

parent 2681fb72
Hide whitespace changes
Inline Side-by-side
ObjectIO/ObjectIO/windowdraw.icl
View file @ d661e784
...@@ -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