*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 26 Sep 2001 13:28:55 +0200
changeset 3213 4f28f202b9fa
parent 3212 495a04425f30
child 3214 4c8ec2041cdb
*** empty log message ***
FileBrowser.st
--- a/FileBrowser.st	Wed Sep 26 12:00:58 2001 +0200
+++ b/FileBrowser.st	Wed Sep 26 13:28:55 2001 +0200
@@ -706,31 +706,6 @@
      #(#Menu
         #(
          #(#MenuItem
-            #label: 'About'
-            #translateLabel: true
-            #labelImage: #(#ResourceRetriever #ToolApplicationModel #menuIcon)
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'About Smalltalk/X...'
-                  #translateLabel: true
-                  #value: #showAboutSTX
-                )
-               #(#MenuItem
-                  #label: '-'
-                )
-               #(#MenuItem
-                  #label: 'About FileBrowser...'
-                  #translateLabel: true
-                  #value: #openAboutThisApplication
-                )
-               )
-              nil
-              nil
-            )
-          )
-         #(#MenuItem
             #label: 'File'
             #translateLabel: true
             #submenu: 
@@ -747,9 +722,9 @@
                #(#MenuItem
                   #label: 'Open'
                   #translateLabel: true
+                  #isVisible: false
                   #value: #menuOpen
                   #enabled: #hasSelection
-                  #isVisible: false
                 )
                #(#MenuItem
                   #label: 'Open selected Filename'
@@ -1072,6 +1047,14 @@
                   #value: #openHTMLDocument:
                   #argument: 'tools/fbrowser/TOP.html'
                 )
+               #(#MenuItem
+                  #label: '-'
+                )
+               #(#MenuItem
+                  #label: 'About FileBrowser...'
+                  #translateLabel: true
+                  #value: #openAboutThisApplication
+                )
                )
               nil
               nil
@@ -7343,5 +7326,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.420 2001-09-26 08:51:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.421 2001-09-26 11:28:55 cg Exp $'
 ! !