Image.st
changeset 7536 602e8a6ac0ea
parent 7534 0b7e23635791
child 7537 bdc9ada5cde7
--- a/Image.st	Wed Aug 31 23:07:16 2016 +0200
+++ b/Image.st	Thu Sep 01 12:35:44 2016 +0200
@@ -12405,6 +12405,20 @@
     self photometric:(self class defaultPhotometric)
 ! !
 
+!Image methodsFor:'inspecting'!
+
+inspectorExtraMenuOperations
+    ^ super inspectorExtraMenuOperations,
+    {
+        { 'Edit Image' . [ ImageEditor openOnImage:self ] } .
+        { '-' . nil } .
+        { 'Save As...' . [ 
+                            Dialog  
+                                ask:[ Dialog requestFileNameForSave:'Save image as?' default:'newImage.png' ] 
+                                ifNotNilOrEmptyDo:[:file | self saveOn: file ]
+                         ] }
+    }
+! !
 
 !Image methodsFor:'instance release'!