# HG changeset patch # User Claus Gittinger # Date 1160732916 -7200 # Node ID 74dfb69c88d4e3a5d94513814e9d9293bc14e256 # Parent fd5f44a752eec0c160bd5cdf622885e66c28172d *** empty log message *** diff -r fd5f44a752ee -r 74dfb69c88d4 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