--- a/FileApplicationNoteBook.st Wed Nov 26 08:33:17 2014 +0100
+++ b/FileApplicationNoteBook.st Wed Nov 26 13:07:44 2014 +0100
@@ -3996,7 +3996,10 @@
^ super flyByHelpSpec addPairsFrom:#(
#'fitImageSize'
-'Shrink Image to Fit View'
+'Shrink image to fit view'
+
+#'showHex'
+'Show a hex dump of the file''s contents'
)
! !
@@ -4110,6 +4113,7 @@
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
+
"
MenuEditor new openOnClass:FileApplicationNoteBook::ImageViewApplication andSelector:#menu
(Menu new fromLiteralArrayEncoding:(FileApplicationNoteBook::ImageViewApplication menu)) startUp
@@ -4118,40 +4122,48 @@
<resource: #menu>
^
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Edit'
- #itemValue: #editImage
- #nameKey: #EditImage
- #translateLabel: true
- #isButton: true
- #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #startImageEditorIcon)
+ #(Menu
+ (
+ (MenuItem
+ label: 'Edit'
+ itemValue: editImage
+ nameKey: EditImage
+ isButton: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary startImageEditorIcon)
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: fitImageSize
+ label: 'FitSize'
+ isButton: true
+ triggerOnDown: true
+ indication: fitSize
+ labelImage: (ResourceRetriever ToolbarIconLibrary fitImageSizeToViewIcon)
)
- #(#MenuItem
- #activeHelpKey: #fitImageSize
- #label: 'FitSize'
- #translateLabel: true
- #isButton: true
- #triggerOnDown: true
- #indication: #fitSize
- #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #fitImageSizeToViewIcon)
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: showHex
+ label: 'ShowHex'
+ itemValue: showHex
+ isButton: true
+ triggerOnDown: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary hexToggleIcon)
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: ''
)
- #(#MenuItem
- #activeHelpKey: #closeTabButton
- #label: 'Close'
- #itemValue: #doClose
- #translateLabel: true
- #isButton: true
- #startGroup: #right
- #hideMenuOnActivated: false
- #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #removeTabIcon)
+ (MenuItem
+ activeHelpKey: closeTabButton
+ label: 'Close'
+ itemValue: doClose
+ isButton: true
+ startGroup: right
+ hideMenuOnActivated: false
+ labelImage: (ResourceRetriever ToolbarIconLibrary removeTabIcon)
)
)
nil
@@ -4248,6 +4260,10 @@
^ nil
].
^ img.
+!
+
+showHex
+ masterApplication openTextEditorWithHexPresentationOn:item
! !
!FileApplicationNoteBook::ImageViewApplication methodsFor:'aspects'!
@@ -7472,10 +7488,10 @@
!FileApplicationNoteBook class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.308 2014-11-18 20:58:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.309 2014-11-26 12:07:44 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.308 2014-11-18 20:58:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.309 2014-11-26 12:07:44 cg Exp $'
! !