--- a/DropTarget.st	Thu Dec 13 19:44:19 2001 +0100
+++ b/DropTarget.st	Fri Dec 14 11:51:34 2001 +0100
@@ -11,6 +11,8 @@
 "
 
 
+"{ Package: 'stx:libview2' }"
+
 Object subclass:#DropTarget
 	instanceVariableNames:'receiver enterSelector leaveSelector overSelector dropSelector
 		canDropSelector argument'
@@ -285,18 +287,8 @@
 perform:aSelector withContext:aContext
     "perform the selector
     "
-    |numArgs|
-
     aSelector notNil ifTrue:[
-        (numArgs := aSelector numArgs) == 0 ifTrue:[
-            receiver perform:aSelector
-        ] ifFalse:[
-            numArgs == 1 ifTrue:[
-                receiver perform:aSelector with:aContext
-            ] ifFalse:[
-                receiver perform:aSelector with:aContext with:argument
-            ]
-        ]
+        ^ receiver perform:aSelector withOptionalArgument:aContext and:argument
     ]
 ! !
 
@@ -305,16 +297,8 @@
 canDrop:aContext
     "send to the receiver to ask if the context is droppable
     "
-    |numArgs|
-
     canDropSelector notNil ifTrue:[
-        (numArgs := canDropSelector numArgs) == 0 ifTrue:[
-            ^ receiver perform:canDropSelector
-        ].
-        numArgs == 1 ifTrue:[
-            ^ receiver perform:canDropSelector with:aContext
-        ].
-        ^ receiver perform:canDropSelector with:aContext with:argument
+        ^ receiver perform:canDropSelector withOptionalArgument:aContext and:argument
     ].
     ^ true
 ! !
@@ -322,5 +306,5 @@
 !DropTarget class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DropTarget.st,v 1.1 1998-03-30 11:59:33 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropTarget.st,v 1.2 2001-12-14 10:51:34 cg Exp $'
 ! !