--- 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)"