--- a/FileBrowserV2.st	Tue Jul 25 11:25:47 2006 +0200
+++ b/FileBrowserV2.st	Tue Jul 25 11:26:07 2006 +0200
@@ -566,7 +566,7 @@
             )
            (#'FileBrowserV2UISpecifications::PanelSpec'
               name: 'BrowserBox'
-              layout: (LayoutFrame 0 0.0 57 0.0 0 1.0 -20 1.0)
+              layout: (LayoutFrame 0 0.0 57 0.0 0 1.0 -26 1.0)
               level: 0
               showHandle: true
               snapMode: both
@@ -624,9 +624,9 @@
             )
            (ViewSpec
               name: 'InfoBox'
-              layout: (LayoutFrame 0 0 -20 1 0 1 0 1)
+              layout: (LayoutFrame 0 0 -26 1 0 1 0 1)
+              level: 0
               visibilityChannel: infoBarVisibleHolder
-              level: 0
               component: 
              (SpecCollection
                 collection: (
@@ -687,6 +687,16 @@
                     )
                   )
                  (LabelSpec
+                    name: 'BusyLabel'
+                    layout: (LayoutFrame -220 1 1 0.0 -60 1 1 1.0)
+                    activeHelpKey: modeLabel
+                    level: -1
+                    visibilityChannel: busyLabelVisibleHolder
+                    translateLabel: true
+                    labelChannel: busyLabelHolder
+                    adjust: right
+                  )
+                 (LabelSpec
                     label: 'M'
                     name: 'ModeLabel'
                     layout: (LayoutFrame -60 1 1 0.0 -50 1 1 1.0)
@@ -1240,6 +1250,14 @@
 
 !FileBrowserV2 methodsFor:'aspects'!
 
+busyLabelHolder
+    ^ self 
+        aspectFor:#busyLabelHolder 
+        ifAbsent:[ ' ' asValue ].
+
+    "Created: / 25-07-2006 / 09:06:00 / cg"
+!
+
 cursorColLabelHolder
     ^ self 
         aspectFor:#cursorColLabelHolder 
@@ -1308,6 +1326,12 @@
 
 !FileBrowserV2 methodsFor:'aspects-visibility'!
 
+busyLabelVisibleHolder
+    ^ self aspectFor:#busyLabelVisibleHolder ifAbsent:[false asValue]
+
+    "Created: / 25-07-2006 / 09:06:22 / cg"
+!
+
 driveSelectorVisible
     ^ self systemIsDOS
 !
@@ -1772,7 +1796,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.152 2006-07-25 06:50:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.153 2006-07-25 09:26:07 cg Exp $'
 ! !
 
 FileBrowserV2 initialize!