author | Claus Gittinger <cg@exept.de> |
Tue, 08 Apr 1997 00:47:25 +0200 | |
changeset 95 | c20189d75ec3 |
parent 94 | 105fe34f32bc |
child 96 | 73725336b4fe |
UIObjectView.st | file | annotate | diff | comparison | revisions |
--- a/UIObjectView.st Tue Apr 08 00:46:48 1997 +0200 +++ b/UIObjectView.st Tue Apr 08 00:47:25 1997 +0200 @@ -908,13 +908,16 @@ absFrame := absOrg extent:(anotherComponent extent). (absFrame intersects:r) ifTrue:[ anotherComponent withAllSubViewsDo:[:v | - v clear. - v exposeX:0 y:0 width:9999 height:9999. + v shown ifTrue:[ + v clear. + v exposeX:0 y:0 width:9999 height:9999. + ] ] ] ] ] + "Modified: 8.4.1997 / 00:32:26 / cg" ! whichHandleOf:aView isHitBy:aPoint