--- 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'!