diff -r da096866700d -r b8003fbf8094 FileApplicationNoteBook.st --- 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 @@ ^ - #(#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 $' ! !