# HG changeset patch # User Claus Gittinger # Date 1361737423 -3600 # Node ID 9b1e724cb3185750a2ae1b6d375579ad91a5a36a # Parent ab140a3e5eb6f9ae56c3736b7ddc564132a1948e class: Tools::ProjectBuilderAssistantApplication added: #doOpenTerminal changed: #page7_buildSpec diff -r ab140a3e5eb6 -r 9b1e724cb318 Tools__ProjectBuilderAssistantApplication.st --- a/Tools__ProjectBuilderAssistantApplication.st Sat Feb 23 14:27:45 2013 +0100 +++ b/Tools__ProjectBuilderAssistantApplication.st Sun Feb 24 21:23:43 2013 +0100 @@ -1280,7 +1280,7 @@ label: 'Project Selection' name: 'Project Selection' min: (Point 0 0) - bounds: (Rectangle 0 0 677 472) + bounds: (Rectangle 0 0 679 492) ) component: (SpecCollection @@ -1311,7 +1311,7 @@ ) (HorizontalPanelViewSpec name: 'HorizontalPanel1' - layout: (LayoutFrame 0 0 -60 1 0 1 -30 1) + layout: (LayoutFrame 0 0 -90 1 0 1 -60 1) horizontalLayout: leftSpace verticalLayout: center horizontalSpace: 3 @@ -1356,7 +1356,7 @@ ) (HorizontalPanelViewSpec name: 'HorizontalPanel2' - 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 @@ -1375,7 +1375,7 @@ ) (ActionButtonSpec label: 'Explorer on Build Directory' - name: 'Button13' + name: 'Button14' activeHelpKey: openExplorer visibilityChannel: osIsWindows translateLabel: true @@ -1406,6 +1406,29 @@ ) ) + (HorizontalPanelViewSpec + name: 'HorizontalPanel3' + layout: (LayoutFrame 0 0 -30 1 0 1 0 1) + horizontalLayout: leftSpace + verticalLayout: center + horizontalSpace: 3 + verticalSpace: 3 + component: + (SpecCollection + collection: ( + (ActionButtonSpec + label: 'Terminal in Build Directory' + name: 'Button15' + activeHelpKey: openFinder + visibilityChannel: osIsOSX + translateLabel: true + model: doOpenTerminal + extent: (Point 167 22) + ) + ) + + ) + ) ) ) @@ -1833,6 +1856,15 @@ "Modified: / 21-07-2012 / 12:29:21 / cg" ! +doOpenTerminal + projectBuilder isNil ifTrue:[ self getProjectBuilder ]. + projectBuilder buildDirectory isNil ifTrue:[ + Dialog information:'No build directory yet'. + ^ self + ]. + projectBuilder packageBuildDirectory asFilename openTerminal +! + doStartMake:whichTarget