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