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