Tools__ProjectBuilderAssistantApplication.st
changeset 3126 9002c0912b90
parent 3068 1b840afa3fd7
child 3139 209cc60527a4
equal deleted inserted replaced
3125:9d5624af77ab 3126:9002c0912b90
   254         (AssistantPageSpec
   254         (AssistantPageSpec
   255             pageTitle: 'Specify Prerequisites'
   255             pageTitle: 'Specify Prerequisites'
   256             windowSpecSelector: page5b_specifyPrerequisitePackages
   256             windowSpecSelector: page5b_specifyPrerequisitePackages
   257             enterCallbackSelector: enterPrerequisitesSpecification
   257             enterCallbackSelector: enterPrerequisitesSpecification
   258             canEnterQuerySelector: #canEnterPrerequisitesSelection
   258             canEnterQuerySelector: #canEnterPrerequisitesSelection
   259             infoText: 'Define which packages are needed as prerequisites. Press "<I>Scan</I>" to search for prerequisites; "<I>Browse</I>" to edit the list manually.'
   259             infoText: 'Define which packages are needed as prerequisites. These are required class libraries which should be packaged together with the application. Press "<I>Scan</I>" to search for prerequisites; "<I>Browse</I>" to edit the list manually.'
   260         )
   260         )
   261 
   261 
   262         (AssistantPageSpec
   262         (AssistantPageSpec
   263             pageTitle: 'Specify Project Attributes'
   263             pageTitle: 'Specify Project Attributes'
   264             windowSpecSelector: page6a_specifyProjectAttributes
   264             windowSpecSelector: page6a_specifyProjectAttributes
   265             infoText: 'Define additional attributes. These will be shown during the installation of the deployed pacakge.'
   265             infoText: 'Define additional attributes. These will be shown during the installation of the deployed package and affect the name of the deployed self installable file.'
   266             enterCallbackSelector: updateProjectAttributes
   266             enterCallbackSelector: updateProjectAttributes
   267             leaveCallbackSelector: #rememberProjectAttributes
   267             leaveCallbackSelector: #rememberProjectAttributes
   268         )
   268         )
   269 
   269 
   270         (AssistantPageSpec
   270         (AssistantPageSpec
   276         )
   276         )
   277 
   277 
   278         (AssistantPageSpec
   278         (AssistantPageSpec
   279             pageTitle: 'Check Into Source Repository'
   279             pageTitle: 'Check Into Source Repository'
   280             windowSpecSelector: page7a_checkinSpec
   280             windowSpecSelector: page7a_checkinSpec
   281             infoText: 'Check the package''s source and build-support files into the source code repository (CVS).'
   281             enterCallbackSelector: #checkSourceCodeManagerType
       
   282             infoText: 'Check the package''s source and build-support files into the source code repository.'
   282         )
   283         )
   283 
   284 
   284         (AssistantPageSpec
   285         (AssistantPageSpec
   285             pageTitle: 'Build'
   286             pageTitle: 'Build'
   286             windowSpecSelector: page7b_buildSpec
   287             windowSpecSelector: page7b_buildSpec
   325     <resource: #help>
   326     <resource: #help>
   326 
   327 
   327     ^ super flyByHelpSpec addPairsFrom:#(
   328     ^ super flyByHelpSpec addPairsFrom:#(
   328 
   329 
   329 #'projectType'
   330 #'projectType'
   330 'Choose the type of Project you are about to deploy.'
   331 'Choose the type of Project you are about to deploy'
   331 
   332 
   332 #existingProjects
   333 #existingProjects
   333 'Projects with an existing ProjectDefinition of the chosen type (above).'
   334 'Projects with an existing ProjectDefinition of the chosen type (above)'
   334 
   335 
   335 #nameOfApplicationClass
   336 #nameOfApplicationClass
   336 'For GUI applications: the name of your application class (subclass of ApplicationModel).
   337 'For GUI applications: the name of your application class (subclass of ApplicationModel).
   337 This will be opened by the startup sequence and defines the UI.
   338 This will be opened by the startup sequence and defines the UI.
   338 (Usually, these are named "XXXApplication" or "XXXApp")
   339 (Usually, these are named "XXXApplication" or "XXXApp")
   339 Click on the "Create"-button to create a simple helloWorld app to start with.'
   340 Click on the "Create"-button to create a simple helloWorld app to start with'
   340 
   341 
   341 #createNewApplication
   342 #createNewApplication
   342 'Create a new simple dummy application (HelloWorld-like). 
   343 'Create a new simple dummy application (HelloWorld-like). 
   343 Press this button to get some template code to play with - but enter a name first.'
   344 Press this button to get some template code to play with - but enter a name first'
   344 
   345 
   345 #nameOfStartupClass
   346 #nameOfStartupClass
   346 'This class contains the main method, in which the show starts when the executable runs.
   347 'This class contains the main method, in which the show starts when the executable runs.
   347 Its main task is to parse command line arguments (if any) and fire up the real application.
   348 Its main task is to parse command line arguments (if any) and fire up the real application.
   348 It should inherit from StandaloneStartup.
   349 It should inherit from StandaloneStartup.
   350 Click on the "Create"-button to create something to start with (will launch your application)'
   351 Click on the "Create"-button to create something to start with (will launch your application)'
   351 
   352 
   352 #createNewStartupClass
   353 #createNewStartupClass
   353 'Create a new simple startup class which fires up the defined application.
   354 'Create a new simple startup class which fires up the defined application.
   354 Press this button to get a standard startup class which does not care for command line args.
   355 Press this button to get a standard startup class which does not care for command line args.
   355 But enter a name first.'
   356 But enter a name first'
   356 
   357 
   357 #browseSelectedProject
   358 #browseSelectedProject
   358 'Open a SystemBrowser on the selected Project.'
   359 'Open a SystemBrowser on the selected Project'
   359 
   360 
   360 #hideSTXBasePackages
   361 #hideSTXBasePackages
   361 'Only show packages which are not already included in the basic ST/X delivery.'
   362 'Only show packages which are not already included in the basic ST/X delivery'
   362 
   363 
   363 #'listOfNewProjectsName'
   364 #'listOfNewProjectsName'
   364 'PackageID (module:directory).
   365 'PackageID (module:directory).
   365 The pull-down list contains packageIDs for which no ProjectDefinition exists (yet).'
   366 The pull-down list contains packageIDs for which no ProjectDefinition exists (yet)'
   366 
   367 
   367 #'createNewProject'
   368 #'createNewProject'
   368 'PackageID (module:directory).
   369 'PackageID (module:directory).
   369 Click to create a new (empty) ProjectDefinition for the given PackageID.'
   370 Click to create a new (empty) ProjectDefinition for the given PackageID'
   370 
   371 
   371 #clearBuildDirectory
   372 #clearBuildDirectory
   372 'Clear the build directory.'
   373 'Clear the build directory'
   373 
   374 
   374 #makeAll
   375 #makeAll
   375 'Build a self-installing deployable package.'
   376 'Build a self-installing deployable package'
       
   377 
       
   378 #makeApp
       
   379 'Build the app only (for test-running)'
   376 
   380 
   377 #makeExe
   381 #makeExe
   378 'Build the executable only (for test-running).'
   382 'Build the executable only (for test-running)'
   379 
   383 
   380 #makeExeQuick
   384 #makeExeQuick
   381 'Quick build the executable only (for test-running). 
   385 'Quick build the executable only (for test-running). 
   382 Does not regenerate the header files. Only the target package files are recreated.'
   386 Does not regenerate the header files. Only the target package files are recreated'
   383 
   387 
   384 #makeOutput
   388 #makeOutput
   385 'Displays the output of the build process (make command).'
   389 'Displays the output of the build process (make command)'
   386 
   390 
   387 #openExplorer
   391 #openExplorer
   388 'Open a Windows Explorer on the build directory. You can double-click on the built executable there.'
   392 'Open a Windows Explorer on the build directory. You can double-click on the built executable there'
       
   393 
       
   394 #openFinder
       
   395 'Open a Finder on the build directory. You can double-click on the built executable there'
   389 
   396 
   390 #openFileBrowser
   397 #openFileBrowser
   391 'Open a Filebrowser on the build directory.'
   398 'Open a Filebrowser on the build directory'
       
   399 
       
   400 #openTerminal
       
   401 'Open a terminal (console) in the build directory'
   392 
   402 
   393 #stopMake
   403 #stopMake
   394 'Abort the ongoing build process. Please clear the build directory afterwards to remove any leftover garbage.'
   404 'Abort the ongoing build process. Please clear the build directory afterwards to remove any leftover garbage'
   395 
   405 
   396 #hideOtherStartupClasses
   406 #hideOtherStartupClasses
   397 'Hide startup classes from other packages. Uncheck to see them.\(Notice: the startup class really should be in the same package)'
   407 'Hide startup classes from other packages. Uncheck to see them.\(Notice: the startup class really should be in the same package)'
   398 
   408 
   399 )
   409 )
  1334     "
  1344     "
  1335 
  1345 
  1336     <resource: #canvas>
  1346     <resource: #canvas>
  1337 
  1347 
  1338     ^ 
  1348     ^ 
  1339      #(FullSpec
  1349     #(FullSpec
  1340         name: #'page7_buildSpec'
  1350        name: #'page7_buildSpec'
  1341         window: 
  1351        window: 
  1342        (WindowSpec
  1352       (WindowSpec
  1343           label: 'Project Selection'
  1353          label: 'Project Selection'
  1344           name: 'Project Selection'
  1354          name: 'Project Selection'
  1345           min: (Point 0 0)
  1355          min: (Point 0 0)
  1346           bounds: (Rectangle 0 0 679 492)
  1356          bounds: (Rectangle 0 0 679 492)
  1347         )
  1357        )
  1348         component: 
  1358        component: 
  1349        (SpecCollection
  1359       (SpecCollection
  1350           collection: (
  1360          collection: (
  1351            (FramedBoxSpec
  1361           (FramedBoxSpec
  1352               label: 'Make Output'
  1362              label: 'Make Output'
  1353               name: 'FramedBox3'
  1363              name: 'FramedBox3'
  1354               layout: (LayoutFrame 0 0.0 5 0 4 1.0 -91 1)
  1364              layout: (LayoutFrame 0 0.0 5 0 4 1.0 -91 1)
  1355               labelPosition: topLeft
  1365              labelPosition: topLeft
  1356               translateLabel: true
  1366              translateLabel: true
  1357               component: 
  1367              component: 
  1358              (SpecCollection
  1368             (SpecCollection
  1359                 collection: (
  1369                collection: (
  1360                  (TextEditorSpec
  1370                 (TextEditorSpec
  1361                     name: 'MakeOutputWindow'
  1371                    name: 'MakeOutputWindow'
  1362                     layout: (LayoutFrame 0 0 0 0 0 1 0 1)
  1372                    layout: (LayoutFrame 0 0 0 0 0 1 0 1)
  1363                     activeHelpKey: makeOutput
  1373                    activeHelpKey: makeOutput
  1364                     model: makeOutputHolder
  1374                    model: makeOutputHolder
  1365                     hasHorizontalScrollBar: true
  1375                    hasHorizontalScrollBar: true
  1366                     hasVerticalScrollBar: true
  1376                    hasVerticalScrollBar: true
  1367                     hasKeyboardFocusInitially: false
  1377                    hasKeyboardFocusInitially: false
  1368                     viewClassName: 'TextCollector'
  1378                    viewClassName: 'TextCollector'
  1369                     postBuildCallback: postBuildMakeOutputWindow:
  1379                    postBuildCallback: postBuildMakeOutputWindow:
  1370                   )
  1380                  )
  1371                  )
  1381                 )
  1372                
  1382               
  1373               )
  1383              )
  1374             )
       
  1375            (HorizontalPanelViewSpec
       
  1376               name: 'HorizontalPanel1'
       
  1377               layout: (LayoutFrame 0 0 -90 1 0 1 -60 1)
       
  1378               horizontalLayout: leftSpace
       
  1379               verticalLayout: center
       
  1380               horizontalSpace: 3
       
  1381               verticalSpace: 3
       
  1382               component: 
       
  1383              (SpecCollection
       
  1384                 collection: (
       
  1385                  (ActionButtonSpec
       
  1386                     label: 'Make All'
       
  1387                     name: 'Button3'
       
  1388                     activeHelpKey: makeAll
       
  1389                     translateLabel: true
       
  1390                     model: doStartMakeAll
       
  1391                     enableChannel: startMakeButtonEnabled
       
  1392                     useDefaultExtent: true
       
  1393                   )
       
  1394                  (ActionButtonSpec
       
  1395                     label: 'Make EXE only'
       
  1396                     name: 'Button5'
       
  1397                     activeHelpKey: makeExe
       
  1398                     translateLabel: true
       
  1399                     model: doStartMakeExe
       
  1400                     enableChannel: startMakeButtonEnabled
       
  1401                     useDefaultExtent: true
       
  1402                   )
       
  1403                  (ActionButtonSpec
       
  1404                     label: 'Quick Make EXE'
       
  1405                     name: 'Button16'
       
  1406                     activeHelpKey: makeExeQuick
       
  1407                     translateLabel: true
       
  1408                     model: doStartMakeExeQuick
       
  1409                     enableChannel: startMakeButtonEnabled
       
  1410                     useDefaultExtent: true
       
  1411                   )
       
  1412                  (ViewSpec
       
  1413                     name: 'Box1'
       
  1414                     extent: (Point 20 10)
       
  1415                   )
       
  1416                  (ActionButtonSpec
       
  1417                     label: 'Stop Make'
       
  1418                     name: 'Button4'
       
  1419                     activeHelpKey: stopMake
       
  1420                     visibilityChannel: stopMakeButtonVisible
       
  1421                     translateLabel: true
       
  1422                     model: doStopMake
       
  1423                     useDefaultExtent: true
       
  1424                   )
       
  1425                  )
       
  1426                
       
  1427               )
       
  1428             )
       
  1429            (HorizontalPanelViewSpec
       
  1430               name: 'HorizontalPanel2'
       
  1431               layout: (LayoutFrame 0 0 -60 1 0 1 -30 1)
       
  1432               horizontalLayout: leftSpace
       
  1433               verticalLayout: center
       
  1434               horizontalSpace: 3
       
  1435               verticalSpace: 3
       
  1436               component: 
       
  1437              (SpecCollection
       
  1438                 collection: (
       
  1439                  (ActionButtonSpec
       
  1440                     label: 'Finder on Build Directory'
       
  1441                     name: 'Button13'
       
  1442                     activeHelpKey: openFinder
       
  1443                     visibilityChannel: osIsOSX
       
  1444                     translateLabel: true
       
  1445                     model: doOpenFinder
       
  1446                     useDefaultExtent: true
       
  1447                   )
       
  1448                  (ActionButtonSpec
       
  1449                     label: 'Explorer on Build Directory'
       
  1450                     name: 'Button14'
       
  1451                     activeHelpKey: openExplorer
       
  1452                     visibilityChannel: osIsWindows
       
  1453                     translateLabel: true
       
  1454                     model: doOpenExplorer
       
  1455                     useDefaultExtent: true
       
  1456                   )
       
  1457                  (ActionButtonSpec
       
  1458                     label: 'Browser on Build Directory'
       
  1459                     name: 'Button11'
       
  1460                     activeHelpKey: openFileBrowser
       
  1461                     translateLabel: true
       
  1462                     model: doBrowseBuildDirectory
       
  1463                     useDefaultExtent: true
       
  1464                   )
       
  1465                  (ViewSpec
       
  1466                     name: 'Box2'
       
  1467                     extent: (Point 20 10)
       
  1468                   )
       
  1469                  (ActionButtonSpec
       
  1470                     label: 'Clear Build Directory'
       
  1471                     name: 'Button12'
       
  1472                     activeHelpKey: clearBuildDirectory
       
  1473                     translateLabel: true
       
  1474                     model: doClearBuildDirectory
       
  1475                     useDefaultExtent: true
       
  1476                   )
       
  1477                  )
       
  1478                
       
  1479               )
       
  1480             )
       
  1481            (HorizontalPanelViewSpec
       
  1482               name: 'HorizontalPanel3'
       
  1483               layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
       
  1484               horizontalLayout: leftSpace
       
  1485               verticalLayout: center
       
  1486               horizontalSpace: 3
       
  1487               verticalSpace: 3
       
  1488               component: 
       
  1489              (SpecCollection
       
  1490                 collection: (
       
  1491                  (ActionButtonSpec
       
  1492                     label: 'Terminal in Build Directory'
       
  1493                     name: 'Button15'
       
  1494                     activeHelpKey: openFinder
       
  1495                     visibilityChannel: osIsOSX
       
  1496                     translateLabel: true
       
  1497                     model: doOpenTerminal
       
  1498                     useDefaultExtent: true
       
  1499                   )
       
  1500                  )
       
  1501                
       
  1502               )
       
  1503             )
       
  1504            )
  1384            )
  1505          
  1385           (HorizontalPanelViewSpec
  1506         )
  1386              name: 'HorizontalPanel1'
  1507       )
  1387              layout: (LayoutFrame 0 0 -90 1 0 1 -60 1)
       
  1388              horizontalLayout: leftSpace
       
  1389              verticalLayout: center
       
  1390              horizontalSpace: 3
       
  1391              verticalSpace: 3
       
  1392              component: 
       
  1393             (SpecCollection
       
  1394                collection: (
       
  1395                 (ActionButtonSpec
       
  1396                    label: 'Make All'
       
  1397                    name: 'Button3'
       
  1398                    activeHelpKey: makeAll
       
  1399                    translateLabel: true
       
  1400                    model: doStartMakeAll
       
  1401                    enableChannel: startMakeButtonEnabled
       
  1402                    useDefaultExtent: true
       
  1403                  )
       
  1404                 (ActionButtonSpec
       
  1405                    label: 'Make App'
       
  1406                    name: 'Button17'
       
  1407                    activeHelpKey: makeAll
       
  1408                    visibilityChannel: osIsOSX
       
  1409                    translateLabel: true
       
  1410                    model: doStartMakeApp
       
  1411                    enableChannel: startMakeButtonEnabled
       
  1412                    useDefaultExtent: true
       
  1413                  )
       
  1414                 (ActionButtonSpec
       
  1415                    label: 'Make EXE only'
       
  1416                    name: 'Button5'
       
  1417                    activeHelpKey: makeExe
       
  1418                    translateLabel: true
       
  1419                    model: doStartMakeExe
       
  1420                    enableChannel: startMakeButtonEnabled
       
  1421                    useDefaultExtent: true
       
  1422                  )
       
  1423                 (ActionButtonSpec
       
  1424                    label: 'Quick Make EXE'
       
  1425                    name: 'Button16'
       
  1426                    activeHelpKey: makeExeQuick
       
  1427                    translateLabel: true
       
  1428                    model: doStartMakeExeQuick
       
  1429                    enableChannel: startMakeButtonEnabled
       
  1430                    useDefaultExtent: true
       
  1431                  )
       
  1432                 (ViewSpec
       
  1433                    name: 'Box1'
       
  1434                    extent: (Point 20 10)
       
  1435                  )
       
  1436                 (ActionButtonSpec
       
  1437                    label: 'Stop Make'
       
  1438                    name: 'Button4'
       
  1439                    activeHelpKey: stopMake
       
  1440                    visibilityChannel: stopMakeButtonVisible
       
  1441                    translateLabel: true
       
  1442                    model: doStopMake
       
  1443                    useDefaultExtent: true
       
  1444                  )
       
  1445                 )
       
  1446               
       
  1447              )
       
  1448            )
       
  1449           (HorizontalPanelViewSpec
       
  1450              name: 'HorizontalPanel2'
       
  1451              layout: (LayoutFrame 0 0 -60 1 0 1 -30 1)
       
  1452              horizontalLayout: leftSpace
       
  1453              verticalLayout: center
       
  1454              horizontalSpace: 3
       
  1455              verticalSpace: 3
       
  1456              component: 
       
  1457             (SpecCollection
       
  1458                collection: (
       
  1459                 (ActionButtonSpec
       
  1460                    label: 'Finder on Build Directory'
       
  1461                    name: 'Button13'
       
  1462                    activeHelpKey: openFinder
       
  1463                    visibilityChannel: osIsOSX
       
  1464                    translateLabel: true
       
  1465                    model: doOpenFinder
       
  1466                    useDefaultExtent: true
       
  1467                  )
       
  1468                 (ActionButtonSpec
       
  1469                    label: 'Explorer on Build Directory'
       
  1470                    name: 'Button14'
       
  1471                    activeHelpKey: openExplorer
       
  1472                    visibilityChannel: osIsWindows
       
  1473                    translateLabel: true
       
  1474                    model: doOpenExplorer
       
  1475                    useDefaultExtent: true
       
  1476                  )
       
  1477                 (ActionButtonSpec
       
  1478                    label: 'Browser on Build Directory'
       
  1479                    name: 'Button11'
       
  1480                    activeHelpKey: openFileBrowser
       
  1481                    translateLabel: true
       
  1482                    model: doBrowseBuildDirectory
       
  1483                    useDefaultExtent: true
       
  1484                  )
       
  1485                 (ViewSpec
       
  1486                    name: 'Box2'
       
  1487                    extent: (Point 20 10)
       
  1488                  )
       
  1489                 (ActionButtonSpec
       
  1490                    label: 'Clear Build Directory'
       
  1491                    name: 'Button12'
       
  1492                    activeHelpKey: clearBuildDirectory
       
  1493                    translateLabel: true
       
  1494                    model: doClearBuildDirectory
       
  1495                    useDefaultExtent: true
       
  1496                  )
       
  1497                 )
       
  1498               
       
  1499              )
       
  1500            )
       
  1501           (HorizontalPanelViewSpec
       
  1502              name: 'HorizontalPanel3'
       
  1503              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
       
  1504              horizontalLayout: leftSpace
       
  1505              verticalLayout: center
       
  1506              horizontalSpace: 3
       
  1507              verticalSpace: 3
       
  1508              component: 
       
  1509             (SpecCollection
       
  1510                collection: (
       
  1511                 (ActionButtonSpec
       
  1512                    label: 'Terminal in Build Directory'
       
  1513                    name: 'Button15'
       
  1514                    activeHelpKey: openTerminal
       
  1515                    translateLabel: true
       
  1516                    model: doOpenTerminal
       
  1517                    useDefaultExtent: true
       
  1518                  )
       
  1519                 )
       
  1520               
       
  1521              )
       
  1522            )
       
  1523           )
       
  1524         
       
  1525        )
       
  1526      )
  1508 !
  1527 !
  1509 
  1528 
  1510 page7a_checkinSpec
  1529 page7a_checkinSpec
  1511     "This resource specification was automatically generated
  1530     "This resource specification was automatically generated
  1512      by the UIPainter of ST/X."
  1531      by the UIPainter of ST/X."
  1544              component: 
  1563              component: 
  1545             (SpecCollection
  1564             (SpecCollection
  1546                collection: (
  1565                collection: (
  1547                 (ActionButtonSpec
  1566                 (ActionButtonSpec
  1548                    label: 'Checkin...'
  1567                    label: 'Checkin...'
  1549                    name: 'Button13'
  1568                    name: 'CheckinButton'
  1550                    activeHelpKey: openFinder
  1569                    activeHelpKey: openFinder
  1551                    visibilityChannel: osIsOSX
  1570                    visibilityChannel: osIsOSX
  1552                    translateLabel: true
  1571                    translateLabel: true
       
  1572                    resizeForLabel: true
  1553                    model: doCheckin
  1573                    model: doCheckin
  1554                    useDefaultExtent: true
  1574                    useDefaultExtent: true
  1555                  )
  1575                  )
  1556                 )
  1576                 )
  1557               
  1577               
  1569 
  1589 
  1570     "Do not manually edit this!! If it is corrupted,
  1590     "Do not manually edit this!! If it is corrupted,
  1571      the UIPainter may not be able to read the specification."
  1591      the UIPainter may not be able to read the specification."
  1572 
  1592 
  1573     "
  1593     "
  1574      UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page7_buildSpec
  1594      UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page7b_buildSpec
  1575      Tools::ProjectBuilderAssistantApplication new openInterface:#page7_buildSpec
  1595      Tools::ProjectBuilderAssistantApplication new openInterface:#page7b_buildSpec
  1576     "
  1596     "
  1577 
  1597 
  1578     <resource: #canvas>
  1598     <resource: #canvas>
  1579 
  1599 
  1580     ^ 
  1600     ^ 
  1581      #(FullSpec
  1601     #(FullSpec
  1582         name: #'page7b_buildSpec'
  1602        name: #'page7b_buildSpec'
  1583         window: 
  1603        window: 
  1584        (WindowSpec
  1604       (WindowSpec
  1585           label: 'Project Selection'
  1605          label: 'Project Selection'
  1586           name: 'Project Selection'
  1606          name: 'Project Selection'
  1587           min: (Point 0 0)
  1607          min: (Point 0 0)
  1588           bounds: (Rectangle 0 0 679 492)
  1608          bounds: (Rectangle 0 0 679 492)
  1589         )
  1609        )
  1590         component: 
  1610        component: 
  1591        (SpecCollection
  1611       (SpecCollection
  1592           collection: (
  1612          collection: (
  1593            (FramedBoxSpec
  1613           (FramedBoxSpec
  1594               label: 'Make Output'
  1614              label: 'Make Output'
  1595               name: 'FramedBox3'
  1615              name: 'FramedBox3'
  1596               layout: (LayoutFrame 0 0.0 5 0 4 1.0 -91 1)
  1616              layout: (LayoutFrame 0 0.0 5 0 4 1.0 -91 1)
  1597               labelPosition: topLeft
  1617              labelPosition: topLeft
  1598               translateLabel: true
  1618              translateLabel: true
  1599               component: 
  1619              component: 
  1600              (SpecCollection
  1620             (SpecCollection
  1601                 collection: (
  1621                collection: (
  1602                  (TextEditorSpec
  1622                 (TextEditorSpec
  1603                     name: 'MakeOutputWindow'
  1623                    name: 'MakeOutputWindow'
  1604                     layout: (LayoutFrame 0 0 0 0 0 1 0 1)
  1624                    layout: (LayoutFrame 0 0 0 0 0 1 0 1)
  1605                     activeHelpKey: makeOutput
  1625                    activeHelpKey: makeOutput
  1606                     model: makeOutputHolder
  1626                    model: makeOutputHolder
  1607                     hasHorizontalScrollBar: true
  1627                    hasHorizontalScrollBar: true
  1608                     hasVerticalScrollBar: true
  1628                    hasVerticalScrollBar: true
  1609                     hasKeyboardFocusInitially: false
  1629                    hasKeyboardFocusInitially: false
  1610                     viewClassName: 'TextCollector'
  1630                    viewClassName: 'TextCollector'
  1611                     postBuildCallback: postBuildMakeOutputWindow:
  1631                    postBuildCallback: postBuildMakeOutputWindow:
  1612                   )
  1632                  )
  1613                  )
  1633                 )
  1614                
  1634               
  1615               )
  1635              )
  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            )
  1636            )
  1747          
  1637           (HorizontalPanelViewSpec
  1748         )
  1638              name: 'HorizontalPanel1'
  1749       )
  1639              layout: (LayoutFrame 0 0 -90 1 0 1 -60 1)
       
  1640              horizontalLayout: leftSpace
       
  1641              verticalLayout: center
       
  1642              horizontalSpace: 3
       
  1643              verticalSpace: 3
       
  1644              component: 
       
  1645             (SpecCollection
       
  1646                collection: (
       
  1647                 (ActionButtonSpec
       
  1648                    label: 'Make All'
       
  1649                    name: 'Button3'
       
  1650                    activeHelpKey: makeAll
       
  1651                    translateLabel: true
       
  1652                    model: doStartMakeAll
       
  1653                    enableChannel: startMakeButtonEnabled
       
  1654                    useDefaultExtent: true
       
  1655                  )
       
  1656                 (ActionButtonSpec
       
  1657                    label: 'Make APP only'
       
  1658                    name: 'Button17'
       
  1659                    activeHelpKey: makeApp
       
  1660                    visibilityChannel: osIsOSX
       
  1661                    translateLabel: true
       
  1662                    model: doStartMakeApp
       
  1663                    enableChannel: startMakeButtonEnabled
       
  1664                    useDefaultExtent: true
       
  1665                  )
       
  1666                 (ActionButtonSpec
       
  1667                    label: 'Make EXE only'
       
  1668                    name: 'Button5'
       
  1669                    activeHelpKey: makeExe
       
  1670                    translateLabel: true
       
  1671                    model: doStartMakeExe
       
  1672                    enableChannel: startMakeButtonEnabled
       
  1673                    useDefaultExtent: true
       
  1674                  )
       
  1675                 (ActionButtonSpec
       
  1676                    label: 'Quick Make EXE'
       
  1677                    name: 'Button16'
       
  1678                    activeHelpKey: makeExeQuick
       
  1679                    translateLabel: true
       
  1680                    model: doStartMakeExeQuick
       
  1681                    enableChannel: startMakeButtonEnabled
       
  1682                    useDefaultExtent: true
       
  1683                  )
       
  1684                 (ViewSpec
       
  1685                    name: 'Box1'
       
  1686                    extent: (Point 20 10)
       
  1687                  )
       
  1688                 (ActionButtonSpec
       
  1689                    label: 'Stop Make'
       
  1690                    name: 'Button4'
       
  1691                    activeHelpKey: stopMake
       
  1692                    visibilityChannel: stopMakeButtonVisible
       
  1693                    translateLabel: true
       
  1694                    model: doStopMake
       
  1695                    useDefaultExtent: true
       
  1696                  )
       
  1697                 )
       
  1698               
       
  1699              )
       
  1700            )
       
  1701           (HorizontalPanelViewSpec
       
  1702              name: 'HorizontalPanel2'
       
  1703              layout: (LayoutFrame 0 0 -60 1 0 1 -30 1)
       
  1704              horizontalLayout: leftSpace
       
  1705              verticalLayout: center
       
  1706              horizontalSpace: 3
       
  1707              verticalSpace: 3
       
  1708              component: 
       
  1709             (SpecCollection
       
  1710                collection: (
       
  1711                 (ActionButtonSpec
       
  1712                    label: 'Finder on Build Directory'
       
  1713                    name: 'Button13'
       
  1714                    activeHelpKey: openFinder
       
  1715                    visibilityChannel: osIsOSX
       
  1716                    translateLabel: true
       
  1717                    model: doOpenFinder
       
  1718                    useDefaultExtent: true
       
  1719                  )
       
  1720                 (ActionButtonSpec
       
  1721                    label: 'Explorer on Build Directory'
       
  1722                    name: 'Button14'
       
  1723                    activeHelpKey: openExplorer
       
  1724                    visibilityChannel: osIsWindows
       
  1725                    translateLabel: true
       
  1726                    model: doOpenExplorer
       
  1727                    useDefaultExtent: true
       
  1728                  )
       
  1729                 (ActionButtonSpec
       
  1730                    label: 'Browser on Build Directory'
       
  1731                    name: 'Button11'
       
  1732                    activeHelpKey: openFileBrowser
       
  1733                    translateLabel: true
       
  1734                    model: doBrowseBuildDirectory
       
  1735                    useDefaultExtent: true
       
  1736                  )
       
  1737                 (ViewSpec
       
  1738                    name: 'Box2'
       
  1739                    extent: (Point 20 10)
       
  1740                  )
       
  1741                 (ActionButtonSpec
       
  1742                    label: 'Clear Build Directory'
       
  1743                    name: 'Button12'
       
  1744                    activeHelpKey: clearBuildDirectory
       
  1745                    translateLabel: true
       
  1746                    model: doClearBuildDirectory
       
  1747                    useDefaultExtent: true
       
  1748                  )
       
  1749                 )
       
  1750               
       
  1751              )
       
  1752            )
       
  1753           (HorizontalPanelViewSpec
       
  1754              name: 'HorizontalPanel3'
       
  1755              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
       
  1756              horizontalLayout: leftSpace
       
  1757              verticalLayout: center
       
  1758              horizontalSpace: 3
       
  1759              verticalSpace: 3
       
  1760              component: 
       
  1761             (SpecCollection
       
  1762                collection: (
       
  1763                 (ActionButtonSpec
       
  1764                    label: 'Terminal in Build Directory'
       
  1765                    name: 'Button15'
       
  1766                    activeHelpKey: openTerminal
       
  1767                    translateLabel: true
       
  1768                    model: doOpenTerminal
       
  1769                    useDefaultExtent: true
       
  1770                  )
       
  1771                 )
       
  1772               
       
  1773              )
       
  1774            )
       
  1775           )
       
  1776         
       
  1777        )
       
  1778      )
  1750 !
  1779 !
  1751 
  1780 
  1752 page8_deploySpec
  1781 page8_deploySpec
  1753     "This resource specification was automatically generated
  1782     "This resource specification was automatically generated
  1754      by the UIPainter of ST/X."
  1783      by the UIPainter of ST/X."
  1762     "
  1791     "
  1763 
  1792 
  1764     <resource: #canvas>
  1793     <resource: #canvas>
  1765 
  1794 
  1766     ^ 
  1795     ^ 
  1767      #(FullSpec
  1796     #(FullSpec
  1768         name: #'page8_deploySpec'
  1797        name: #'page8_deploySpec'
  1769         window: 
  1798        window: 
  1770        (WindowSpec
  1799       (WindowSpec
  1771           label: 'Project Selection'
  1800          label: 'Project Selection'
  1772           name: 'Project Selection'
  1801          name: 'Project Selection'
  1773           min: (Point 0 0)
  1802          min: (Point 0 0)
  1774           bounds: (Rectangle 0 0 521 472)
  1803          bounds: (Rectangle 0 0 521 472)
  1775         )
  1804        )
  1776         component: 
  1805        component: 
  1777        (SpecCollection
  1806       (SpecCollection
  1778           collection: (
  1807          collection: (
  1779            (FramedBoxSpec
  1808           (FramedBoxSpec
  1780               label: 'Files for Deployment'
  1809              label: 'Files for Deployment'
  1781               name: 'FramedBox3'
  1810              name: 'FramedBox3'
  1782               layout: (LayoutFrame 0 0.0 5 0 4 1.0 0 1)
  1811              layout: (LayoutFrame 0 0.0 5 0 4 1.0 0 1)
  1783               labelPosition: topLeft
  1812              labelPosition: topLeft
  1784               translateLabel: true
  1813              translateLabel: true
  1785               component: 
  1814              component: 
  1786              (SpecCollection
  1815             (SpecCollection
  1787                 collection: (
  1816                collection: (
  1788                  (SubCanvasSpec
  1817                 (SubCanvasSpec
  1789                     name: 'SubCanvas1'
  1818                    name: 'SubCanvas1'
  1790                     layout: (LayoutFrame 0 0 0 0 0 1 -30 1)
  1819                    layout: (LayoutFrame 0 0 0 0 0 1 -30 1)
  1791                     hasHorizontalScrollBar: false
  1820                    hasHorizontalScrollBar: false
  1792                     hasVerticalScrollBar: false
  1821                    hasVerticalScrollBar: false
  1793                     clientHolder: fileBrowserInstance
  1822                    clientHolder: fileBrowserInstance
  1794                     createNewApplication: true
  1823                    createNewApplication: true
  1795                     createNewBuilder: true
  1824                    createNewBuilder: true
  1796                   )
  1825                  )
  1797                  (HorizontalPanelViewSpec
  1826                 (HorizontalPanelViewSpec
  1798                     name: 'HorizontalPanel1'
  1827                    name: 'HorizontalPanel1'
  1799                     layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
  1828                    layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
  1800                     horizontalLayout: centerMax
  1829                    horizontalLayout: centerMax
  1801                     verticalLayout: center
  1830                    verticalLayout: center
  1802                     horizontalSpace: 3
  1831                    horizontalSpace: 3
  1803                     verticalSpace: 3
  1832                    verticalSpace: 3
  1804                     component: 
  1833                    component: 
  1805                    (SpecCollection
  1834                   (SpecCollection
  1806                       collection: (
  1835                      collection: (
  1807                        (ActionButtonSpec
  1836                       (ActionButtonSpec
  1808                           label: 'Open Windows Explorer'
  1837                          label: 'Open Windows Explorer'
  1809                           name: 'Button1'
  1838                          name: 'Button1'
  1810                           visibilityChannel: isWindowsOS
  1839                          visibilityChannel: osIsWindows
  1811                           translateLabel: true
  1840                          translateLabel: true
  1812                           resizeForLabel: true
  1841                          resizeForLabel: true
  1813                           model: doOpenExplorer
  1842                          model: doOpenExplorer
  1814                           extent: (Point 172 22)
  1843                          extent: (Point 172 22)
  1815                         )
       
  1816                        (ActionButtonSpec
       
  1817                           label: 'Open Console'
       
  1818                           name: 'Button2'
       
  1819                           visibilityChannel: isUnixOS
       
  1820                           translateLabel: true
       
  1821                           resizeForLabel: true
       
  1822                           model: doOpenConsoleTerminal
       
  1823                           extent: (Point 172 22)
       
  1824                         )
       
  1825                        )
  1844                        )
  1826                      
  1845                       (ActionButtonSpec
  1827                     )
  1846                          label: 'Open Finder'
  1828                   )
  1847                          name: 'Button3'
  1829                  )
  1848                          visibilityChannel: osIsOSX
  1830                
  1849                          translateLabel: true
  1831               )
  1850                          resizeForLabel: true
  1832             )
  1851                          model: doOpenFinder
       
  1852                          extent: (Point 172 22)
       
  1853                        )
       
  1854                       (ActionButtonSpec
       
  1855                          label: 'Open Terminal'
       
  1856                          name: 'Button2'
       
  1857                          translateLabel: true
       
  1858                          resizeForLabel: true
       
  1859                          model: doOpenTerminal
       
  1860                          extent: (Point 172 22)
       
  1861                        )
       
  1862                       )
       
  1863                     
       
  1864                    )
       
  1865                  )
       
  1866                 )
       
  1867               
       
  1868              )
  1833            )
  1869            )
  1834          
  1870           )
  1835         )
  1871         
  1836       )
  1872        )
       
  1873      )
  1837 ! !
  1874 ! !
  1838 
  1875 
  1839 !ProjectBuilderAssistantApplication class methodsFor:'misc specs'!
  1876 !ProjectBuilderAssistantApplication class methodsFor:'misc specs'!
  1840 
  1877 
  1841 newProjectsNameListSpec
  1878 newProjectsNameListSpec
  2176         appClass := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value).
  2213         appClass := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value).
  2177         appClass open.
  2214         appClass open.
  2178     ].
  2215     ].
  2179 !
  2216 !
  2180 
  2217 
  2181 doOpenConsoleTerminal
       
  2182 "/    OperatingSystem
       
  2183 "/        executeCommand:'cmd.exe'        
       
  2184 "/        inDirectory:(projectBuilder packageBuildDirectory)
       
  2185     OperatingSystem isUNIXlike ifTrue:[
       
  2186         VT100TerminalView openShellIn:(projectBuilder packageBuildDirectory)
       
  2187     ] ifFalse:[
       
  2188         OperatingSystem
       
  2189             executeCommand:'c:\windows\System32\cmd.exe'        
       
  2190             inDirectory:(projectBuilder packageBuildDirectory)
       
  2191     ]
       
  2192 !
       
  2193 
       
  2194 doOpenExplorer
  2218 doOpenExplorer
  2195     projectBuilder isNil ifTrue:[ self getProjectBuilder ].
  2219     projectBuilder isNil ifTrue:[ self getProjectBuilder ].
  2196     projectBuilder buildDirectory isNil ifTrue:[
  2220     projectBuilder buildDirectory isNil ifTrue:[
  2197         Dialog information:'No build directory yet'.
  2221         Dialog information:'No build directory yet'.
  2198         ^  self
  2222         ^  self
  2253     <resource: #uiCallback>
  2277     <resource: #uiCallback>
  2254 
  2278 
  2255     self doStartMake:'all'
  2279     self doStartMake:'all'
  2256 !
  2280 !
  2257 
  2281 
       
  2282 doStartMakeApp
       
  2283     <resource: #uiCallback>
       
  2284 
       
  2285     self doStartMake:'app'
       
  2286 !
       
  2287 
  2258 doStartMakeExe
  2288 doStartMakeExe
  2259     <resource: #uiCallback>
  2289     <resource: #uiCallback>
  2260 
  2290 
  2261     self doStartMake:'exe'
  2291     self doStartMake:'exe'
  2262 !
  2292 !
  2331         ].
  2361         ].
  2332         ex proceed.
  2362         ex proceed.
  2333     ] do:[
  2363     ] do:[
  2334         self getProjectBuilder.
  2364         self getProjectBuilder.
  2335         projectBuilder makeExeOnly:((what = 'exe') or:[what = 'exeQuick']).
  2365         projectBuilder makeExeOnly:((what = 'exe') or:[what = 'exeQuick']).
       
  2366         projectBuilder makeAppOnly:(what = 'app').
  2336         projectBuilder makeQuick:(what = 'exeQuick').
  2367         projectBuilder makeQuick:(what = 'exeQuick').
  2337 
  2368 
  2338         Error handle:[:ex |
  2369         Error handle:[:ex |
  2339             makeOutputWindow endEntry.
  2370             makeOutputWindow endEntry.
  2340             makeOutputWindow cr.
  2371             makeOutputWindow cr.
  2669     ^ newStartupClassName.
  2700     ^ newStartupClassName.
  2670 !
  2701 !
  2671 
  2702 
  2672 osIsOSX
  2703 osIsOSX
  2673    ^ OperatingSystem isOSXlike
  2704    ^ OperatingSystem isOSXlike
       
  2705 !
       
  2706 
       
  2707 osIsUnix
       
  2708    ^ OperatingSystem isUNIXlike 
  2674 !
  2709 !
  2675 
  2710 
  2676 osIsWindows
  2711 osIsWindows
  2677    ^ OperatingSystem isMSWINDOWSlike
  2712    ^ OperatingSystem isMSWINDOWSlike
  2678 !
  2713 !
  3126     ^ self hasProjectSelected "and:[ self hasApplicationSelected ]"
  3161     ^ self hasProjectSelected "and:[ self hasApplicationSelected ]"
  3127 
  3162 
  3128     "Modified: / 23-08-2011 / 12:16:35 / cg"
  3163     "Modified: / 23-08-2011 / 12:16:35 / cg"
  3129 !
  3164 !
  3130 
  3165 
  3131 isUnixOS
       
  3132     ^ OperatingSystem isUNIXlike
       
  3133 !
       
  3134 
       
  3135 isWindowsOS
       
  3136     ^ OperatingSystem isMSWINDOWSlike
       
  3137 !
       
  3138 
       
  3139 projectTypeIsGuiApplication
  3166 projectTypeIsGuiApplication
  3140     ^ self projectTypeHolder value == ProjectDefinition guiApplicationType
  3167     ^ self projectTypeHolder value == ProjectDefinition guiApplicationType
  3141 
  3168 
  3142     "Modified: / 20-07-2012 / 13:29:59 / cg"
  3169     "Modified: / 20-07-2012 / 13:29:59 / cg"
  3143 !
  3170 !
  3219     ].
  3246     ].
  3220 
  3247 
  3221     "Modified: / 06-09-2012 / 15:58:58 / cg"
  3248     "Modified: / 06-09-2012 / 15:58:58 / cg"
  3222 !
  3249 !
  3223 
  3250 
       
  3251 checkSourceCodeManagerType
       
  3252     |button scm package|
       
  3253 
       
  3254     button := self builder componentAt:'CheckinButton'.
       
  3255 
       
  3256     package := selectedProjectDefinition package.
       
  3257     scm := AbstractSourceCodeManager managerForPackage:package.
       
  3258     scm isNil ifTrue:[
       
  3259         scm := selectedApplication sourceCodeManager.
       
  3260         scm isNil ifTrue:[
       
  3261             scm := SourceCodeManager
       
  3262         ].
       
  3263     ].
       
  3264     scm isNil ifTrue:[
       
  3265         button disable
       
  3266     ] ifFalse:[
       
  3267         button label:(resources string:'Checkin (%1)...' with:scm managerTypeName)
       
  3268     ].
       
  3269 !
       
  3270 
  3224 delayedUpdate:something with:anArgument from:changedObject
  3271 delayedUpdate:something with:anArgument from:changedObject
  3225     changedObject == Smalltalk ifTrue:[
  3272     changedObject == Smalltalk ifTrue:[
  3226         (something == #newClass
  3273         (something == #newClass
  3227         or:[something == #classRemove
  3274         or:[something == #classRemove
  3228         or:[something == #projectOrganization]]) ifTrue:[
  3275         or:[something == #projectOrganization]]) ifTrue:[