--- a/FileBrowserV2.st	Tue Feb 21 18:21:21 2006 +0100
+++ b/FileBrowserV2.st	Tue Feb 21 18:21:39 2006 +0100
@@ -623,8 +623,9 @@
               handles: (Any 0.5 1.0)
             )
            (ViewSpec
-              name: 'Box2'
+              name: 'InfoBox'
               layout: (LayoutFrame 0 0 -20 1 0 1 0 1)
+              visibilityChannel: infoBarVisibleHolder
               level: 0
               component: 
              (SpecCollection
@@ -867,6 +868,12 @@
                   indication: filenameEntryFieldVisibleHolder
                 )
                (MenuItem
+                  label: 'Info'
+                  translateLabel: true
+                  hideMenuOnActivated: false
+                  indication: infoBarVisibleHolder
+                )
+               (MenuItem
                   label: 'Preview'
                   translateLabel: true
                   hideMenuOnActivated: false
@@ -1308,6 +1315,12 @@
     ^ self aspectFor:#filenameEntryFieldVisibleHolder ifAbsent:[true asValue]
 !
 
+infoBarVisibleHolder
+    " aspect for show infoBar "
+
+    ^ self aspectFor:#infoBarVisibleHolder ifAbsent:[true asValue]
+!
+
 previewVisibleHolder
     " aspect for show preview"
 
@@ -1483,7 +1496,8 @@
         ^ self.
     ].
     (changedObject == self toolBarVisibleHolder 
-    or:[changedObject == self filenameEntryFieldVisibleHolder]) ifTrue:[
+    or:[changedObject == self filenameEntryFieldVisibleHolder
+    or:[changedObject == self infoBarVisibleHolder]]) ifTrue:[
         self updateToolVisibility.
         ^ self.
     ].
@@ -1535,19 +1549,22 @@
 !
 
 updateToolVisibility
-    |builder toolBar filenameEntryField vPanel topOffset visible d|
+    |builder toolBar infoBar filenameEntryField vPanel topOffset bottomOffset
+     toolBarVisible filenameEntryFieldVisible infoBarVisible d|
 
     builder := self builder.
 
     topOffset := 0.
-    visible := self toolBarVisibleHolder value.
-    visible ifTrue:[
+    bottomOffset := 0.
+
+    toolBarVisible := self toolBarVisibleHolder value.
+    toolBarVisible ifTrue:[
         toolBar := builder componentAt:#ToolbarBox.
         topOffset := topOffset + toolBar height.
     ].
 
-    visible := self filenameEntryFieldVisibleHolder value.
-    visible ifTrue:[
+    filenameEntryFieldVisible := self filenameEntryFieldVisibleHolder value.
+    filenameEntryFieldVisible ifTrue:[
         filenameEntryField := builder componentAt:#FilenameEntryFieldBox.
         d := filenameEntryField layout bottomOffset - filenameEntryField layout topOffset.
         filenameEntryField layout topOffset:topOffset bottomOffset:topOffset + d.
@@ -1557,8 +1574,15 @@
         ].
     ].
 
+    infoBarVisible := self infoBarVisibleHolder value.
+    infoBarVisible ifTrue:[
+        infoBar := builder componentAt:#InfoBox.
+        bottomOffset := bottomOffset - infoBar height.
+    ].
+
     vPanel := builder componentAt:#BrowserBox.
     vPanel layout topOffset:topOffset+1.
+    vPanel layout bottomOffset:bottomOffset-1.
     vPanel container notNil ifTrue:[
         vPanel containerChangedSize.
     ].
@@ -1689,6 +1713,7 @@
     self sortBlockProperty addDependent:self.
     self filenameEntryFieldVisibleHolder addDependent:self.
     self toolBarVisibleHolder addDependent:self.
+    self infoBarVisibleHolder addDependent:self.
     self previewVisibleHolder addDependent:self.
 !
 
@@ -1726,6 +1751,7 @@
 postOpenWith:aBuilder
 
     super postOpenWith:aBuilder.
+
     self currentFileNameHolderChangedForCommon.
     self currentFileNameHolderChanged.
 
@@ -1741,7 +1767,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.149 2006-02-21 12:19:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.150 2006-02-21 17:21:39 cg Exp $'
 ! !
 
 FileBrowserV2 initialize!