--- a/ImageEditor.st	Wed Jan 26 10:47:50 2000 +0100
+++ b/ImageEditor.st	Wed Jan 26 15:15:53 2000 +0100
@@ -943,6 +943,16 @@
                   #label: '-'
                 )
                #(#MenuItem
+                  #label: 'Show storeString'
+                  #translateLabel: true
+                  #value: #doShowStoreString
+                  #activeHelpKey: #fileShowStoreString
+                  #enabled: #imageIsLoaded
+                )
+               #(#MenuItem
+                  #label: '-'
+                )
+               #(#MenuItem
                   #label: 'Print'
                   #translateLabel: true
                   #value: #doPrint
@@ -2789,6 +2799,16 @@
     [
         self updateLabelsAndHistory
     ]
+!
+
+doShowStoreString
+    "opens a dialog showing the storeString
+     (sometimes useful to embed an image into source code)"
+
+    |img|
+
+    img := imageEditView image.
+    TextBox openOn:img storeString
 ! !
 
 !ImageEditor class methodsFor:'documentation'!