ImageEditor.st
changeset 3164 890b62a044be
parent 3157 1c2d4a99b02a
child 3170 a49100905be3
--- a/ImageEditor.st	Sat Nov 22 02:15:52 2014 +0100
+++ b/ImageEditor.st	Sun Nov 23 14:46:15 2014 +0100
@@ -6713,6 +6713,13 @@
     self checkModified ifFalse:[ ^ self ].
 
     image := imageEditView clipBoard.
+    image isImageOrForm ifFalse:[
+        image := Image readFrom:(image asString) onError:nil.
+        image isNil ifTrue:[
+            Dialog warn:'Clipboard does not contain an image I can use/understand'.
+            ^ self.
+        ].
+    ].
     imageEditView image:image.
 
     image notNil ifTrue:[