changed: #buttonMotion:x:y:view:
authorClaus Gittinger <cg@exept.de>
Wed, 21 Oct 2009 00:23:05 +0200
changeset 2766 27e34fa6ecfe
parent 2765 827160ff9feb
child 2767 94b5dcf5c4fe
changed: #buttonMotion:x:y:view:
DragAndDropManager.st
--- a/DragAndDropManager.st	Mon Oct 19 11:28:12 2009 +0200
+++ b/DragAndDropManager.st	Wed Oct 21 00:23:05 2009 +0200
@@ -1272,8 +1272,15 @@
     (isDroppable := dropContext canDrop) ifTrue:[
         cursor := enabledCursor
     ] ifFalse:[
-        dropContext isAlienView ifFalse:[cursor := disabledCursor]
-                                 ifTrue:[cursor := alienCursor]
+        dropContext isAlienView ifTrue:[
+            cursor := alienCursor.
+
+"/            className := Screen current getWindowClassName:newId.
+"/            title := Screen current getWindowText:newId.
+"/            cursor := enabledCursor.
+        ] ifFalse:[
+            cursor := disabledCursor
+        ].
     ].
 
     dragView cursor:cursor now:true.
@@ -1698,7 +1705,11 @@
 !DragAndDropManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.86 2009-09-15 19:01:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.87 2009-10-20 22:23:05 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.87 2009-10-20 22:23:05 cg Exp $'
 ! !
 
 DragAndDropManager initialize!