lcc support
authorClaus Gittinger <cg@exept.de>
Wed, 05 Sep 2012 11:22:38 +0200
changeset 2917086fcfdbd182
parent 2916 59c84eca29fd
child 2918 47d5c20da62d
lcc support
Tools__ProjectBuilderAssistantApplication.st
     1.1 --- a/Tools__ProjectBuilderAssistantApplication.st	Wed Sep 05 11:22:06 2012 +0200
     1.2 +++ b/Tools__ProjectBuilderAssistantApplication.st	Wed Sep 05 11:22:38 2012 +0200
     1.3 @@ -1263,7 +1263,7 @@
     1.4             (FramedBoxSpec
     1.5                label: 'Make Output'
     1.6                name: 'FramedBox3'
     1.7 -              layout: (LayoutFrame 0 0.0 5 0 4 1.0 -30 1)
     1.8 +              layout: (LayoutFrame 0 0.0 5 0 4 1.0 -60 1)
     1.9                labelPosition: topLeft
    1.10                translateLabel: true
    1.11                component: 
    1.12 @@ -1285,7 +1285,7 @@
    1.13              )
    1.14             (HorizontalPanelViewSpec
    1.15                name: 'HorizontalPanel1'
    1.16 -              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
    1.17 +              layout: (LayoutFrame 0 0 -60 1 0 1 -30 1)
    1.18                horizontalLayout: leftSpace
    1.19                verticalLayout: center
    1.20                horizontalSpace: 3
    1.21 @@ -1321,15 +1321,44 @@
    1.22                      model: doStopMake
    1.23                      extent: (Point 107 22)
    1.24                    )
    1.25 +                 )
    1.26 +               
    1.27 +              )
    1.28 +            )
    1.29 +           (HorizontalPanelViewSpec
    1.30 +              name: 'HorizontalPanel2'
    1.31 +              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
    1.32 +              horizontalLayout: leftSpace
    1.33 +              verticalLayout: center
    1.34 +              horizontalSpace: 3
    1.35 +              verticalSpace: 3
    1.36 +              component: 
    1.37 +             (SpecCollection
    1.38 +                collection: (
    1.39 +                 (ActionButtonSpec
    1.40 +                    label: 'Explorer on Build Directory'
    1.41 +                    name: 'Button13'
    1.42 +                    visibilityChannel: osIsWindows
    1.43 +                    translateLabel: true
    1.44 +                    model: doOpenExplorer
    1.45 +                    extent: (Point 167 22)
    1.46 +                  )
    1.47 +                 (ActionButtonSpec
    1.48 +                    label: 'Browser on Build Directory'
    1.49 +                    name: 'Button11'
    1.50 +                    translateLabel: true
    1.51 +                    model: doBrowseBuildDirectory
    1.52 +                    extent: (Point 167 22)
    1.53 +                  )
    1.54                   (ViewSpec
    1.55 -                    name: 'Box2'
    1.56 +                    name: 'Box1'
    1.57                      extent: (Point 20 10)
    1.58                    )
    1.59                   (ActionButtonSpec
    1.60 -                    label: 'Browse Build Directory'
    1.61 -                    name: 'Button6'
    1.62 +                    label: 'Clear Build Directory'
    1.63 +                    name: 'Button12'
    1.64                      translateLabel: true
    1.65 -                    model: doBrowseBuildDirectory
    1.66 +                    model: doClearBuildDirectory
    1.67                      extent: (Point 167 22)
    1.68                    )
    1.69                   )
    1.70 @@ -1340,6 +1369,8 @@
    1.71           
    1.72          )
    1.73        )
    1.74 +
    1.75 +    "Modified: / 05-09-2012 / 11:19:06 / cg"
    1.76  !
    1.77  
    1.78  page8_deploySpec
    1.79 @@ -1677,6 +1708,14 @@
    1.80      ].
    1.81  !
    1.82  
    1.83 +doClearBuildDirectory
    1.84 +    <resource: #uiCallback>
    1.85 +
    1.86 +    projectBuilder packageBuildDirectory asFilename recursiveRemove
    1.87 +
    1.88 +    "Created: / 05-09-2012 / 10:35:54 / cg"
    1.89 +!
    1.90 +
    1.91  doGenerateProjectContentsDefinition
    1.92      self generatePackageContentsMethods
    1.93  !
    1.94 @@ -2352,7 +2391,10 @@
    1.95  !
    1.96  
    1.97  postBuildMakeOutputWindow:aView
    1.98 -    makeOutputWindow := aView
    1.99 +    makeOutputWindow := aView.
   1.100 +    makeOutputWindow lineLimit:10000.
   1.101 +
   1.102 +    "Modified: / 05-09-2012 / 11:11:45 / cg"
   1.103  !
   1.104  
   1.105  postBuildNewProjectsNameListExtendedComboBox:anExtendedComboBox