--- a/ImageEditor.st	Tue Oct 01 16:44:46 2002 +0200
+++ b/ImageEditor.st	Wed Oct 02 10:36:18 2002 +0200
@@ -377,6 +377,9 @@
 #fileSaveMaskAs
 'Save the mask of the image to a file.'
 
+#fileSaveButtonImageAs
+'Save an image of a button with the image to a file (for html use).'
+
 #fileSaveMethod
 'Save the image as resource method in the current class and selector.'
 
@@ -1307,6 +1310,13 @@
                   #enabled: #imageIsLoaded
                 )
                #(#MenuItem
+                  #label: 'Save As Button to File...'
+                  #translateLabel: true
+                  #value: #doSaveButtonImageToFileAs
+                  #activeHelpKey: #fileSaveButtonImageAs
+                  #enabled: #imageIsLoaded
+                )
+               #(#MenuItem
                   #label: '-'
                 )
                #(#MenuItem
@@ -3822,6 +3832,13 @@
     imageEditView print
 !
 
+doSaveButtonImageToFileAs
+    "opens a dialog for saving current image to a file"
+
+    imageEditView saveButtonImageToFileAs.
+    self updateLabelsAndHistory.
+!
+
 doSaveImageFile
     "saves current image to current file"