646 "show unselected |
646 "show unselected |
647 " |
647 " |
648 |r currSel| |
648 |r currSel| |
649 |
649 |
650 (currSel := selection) isNil ifTrue:[ |
650 (currSel := selection) isNil ifTrue:[ |
651 ^ self |
651 ^ self |
652 ]. |
652 ]. |
653 shown ifFalse:[^ self]. |
653 shown ifFalse:[^ self]. |
654 selection := nil. |
654 selection := nil. |
655 |
655 |
656 self clippedByChildren:false. |
656 self clippedByChildren:false. |
657 |
657 |
658 self handlesOf:currSel do:[:aRectangle| |
658 self handlesOf:currSel do:[:aRectangle| |
659 self clearRectangle:aRectangle |
659 self clearRectangle:aRectangle |
660 ]. |
660 ]. |
661 self clippedByChildren:true. |
661 self clippedByChildren:true. |
662 r := currSel bounds. |
662 r := currSel bounds. |
663 |
663 |
664 subViews do:[:sv| |
664 subViews do:[:sv| |
665 |absOrg absFrame| |
665 |absOrg absFrame| |
666 |
666 |
667 sv ~~ inputView ifTrue:[ |
667 sv ~~ inputView ifTrue:[ |
668 (sv bounds intersects:r) ifTrue:[ |
668 (sv bounds intersects:r) ifTrue:[ |
669 "/ sv borderColor:(Color gray:5). |
669 sv borderColor:(Color white). "/ to force a redraw |
670 sv borderColor:(Color black). |
670 sv borderColor:(Color black). |
671 |
671 |
672 sv withAllSubViewsDo:[:v| |
672 sv withAllSubViewsDo:[:v| |
673 v realized ifTrue:[ |
673 v realized ifTrue:[ |
674 v fill:v viewBackground. |
674 v fill:v viewBackground. |
675 v exposeX:0 y:0 width:v width height:v height. |
675 v exposeX:0 y:0 width:v width height:v height. |
676 ] |
676 ] |
677 ] |
677 ] |
678 ] |
678 ] |
679 ] |
679 ] |
680 ]. |
680 ]. |
681 selection := currSel. |
681 selection := currSel. |
682 |
682 |
683 "Modified: / 9.11.1998 / 12:49:57 / cg" |
683 "Modified: / 9.11.1998 / 12:49:57 / cg" |
684 ! ! |
684 ! ! |