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