equal
deleted
inserted
replaced
629 handlesOf:aComponent do:aOneArgBlock |
629 handlesOf:aComponent do:aOneArgBlock |
630 "evaluate the block on each handle; the argument to the block is a rectangle" |
630 "evaluate the block on each handle; the argument to the block is a rectangle" |
631 |
631 |
632 |ext| |
632 |ext| |
633 |
633 |
634 ext := 6@6. |
634 ext := 8@8. |
635 |
635 |
636 aComponent notNil ifTrue:[ |
636 aComponent notNil ifTrue:[ |
637 aOneArgBlock value:(aComponent origin - (2@2) extent:ext). |
637 aOneArgBlock value:(aComponent origin - (3@3) extent:ext). |
638 aOneArgBlock value:(aComponent corner - (1@1) extent:ext). |
638 aOneArgBlock value:(aComponent corner - (2@2) extent:ext). |
639 aOneArgBlock value:(aComponent topRight - (1@2) extent:ext). |
639 aOneArgBlock value:(aComponent topRight - (2@3) extent:ext). |
640 aOneArgBlock value:(aComponent bottomLeft - (2@1) extent:ext). |
640 aOneArgBlock value:(aComponent bottomLeft - (3@2) extent:ext). |
641 aOneArgBlock value:(aComponent leftCenter rounded - (2@0) extent:ext). |
641 aOneArgBlock value:(aComponent leftCenter rounded - (3@0) extent:ext). |
642 aOneArgBlock value:(aComponent rightCenter rounded - (1@0) extent:ext). |
642 aOneArgBlock value:(aComponent rightCenter rounded - (2@0) extent:ext). |
643 aOneArgBlock value:(aComponent topCenter rounded - (0@2) extent:ext). |
643 aOneArgBlock value:(aComponent topCenter rounded - (0@3) extent:ext). |
644 aOneArgBlock value:(aComponent bottomCenter rounded - (0@1) extent:ext). |
644 aOneArgBlock value:(aComponent bottomCenter rounded - (0@2) extent:ext). |
645 ] |
645 ] |
646 ! |
646 ! |
647 |
647 |
648 redrawSelection |
648 redrawSelection |
649 "redraw all items selected" |
649 "redraw all items selected" |
654 self handlesOf:selection do:[:aRectangle| |
654 self handlesOf:selection do:[:aRectangle| |
655 self paint:Color black. |
655 self paint:Color black. |
656 self fillRectangle:aRectangle. |
656 self fillRectangle:aRectangle. |
657 |
657 |
658 self paint:Color white. |
658 self paint:Color white. |
659 self displayRectangle:(aRectangle insetBy:-1). |
659 self displayRectangle:(aRectangle insetBy:0). |
660 ]. |
660 ]. |
661 self clippedByChildren:true. |
661 self clippedByChildren:true. |
662 ]. |
662 ]. |
663 ! |
663 ! |
664 |
664 |