equal
deleted
inserted
replaced
906 anotherComponent ~~ inputView ifTrue:[ |
906 anotherComponent ~~ inputView ifTrue:[ |
907 absOrg := anotherComponent originRelativeTo:self. |
907 absOrg := anotherComponent originRelativeTo:self. |
908 absFrame := absOrg extent:(anotherComponent extent). |
908 absFrame := absOrg extent:(anotherComponent extent). |
909 (absFrame intersects:r) ifTrue:[ |
909 (absFrame intersects:r) ifTrue:[ |
910 anotherComponent withAllSubViewsDo:[:v | |
910 anotherComponent withAllSubViewsDo:[:v | |
911 v clear. |
911 v shown ifTrue:[ |
912 v exposeX:0 y:0 width:9999 height:9999. |
912 v clear. |
|
913 v exposeX:0 y:0 width:9999 height:9999. |
|
914 ] |
913 ] |
915 ] |
914 ] |
916 ] |
915 ] |
917 ] |
916 ] |
918 ] |
917 |
919 |
|
920 "Modified: 8.4.1997 / 00:32:26 / cg" |
918 ! |
921 ! |
919 |
922 |
920 whichHandleOf:aView isHitBy:aPoint |
923 whichHandleOf:aView isHitBy:aPoint |
921 "returns kind of handle or nil |
924 "returns kind of handle or nil |
922 " |
925 " |