--- a/ImageEditor.st	Fri Jun 21 02:40:11 2013 +0200
+++ b/ImageEditor.st	Mon Jun 24 17:51:10 2013 +0200
@@ -2537,6 +2537,7 @@
     "Do not manually edit this!! If it is corrupted,
      the MenuEditor may not be able to read the specification."
 
+
     "
      MenuEditor new openOnClass:ImageEditor andSelector:#menuFile
      (Menu new fromLiteralArrayEncoding:(ImageEditor menuFile)) startUp
@@ -2551,7 +2552,6 @@
             activeHelpKey: fileNewImageEditor
             label: 'New ImageEditor'
             itemValue: doNewImageEditor
-            translateLabel: true
           )
          (MenuItem
             label: '-'
@@ -2560,13 +2560,11 @@
             activeHelpKey: fileNewImage
             label: 'New...'
             itemValue: doNewImage
-            translateLabel: true
           )
          (MenuItem
             activeHelpKey: fileNewImage
             label: 'New from ClipBoard'
             itemValue: doNewImageFromClipboard
-            translateLabel: true
           )
          (MenuItem
             label: '-'
@@ -2575,23 +2573,19 @@
             activeHelpKey: fileLoadFromClass
             label: 'Load...'
             itemValue: doLoadFromClass
-            translateLabel: true
           )
          (MenuItem
             activeHelpKey: fileLoadFromFile
             label: 'Load from File...'
             itemValue: doLoadFromFile
-            translateLabel: true
           )
          (MenuItem
             activeHelpKey: fileLoadFromURL
             label: 'Load from URL...'
             itemValue: doLoadFromURL
-            translateLabel: true
           )
          (MenuItem
             label: 'Grab'
-            translateLabel: true
             submenu: 
            (Menu
               (
@@ -2599,14 +2593,12 @@
                   activeHelpKey: fileGrabImageFromScreen
                   label: 'Grab from Screen Area...'
                   itemValue: grabScreenImage
-                  translateLabel: true
                 )
                (MenuItem
                   activeHelpKey: fileGrabImageFromScreen
                   enabled: hasLastGrabScreenArea
                   label: 'Grab again from same Screen Area'
                   itemValue: grabScreenImageFromLastArea
-                  translateLabel: true
                 )
                (MenuItem
                   label: '-'
@@ -2615,7 +2607,6 @@
                   activeHelpKey: fileGrabImageFromWindow
                   label: 'Grab from Window...'
                   itemValue: grabWindowImage
-                  translateLabel: true
                 )
                )
               nil
@@ -2630,35 +2621,30 @@
             enabled: imageIsLoadedAndClassDefined
             label: 'Save'
             itemValue: doSaveMethod
-            translateLabel: true
           )
          (MenuItem
             activeHelpKey: fileSaveMethodAs
             enabled: imageIsLoadedHolder
             label: 'Save As...'
             itemValue: doSaveMethodAs
-            translateLabel: true
           )
          (MenuItem
             activeHelpKey: fileSaveAs
             enabled: imageIsLoadedHolder
             label: 'Save to File...'
             itemValue: doSaveImageFileAs
-            translateLabel: true
           )
          (MenuItem
             activeHelpKey: fileSaveMaskAs
             enabled: imageIsLoadedHolder
             label: 'Save Mask to File...'
             itemValue: doSaveImageMaskFileAs
-            translateLabel: true
           )
          (MenuItem
             activeHelpKey: fileSaveButtonImageAs
             enabled: imageIsLoadedHolder
             label: 'Save as Button to File...'
             itemValue: doSaveButtonImageToFileAs
-            translateLabel: true
           )
          (MenuItem
             label: '-'
@@ -2668,7 +2654,6 @@
             enabled: imageIsLoadedHolder
             label: 'Print'
             itemValue: doPrint
-            translateLabel: true
           )
          (MenuItem
             label: '-'
@@ -2679,14 +2664,12 @@
             enabled: hasClassDefinedHolder
             label: 'Browse Class'
             itemValue: doBrowseClass
-            translateLabel: true
             isVisible: isStandAlone
           )
          (MenuItem
             enabled: imageIsLoadedHolder
             label: 'Inspect Image'
             itemValue: doInspectImage
-            translateLabel: true
             isVisible: isStandAlone
           )
          (MenuItem
@@ -2694,7 +2677,12 @@
             enabled: imageIsLoadedHolder
             label: 'Show storeString'
             itemValue: doShowStoreString
-            translateLabel: true
+          )
+         (MenuItem
+            activeHelpKey: fileShowStoreString
+            enabled: imageIsLoadedHolder
+            label: 'Show Pixel Array Literal String'
+            itemValue: doShowPixelArrayLiteralString
           )
          (MenuItem
             label: '-'
@@ -2704,15 +2692,12 @@
             activeHelpKey: fileExit
             label: 'Exit'
             itemValue: closeRequest
-            translateLabel: true
             isVisible: isStandAlone
           )
          )
         nil
         nil
       )
-
-    "Modified: / 01-02-2012 / 15:00:50 / cg"
 !
 
 menuMouseButtonColors
@@ -6690,6 +6675,16 @@
     ]
 !
 
+doShowPixelArrayLiteralString
+    "opens a dialog showing a literal array-like storeString
+     (sometimes useful to embed an image into source code)"
+
+    |img|
+
+    img := imageEditView image.
+    TextBox openOn:img bits storeString
+!
+
 doShowStoreString
     "opens a dialog showing the storeString
      (sometimes useful to embed an image into source code)"