Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
care for non collection which responds to notEmptyOrNil
authorClaus Gittinger <cg@exept.de>
Tue, 01 Apr 2008 18:56:16 +0200
changeset 2328 5324713ed697
parent 2327 a1db8e464b02
child 2329 a9d39ef2c8aa
care for non collection which responds to notEmptyOrNil in canPaste (sigh)
UIPainter.st file | annotate | diff | comparison | revisions 
--- 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].
hg/stx-libtool2