equal
deleted
inserted
replaced
622 handlesOf:aComponent do:aOneArgBlock |
622 handlesOf:aComponent do:aOneArgBlock |
623 "evaluate the block on each handle; the argument to the block |
623 "evaluate the block on each handle; the argument to the block |
624 is a rectangle |
624 is a rectangle |
625 " |
625 " |
626 aComponent notNil ifTrue:[ |
626 aComponent notNil ifTrue:[ |
627 aOneArgBlock value:(aComponent origin - (2@2) extent:6@6). |
627 aOneArgBlock value:(aComponent origin - (2@2) extent:6@6). |
628 aOneArgBlock value:(aComponent corner - (1@1) extent:6@6). |
628 aOneArgBlock value:(aComponent corner - (1@1) extent:6@6). |
629 aOneArgBlock value:(aComponent topRight - (1@2) extent:6@6). |
629 aOneArgBlock value:(aComponent topRight - (1@2) extent:6@6). |
630 aOneArgBlock value:(aComponent bottomLeft - (2@1) extent:6@6). |
630 aOneArgBlock value:(aComponent bottomLeft - (2@1) extent:6@6). |
631 aOneArgBlock value:(aComponent leftCenter - (2@0) extent:6@6). |
631 aOneArgBlock value:(aComponent leftCenter rounded - (2@0) extent:6@6). |
632 aOneArgBlock value:(aComponent rightCenter - (1@0) extent:6@6). |
632 aOneArgBlock value:(aComponent rightCenter rounded - (1@0) extent:6@6). |
633 aOneArgBlock value:(aComponent topCenter - (0@2) extent:6@6). |
633 aOneArgBlock value:(aComponent topCenter rounded - (0@2) extent:6@6). |
634 aOneArgBlock value:(aComponent bottomCenter - (0@1) extent:6@6). |
634 aOneArgBlock value:(aComponent bottomCenter rounded - (0@1) extent:6@6). |
635 ] |
635 ] |
636 |
|
637 |
|
638 ! |
636 ! |
639 |
637 |
640 redrawSelection |
638 redrawSelection |
641 "redraw all items selected" |
639 "redraw all items selected" |
642 |
640 |