added: #doBrowseBuildDirectory
authorClaus Gittinger <cg@exept.de>
Mon, 20 Aug 2012 17:40:25 +0200
changeset 2906 8057ed7bccd2
parent 2905 d02db91a0938
child 2907 c842e3e6f526
added: #doBrowseBuildDirectory changed: #page7_buildSpec
Tools__ProjectBuilderAssistantApplication.st
--- 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>