--- a/ImageEditor.st	Mon Sep 10 16:16:42 2001 +0200
+++ b/ImageEditor.st	Thu Sep 13 10:34:51 2001 +0200
@@ -1011,9 +1011,10 @@
             #submenuChannel: #menuAbout
           )
          #(#MenuItem
-            #label: 'File'
+            #label: '&File'
             #translateLabel: true
             #activeHelpKey: #file
+            #shortcutKeyCharacter: #Cmdf
             #submenu: 
            #(#Menu
               #(
@@ -1256,12 +1257,12 @@
                     nil
                   )
                 )
-                #(#MenuItem
-                   #label: 'Ungrop (Add Border)...'
-                   #translateLabel: true
-                   #value: #doUnCropManual
-                   #activeHelpKey: #uncropManual
-                 )
+               #(#MenuItem
+                  #label: 'Ungrop (Add Border)...'
+                  #translateLabel: true
+                  #value: #doUnCropManual
+                  #activeHelpKey: #uncropManual
+                )
                )
               nil
               nil