# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1160755090 -7200
# Node ID 90fc11105f36174d0204ef02aa0a6a04ea381e85
# Parent  be5e920d6158480707ed514dec653d39f8dece3a
drag and drop cleanup

diff -r be5e920d6158 -r 90fc11105f36 UIPainterView.st
--- a/UIPainterView.st	Fri Oct 13 17:58:08 2006 +0200
+++ b/UIPainterView.st	Fri Oct 13 17:58:10 2006 +0200
@@ -499,7 +499,13 @@
 
 !UIPainterView methodsFor:'drag & drop'!
 
-canDrop:aCollectionOfDropObjects
+canDrop:aDropContext
+    ^ self canDropObjects:aDropContext dropObjects
+
+    "Created: / 13-10-2006 / 17:46:11 / cg"
+!
+
+canDropObjects:aCollectionOfDropObjects
     "returns true if something can be dropped"
 
     ^ (aCollectionOfDropObjects size == 1 
@@ -507,7 +513,7 @@
     and:[ self numberOfSelections <= 1
     and:[ aCollectionOfDropObjects first theObject isKindOf:UISpecification ]]])
 
-    "Modified: / 13-10-2006 / 11:38:01 / cg"
+    "Created: / 13-10-2006 / 16:09:24 / cg"
 !
 
 canPaste
@@ -551,7 +557,7 @@
     ^ aView specClass supportsSubComponents.
 !
 
-drop:aCollectionOfDropObjects at:aPoint
+dropObjects:aCollectionOfDropObjects at:aPoint
     |spec newSel oldSel dragOffset widg doit|
 
     doit := true.
@@ -577,8 +583,8 @@
         self select:(oldSel ? newSel)
     ].
 
-    "Modified: / 18.3.1999 / 18:29:43 / stefan"
-    "Modified: / 30.10.2001 / 14:02:35 / cg"
+    "Modified: / 18-03-1999 / 18:29:43 / stefan"
+    "Created: / 13-10-2006 / 16:09:27 / cg"
 ! !
 
 !UIPainterView methodsFor:'event handling'!