equal
deleted
inserted
replaced
124 |trn org pnt dev| |
124 |trn org pnt dev| |
125 |
125 |
126 dev := sourceWidget device. |
126 dev := sourceWidget device. |
127 pnt := dev translatePoint:rootPoint from:(dev rootWindowId) to:targetId. |
127 pnt := dev translatePoint:rootPoint from:(dev rootWindowId) to:targetId. |
128 |
128 |
129 targetWidget notNil ifTrue:[ |
129 (pnt notNil and:[targetWidget notNil]) ifTrue:[ |
130 (trn := targetWidget transformation) notNil ifTrue:[ |
130 (trn := targetWidget transformation) notNil ifTrue:[ |
131 ^ trn applyInverseTo:pnt. |
131 ^ trn applyInverseTo:pnt. |
132 ]. |
132 ]. |
133 |
133 |
134 (org := targetWidget viewOrigin) notNil ifTrue:[ |
134 (org := targetWidget viewOrigin) notNil ifTrue:[ |
297 ! ! |
297 ! ! |
298 |
298 |
299 !DropContext class methodsFor:'documentation'! |
299 !DropContext class methodsFor:'documentation'! |
300 |
300 |
301 version |
301 version |
302 ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.13 2008-05-05 14:04:09 cg Exp $' |
302 ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.14 2008-06-05 10:38:28 cg Exp $' |
303 ! ! |
303 ! ! |