equal
deleted
inserted
replaced
672 inMySelf := (destinationView == self). |
672 inMySelf := (destinationView == self). |
673 rootMotion := false |
673 rootMotion := false |
674 ] ifFalse:[ |
674 ] ifFalse:[ |
675 inMySelf := true |
675 inMySelf := true |
676 ]. |
676 ]. |
|
677 |
|
678 dragObject isNil ifTrue:[^ self]. |
677 |
679 |
678 dragOrigin := dragObject origin. |
680 dragOrigin := dragObject origin. |
679 inMySelf ifTrue:[ |
681 inMySelf ifTrue:[ |
680 "a simple line within myself" |
682 "a simple line within myself" |
681 self lineDragFrom:dragOrigin to:dragObject corner |
683 self lineDragFrom:dragOrigin to:dragObject corner |
707 "helper for line dragging - invert the dragged line. |
709 "helper for line dragging - invert the dragged line. |
708 Extracted for easier redefinition in subclasses |
710 Extracted for easier redefinition in subclasses |
709 (different line width etc.)" |
711 (different line width etc.)" |
710 |
712 |
711 |dragger offs p1 p2| |
713 |dragger offs p1 p2| |
|
714 |
|
715 dragObject isNil ifTrue:[^ self]. |
712 |
716 |
713 p1 := dragObject origin. |
717 p1 := dragObject origin. |
714 p2 := dragObject corner. |
718 p2 := dragObject corner. |
715 rootMotion ifTrue:[ |
719 rootMotion ifTrue:[ |
716 dragger := rootView. |
720 dragger := rootView. |
3251 ! ! |
3255 ! ! |
3252 |
3256 |
3253 !ObjectView class methodsFor:'documentation'! |
3257 !ObjectView class methodsFor:'documentation'! |
3254 |
3258 |
3255 version |
3259 version |
3256 ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.92 2002-10-31 12:22:50 cg Exp $' |
3260 ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.93 2002-10-31 23:25:54 cg Exp $' |
3257 ! ! |
3261 ! ! |