# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1207068976 -7200
# Node ID 5324713ed6976c1f074df9e79f53a23e60c15ee5
# Parent  a1db8e464b02ff071fd822341c32f0ae7b3b95c4
care for non collection which responds to notEmptyOrNil
in canPaste (sigh)

diff -r a1db8e464b02 -r 5324713ed697 UIPainter.st
--- a/UIPainter.st	Mon Mar 31 15:45:04 2008 +0200
+++ b/UIPainter.st	Tue Apr 01 18:56:16 2008 +0200
@@ -3445,7 +3445,8 @@
 
     clipboard := painterView getClipboardObject.
 
-    clipboard notEmptyOrNil 
+    (clipboard isCollection 
+    and:[ clipboard notEmptyOrNil ]) 
             ifTrue:[sel := clipboard first]
             ifFalse:[sel := clipboard].