--- a/DropTarget.st Fri Oct 13 13:07:30 2006 +0200
+++ b/DropTarget.st Fri Oct 13 13:08:31 2006 +0200
@@ -9,8 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
-
"{ Package: 'stx:libview2' }"
Object subclass:#DropTarget
@@ -255,10 +253,12 @@
!DropTarget methodsFor:'actions'!
-drop:aContext
+drop:aDropContext
"sent, when the mouse button is released within the current widget."
- self receiverPerform:dropSelector withContext:aContext
+ self receiverPerform:dropSelector withContext:aDropContext
+
+ "Modified: / 13-10-2006 / 11:35:28 / cg"
!
enter:aContext
@@ -309,17 +309,19 @@
!DropTarget methodsFor:'queries'!
-canDrop:aContext
+canDrop:aDropContext
"send to the receiver to ask if the context is droppable"
canDropSelector notNil ifTrue:[
- ^ self receiverPerform:canDropSelector withContext:aContext
+ ^ self receiverPerform:canDropSelector withContext:aDropContext
].
^ true
+
+ "Modified: / 13-10-2006 / 11:35:22 / cg"
! !
!DropTarget class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/DropTarget.st,v 1.4 2006-01-24 16:53:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/DropTarget.st,v 1.5 2006-10-13 11:08:31 cg Exp $'
! !