--- a/Tools__ProjectBuilderAssistantApplication.st Thu Sep 06 20:59:03 2012 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st Thu Sep 06 21:18:32 2012 +0200
@@ -334,7 +334,30 @@
'PackageID (module:directory).
Click to create a new (empty) ProjectDefinition for the given PackageID.'
+#clearBuildDirectory
+'Clear the build directory.'
+
+#makeAll
+'Build a self-installing deployable package.'
+
+#makeExe
+'Build the executable only (for test-running).'
+
+#makeOutput
+'Displays the output of the build process (make command).'
+
+#openExplorer
+'Open a Windows Explorer on the build directory. You can double-click on the built executable there.'
+
+#openFileBrowser
+'Open a Filebrowser on the build directory.'
+
+#stopMake
+'Abort the ongoing build process. Please clear the build directory afterwards to remove any leftover garbage.'
+
)
+
+ "Modified: / 06-09-2012 / 16:09:10 / cg"
! !
!ProjectBuilderAssistantApplication class methodsFor:'interface specs'!
@@ -1274,6 +1297,7 @@
(TextEditorSpec
name: 'MakeOutputWindow'
layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ activeHelpKey: makeOutput
model: makeOutputHolder
hasHorizontalScrollBar: true
hasVerticalScrollBar: true
@@ -1298,6 +1322,7 @@
(ActionButtonSpec
label: 'Make All'
name: 'Button3'
+ activeHelpKey: makeAll
translateLabel: true
model: doStartMakeAll
enableChannel: startMakeButtonEnabled
@@ -1306,6 +1331,7 @@
(ActionButtonSpec
label: 'Make EXE only'
name: 'Button5'
+ activeHelpKey: makeExe
translateLabel: true
model: doStartMakeExe
enableChannel: startMakeButtonEnabled
@@ -1318,6 +1344,7 @@
(ActionButtonSpec
label: 'Stop Make'
name: 'Button4'
+ activeHelpKey: stopMake
visibilityChannel: stopMakeButtonVisible
translateLabel: true
model: doStopMake
@@ -1340,6 +1367,7 @@
(ActionButtonSpec
label: 'Explorer on Build Directory'
name: 'Button13'
+ activeHelpKey: openExplorer
visibilityChannel: osIsWindows
translateLabel: true
model: doOpenExplorer
@@ -1348,17 +1376,19 @@
(ActionButtonSpec
label: 'Browser on Build Directory'
name: 'Button11'
+ activeHelpKey: openFileBrowser
translateLabel: true
model: doBrowseBuildDirectory
extent: (Point 167 22)
)
(ViewSpec
- name: 'Box1'
+ name: 'Box2'
extent: (Point 20 10)
)
(ActionButtonSpec
label: 'Clear Build Directory'
name: 'Button12'
+ activeHelpKey: clearBuildDirectory
translateLabel: true
model: doClearBuildDirectory
extent: (Point 167 22)
@@ -1371,8 +1401,6 @@
)
)
-
- "Modified: / 05-09-2012 / 11:19:06 / cg"
!
page8_deploySpec
@@ -1884,7 +1912,7 @@
].
].
- "Modified: / 22-01-2012 / 10:51:01 / cg"
+ "Modified: / 06-09-2012 / 16:22:51 / cg"
!
selectedApplicationChanged
@@ -2698,7 +2726,7 @@
].
].
- suite := self suiteNameOfCompiler:(self usedCompilerHolder value).
+ suite := ProjectBuilder suiteNameOfCompiler:(self usedCompilerHolder value).
self nameOfUsedCompilerSuiteHolder value:suite.
(OperatingSystem canExecuteCommand:cmd) ifFalse:[
@@ -2721,7 +2749,7 @@
self compilerWarnMessageVisibleHolder value:false
].
- "Modified: / 05-09-2012 / 19:14:00 / cg"
+ "Modified: / 06-09-2012 / 15:58:58 / cg"
!
enterContentsSpecification
@@ -2812,31 +2840,6 @@
makeOutputWindow contents:makeOutputHolder value
!
-suiteNameOfCompiler:usedCompiler
- usedCompiler = 'bcc' ifTrue:[
- ^ 'Borland C-Compiler'.
- ].
- usedCompiler = 'vc' ifTrue:[
- ^ 'Microsoft Visual C C-Compiler'.
- ].
- usedCompiler = 'lcc' ifTrue:[
- ^ 'LCC C-Compiler'.
- ].
- usedCompiler = 'tcc' ifTrue:[
- ^ 'Tiny C-Compiler'.
- ].
- usedCompiler = 'gcc' ifTrue:[
- ^ 'GNU C-Compiler'.
- ].
- usedCompiler = 'mingw' ifTrue:[
- ^ 'MINGW GNU C-Compiler'.
- ].
-
- ^ 'C-Compiler'.
-
- "Created: / 03-09-2012 / 19:28:41 / cg"
-!
-
update:something with:anArgument from:changedObject
changedObject == Smalltalk ifTrue:[
(something == #newClass