--- a/Tools__NewSystemBrowser.st Wed Dec 21 19:18:12 2011 +0100
+++ b/Tools__NewSystemBrowser.st Wed Dec 21 19:18:32 2011 +0100
@@ -6671,178 +6671,6 @@
)
!
-classCVSMenu
- "This resource specification was automatically generated
- by the MenuEditor of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the MenuEditor may not be able to read the specification."
-
- "
- MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#classCVSMenu
- (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser classCVSMenu)) startUp
- "
-
- <resource: #menu>
-
- ^
- #(Menu
- (
- (MenuItem
- label: '** No SourceCodeManager - See Settings in the Launcher **'
- translateLabel: true
- isVisible: hasNoSourceCodeManagerHolder
- )
- (MenuItem
- label: '-'
- isVisible: hasNoSourceCodeManagerHolder
- )
- (MenuItem
- enabled: hasClassSelectedHolderAndSourceCodeManagerHolder
- label: 'CheckIn...'
- itemValue: classMenuCheckIn
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckIn 'CheckIn...')
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasClassWithExtensionsSelectedHolder
- label: 'CheckIn Extensions For'
- translateLabel: true
- submenuChannel: browseClassExtensionsMenu
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: changeSetContainsChangedClassesAndSourceCodeManagerHolder
- label: 'CheckIn All Changed Classes'
- itemValue: classMenuCheckInAllChangedClasses
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: 'Quick CheckIn...'
- itemValue: classMenuQuickCheckIn
- translateLabel: true
- isVisible: hasClassSelectedAndControlKeyDownHolder
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasProjectDefinitionSelectedAndSourceCodeManagerHolder
- label: 'CheckIn Build Support Files...'
- itemValue: classMenuCheckInBuildSupportFiles
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
- label: 'Set Tag...'
- itemValue: classMenuSetTag
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryTag 'Set Tag...')
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
- label: 'CheckOut Newest'
- itemValue: classMenuCheckOutNewest
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest')
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
- label: 'CheckOut Previous Version...'
- itemValue: classMenuCheckOut
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
- label: 'Revision Log (Recent Changes)'
- itemValue: classMenuShortRevisionLog
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryLog 'Revision Log (Recent Changes)')
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
- label: 'Revision Log (Full)'
- itemValue: classMenuRevisionLog
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
- itemValue: classMenuCompareAgainstNewestInRepository
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Original in Repository...'
- itemValue: classMenuCompareAgainstOriginalInRepository
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Repository...'
- itemValue: classMenuCompareWithRepository
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
- label: 'Compare two Repository Versions...'
- itemValue: classMenuCompareTwoRepositoryVersions
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasProjectDefinitionOrClassWithExtensionsSelectedAndSourceCodeManagerHolder
- label: 'Compare Extensions with Repository...'
- itemValue: classMenuCompareExtensionsWithRepository
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasProjectDefinitionSelectedAndSourceCodeManagerHolder
- label: 'Compare Build Support File'
- translateLabel: true
- submenuChannel: compareBuildSupportFileMenu
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
- label: 'Edit Version in Repository...'
- itemValue: classMenuEditVersionInRepository
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- )
- nil
- nil
- )
-
- "Created: / 19-04-2011 / 15:24:05 / cg"
-!
-
classCheckMenu
"This resource specification was automatically generated
by the MenuEditor of ST/X."
@@ -8491,176 +8319,6 @@
"Modified: / 08-08-2011 / 07:47:16 / cg"
!
-classSCMMenu
- "This resource specification was automatically generated
- by the MenuEditor of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the MenuEditor may not be able to read the specification."
-
- "
- MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#classSCMMenu
- (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser classSCMMenu)) startUp
- "
-
- <resource: #menu>
-
- ^
- #(Menu
- (
- (MenuItem
- label: '** No SourceCodeManager - See Settings in the Launcher **'
- translateLabel: true
- isVisible: hasNoSourceCodeManagerHolder
- )
- (MenuItem
- label: '-'
- isVisible: hasNoSourceCodeManagerHolder
- )
- (MenuItem
- enabled: hasClassSelectedHolderAndSourceCodeManagerHolder
- label: 'CheckIn...'
- itemValue: classMenuCheckIn
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckIn 'CheckIn...')
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasClassWithExtensionsSelectedHolder
- label: 'CheckIn Extensions For'
- translateLabel: true
- submenuChannel: browseClassExtensionsMenu
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: changeSetContainsChangedClassesAndSourceCodeManagerHolder
- label: 'CheckIn All Changed Classes'
- itemValue: classMenuCheckInAllChangedClasses
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: 'Quick CheckIn...'
- itemValue: classMenuQuickCheckIn
- translateLabel: true
- isVisible: hasClassSelectedAndControlKeyDownHolder
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasProjectDefinitionSelectedAndSourceCodeManagerHolder
- label: 'CheckIn Build Support Files...'
- itemValue: classMenuCheckInBuildSupportFiles
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
- label: 'Set Tag...'
- itemValue: classMenuSetTag
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryTag 'Set Tag...')
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
- label: 'CheckOut Newest'
- itemValue: classMenuCheckOutNewest
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest')
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
- label: 'CheckOut Previous Version...'
- itemValue: classMenuCheckOut
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
- label: 'Revision Log (Recent Changes)'
- itemValue: classMenuShortRevisionLog
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryLog 'Revision Log (Recent Changes)')
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
- label: 'Revision Log (Full)'
- itemValue: classMenuRevisionLog
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
- itemValue: classMenuCompareAgainstNewestInRepository
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Original in Repository...'
- itemValue: classMenuCompareAgainstOriginalInRepository
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Repository...'
- itemValue: classMenuCompareWithRepository
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
- label: 'Compare two Repository Versions...'
- itemValue: classMenuCompareTwoRepositoryVersions
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasProjectDefinitionSelectedAndSourceCodeManagerHolder
- label: 'Compare Extensions with Repository...'
- itemValue: classMenuCompareExtensionsWithRepository
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasProjectDefinitionSelectedAndSourceCodeManagerHolder
- label: 'Compare Build Support File'
- translateLabel: true
- submenuChannel: compareBuildSupportFileMenu
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
- label: 'Edit Version in Repository...'
- itemValue: classMenuEditVersionInRepository
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- )
- nil
- nil
- )
-!
-
classSmallTeamMenu
"This resource specification was automatically generated
by the MenuEditor of ST/X."
@@ -10247,162 +9905,6 @@
)
!
-projectMenuCVS
- "This resource specification was automatically generated
- by the MenuEditor of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the MenuEditor may not be able to read the specification."
-
- "
- MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#projectMenuCVS
- (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser projectMenuCVS)) startUp
- "
-
- <resource: #menu>
-
- ^
- #(Menu
- (
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'CheckIn...'
- itemValue: projectMenuCheckInAll
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckIn 'CheckIn...')
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'CheckIn Classes Only...'
- itemValue: projectMenuCheckInClasses
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'CheckIn Extensions Only...'
- itemValue: projectMenuCheckInExtensions
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'CheckIn Build Support Files Only...'
- itemValue: projectMenuCheckInBuildSupportFiles
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'Set Tag (Release As)...'
- itemValue: projectMenuSetTag
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryTag 'Set Tag (Release As)...')
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'CheckOut Newest'
- itemValue: projectMenuCheckOutNewest
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest')
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'CheckOut Previous Version...'
- itemValue: projectMenuCheckOut
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'CheckOut Extensions Only...'
- itemValue: projectMenuCheckOutExtensions
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Import Structure...'
- itemValue: projectMenuImport
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: 'Import...'
- itemValue: projectMenuImportAndLoadClasses
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'Repository History...'
- itemValue: projectMenuRepositoryHistory
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
- itemValue: projectMenuCompareAgainstNewestInRepository
- translateLabel: true
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'Compare with Repository at Date...'
- itemValue: projectMenuCompareAgainstRepository
- translateLabel: true
- )
- (MenuItem
- label: 'Compare Build Support File'
- translateLabel: true
- submenuChannel: compareBuildSupportFileMenu
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'Consistency Check...'
- itemValue: projectMenuCheckRepositoryConsistency
- translateLabel: true
- )
- (MenuItem
- label: '-'
- isVisible: false
- )
- (MenuItem
- enabled: hasProjectSelectedHolder
- label: 'Resource Files...'
- itemValue: projectMenuResources
- translateLabel: true
- isVisible: false
- )
- (MenuItem
- enabled: hasProjectSelectedHolder
- label: 'Bitmap Files...'
- itemValue: projectMenuBitmapFiles
- translateLabel: true
- isVisible: false
- )
- )
- nil
- nil
- )
-!
-
protocolCheckMenu
"This resource specification was automatically generated
by the MenuEditor of ST/X."
@@ -11120,69 +10622,6 @@
"Modified: / 05-07-2011 / 14:46:40 / cg"
!
-selectorMenuCVS
- "This resource specification was automatically generated
- by the MenuEditor of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the MenuEditor may not be able to read the specification."
-
- "
- MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#selectorMenuFileOutPrintOutSlice
- (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser selectorMenuFileOutPrintOutSlice)) startUp
- "
-
- <resource: #menu>
-
- ^
- #(Menu
- (
- (MenuItem
- enabled: hasMethodSelected
- label: 'CheckIn Class(es)...'
- itemValue: methodListMenuCheckInClass
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckIn 'CheckIn Class(es)...')
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasRealExtensionMethodSelectedHolder
- label: 'CheckIn Extensions for Project...'
- itemValue: selectorMenuCheckInProjectExtensions
- translateLabel: true
- isVisible: hasExtensionMethodSelectedHolder
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasMethodSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
- itemValue: selectorMenuCompareAgainstNewestInRepository
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
- )
- (MenuItem
- enabled: hasMethodSelectedAndSourceCodeManagerHolder
- label: 'Compare Class with Newest in Repository...'
- itemValue: selectorMenuCompareClassAgainstNewestInRepository
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasSingleMethodSelected
- label: 'Browse Repository Versions...'
- itemValue: selectorMenuBrowseRepositoryVersions
- translateLabel: true
- )
- )
- nil
- nil
- )
-!
-
selectorMenuCompareGenerateDebugSlice
"This resource specification was automatically generated
by the MenuEditor of ST/X."
@@ -13589,6 +13028,302 @@
!NewSystemBrowser class methodsFor:'menu specs-SCM-class'!
+classCVSMenu
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+ "
+ MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#classCVSMenu
+ (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser classCVSMenu)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: '** No SourceCodeManager - See Settings in the Launcher **'
+ translateLabel: true
+ isVisible: hasNoSourceCodeManagerHolder
+ )
+ (MenuItem
+ label: '-'
+ isVisible: hasNoSourceCodeManagerHolder
+ )
+ (MenuItem
+ enabled: hasClassSelectedHolderAndSourceCodeManagerHolder
+ label: 'CheckIn...'
+ itemValue: classMenuCheckIn
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckIn 'CheckIn...')
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasClassWithExtensionsSelectedHolder
+ label: 'CheckIn Extensions For'
+ translateLabel: true
+ submenuChannel: browseClassExtensionsMenu
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: changeSetContainsChangedClassesAndSourceCodeManagerHolder
+ label: 'CheckIn All Changed Classes'
+ itemValue: classMenuCheckInAllChangedClasses
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: 'Quick CheckIn...'
+ itemValue: classMenuQuickCheckIn
+ translateLabel: true
+ isVisible: hasClassSelectedAndControlKeyDownHolder
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectDefinitionSelectedAndSourceCodeManagerHolder
+ label: 'CheckIn Build Support Files...'
+ itemValue: classMenuCheckInBuildSupportFiles
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
+ label: 'Set Tag...'
+ itemValue: classMenuSetTag
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryTag 'Set Tag...')
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
+ label: 'CheckOut Newest'
+ itemValue: classMenuCheckOutNewest
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest')
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
+ label: 'CheckOut Previous Version...'
+ itemValue: classMenuCheckOut
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
+ label: 'Revision Log (Recent Changes)'
+ itemValue: classMenuShortRevisionLog
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryLog 'Revision Log (Recent Changes)')
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
+ label: 'Revision Log (Full)'
+ itemValue: classMenuRevisionLog
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Newest in Repository...'
+ itemValue: classMenuCompareAgainstNewestInRepository
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Original in Repository...'
+ itemValue: classMenuCompareAgainstOriginalInRepository
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Repository...'
+ itemValue: classMenuCompareWithRepository
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare two Repository Versions...'
+ itemValue: classMenuCompareTwoRepositoryVersions
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectDefinitionOrClassWithExtensionsSelectedAndSourceCodeManagerHolder
+ label: 'Compare Extensions with Repository...'
+ itemValue: classMenuCompareExtensionsWithRepository
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectDefinitionSelectedAndSourceCodeManagerHolder
+ label: 'Compare Build Support File'
+ translateLabel: true
+ submenuChannel: compareBuildSupportFileMenu
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Edit Version in Repository...'
+ itemValue: classMenuEditVersionInRepository
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ )
+ nil
+ nil
+ )
+
+ "Created: / 19-04-2011 / 15:24:05 / cg"
+!
+
+classFileBasedRepositoryMenu
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+
+ "
+ MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#classFileBasedRepositoryMenu
+ (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser classFileBasedRepositoryMenu)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ enabled: hasClassSelectedHolderAndSourceCodeManagerHolder
+ label: 'CheckIn...'
+ itemValue: classMenuCheckInUsingManagerName:
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckIn 'CheckIn...')
+ argument: FileBasedSourceCodeManager
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasClassWithExtensionsSelectedHolder
+ label: 'CheckIn Extensions For'
+ translateLabel: true
+ submenuChannel: browseClassExtensionsMenu
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: changeSetContainsChangedClassesAndSourceCodeManagerHolder
+ label: 'CheckIn All Changed Classes'
+ itemValue: classMenuCheckInAllChangedClasses
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: 'Quick CheckIn...'
+ itemValue: classMenuQuickCheckIn
+ translateLabel: true
+ isVisible: hasClassSelectedAndControlKeyDownHolder
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectDefinitionSelectedAndSourceCodeManagerHolder
+ label: 'CheckIn Build Support Files...'
+ itemValue: classMenuCheckInBuildSupportFiles
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
+ label: 'CheckOut Newest'
+ itemValue: classMenuCheckOutNewest
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest')
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
+ label: 'CheckOut Previous Version...'
+ itemValue: classMenuCheckOut
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Newest in Repository...'
+ itemValue: classMenuCompareAgainstNewestInRepository
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Original in Repository...'
+ itemValue: classMenuCompareAgainstOriginalInRepository
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Repository...'
+ itemValue: classMenuCompareWithRepository
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare two Repository Versions...'
+ itemValue: classMenuCompareTwoRepositoryVersions
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectDefinitionOrClassWithExtensionsSelectedAndSourceCodeManagerHolder
+ label: 'Compare Extensions with Repository...'
+ itemValue: classMenuCompareExtensionsWithRepository
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectDefinitionSelectedAndSourceCodeManagerHolder
+ label: 'Compare Build Support File'
+ translateLabel: true
+ submenuChannel: compareBuildSupportFileMenu
+ )
+ )
+ nil
+ nil
+ )
+!
+
classMenuSCMCommon
"This resource specification was automatically generated
by the MenuEditor of ST/X."
@@ -13903,10 +13638,20 @@
submenuChannel: classSubversionMenu
labelImage: (ResourceRetriever ToolbarIconLibrary repositorySVNIcon 'SubVersion')
)
- )
- nil
- nil
- )
+ (MenuItem
+ enabled: hasClassesSelectedAndFileBasedRepositoryExistsHolder
+ label: 'File Repository'
+ translateLabel: true
+ isVisible: hasFileBasedSourceCodeManagerSupport
+ submenuChannel: classFileBasedRepositoryMenu
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryIcon 'File Repository')
+ )
+ )
+ nil
+ nil
+ )
+
+ "Modified: / 21-12-2011 / 17:09:57 / cg"
!
classMenuSCMSliceAll
@@ -14091,6 +13836,186 @@
submenuChannel: classSubversionMenu
labelImage: (ResourceRetriever ToolbarIconLibrary repositorySVNIcon 'SubVersion')
)
+ (MenuItem
+ enabled: hasClassesSelectedAndFileBasedRepositoryExistsHolder
+ label: 'File Repository'
+ translateLabel: true
+ isVisible: hasFileBasedSourceCodeManagerSupport
+ submenuChannel: classFileBasedRepositoryMenu
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryIcon 'File Repository')
+ )
+ )
+ nil
+ nil
+ )
+
+ "Modified: / 21-12-2011 / 17:12:38 / cg"
+!
+
+classSCMMenu
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+ "
+ MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#classSCMMenu
+ (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser classSCMMenu)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: '** No SourceCodeManager - See Settings in the Launcher **'
+ translateLabel: true
+ isVisible: hasNoSourceCodeManagerHolder
+ )
+ (MenuItem
+ label: '-'
+ isVisible: hasNoSourceCodeManagerHolder
+ )
+ (MenuItem
+ enabled: hasClassSelectedHolderAndSourceCodeManagerHolder
+ label: 'CheckIn...'
+ itemValue: classMenuCheckIn
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckIn 'CheckIn...')
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasClassWithExtensionsSelectedHolder
+ label: 'CheckIn Extensions For'
+ translateLabel: true
+ submenuChannel: browseClassExtensionsMenu
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: changeSetContainsChangedClassesAndSourceCodeManagerHolder
+ label: 'CheckIn All Changed Classes'
+ itemValue: classMenuCheckInAllChangedClasses
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: 'Quick CheckIn...'
+ itemValue: classMenuQuickCheckIn
+ translateLabel: true
+ isVisible: hasClassSelectedAndControlKeyDownHolder
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectDefinitionSelectedAndSourceCodeManagerHolder
+ label: 'CheckIn Build Support Files...'
+ itemValue: classMenuCheckInBuildSupportFiles
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
+ label: 'Set Tag...'
+ itemValue: classMenuSetTag
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryTag 'Set Tag...')
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
+ label: 'CheckOut Newest'
+ itemValue: classMenuCheckOutNewest
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest')
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
+ label: 'CheckOut Previous Version...'
+ itemValue: classMenuCheckOut
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
+ label: 'Revision Log (Recent Changes)'
+ itemValue: classMenuShortRevisionLog
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryLog 'Revision Log (Recent Changes)')
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasNonPrivateClassSelectedAndSourceCodeManagerHolder
+ label: 'Revision Log (Full)'
+ itemValue: classMenuRevisionLog
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Newest in Repository...'
+ itemValue: classMenuCompareAgainstNewestInRepository
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Original in Repository...'
+ itemValue: classMenuCompareAgainstOriginalInRepository
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Repository...'
+ itemValue: classMenuCompareWithRepository
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare two Repository Versions...'
+ itemValue: classMenuCompareTwoRepositoryVersions
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectDefinitionSelectedAndSourceCodeManagerHolder
+ label: 'Compare Extensions with Repository...'
+ itemValue: classMenuCompareExtensionsWithRepository
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectDefinitionSelectedAndSourceCodeManagerHolder
+ label: 'Compare Build Support File'
+ translateLabel: true
+ submenuChannel: compareBuildSupportFileMenu
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Edit Version in Repository...'
+ itemValue: classMenuEditVersionInRepository
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
)
nil
nil
@@ -14099,6 +14024,162 @@
!NewSystemBrowser class methodsFor:'menu specs-SCM-project'!
+projectMenuCVS
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+ "
+ MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#projectMenuCVS
+ (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser projectMenuCVS)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'CheckIn...'
+ itemValue: projectMenuCheckInAll
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckIn 'CheckIn...')
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'CheckIn Classes Only...'
+ itemValue: projectMenuCheckInClasses
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'CheckIn Extensions Only...'
+ itemValue: projectMenuCheckInExtensions
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'CheckIn Build Support Files Only...'
+ itemValue: projectMenuCheckInBuildSupportFiles
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'Set Tag (Release As)...'
+ itemValue: projectMenuSetTag
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryTag 'Set Tag (Release As)...')
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'CheckOut Newest'
+ itemValue: projectMenuCheckOutNewest
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest')
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'CheckOut Previous Version...'
+ itemValue: projectMenuCheckOut
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'CheckOut Extensions Only...'
+ itemValue: projectMenuCheckOutExtensions
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Import Structure...'
+ itemValue: projectMenuImport
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: 'Import...'
+ itemValue: projectMenuImportAndLoadClasses
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'Repository History...'
+ itemValue: projectMenuRepositoryHistory
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Newest in Repository...'
+ itemValue: projectMenuCompareAgainstNewestInRepository
+ translateLabel: true
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Repository at Date...'
+ itemValue: projectMenuCompareAgainstRepository
+ translateLabel: true
+ )
+ (MenuItem
+ label: 'Compare Build Support File'
+ translateLabel: true
+ submenuChannel: compareBuildSupportFileMenu
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'Consistency Check...'
+ itemValue: projectMenuCheckRepositoryConsistency
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ isVisible: false
+ )
+ (MenuItem
+ enabled: hasProjectSelectedHolder
+ label: 'Resource Files...'
+ itemValue: projectMenuResources
+ translateLabel: true
+ isVisible: false
+ )
+ (MenuItem
+ enabled: hasProjectSelectedHolder
+ label: 'Bitmap Files...'
+ itemValue: projectMenuBitmapFiles
+ translateLabel: true
+ isVisible: false
+ )
+ )
+ nil
+ nil
+ )
+!
+
projectMenuSCMCommon
"This resource specification was automatically generated
by the MenuEditor of ST/X."
@@ -14710,6 +14791,69 @@
!NewSystemBrowser class methodsFor:'menu specs-SCM-selector'!
+selectorMenuCVS
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+ "
+ MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#selectorMenuFileOutPrintOutSlice
+ (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser selectorMenuFileOutPrintOutSlice)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ enabled: hasMethodSelected
+ label: 'CheckIn Class(es)...'
+ itemValue: methodListMenuCheckInClass
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckIn 'CheckIn Class(es)...')
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasRealExtensionMethodSelectedHolder
+ label: 'CheckIn Extensions for Project...'
+ itemValue: selectorMenuCheckInProjectExtensions
+ translateLabel: true
+ isVisible: hasExtensionMethodSelectedHolder
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasMethodSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Newest in Repository...'
+ itemValue: selectorMenuCompareAgainstNewestInRepository
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
+ )
+ (MenuItem
+ enabled: hasMethodSelectedAndSourceCodeManagerHolder
+ label: 'Compare Class with Newest in Repository...'
+ itemValue: selectorMenuCompareClassAgainstNewestInRepository
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasSingleMethodSelected
+ label: 'Browse Repository Versions...'
+ itemValue: selectorMenuBrowseRepositoryVersions
+ translateLabel: true
+ )
+ )
+ nil
+ nil
+ )
+!
+
selectorMenuSCMCommon
"This resource specification was automatically generated
by the MenuEditor of ST/X."
@@ -18548,6 +18692,21 @@
"Created: / 4.2.2000 / 22:02:53 / cg"
!
+hasClassesSelectedAndFileBasedRepositoryExistsHolder
+ ^ [
+ | classes |
+
+ classes := self selectedClasses value.
+ classes isEmptyOrNil ifTrue:[
+ false
+ ] ifFalse:[
+ ConfigurableFeatures hasFileBasedSourceCodeManagerSupport
+ ]
+ ]
+
+ "Created: / 21-12-2011 / 17:05:28 / cg"
+!
+
hasClassesSelectedAndPerforceRepositoryExistsHolder
^ [
| classes |
@@ -18699,6 +18858,33 @@
"Modified: / 08-03-2007 / 23:00:43 / cg"
!
+hasFileBasedRepositoryFor: package
+ "is there a subversion source repository for package?"
+
+ ^ ConfigurableFeatures hasFileBasedSourceCodeManagerSupport
+ "/ use Smalltalk-at to trick the dependency/prerequisite generator
+ and:[(Smalltalk at:#'FileBasedSourceCodeManager') hasRepositoryForPackage: package]
+
+ "Created: / 31-03-2008 / 15:08:13 / janfrog"
+ "Modified: / 22-08-2009 / 10:49:33 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 07-09-2011 / 10:43:21 / cg"
+ "Created: / 21-12-2011 / 17:08:01 / cg"
+!
+
+hasFileBasedRepositorySupport
+ ^ ConfigurableFeatures hasFileBasedRepositorySupport
+
+ "Modified: / 07-09-2011 / 10:45:57 / cg"
+ "Created: / 21-12-2011 / 17:04:32 / cg"
+!
+
+hasFileBasedSourceCodeManagerSupport
+ ^ ConfigurableFeatures hasFileBasedSourceCodeManagerSupport
+
+ "Modified: / 07-09-2011 / 10:45:57 / cg"
+ "Created: / 21-12-2011 / 17:08:53 / cg"
+!
+
hasFindHistoryClassesHolder
^ [ FindHistory size > 0 ]
@@ -28886,64 +29072,9 @@
"check a bunch of classes into the source repository.
If logInfoOrNil isNil, ask for one."
- |classesNotInPackage msg answer errors|
-
- errors := self checkCompilabilityOfAll:aCollectionOfClasses errorsOnly:true.
- errors notEmptyOrNil ifTrue:[
- (TextBox openOn:errors title:'Attention: about to check in class with errors' readOnly:true) isNil
- ifTrue:[
- AbortSignal raise
- ].
- ].
-
- self withActivityNotificationsRedirectedToInfoLabelDo:[
- SourceCodeManagerUtilities default
- checkinClasses:aCollectionOfClasses
- withInfo:logInfoOrNil
- withCheck:doCheck.
- ].
-
- classesNotInPackage := aCollectionOfClasses select:[:cls |
- |pkg def|
-
- pkg := cls package.
- pkg notNil ifTrue:[
- def := ProjectDefinition definitionClassForPackage:pkg.
- ].
- def notNil and:[
- (def allClassNames includes:cls name) not]
- ].
- classesNotInPackage := classesNotInPackage collect:[:cls | cls theNonMetaclass].
-
- classesNotInPackage notEmpty ifTrue:[
- classesNotInPackage size > 1 ifTrue:[
- msg := 'Add %2 classes to their Package definition (Make compiled or autoloaded) ?'
- ] ifFalse:[
- msg := 'Add %1 to its Package definition (Make compiled or autoloaded) ?'
- ].
- answer := Dialog
- confirmWithCancel:((resources string:msg
- with:classesNotInPackage first name
- with:classesNotInPackage size)
- , (resources
- stringWithCRs:'\\(Notice: You have to "checkIn build support files" for the package\for the compilation to become effective)')
- )
- labels:(resources array:#('Cancel' 'Autoloaded' 'Compiled')).
- answer == nil ifTrue:[^ self ].
- answer == true ifTrue:[
- classesNotInPackage do:[:eachClass |
- eachClass projectDefinitionClass
- includeClasses:{ eachClass } usingCompiler:nil
- ].
- ] ifFalse:[
- classesNotInPackage do:[:eachClass |
- eachClass projectDefinitionClass
- makeClassesAutoloaded:{ eachClass } usingCompiler:nil
- ].
- ].
- ].
-
- "Modified: / 02-11-2010 / 13:19:35 / cg"
+ self checkInClasses:aCollectionOfClasses withInfo:logInfoOrNil withCheck:doCheck usingManager:nil
+
+ "Modified: / 21-12-2011 / 18:23:10 / cg"
!
checkInClasses:aCollectionOfClasses withInfo:logInfoOrNil withCheck:doCheck using: manager
@@ -29011,6 +29142,71 @@
"Created: / 11-10-2011 / 10:47:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+checkInClasses:aCollectionOfClasses withInfo:logInfoOrNil withCheck:doCheck usingManager:aManagerOrNil
+ "check a bunch of classes into the source repository.
+ If logInfoOrNil isNil, ask for one."
+
+ |classesNotInPackage msg answer errors|
+
+ errors := self checkCompilabilityOfAll:aCollectionOfClasses errorsOnly:true.
+ errors notEmptyOrNil ifTrue:[
+ (TextBox openOn:errors title:'Attention: about to check in class with errors' readOnly:true) isNil
+ ifTrue:[
+ AbortSignal raise
+ ].
+ ].
+
+ self withActivityNotificationsRedirectedToInfoLabelDo:[
+ SourceCodeManagerUtilities default
+ checkinClasses:aCollectionOfClasses
+ withInfo:logInfoOrNil
+ withCheck:doCheck
+ usingManager:aManagerOrNil.
+ ].
+
+ classesNotInPackage := aCollectionOfClasses select:[:cls |
+ |pkg def|
+
+ pkg := cls package.
+ pkg notNil ifTrue:[
+ def := ProjectDefinition definitionClassForPackage:pkg.
+ ].
+ def notNil and:[
+ (def allClassNames includes:cls name) not]
+ ].
+ classesNotInPackage := classesNotInPackage collect:[:cls | cls theNonMetaclass].
+
+ classesNotInPackage notEmpty ifTrue:[
+ classesNotInPackage size > 1 ifTrue:[
+ msg := 'Add %2 classes to their Package definition (Make compiled or autoloaded) ?'
+ ] ifFalse:[
+ msg := 'Add %1 to its Package definition (Make compiled or autoloaded) ?'
+ ].
+ answer := Dialog
+ confirmWithCancel:((resources string:msg
+ with:classesNotInPackage first name
+ with:classesNotInPackage size)
+ , (resources
+ stringWithCRs:'\\(Notice: You have to "checkIn build support files" for the package\for the compilation to become effective)')
+ )
+ labels:(resources array:#('Cancel' 'Autoloaded' 'Compiled')).
+ answer == nil ifTrue:[^ self ].
+
+ classesNotInPackage do:[:eachClass |
+ |defClass|
+
+ defClass := eachClass projectDefinitionClass.
+ answer == true ifTrue:[
+ defClass includeClasses:{ eachClass } usingCompiler:nil
+ ] ifFalse:[
+ defClass makeClassesAutoloaded:{ eachClass } usingCompiler:nil
+ ].
+ ].
+ ].
+
+ "Created: / 21-12-2011 / 18:22:58 / cg"
+!
+
checkOutClass:aClass askForRevision:askForRevision
"check-out a single class from the source repository.
Offer a chance to either merge-in a version, or overload the current version.
@@ -29104,14 +29300,9 @@
classMenuCheckIn
"check a class into the source repository (with checks)"
- |doChecks|
-
- doChecks := (UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true).
- doChecks := doChecks asValue.
- self classMenuCheckIn:doChecks.
- doChecks value ~~ (UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ifTrue:[
- UserPreferences current at:#checkClassesWhenCheckingIn put:doChecks value
- ].
+ self classMenuCheckInUsingManager:nil
+
+ "Modified: / 21-12-2011 / 18:20:40 / cg"
!
classMenuCheckIn:doCheck
@@ -29121,9 +29312,9 @@
Otherwise, a no check is done, and the class is quickly checked in.
"
- ^ self
- classMenuCheckIn:doCheck
- classes:(self selectedClasses value)
+ ^ self classMenuCheckIn:doCheck usingManager:nil
+
+ "Modified: / 21-12-2011 / 18:21:44 / cg"
!
classMenuCheckIn:doCheck classes:classesSelected
@@ -29133,55 +29324,9 @@
Otherwise, a no check is done, and the class is quickly checked in.
"
- |classesToCheckIn|
-
- (self askIfModified:'Code was modified.\\CheckIn (without that modification) anyway ?')
- ifFalse:[^ self].
-
- classesToCheckIn := IdentitySet new.
-
- self
- classes:classesSelected
- nonMetaDo:
- [:cls |
- InformationSignal handle:[:ex |
- Transcript showCR:ex description.
- ex proceed.
- ] do:[
- classesToCheckIn add:cls.
- ]
- ]
- ifUnloaded:
- [:cls |
- (Dialog confirm:('Cannot checkin unloaded class: %1.' bindWith:cls name allBold)
- title:'Cannot Checkin' yesLabel:'OK' noLabel:'Cancel' ) ifFalse:[^ self].
- false.
- ]
- ifPrivate:
- [:cls | |owner answer|
-
- owner := cls topOwningClass.
- (classesToCheckIn includes:owner) ifFalse:[
- (classesSelected "self selectedClasses value" includes:owner) ifFalse:[
- answer := Dialog
- confirmWithCancel:(resources string:'Cannot checkin private class: %1\\Shall the owner ''%2'' be checked in ?'
- with:cls nameWithoutPrefix allBold
- with:owner name allBold) withCRs
- default:true.
- answer == nil ifTrue:[
- ^ self
- ].
- answer == true ifTrue:[
- classesToCheckIn add:owner.
- ].
- ]
- ]
- ].
-
- classesToCheckIn notEmpty ifTrue:[
- self checkInClasses:classesToCheckIn withInfo:nil withCheck:doCheck.
- ].
- self normalLabel.
+ self classMenuCheckIn:doCheck classes:classesSelected usingManager:nil
+
+ "Modified: / 21-12-2011 / 18:22:24 / cg"
!
classMenuCheckIn:doCheck classes:classesSelected using: manager
@@ -29244,6 +29389,66 @@
"Created: / 11-10-2011 / 10:46:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+classMenuCheckIn:doCheck classes:classesSelected usingManager:aManagerOrNil
+ "check a class into the source repository.
+ If doCheck is true, perform some checks (leftover halts etc.) on
+ the class (which may take some time with huge classes).
+ Otherwise, a no check is done, and the class is quickly checked in.
+ "
+
+ |classesToCheckIn|
+
+ (self askIfModified:'Code was modified.\\CheckIn (without that modification) anyway ?')
+ ifFalse:[^ self].
+
+ classesToCheckIn := IdentitySet new.
+
+ self
+ classes:classesSelected
+ nonMetaDo:
+ [:cls |
+ InformationSignal handle:[:ex |
+ Transcript showCR:ex description.
+ ex proceed.
+ ] do:[
+ classesToCheckIn add:cls.
+ ]
+ ]
+ ifUnloaded:
+ [:cls |
+ (Dialog confirm:('Cannot checkin unloaded class: %1.' bindWith:cls name allBold)
+ title:'Cannot Checkin' yesLabel:'OK' noLabel:'Cancel' ) ifFalse:[^ self].
+ false.
+ ]
+ ifPrivate:
+ [:cls | |owner answer|
+
+ owner := cls topOwningClass.
+ (classesToCheckIn includes:owner) ifFalse:[
+ (classesSelected "self selectedClasses value" includes:owner) ifFalse:[
+ answer := Dialog
+ confirmWithCancel:(resources string:'Cannot checkin private class: %1\\Shall the owner ''%2'' be checked in ?'
+ with:cls nameWithoutPrefix allBold
+ with:owner name allBold) withCRs
+ default:true.
+ answer == nil ifTrue:[
+ ^ self
+ ].
+ answer == true ifTrue:[
+ classesToCheckIn add:owner.
+ ].
+ ]
+ ]
+ ].
+
+ classesToCheckIn notEmpty ifTrue:[
+ self checkInClasses:classesToCheckIn withInfo:nil withCheck:doCheck usingManager:aManagerOrNil.
+ ].
+ self normalLabel.
+
+ "Created: / 21-12-2011 / 18:22:09 / cg"
+!
+
classMenuCheckIn:doCheck using: manager
"check a class into the source repository.
If doCheck is true, perform some checks (leftover halts etc.) on
@@ -29259,6 +29464,21 @@
"Created: / 11-10-2011 / 10:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+classMenuCheckIn:doCheck usingManager:aManagerOrNil
+ "check a class into the source repository.
+ If doCheck is true, perform some checks (leftover halts etc.) on
+ the class (which may take some time with huge classes).
+ Otherwise, a no check is done, and the class is quickly checked in.
+ "
+
+ ^ self
+ classMenuCheckIn:doCheck
+ classes:(self selectedClasses value)
+ usingManager:aManagerOrNil
+
+ "Created: / 21-12-2011 / 18:21:30 / cg"
+!
+
classMenuCheckInAllChangedClasses
"check in all changed classes into the source repository (with checks)"
@@ -29347,6 +29567,29 @@
"Modified: / 11-10-2011 / 10:45:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+classMenuCheckInUsingManager:aManagerOrNil
+ "check a class into the source repository (with checks)"
+
+ |doChecks|
+
+ doChecks := (UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true).
+ doChecks := doChecks asValue.
+ self classMenuCheckIn:doChecks usingManager:aManagerOrNil.
+ doChecks value ~~ (UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ifTrue:[
+ UserPreferences current at:#checkClassesWhenCheckingIn put:doChecks value
+ ].
+
+ "Created: / 21-12-2011 / 18:20:19 / cg"
+!
+
+classMenuCheckInUsingManagerName:aManagerName
+ "check a class into the source repository (with checks)"
+
+ self classMenuCheckInUsingManager:(Smalltalk at:aManagerName asSymbol)
+
+ "Created: / 21-12-2011 / 18:28:40 / cg"
+!
+
classMenuCheckOut
"check-out selected class(es) from the source repository.
Individually ask for class revisions.
@@ -54716,11 +54959,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1671 2011-12-21 14:46:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1672 2011-12-21 18:18:32 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1671 2011-12-21 14:46:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1672 2011-12-21 18:18:32 cg Exp $'
!
version_SVN