Tools__ProjectBuilderAssistantApplication.st
changeset 3068 1b840afa3fd7
parent 3008 68256b19f036
child 3126 9002c0912b90
equal deleted inserted replaced
3067:4fc07457aef3 3068:1b840afa3fd7
   274             enterCallbackSelector: #checkCompilerAvailability
   274             enterCallbackSelector: #checkCompilerAvailability
   275             leaveCallbackSelector: #rememberUsedCompiler
   275             leaveCallbackSelector: #rememberUsedCompiler
   276         )
   276         )
   277 
   277 
   278         (AssistantPageSpec
   278         (AssistantPageSpec
       
   279             pageTitle: 'Check Into Source Repository'
       
   280             windowSpecSelector: page7a_checkinSpec
       
   281             infoText: 'Check the package''s source and build-support files into the source code repository (CVS).'
       
   282         )
       
   283 
       
   284         (AssistantPageSpec
   279             pageTitle: 'Build'
   285             pageTitle: 'Build'
   280             windowSpecSelector: page7_buildSpec
   286             windowSpecSelector: page7b_buildSpec
   281             canEnterQuerySelector: #canEnterBuild
   287             canEnterQuerySelector: #canEnterBuild
   282             enterCallbackSelector: #restoreMakeOutputsContents
   288             enterCallbackSelector: #restoreMakeOutputsContents
   283             leaveCallbackSelector: #rememberMakeOutputsContents
   289             leaveCallbackSelector: #rememberMakeOutputsContents
   284             infoText: 'Start the build-process. This will run "make"+"bcc/vc/gcc" to compile all required classes and "nsis" to generate a self-installable executable (on windows). 
   290             infoText: 'Start the build-process. This will run "make"+"bcc/vc/gcc" to compile all required classes and "nsis" to generate a self-installable executable (on windows). 
   285 You must have the compiler (borland-bcc or visual-c) and NullSoft NSIS packages installed for this to work.
   291 You must have the compiler (borland-bcc or visual-c) and NullSoft NSIS packages installed for this to work.
  1499          
  1505          
  1500         )
  1506         )
  1501       )
  1507       )
  1502 !
  1508 !
  1503 
  1509 
       
  1510 page7a_checkinSpec
       
  1511     "This resource specification was automatically generated
       
  1512      by the UIPainter of ST/X."
       
  1513 
       
  1514     "Do not manually edit this!! If it is corrupted,
       
  1515      the UIPainter may not be able to read the specification."
       
  1516 
       
  1517     "
       
  1518      UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page7a_checkinSpec
       
  1519      Tools::ProjectBuilderAssistantApplication new openInterface:#page7a_checkinSpec
       
  1520     "
       
  1521 
       
  1522     <resource: #canvas>
       
  1523 
       
  1524     ^ 
       
  1525     #(FullSpec
       
  1526        name: #'page7a_checkinSpec'
       
  1527        window: 
       
  1528       (WindowSpec
       
  1529          label: 'Check Into Repository'
       
  1530          name: 'Check Into Repository'
       
  1531          min: (Point 0 0)
       
  1532          bounds: (Rectangle 0 0 679 492)
       
  1533        )
       
  1534        component: 
       
  1535       (SpecCollection
       
  1536          collection: (
       
  1537           (HorizontalPanelViewSpec
       
  1538              name: 'HorizontalPanel2'
       
  1539              layout: (LayoutFrame 10 0 10 0 0 1 40 0)
       
  1540              horizontalLayout: leftSpace
       
  1541              verticalLayout: center
       
  1542              horizontalSpace: 3
       
  1543              verticalSpace: 3
       
  1544              component: 
       
  1545             (SpecCollection
       
  1546                collection: (
       
  1547                 (ActionButtonSpec
       
  1548                    label: 'Checkin...'
       
  1549                    name: 'Button13'
       
  1550                    activeHelpKey: openFinder
       
  1551                    visibilityChannel: osIsOSX
       
  1552                    translateLabel: true
       
  1553                    model: doCheckin
       
  1554                    useDefaultExtent: true
       
  1555                  )
       
  1556                 )
       
  1557               
       
  1558              )
       
  1559            )
       
  1560           )
       
  1561         
       
  1562        )
       
  1563      )
       
  1564 !
       
  1565 
       
  1566 page7b_buildSpec
       
  1567     "This resource specification was automatically generated
       
  1568      by the UIPainter of ST/X."
       
  1569 
       
  1570     "Do not manually edit this!! If it is corrupted,
       
  1571      the UIPainter may not be able to read the specification."
       
  1572 
       
  1573     "
       
  1574      UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page7_buildSpec
       
  1575      Tools::ProjectBuilderAssistantApplication new openInterface:#page7_buildSpec
       
  1576     "
       
  1577 
       
  1578     <resource: #canvas>
       
  1579 
       
  1580     ^ 
       
  1581      #(FullSpec
       
  1582         name: #'page7b_buildSpec'
       
  1583         window: 
       
  1584        (WindowSpec
       
  1585           label: 'Project Selection'
       
  1586           name: 'Project Selection'
       
  1587           min: (Point 0 0)
       
  1588           bounds: (Rectangle 0 0 679 492)
       
  1589         )
       
  1590         component: 
       
  1591        (SpecCollection
       
  1592           collection: (
       
  1593            (FramedBoxSpec
       
  1594               label: 'Make Output'
       
  1595               name: 'FramedBox3'
       
  1596               layout: (LayoutFrame 0 0.0 5 0 4 1.0 -91 1)
       
  1597               labelPosition: topLeft
       
  1598               translateLabel: true
       
  1599               component: 
       
  1600              (SpecCollection
       
  1601                 collection: (
       
  1602                  (TextEditorSpec
       
  1603                     name: 'MakeOutputWindow'
       
  1604                     layout: (LayoutFrame 0 0 0 0 0 1 0 1)
       
  1605                     activeHelpKey: makeOutput
       
  1606                     model: makeOutputHolder
       
  1607                     hasHorizontalScrollBar: true
       
  1608                     hasVerticalScrollBar: true
       
  1609                     hasKeyboardFocusInitially: false
       
  1610                     viewClassName: 'TextCollector'
       
  1611                     postBuildCallback: postBuildMakeOutputWindow:
       
  1612                   )
       
  1613                  )
       
  1614                
       
  1615               )
       
  1616             )
       
  1617            (HorizontalPanelViewSpec
       
  1618               name: 'HorizontalPanel1'
       
  1619               layout: (LayoutFrame 0 0 -90 1 0 1 -60 1)
       
  1620               horizontalLayout: leftSpace
       
  1621               verticalLayout: center
       
  1622               horizontalSpace: 3
       
  1623               verticalSpace: 3
       
  1624               component: 
       
  1625              (SpecCollection
       
  1626                 collection: (
       
  1627                  (ActionButtonSpec
       
  1628                     label: 'Make All'
       
  1629                     name: 'Button3'
       
  1630                     activeHelpKey: makeAll
       
  1631                     translateLabel: true
       
  1632                     model: doStartMakeAll
       
  1633                     enableChannel: startMakeButtonEnabled
       
  1634                     useDefaultExtent: true
       
  1635                   )
       
  1636                  (ActionButtonSpec
       
  1637                     label: 'Make EXE only'
       
  1638                     name: 'Button5'
       
  1639                     activeHelpKey: makeExe
       
  1640                     translateLabel: true
       
  1641                     model: doStartMakeExe
       
  1642                     enableChannel: startMakeButtonEnabled
       
  1643                     useDefaultExtent: true
       
  1644                   )
       
  1645                  (ActionButtonSpec
       
  1646                     label: 'Quick Make EXE'
       
  1647                     name: 'Button16'
       
  1648                     activeHelpKey: makeExeQuick
       
  1649                     translateLabel: true
       
  1650                     model: doStartMakeExeQuick
       
  1651                     enableChannel: startMakeButtonEnabled
       
  1652                     useDefaultExtent: true
       
  1653                   )
       
  1654                  (ViewSpec
       
  1655                     name: 'Box1'
       
  1656                     extent: (Point 20 10)
       
  1657                   )
       
  1658                  (ActionButtonSpec
       
  1659                     label: 'Stop Make'
       
  1660                     name: 'Button4'
       
  1661                     activeHelpKey: stopMake
       
  1662                     visibilityChannel: stopMakeButtonVisible
       
  1663                     translateLabel: true
       
  1664                     model: doStopMake
       
  1665                     useDefaultExtent: true
       
  1666                   )
       
  1667                  )
       
  1668                
       
  1669               )
       
  1670             )
       
  1671            (HorizontalPanelViewSpec
       
  1672               name: 'HorizontalPanel2'
       
  1673               layout: (LayoutFrame 0 0 -60 1 0 1 -30 1)
       
  1674               horizontalLayout: leftSpace
       
  1675               verticalLayout: center
       
  1676               horizontalSpace: 3
       
  1677               verticalSpace: 3
       
  1678               component: 
       
  1679              (SpecCollection
       
  1680                 collection: (
       
  1681                  (ActionButtonSpec
       
  1682                     label: 'Finder on Build Directory'
       
  1683                     name: 'Button13'
       
  1684                     activeHelpKey: openFinder
       
  1685                     visibilityChannel: osIsOSX
       
  1686                     translateLabel: true
       
  1687                     model: doOpenFinder
       
  1688                     useDefaultExtent: true
       
  1689                   )
       
  1690                  (ActionButtonSpec
       
  1691                     label: 'Explorer on Build Directory'
       
  1692                     name: 'Button14'
       
  1693                     activeHelpKey: openExplorer
       
  1694                     visibilityChannel: osIsWindows
       
  1695                     translateLabel: true
       
  1696                     model: doOpenExplorer
       
  1697                     useDefaultExtent: true
       
  1698                   )
       
  1699                  (ActionButtonSpec
       
  1700                     label: 'Browser on Build Directory'
       
  1701                     name: 'Button11'
       
  1702                     activeHelpKey: openFileBrowser
       
  1703                     translateLabel: true
       
  1704                     model: doBrowseBuildDirectory
       
  1705                     useDefaultExtent: true
       
  1706                   )
       
  1707                  (ViewSpec
       
  1708                     name: 'Box2'
       
  1709                     extent: (Point 20 10)
       
  1710                   )
       
  1711                  (ActionButtonSpec
       
  1712                     label: 'Clear Build Directory'
       
  1713                     name: 'Button12'
       
  1714                     activeHelpKey: clearBuildDirectory
       
  1715                     translateLabel: true
       
  1716                     model: doClearBuildDirectory
       
  1717                     useDefaultExtent: true
       
  1718                   )
       
  1719                  )
       
  1720                
       
  1721               )
       
  1722             )
       
  1723            (HorizontalPanelViewSpec
       
  1724               name: 'HorizontalPanel3'
       
  1725               layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
       
  1726               horizontalLayout: leftSpace
       
  1727               verticalLayout: center
       
  1728               horizontalSpace: 3
       
  1729               verticalSpace: 3
       
  1730               component: 
       
  1731              (SpecCollection
       
  1732                 collection: (
       
  1733                  (ActionButtonSpec
       
  1734                     label: 'Terminal in Build Directory'
       
  1735                     name: 'Button15'
       
  1736                     activeHelpKey: openFinder
       
  1737                     visibilityChannel: osIsOSX
       
  1738                     translateLabel: true
       
  1739                     model: doOpenTerminal
       
  1740                     useDefaultExtent: true
       
  1741                   )
       
  1742                  )
       
  1743                
       
  1744               )
       
  1745             )
       
  1746            )
       
  1747          
       
  1748         )
       
  1749       )
       
  1750 !
       
  1751 
  1504 page8_deploySpec
  1752 page8_deploySpec
  1505     "This resource specification was automatically generated
  1753     "This resource specification was automatically generated
  1506      by the UIPainter of ST/X."
  1754      by the UIPainter of ST/X."
  1507 
  1755 
  1508     "Do not manually edit this!! If it is corrupted,
  1756     "Do not manually edit this!! If it is corrupted,
  1872     self hasStartupClassSelected ifTrue:[
  2120     self hasStartupClassSelected ifTrue:[
  1873         startupClass := self listOfStartupClassesInProject value at:(self selectedStartupClassIndexHolder value).
  2121         startupClass := self listOfStartupClassesInProject value at:(self selectedStartupClassIndexHolder value).
  1874         UserPreferences systemBrowserClass 
  2122         UserPreferences systemBrowserClass 
  1875             openInClass:startupClass class selector:#main:.
  2123             openInClass:startupClass class selector:#main:.
  1876     ].
  2124     ].
       
  2125 !
       
  2126 
       
  2127 doCheckin
       
  2128     <resource: #uiCallback>
       
  2129 
       
  2130     |package utilities|
       
  2131 
       
  2132     package := selectedProjectDefinition package.
       
  2133     utilities := (AbstractSourceCodeManager managerForPackage:package) utilities.
       
  2134 
       
  2135     AbortAllOperationRequest catch:[
       
  2136         self withWaitCursorDo:[
       
  2137             utilities
       
  2138                 checkinPackage:package
       
  2139                 classes:true
       
  2140                 extensions:true
       
  2141                 buildSupport:true
       
  2142                 askForMethodsInOtherPackages:true
       
  2143         ]
       
  2144     ]
  1877 !
  2145 !
  1878 
  2146 
  1879 doClearBuildDirectory
  2147 doClearBuildDirectory
  1880     <resource: #uiCallback>
  2148     <resource: #uiCallback>
  1881 
  2149