*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 13 Oct 2006 11:48:36 +0200
changeset 2112 74dfb69c88d4
parent 2111 fd5f44a752ee
child 2113 8e2be2823f9e
*** empty log message ***
UIPainterView.st
--- a/UIPainterView.st	Thu Oct 05 17:57:20 2006 +0200
+++ b/UIPainterView.st	Fri Oct 13 11:48:36 2006 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libtool2' }"
 
 UIObjectView subclass:#UIPainterView
@@ -503,10 +502,12 @@
 canDrop:aCollectionOfDropObjects
     "returns true if something can be dropped"
 
-    (aCollectionOfDropObjects size == 1 and:[self enabled and:[self numberOfSelections <= 1]]) ifTrue:[
-        ^ aCollectionOfDropObjects first theObject isKindOf:UISpecification
-    ].
-    ^ false
+    ^ (aCollectionOfDropObjects size == 1 
+    and:[ self enabled 
+    and:[ self numberOfSelections <= 1
+    and:[ aCollectionOfDropObjects first theObject isKindOf:UISpecification ]]])
+
+    "Modified: / 13-10-2006 / 11:38:01 / cg"
 !
 
 canPaste