--- a/ToolApplicationModel.st	Wed Feb 15 22:02:40 2006 +0100
+++ b/ToolApplicationModel.st	Wed Feb 15 22:20:17 2006 +0100
@@ -622,13 +622,12 @@
           #min: #(#Point 400 320)
           #max: #(#Point 1152 900)
           #bounds: #(#Rectangle 13 23 513 369)
-          #menu: #menu
         )
         #component: 
        #(#SpecCollection
           #collection: #(
            #(#ViewSpec
-              #name: 'view'
+              #name: 'infoView'
               #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
               #component: 
              #(#SpecCollection
@@ -675,13 +674,12 @@
           #min: #(#Point 400 320)
           #max: #(#Point 1152 900)
           #bounds: #(#Rectangle 13 23 513 343)
-          #menu: #menu
         )
         #component: 
        #(#SpecCollection
           #collection: #(
            #(#VariableHorizontalPanelSpec
-              #name: 'VariableHorizontalPanel1'
+              #name: 'infoView'
               #layout: #(#LayoutFrame 0 0 0 0 0 1 0 1)
               #barWidth: 2
               #showHandle: false
@@ -971,6 +969,11 @@
     ^ builder nilValueAspectFor:#valueOfInfoLabel
 !
 
+infoLabelHolder:aValueHolder
+    builder aspectAt:#useAlienInfoLabelHolder put:true.
+    builder aspectAt:#valueOfInfoLabel put:aValueHolder.
+!
+
 modifiedChannel
     "returns a valueHolder which is set to true, whenever any of
      my editfields is modified - this is hooked to
@@ -1615,5 +1618,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.125 2006-02-15 17:24:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.126 2006-02-15 21:20:17 cg Exp $'
 ! !