Tools__ProjectBuilderAssistantApplication.st
changeset 2960 9b1e724cb318
parent 2959 ab140a3e5eb6
child 2962 5eee09525324
equal deleted inserted replaced
2959:ab140a3e5eb6 2960:9b1e724cb318
  1278         window: 
  1278         window: 
  1279        (WindowSpec
  1279        (WindowSpec
  1280           label: 'Project Selection'
  1280           label: 'Project Selection'
  1281           name: 'Project Selection'
  1281           name: 'Project Selection'
  1282           min: (Point 0 0)
  1282           min: (Point 0 0)
  1283           bounds: (Rectangle 0 0 677 472)
  1283           bounds: (Rectangle 0 0 679 492)
  1284         )
  1284         )
  1285         component: 
  1285         component: 
  1286        (SpecCollection
  1286        (SpecCollection
  1287           collection: (
  1287           collection: (
  1288            (FramedBoxSpec
  1288            (FramedBoxSpec
  1309                
  1309                
  1310               )
  1310               )
  1311             )
  1311             )
  1312            (HorizontalPanelViewSpec
  1312            (HorizontalPanelViewSpec
  1313               name: 'HorizontalPanel1'
  1313               name: 'HorizontalPanel1'
  1314               layout: (LayoutFrame 0 0 -60 1 0 1 -30 1)
  1314               layout: (LayoutFrame 0 0 -90 1 0 1 -60 1)
  1315               horizontalLayout: leftSpace
  1315               horizontalLayout: leftSpace
  1316               verticalLayout: center
  1316               verticalLayout: center
  1317               horizontalSpace: 3
  1317               horizontalSpace: 3
  1318               verticalSpace: 3
  1318               verticalSpace: 3
  1319               component: 
  1319               component: 
  1354                
  1354                
  1355               )
  1355               )
  1356             )
  1356             )
  1357            (HorizontalPanelViewSpec
  1357            (HorizontalPanelViewSpec
  1358               name: 'HorizontalPanel2'
  1358               name: 'HorizontalPanel2'
  1359               layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
  1359               layout: (LayoutFrame 0 0 -60 1 0 1 -30 1)
  1360               horizontalLayout: leftSpace
  1360               horizontalLayout: leftSpace
  1361               verticalLayout: center
  1361               verticalLayout: center
  1362               horizontalSpace: 3
  1362               horizontalSpace: 3
  1363               verticalSpace: 3
  1363               verticalSpace: 3
  1364               component: 
  1364               component: 
  1373                     model: doOpenFinder
  1373                     model: doOpenFinder
  1374                     extent: (Point 167 22)
  1374                     extent: (Point 167 22)
  1375                   )
  1375                   )
  1376                  (ActionButtonSpec
  1376                  (ActionButtonSpec
  1377                     label: 'Explorer on Build Directory'
  1377                     label: 'Explorer on Build Directory'
  1378                     name: 'Button13'
  1378                     name: 'Button14'
  1379                     activeHelpKey: openExplorer
  1379                     activeHelpKey: openExplorer
  1380                     visibilityChannel: osIsWindows
  1380                     visibilityChannel: osIsWindows
  1381                     translateLabel: true
  1381                     translateLabel: true
  1382                     model: doOpenExplorer
  1382                     model: doOpenExplorer
  1383                     extent: (Point 167 22)
  1383                     extent: (Point 167 22)
  1398                     label: 'Clear Build Directory'
  1398                     label: 'Clear Build Directory'
  1399                     name: 'Button12'
  1399                     name: 'Button12'
  1400                     activeHelpKey: clearBuildDirectory
  1400                     activeHelpKey: clearBuildDirectory
  1401                     translateLabel: true
  1401                     translateLabel: true
  1402                     model: doClearBuildDirectory
  1402                     model: doClearBuildDirectory
       
  1403                     extent: (Point 167 22)
       
  1404                   )
       
  1405                  )
       
  1406                
       
  1407               )
       
  1408             )
       
  1409            (HorizontalPanelViewSpec
       
  1410               name: 'HorizontalPanel3'
       
  1411               layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
       
  1412               horizontalLayout: leftSpace
       
  1413               verticalLayout: center
       
  1414               horizontalSpace: 3
       
  1415               verticalSpace: 3
       
  1416               component: 
       
  1417              (SpecCollection
       
  1418                 collection: (
       
  1419                  (ActionButtonSpec
       
  1420                     label: 'Terminal in Build Directory'
       
  1421                     name: 'Button15'
       
  1422                     activeHelpKey: openFinder
       
  1423                     visibilityChannel: osIsOSX
       
  1424                     translateLabel: true
       
  1425                     model: doOpenTerminal
  1403                     extent: (Point 167 22)
  1426                     extent: (Point 167 22)
  1404                   )
  1427                   )
  1405                  )
  1428                  )
  1406                
  1429                
  1407               )
  1430               )
  1831     projectBuilder packageBuildDirectory asFilename openFinder
  1854     projectBuilder packageBuildDirectory asFilename openFinder
  1832 
  1855 
  1833     "Modified: / 21-07-2012 / 12:29:21 / cg"
  1856     "Modified: / 21-07-2012 / 12:29:21 / cg"
  1834 !
  1857 !
  1835 
  1858 
       
  1859 doOpenTerminal
       
  1860     projectBuilder isNil ifTrue:[ self getProjectBuilder ].
       
  1861     projectBuilder buildDirectory isNil ifTrue:[
       
  1862         Dialog information:'No build directory yet'.
       
  1863         ^  self
       
  1864     ].
       
  1865     projectBuilder packageBuildDirectory asFilename openTerminal
       
  1866 !
       
  1867 
  1836 doStartMake:whichTarget
  1868 doStartMake:whichTarget
  1837     <resource: #uiCallback>
  1869     <resource: #uiCallback>
  1838 
  1870 
  1839     self stopMakeButtonVisible value:true.
  1871     self stopMakeButtonVisible value:true.
  1840     self startMakeButtonEnabled value:false.
  1872     self startMakeButtonEnabled value:false.