--- a/PropertyListDictionary.st Fri Mar 28 12:30:35 2003 +0100
+++ b/PropertyListDictionary.st Sun Mar 30 15:00:55 2003 +0200
@@ -38,11 +38,12 @@
|source|
self canDrag ifTrue:[
- source := DropSource receiver:aReceiver
- argument:(self at:#dragArgument:)
- dropObjectSelector:(self at:#dropObjectSelector:)
- displayObjectSelector:(self at:#displayObjectSelector:)
- feedBackSelector:(self at:#feedBackSelector:).
+ source := DropSource
+ receiver:aReceiver
+ argument:(self at:#dragArgument:)
+ dropObjectSelector:(self at:#dropObjectSelector:)
+ displayObjectSelector:(self at:#displayObjectSelector:)
+ dropFeedBackSelector:(self at:#feedBackSelector:).
source startDragSelector:(self at:#startDragSelector:).
^ source
@@ -56,10 +57,11 @@
|target|
self canDrop ifTrue:[
- target := DropTarget receiver:aReceiver
- argument:(self at:#dropArgument:)
- dropSelector:(self at:#dropSelector:)
- canDropSelector:(self at:#canDropSelector:).
+ target := DropTarget
+ receiver:aReceiver
+ argument:(self at:#dropArgument:)
+ dropSelector:(self at:#dropSelector:)
+ canDropSelector:(self at:#canDropSelector:).
target enterSelector:(self at:#enterSelector:).
target overSelector:(self at:#overSelector:).
@@ -67,7 +69,6 @@
^ target
].
^ nil
-
! !
!PropertyListDictionary methodsFor:'building'!
@@ -150,5 +151,5 @@
!PropertyListDictionary class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/PropertyListDictionary.st,v 1.2 2001-02-06 18:49:24 ps Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/PropertyListDictionary.st,v 1.3 2003-03-30 13:00:55 cg Exp $'
! !