--- a/DirectoryContentsBrowser.st	Fri Dec 06 11:50:24 2002 +0100
+++ b/DirectoryContentsBrowser.st	Fri Dec 06 12:48:59 2002 +0100
@@ -1388,14 +1388,14 @@
                 self pasteFiles.
                 ^ true.
             ].
-            (key == #CursorLeft) ifTrue:[
-                self doGoDirectoryUp.
-                ^ true
-            ].
-            (key == #CursorRight) ifTrue:[
-                self doBack.
-                ^ true
-            ].
+"/            (key == #CursorLeft) ifTrue:[
+"/                self doGoDirectoryUp.
+"/                ^ true
+"/            ].
+"/            (key == #CursorRight) ifTrue:[
+"/                self doBack.
+"/                ^ true
+"/            ].
             browserItemList size == 0 ifTrue:[
                 ^ false
             ].
@@ -2710,5 +2710,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.63 2002-12-04 17:11:57 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.64 2002-12-06 11:48:59 cg Exp $'
 ! !

--- a/FileApplicationNoteBook.st	Fri Dec 06 11:50:24 2002 +0100
+++ b/FileApplicationNoteBook.st	Fri Dec 06 12:48:59 2002 +0100
@@ -3025,32 +3025,33 @@
         #(
          #(#MenuItem
             #label: 'Edit'
+            #itemValue: #editImage
+            #nameKey: #EditImage
             #translateLabel: true
             #isButton: true
-            #nameKey: #EditImage
-            #value: #editImage
           )
          #(#MenuItem
             #label: '-'
           )
          #(#MenuItem
+            #activeHelpKey: #fitSize
             #label: 'FitSize'
             #translateLabel: true
             #isButton: true
             #triggerOnDown: true
+            #indication: #fitSize
             #labelImage: #(#ResourceRetriever #'FileApplicationNoteBook::ImageViewApplication' #fitSize20x20Icon)
-            #indication: #fitSize
           )
          #(#MenuItem
             #label: '-'
           )
          #(#MenuItem
             #label: 'Close'
+            #itemValue: #doClose
             #translateLabel: true
             #isButton: true
+            #startGroup: #right
             #hideMenuOnActivated: false
-            #startGroup: #right
-            #value: #doClose
             #labelImage: #(#ResourceRetriever #AbstractFileBrowser #closeIcon)
           )
          )
@@ -4713,5 +4714,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.39 2002-11-29 09:46:44 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.40 2002-12-06 11:48:45 cg Exp $'
 ! !