--- a/Tools__ProjectBuilderAssistantApplication.st Mon Aug 20 17:12:51 2012 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st Mon Aug 20 17:40:25 2012 +0200
@@ -1244,7 +1244,7 @@
label: 'Project Selection'
name: 'Project Selection'
min: (Point 0 0)
- bounds: (Rectangle 0 0 521 472)
+ bounds: (Rectangle 0 0 677 472)
)
component:
(SpecCollection
@@ -1310,6 +1310,17 @@
model: doStopMake
extent: (Point 107 22)
)
+ (ViewSpec
+ name: 'Box2'
+ extent: (Point 20 10)
+ )
+ (ActionButtonSpec
+ label: 'Browse Build Directory'
+ name: 'Button6'
+ translateLabel: true
+ model: doBrowseBuildDirectory
+ extent: (Point 167 22)
+ )
)
)
@@ -1615,6 +1626,16 @@
].
!
+doBrowseBuildDirectory
+ <resource: #uiCallback>
+
+ UserPreferences current fileBrowserClass
+ openIn:projectBuilder packageBuildDirectory asFilename
+"/ projectBuilder packageBuildDirectory asFilename openExplorer
+
+ "Created: / 20-08-2012 / 17:05:54 / cg"
+!
+
doBrowseProject
<resource: #uiCallback>