equal
deleted
inserted
replaced
697 b := self whichHandleOf:aView isHitBy:aPoint. |
697 b := self whichHandleOf:aView isHitBy:aPoint. |
698 |
698 |
699 (b notNil and:[b ~~ #view]) ifTrue:[ |
699 (b notNil and:[b ~~ #view]) ifTrue:[ |
700 ^ self startResizeBorder:b of:aView. |
700 ^ self startResizeBorder:b of:aView. |
701 ] |
701 ] |
|
702 ]. |
|
703 |
|
704 (self sensor ctrlDown and:[self canMove:aView]) ifFalse:[ |
|
705 aView := nil |
702 ] |
706 ] |
703 ]. |
707 ]. |
704 |
708 |
705 (aView := self findObjectAt:aPoint) isNil ifTrue:[ |
709 aView isNil ifTrue:[ |
706 ^ self unselect |
710 (aView := self findObjectAt:aPoint) isNil ifTrue:[ |
707 ]. |
711 ^ self unselect |
708 |
712 ]. |
709 (self canMove:aView) ifFalse:[ |
713 |
710 super unselect. |
714 (self canMove:aView) ifFalse:[ |
711 ^ self select:aView |
715 super unselect. |
|
716 ^ self select:aView |
|
717 ] |
712 ]. |
718 ]. |
713 |
719 |
714 (self isSelected:aView) ifFalse:[ |
720 (self isSelected:aView) ifFalse:[ |
715 super unselect. |
721 super unselect. |
716 self select:aView. |
722 self select:aView. |