equal
deleted
inserted
replaced
666 subViews do:[:sv| |
666 subViews do:[:sv| |
667 |absOrg absFrame| |
667 |absOrg absFrame| |
668 |
668 |
669 sv ~~ inputView ifTrue:[ |
669 sv ~~ inputView ifTrue:[ |
670 (sv bounds intersects:r) ifTrue:[ |
670 (sv bounds intersects:r) ifTrue:[ |
671 sv borderColor:(Color gray:5). |
671 "/ sv borderColor:(Color gray:5). |
672 sv borderColor:(Color black). |
672 sv borderColor:(Color black). |
673 |
673 |
674 sv withAllSubViewsDo:[:v| |
674 sv withAllSubViewsDo:[:v| |
675 v fill:v viewBackground. |
675 v fill:v viewBackground. |
676 v exposeX:0 y:0 width:v width height:v height. |
676 v exposeX:0 y:0 width:v width height:v height. |