--- a/DropContext.st Tue Jul 06 12:58:55 2004 +0200
+++ b/DropContext.st Tue Jul 06 13:31:34 2004 +0200
@@ -253,7 +253,9 @@
canDrop
"returns true if current dropTarget can drop draggable objects"
- ^ dropTarget notNil ifTrue:[dropTarget canDrop:self] ifFalse:[false]
+ ^ dropTarget isNil
+ ifTrue:[false]
+ ifFalse:[dropTarget canDrop:self]
!
clearHasDroppedFlagToSuppressFeedBack
@@ -277,12 +279,13 @@
isRootView
"returns true if the current target widget is the root view (screen)"
- ^ targetWidget notNil ifTrue:[targetWidget isRootView]
- ifFalse:[false]
+ ^ targetWidget isNil
+ ifTrue:[false]
+ ifFalse:[targetWidget isRootView]
! !
!DropContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.8 2003-10-06 15:50:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.9 2004-07-06 11:31:34 cg Exp $'
! !