diff -r 664522b11cde -r 9f115893b4df UIPainter.st
--- a/UIPainter.st	Wed Jan 21 20:26:38 1998 +0100
+++ b/UIPainter.st	Wed Jan 21 20:53:10 1998 +0100
@@ -471,11 +471,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'Tree-View'
-              #'layout:' #(#LayoutFrame 536 0 334 0 1088 0 794 0)
+              #'layout:' #(#LayoutFrame 38 0 287 0 590 0 747 0)
               #'label:' 'Tree-View'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1160 870)
-              #'bounds:' #(#Rectangle 536 334 1089 795)
+              #'bounds:' #(#Rectangle 38 287 591 748)
               #'menu:' #menu
               #'usePreferredExtent:' false
           )
@@ -493,7 +493,7 @@
                 )
                  #(#VariableVerticalPanelSpec
                     #'name:' 'vpanel'
-                    #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 0 1.0)
+                    #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -22 1.0)
                     #'component:' 
                      #(#SpecCollection
                         #'collection:' 
@@ -635,6 +635,20 @@
                     )
                     #'handles:' #(#Any 0.880597 1.0)
                 )
+                 #(#LabelSpec
+                    #'name:' 'infoLabel'
+                    #'layout:' #(#LayoutFrame 0 0.0 -22 1 -80 1.0 0 1.0)
+                    #'labelChannel:' #valueOfInfoLabel
+                    #'level:' 1
+                    #'adjust:' #left
+                )
+                 #(#LabelSpec
+                    #'name:' 'timeLabel'
+                    #'layout:' #(#LayoutFrame -80 1 -22 1 0 1.0 0 1.0)
+                    #'labelChannel:' #valueOfTimeLabel
+                    #'level:' 1
+                    #'adjust:' #right
+                )
               )
           )
       )
@@ -1794,7 +1808,7 @@
         specClass isString ifTrue: [className := specClass].
         message := className, ' ', specSelector.
         self addToHistory: message -> #loadFromMessage:.
-        self valueOfInfoLabel value: className, ' << ', specSelector
+        self valueOfInfoLabel value: className, ' >> ', specSelector
     ].
     "Modified: 24.6.1997 / 19:07:01 / cg"
 !