--- a/Tools__ProjectBuilderAssistantApplication.st	Thu Jan 23 17:12:00 2014 +0100
+++ b/Tools__ProjectBuilderAssistantApplication.st	Fri Jan 24 13:48:51 2014 +0100
@@ -276,8 +276,14 @@
         )
 
         (AssistantPageSpec
+            pageTitle: 'Check Into Source Repository'
+            windowSpecSelector: page7a_checkinSpec
+            infoText: 'Check the package''s source and build-support files into the source code repository (CVS).'
+        )
+
+        (AssistantPageSpec
             pageTitle: 'Build'
-            windowSpecSelector: page7_buildSpec
+            windowSpecSelector: page7b_buildSpec
             canEnterQuerySelector: #canEnterBuild
             enterCallbackSelector: #restoreMakeOutputsContents
             leaveCallbackSelector: #rememberMakeOutputsContents
@@ -1501,6 +1507,248 @@
       )
 !
 
+page7a_checkinSpec
+    "This resource specification was automatically generated
+     by the UIPainter of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIPainter may not be able to read the specification."
+
+    "
+     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page7a_checkinSpec
+     Tools::ProjectBuilderAssistantApplication new openInterface:#page7a_checkinSpec
+    "
+
+    <resource: #canvas>
+
+    ^ 
+    #(FullSpec
+       name: #'page7a_checkinSpec'
+       window: 
+      (WindowSpec
+         label: 'Check Into Repository'
+         name: 'Check Into Repository'
+         min: (Point 0 0)
+         bounds: (Rectangle 0 0 679 492)
+       )
+       component: 
+      (SpecCollection
+         collection: (
+          (HorizontalPanelViewSpec
+             name: 'HorizontalPanel2'
+             layout: (LayoutFrame 10 0 10 0 0 1 40 0)
+             horizontalLayout: leftSpace
+             verticalLayout: center
+             horizontalSpace: 3
+             verticalSpace: 3
+             component: 
+            (SpecCollection
+               collection: (
+                (ActionButtonSpec
+                   label: 'Checkin...'
+                   name: 'Button13'
+                   activeHelpKey: openFinder
+                   visibilityChannel: osIsOSX
+                   translateLabel: true
+                   model: doCheckin
+                   useDefaultExtent: true
+                 )
+                )
+              
+             )
+           )
+          )
+        
+       )
+     )
+!
+
+page7b_buildSpec
+    "This resource specification was automatically generated
+     by the UIPainter of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIPainter may not be able to read the specification."
+
+    "
+     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page7_buildSpec
+     Tools::ProjectBuilderAssistantApplication new openInterface:#page7_buildSpec
+    "
+
+    <resource: #canvas>
+
+    ^ 
+     #(FullSpec
+        name: #'page7b_buildSpec'
+        window: 
+       (WindowSpec
+          label: 'Project Selection'
+          name: 'Project Selection'
+          min: (Point 0 0)
+          bounds: (Rectangle 0 0 679 492)
+        )
+        component: 
+       (SpecCollection
+          collection: (
+           (FramedBoxSpec
+              label: 'Make Output'
+              name: 'FramedBox3'
+              layout: (LayoutFrame 0 0.0 5 0 4 1.0 -91 1)
+              labelPosition: topLeft
+              translateLabel: true
+              component: 
+             (SpecCollection
+                collection: (
+                 (TextEditorSpec
+                    name: 'MakeOutputWindow'
+                    layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+                    activeHelpKey: makeOutput
+                    model: makeOutputHolder
+                    hasHorizontalScrollBar: true
+                    hasVerticalScrollBar: true
+                    hasKeyboardFocusInitially: false
+                    viewClassName: 'TextCollector'
+                    postBuildCallback: postBuildMakeOutputWindow:
+                  )
+                 )
+               
+              )
+            )
+           (HorizontalPanelViewSpec
+              name: 'HorizontalPanel1'
+              layout: (LayoutFrame 0 0 -90 1 0 1 -60 1)
+              horizontalLayout: leftSpace
+              verticalLayout: center
+              horizontalSpace: 3
+              verticalSpace: 3
+              component: 
+             (SpecCollection
+                collection: (
+                 (ActionButtonSpec
+                    label: 'Make All'
+                    name: 'Button3'
+                    activeHelpKey: makeAll
+                    translateLabel: true
+                    model: doStartMakeAll
+                    enableChannel: startMakeButtonEnabled
+                    useDefaultExtent: true
+                  )
+                 (ActionButtonSpec
+                    label: 'Make EXE only'
+                    name: 'Button5'
+                    activeHelpKey: makeExe
+                    translateLabel: true
+                    model: doStartMakeExe
+                    enableChannel: startMakeButtonEnabled
+                    useDefaultExtent: true
+                  )
+                 (ActionButtonSpec
+                    label: 'Quick Make EXE'
+                    name: 'Button16'
+                    activeHelpKey: makeExeQuick
+                    translateLabel: true
+                    model: doStartMakeExeQuick
+                    enableChannel: startMakeButtonEnabled
+                    useDefaultExtent: true
+                  )
+                 (ViewSpec
+                    name: 'Box1'
+                    extent: (Point 20 10)
+                  )
+                 (ActionButtonSpec
+                    label: 'Stop Make'
+                    name: 'Button4'
+                    activeHelpKey: stopMake
+                    visibilityChannel: stopMakeButtonVisible
+                    translateLabel: true
+                    model: doStopMake
+                    useDefaultExtent: true
+                  )
+                 )
+               
+              )
+            )
+           (HorizontalPanelViewSpec
+              name: 'HorizontalPanel2'
+              layout: (LayoutFrame 0 0 -60 1 0 1 -30 1)
+              horizontalLayout: leftSpace
+              verticalLayout: center
+              horizontalSpace: 3
+              verticalSpace: 3
+              component: 
+             (SpecCollection
+                collection: (
+                 (ActionButtonSpec
+                    label: 'Finder on Build Directory'
+                    name: 'Button13'
+                    activeHelpKey: openFinder
+                    visibilityChannel: osIsOSX
+                    translateLabel: true
+                    model: doOpenFinder
+                    useDefaultExtent: true
+                  )
+                 (ActionButtonSpec
+                    label: 'Explorer on Build Directory'
+                    name: 'Button14'
+                    activeHelpKey: openExplorer
+                    visibilityChannel: osIsWindows
+                    translateLabel: true
+                    model: doOpenExplorer
+                    useDefaultExtent: true
+                  )
+                 (ActionButtonSpec
+                    label: 'Browser on Build Directory'
+                    name: 'Button11'
+                    activeHelpKey: openFileBrowser
+                    translateLabel: true
+                    model: doBrowseBuildDirectory
+                    useDefaultExtent: true
+                  )
+                 (ViewSpec
+                    name: 'Box2'
+                    extent: (Point 20 10)
+                  )
+                 (ActionButtonSpec
+                    label: 'Clear Build Directory'
+                    name: 'Button12'
+                    activeHelpKey: clearBuildDirectory
+                    translateLabel: true
+                    model: doClearBuildDirectory
+                    useDefaultExtent: true
+                  )
+                 )
+               
+              )
+            )
+           (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
+                    useDefaultExtent: true
+                  )
+                 )
+               
+              )
+            )
+           )
+         
+        )
+      )
+!
+
 page8_deploySpec
     "This resource specification was automatically generated
      by the UIPainter of ST/X."
@@ -1876,6 +2124,26 @@
     ].
 !
 
+doCheckin
+    <resource: #uiCallback>
+
+    |package utilities|
+
+    package := selectedProjectDefinition package.
+    utilities := (AbstractSourceCodeManager managerForPackage:package) utilities.
+
+    AbortAllOperationRequest catch:[
+        self withWaitCursorDo:[
+            utilities
+                checkinPackage:package
+                classes:true
+                extensions:true
+                buildSupport:true
+                askForMethodsInOtherPackages:true
+        ]
+    ]
+!
+
 doClearBuildDirectory
     <resource: #uiCallback>