# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1363032572 -3600
# Node ID 39b101cb0e93c7d9b4401d262f98c9633c8f04af
# Parent  7db782e25d019d3f504adfec1be687d70b7a04ee
mingw build (unfinished)

diff -r 7db782e25d01 -r 39b101cb0e93 Tools__ProjectBuilderAssistantApplication.st
--- a/Tools__ProjectBuilderAssistantApplication.st	Mon Mar 11 21:09:28 2013 +0100
+++ b/Tools__ProjectBuilderAssistantApplication.st	Mon Mar 11 21:09:32 2013 +0100
@@ -367,6 +367,10 @@
 #makeExe
 'Build the executable only (for test-running).'
 
+#makeExeQuick
+'Quick build the executable only (for test-running). 
+Does not regenerate the header files. Only the target package files are recreated.'
+
 #makeOutput
 'Displays the output of the build process (make command).'
 
@@ -1330,8 +1334,8 @@
                     hasHorizontalScrollBar: true
                     hasVerticalScrollBar: true
                     hasKeyboardFocusInitially: false
+                    viewClassName: 'TextCollector'
                     postBuildCallback: postBuildMakeOutputWindow:
-                    viewClassName: 'TextCollector'
                   )
                  )
                
@@ -1365,6 +1369,15 @@
                     enableChannel: startMakeButtonEnabled
                     extent: (Point 107 22)
                   )
+                 (ActionButtonSpec
+                    label: 'Quick Make EXE'
+                    name: 'Button16'
+                    activeHelpKey: makeExeQuick
+                    translateLabel: true
+                    model: doStartMakeExeQuick
+                    enableChannel: startMakeButtonEnabled
+                    extent: (Point 107 22)
+                  )
                  (ViewSpec
                     name: 'Box1'
                     extent: (Point 20 10)
@@ -1932,6 +1945,12 @@
     self doStartMake:'exe'
 !
 
+doStartMakeExeQuick
+    <resource: #uiCallback>
+
+    self doStartMake:'exeQuick'
+!
+
 doStopMake
     <resource: #uiCallback>
 
@@ -1997,7 +2016,8 @@
         ex proceed.
     ] do:[
         self getProjectBuilder.
-        projectBuilder makeExeOnly:(what = 'exe').
+        projectBuilder makeExeOnly:((what = 'exe') or:[what = 'exeQuick']).
+        projectBuilder makeQuick:(what = 'exeQuick').
 
         Error handle:[:ex |
             makeOutputWindow endEntry.