# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1346836958 -7200
# Node ID 086fcfdbd1821d1426a116fcbc05e1eb2e90fdb8
# Parent  59c84eca29fd4b994543cba1b5eaeb3f5f566387
lcc support

diff -r 59c84eca29fd -r 086fcfdbd182 Tools__ProjectBuilderAssistantApplication.st
--- a/Tools__ProjectBuilderAssistantApplication.st	Wed Sep 05 11:22:06 2012 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st	Wed Sep 05 11:22:38 2012 +0200
@@ -1263,7 +1263,7 @@
            (FramedBoxSpec
               label: 'Make Output'
               name: 'FramedBox3'
-              layout: (LayoutFrame 0 0.0 5 0 4 1.0 -30 1)
+              layout: (LayoutFrame 0 0.0 5 0 4 1.0 -60 1)
               labelPosition: topLeft
               translateLabel: true
               component: 
@@ -1285,7 +1285,7 @@
             )
            (HorizontalPanelViewSpec
               name: 'HorizontalPanel1'
-              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
+              layout: (LayoutFrame 0 0 -60 1 0 1 -30 1)
               horizontalLayout: leftSpace
               verticalLayout: center
               horizontalSpace: 3
@@ -1321,15 +1321,44 @@
                     model: doStopMake
                     extent: (Point 107 22)
                   )
+                 )
+               
+              )
+            )
+           (HorizontalPanelViewSpec
+              name: 'HorizontalPanel2'
+              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
+              horizontalLayout: leftSpace
+              verticalLayout: center
+              horizontalSpace: 3
+              verticalSpace: 3
+              component: 
+             (SpecCollection
+                collection: (
+                 (ActionButtonSpec
+                    label: 'Explorer on Build Directory'
+                    name: 'Button13'
+                    visibilityChannel: osIsWindows
+                    translateLabel: true
+                    model: doOpenExplorer
+                    extent: (Point 167 22)
+                  )
+                 (ActionButtonSpec
+                    label: 'Browser on Build Directory'
+                    name: 'Button11'
+                    translateLabel: true
+                    model: doBrowseBuildDirectory
+                    extent: (Point 167 22)
+                  )
                  (ViewSpec
-                    name: 'Box2'
+                    name: 'Box1'
                     extent: (Point 20 10)
                   )
                  (ActionButtonSpec
-                    label: 'Browse Build Directory'
-                    name: 'Button6'
+                    label: 'Clear Build Directory'
+                    name: 'Button12'
                     translateLabel: true
-                    model: doBrowseBuildDirectory
+                    model: doClearBuildDirectory
                     extent: (Point 167 22)
                   )
                  )
@@ -1340,6 +1369,8 @@
          
         )
       )
+
+    "Modified: / 05-09-2012 / 11:19:06 / cg"
 !
 
 page8_deploySpec
@@ -1677,6 +1708,14 @@
     ].
 !
 
+doClearBuildDirectory
+    <resource: #uiCallback>
+
+    projectBuilder packageBuildDirectory asFilename recursiveRemove
+
+    "Created: / 05-09-2012 / 10:35:54 / cg"
+!
+
 doGenerateProjectContentsDefinition
     self generatePackageContentsMethods
 !
@@ -2352,7 +2391,10 @@
 !
 
 postBuildMakeOutputWindow:aView
-    makeOutputWindow := aView
+    makeOutputWindow := aView.
+    makeOutputWindow lineLimit:10000.
+
+    "Modified: / 05-09-2012 / 11:11:45 / cg"
 !
 
 postBuildNewProjectsNameListExtendedComboBox:anExtendedComboBox