*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 15 Feb 2006 22:55:10 +0100
changeset 2002 caa9b0a1e638
parent 2001 b12d9b4dd6f2
child 2003 d32a3742144b
*** empty log message ***
UIHelpTool.st
--- a/UIHelpTool.st	Wed Feb 15 22:55:02 2006 +0100
+++ b/UIHelpTool.st	Wed Feb 15 22:55:10 2006 +0100
@@ -303,19 +303,29 @@
         component: 
        (SpecCollection
           collection: (
-           (UISubSpecification
-              name: 'innerSpec'
-              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -50 1.0)
-              minorKey: innerSpec
+           (ViewSpec
+              name: 'mainPanel'
+              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -24 1.0)
+              component: 
+             (SpecCollection
+                collection: (
+                 (UISubSpecification
+                    name: 'innerSpec'
+                    layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -24 1.0)
+                    minorKey: innerSpec
+                  )
+                 (UISubSpecification
+                    name: 'windowSpecForCommit'
+                    layout: (LayoutFrame 0 0.0 -24 1.0 0 1.0 0 1.0)
+                    majorKey: ToolApplicationModel
+                    minorKey: windowSpecForCommit
+                  )
+                 )
+               
+              )
             )
            (UISubSpecification
-              name: 'windowSpecForCommit'
-              layout: (LayoutFrame 0 0.0 -50 1.0 0 1.0 -24 1.0)
-              majorKey: ToolApplicationModel
-              minorKey: windowSpecForCommit
-            )
-           (UISubSpecification
-              name: 'windowSpecForInfoBar'
+              name: 'infoBarSubSpec'
               layout: (LayoutFrame 0 0 -24 1 0 1 0 1)
               majorKey: ToolApplicationModel
               minorKey: windowSpecForInfoBar
@@ -949,6 +959,14 @@
     ].
 !
 
+commonPostBuild
+    "/ using masters infoHolder ?
+    (builder aspectAt:#useAlienInfoLabelHolder) == true ifTrue:[
+        (builder componentAt:#mainPanel) layout bottomOffset:0.
+        (builder componentAt:#infoBarSubSpec) beInvisible
+    ]
+!
+
 initialize
     "setup default attributes
     "