equal
deleted
inserted
replaced
1535 ] ifFalse:[ |
1535 ] ifFalse:[ |
1536 offset2 := w2 origin. |
1536 offset2 := w2 origin. |
1537 w2 := w2 container. |
1537 w2 := w2 container. |
1538 ]. |
1538 ]. |
1539 devicePoint := self translatePoint:aPoint from:(w1 id) to:(w2 id). |
1539 devicePoint := self translatePoint:aPoint from:(w1 id) to:(w2 id). |
1540 ^ devicePoint - offset1 + offset2 |
1540 ^ devicePoint + offset1 - offset2 |
1541 |
1541 |
1542 "Modified: / 27-10-2007 / 13:04:09 / cg" |
1542 "Modified: / 27-10-2007 / 13:04:09 / cg" |
1543 ! |
1543 ! |
1544 |
1544 |
1545 translatePointFromRoot:aPoint toView:window |
1545 translatePointFromRoot:aPoint toView:window |
7940 ! ! |
7940 ! ! |
7941 |
7941 |
7942 !DeviceWorkstation class methodsFor:'documentation'! |
7942 !DeviceWorkstation class methodsFor:'documentation'! |
7943 |
7943 |
7944 version |
7944 version |
7945 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.535 2009-05-08 11:48:56 cg Exp $' |
7945 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.536 2009-05-08 11:51:06 cg Exp $' |
7946 ! ! |
7946 ! ! |
7947 |
7947 |
7948 DeviceWorkstation initialize! |
7948 DeviceWorkstation initialize! |