--- 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.