FileApplicationNoteBook.st
changeset 14906 b8003fbf8094
parent 14841 4e687999a17d
child 14907 647b035e2f5f
--- 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 $'
 ! !