class: Tools::ProjectBuilderAssistantApplication
added:
#doCheckin
#page7a_checkinSpec
#page7b_buildSpec
changed: #assistantSpec
--- 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>