DragAndDropManager.st
changeset 1430 572d486a52b8
parent 1420 418a8f90b7bc
child 1466 f6a566b26c9e
--- a/DragAndDropManager.st	Wed Nov 15 16:05:02 2000 +0100
+++ b/DragAndDropManager.st	Fri Nov 17 01:43:56 2000 +0100
@@ -1288,9 +1288,8 @@
 
     "/ start with a first draw at the current mouse position
     p := aView device pointerPosition.
-    p := aView device translatePoint:p from:(aView device rootView id) to:(aView id).
+    p := aView device translatePoint:p from:(aView device rootWindowId) to:(aView id).
     self buttonMotion:1 x:p x y:p y view:aView
-
 ! !
 
 !DragAndDropManager methodsFor:'translation'!
@@ -1305,21 +1304,20 @@
     "/ get device coordinates
     "/
     (trans := aView transformation) notNil ifTrue:[
-	point := trans applyTo:aPoint
+        point := trans applyTo:aPoint
     ] ifFalse:[
-	point := aPoint
+        point := aPoint
     ].
     "/
     "/ translate to screen
     "/
-    offset := device translatePoint:0@0 from:(aView id) to:(device rootView id).
+    offset := device translatePoint:0@0 from:(aView id) to:(device rootWindowId).
   ^ offset + point
-
 ! !
 
 !DragAndDropManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.26 2000-11-09 11:46:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.27 2000-11-17 00:43:44 cg Exp $'
 ! !
 DragAndDropManager initialize!