# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1416750375 -3600
# Node ID 890b62a044befb0ec7189957725fd8e4c7404b1f
# Parent  e7f3add79489f5cac2d13190bc4cdb780aec5a82
class: ImageEditor
changed: #doNewImageFromClipboard
warn if clipboard contains no image.

diff -r e7f3add79489 -r 890b62a044be ImageEditor.st
--- 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:[