class: stx_libtool
authorClaus Gittinger <cg@exept.de>
Thu, 01 Sep 2016 12:38:40 +0200
changeset 16822 dbed86627a32
parent 16821 9af9ad633a9a
child 16823 21451c6e8953
class: stx_libtool changed: #extensionMethodNames
extensions.st
--- a/extensions.st	Thu Sep 01 12:38:05 2016 +0200
+++ b/extensions.st	Thu Sep 01 12:38:40 2016 +0200
@@ -1284,6 +1284,21 @@
     "Modified: 10.6.1996 / 18:23:55 / cg"
 ! !
 
+!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 ]
+                         ] }
+    }
+! !
+
 !Integer methodsFor:'inspecting'!
 
 inspectorExtraAttributes