# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1089113494 -7200
# Node ID 64755b92daabf9e7662324a9ba47c6cdd7029947
# Parent  dceba4dfb4e8d3cc7a152c05256f5efae6c13b90
*** empty log message ***

diff -r dceba4dfb4e8 -r 64755b92daab DropContext.st
--- 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 $'
 ! !