# HG changeset patch # User Claus Gittinger # Date 1140040510 -3600 # Node ID caa9b0a1e638052c73ae9fe875af22b9fb91ce92 # Parent b12d9b4dd6f2b8b15d349b53b5209a74256c59cb *** empty log message *** diff -r b12d9b4dd6f2 -r caa9b0a1e638 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 "