--- a/Tools__NewSystemBrowser.st Tue Oct 30 17:04:26 2012 +0100
+++ b/Tools__NewSystemBrowser.st Wed Oct 31 08:44:25 2012 +0100
@@ -14,40 +14,40 @@
"{ NameSpace: Tools }"
SystemBrowser subclass:#NewSystemBrowser
- instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
- bufferUsageOrder browserCanvas immediateUpdate showClassPackages
- lastMethodCategory lastMethodMoveClass browserCanvasType
- syntaxColoringProcessRunning syntaxColoringProcess
- methodInfoProcess browsletShowHideLabelHolder browserPageCanvas
- isEmbedded'
- classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
- LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
- LastNameSpaceMove LastMethodMoveOrCopyTargetClass
- LastClassFilterBlockString LastMethodFilterBlockString
- LastBreakPointConditionString LastIndividualChecks
- LastAcceptPackage LastVariableRenames LastVisitorClassName
- LastTemporaryVariableName BookMarks FindHistory
- CheckForInstancesWhenRemovingClasses SynchronousUpdate
- DoubleClickIsOpenBrowser ShowMethodTemplateWhenProtocolIsSelected
- DefaultShowMethodTemplate DefaultShowMethodInheritance
- DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
- DefaultImmediateExplaining DefaultSyntaxColoring
- DefaultToolBarVisible DefaultCodeInfoVisible
- DefaultShortNameInTabs DefaultHideUnloadedClasses
- DefaultMarkApplications DefaultAutoFormat
- DefaultShowMethodComplexity DefaultShowMethodTypeIcon
- DefaultShowSpecialResourceEditors SharedMethodCategoryCache
- LastMethodProcessingBlockString LastLoadedPackages
- DefaultShortAllClassesInNameSpaceOrganisation LastTag
- LastBaseVersionTag DefaultShowPseudoProtocols
- DefaultShowMultitabMode LastRenamedOld LastRenamedNew
- LastImportedPackage LastLintRules NewNavigationHistory
- DefaultSortByNameAndInheritance LastLiteralReplacementType
- LastLiteralReplacementNewName LastLiteralReplacementOldLiteral
- LastNewProjectType LastClassProcessingBlockString
- RecentlyClosedList LastClassSearchBoxShowedFullName'
- poolDictionaries:''
- category:'Interface-Browsers-New'
+ instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
+ bufferUsageOrder browserCanvas immediateUpdate showClassPackages
+ lastMethodCategory lastMethodMoveClass browserCanvasType
+ syntaxColoringProcessRunning syntaxColoringProcess
+ methodInfoProcess browsletShowHideLabelHolder browserPageCanvas
+ isEmbedded'
+ classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
+ LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
+ LastNameSpaceMove LastMethodMoveOrCopyTargetClass
+ LastClassFilterBlockString LastMethodFilterBlockString
+ LastBreakPointConditionString LastIndividualChecks
+ LastAcceptPackage LastVariableRenames LastVisitorClassName
+ LastTemporaryVariableName BookMarks FindHistory
+ CheckForInstancesWhenRemovingClasses SynchronousUpdate
+ DoubleClickIsOpenBrowser ShowMethodTemplateWhenProtocolIsSelected
+ DefaultShowMethodTemplate DefaultShowMethodInheritance
+ DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
+ DefaultImmediateExplaining DefaultSyntaxColoring
+ DefaultToolBarVisible DefaultCodeInfoVisible
+ DefaultShortNameInTabs DefaultHideUnloadedClasses
+ DefaultMarkApplications DefaultAutoFormat
+ DefaultShowMethodComplexity DefaultShowMethodTypeIcon
+ DefaultShowSpecialResourceEditors SharedMethodCategoryCache
+ LastMethodProcessingBlockString LastLoadedPackages
+ DefaultShortAllClassesInNameSpaceOrganisation LastTag
+ LastBaseVersionTag DefaultShowPseudoProtocols
+ DefaultShowMultitabMode LastRenamedOld LastRenamedNew
+ LastImportedPackage LastLintRules NewNavigationHistory
+ DefaultSortByNameAndInheritance LastLiteralReplacementType
+ LastLiteralReplacementNewName LastLiteralReplacementOldLiteral
+ LastNewProjectType LastClassProcessingBlockString
+ RecentlyClosedList LastClassSearchBoxShowedFullName'
+ poolDictionaries:''
+ category:'Interface-Browsers-New'
!
!NewSystemBrowser class methodsFor:'documentation'!
@@ -15191,6 +15191,7 @@
"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:#projectCVSMenu
(Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser projectCVSMenu)) startUp
@@ -15200,156 +15201,141 @@
^
#(Menu
- (
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'CheckIn...'
- itemValue: projectMenuCheckInAllUsingManagerNamed:
+ (
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'CheckIn...'
+ itemValue: projectMenuCheckInAllUsingManagerNamed:
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckIn 'CheckIn...')
argument: CVSSourceCodeManager
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckIn 'CheckIn...')
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'CheckIn Classes Only...'
- itemValue: projectMenuCheckInClassesUsingManagerNamed:
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'CheckIn Classes Only...'
+ itemValue: projectMenuCheckInClassesUsingManagerNamed:
argument: CVSSourceCodeManager
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'CheckIn Extensions Only...'
- itemValue: projectMenuCheckInExtensionsUsingManagerNamed:
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'CheckIn Extensions Only...'
+ itemValue: projectMenuCheckInExtensionsUsingManagerNamed:
argument: CVSSourceCodeManager
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'CheckIn Build Support Files Only...'
- itemValue: projectMenuCheckInBuildSupportFilesUsingManagerNamed:
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'CheckIn Build Support Files Only...'
+ itemValue: projectMenuCheckInBuildSupportFilesUsingManagerNamed:
argument: CVSSourceCodeManager
- 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 Stable Version in Repository'
- itemValue: projectMenuCompareAgainstStableInRepository
- translateLabel: true
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'Compare with Repository at Date or Tag...'
- 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
- )
-
- "Created: / 24-07-2012 / 15:41:27 / cg"
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'CheckOut Newest'
+ itemValue: projectMenuCheckOutNewest
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest')
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'CheckOut Previous Version...'
+ itemValue: projectMenuCheckOut
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'CheckOut Extensions Only...'
+ itemValue: projectMenuCheckOutExtensions
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Import Structure...'
+ itemValue: projectMenuImport
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: 'Import...'
+ itemValue: projectMenuImportAndLoadClasses
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Newest in Repository'
+ itemValue: projectMenuCompareAgainstNewestInRepository
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Stable Version in Repository'
+ itemValue: projectMenuCompareAgainstStableInRepository
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Repository at Date or Tag...'
+ itemValue: projectMenuCompareAgainstRepository
+ )
+ (MenuItem
+ label: 'Compare Build Support File'
+ submenuChannel: compareBuildSupportFileMenu
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'Browse Classes ...'
+ itemValue: projectMenuCheckRepositoryConsistency
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'Set Tag (Release As)...'
+ itemValue: projectMenuSetTag
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryTag 'Set Tag (Release As)...')
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'Repository History...'
+ itemValue: projectMenuRepositoryHistory
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'Find Classes NOT tagged as "stable"'
+ itemValue: projectMenuFindNotStableClasses
+ )
+ (MenuItem
+ label: '-'
+ isVisible: false
+ )
+ (MenuItem
+ enabled: hasProjectSelectedHolder
+ label: 'Resource Files...'
+ itemValue: projectMenuResources
+ isVisible: false
+ )
+ (MenuItem
+ enabled: hasProjectSelectedHolder
+ label: 'Bitmap Files...'
+ itemValue: projectMenuBitmapFiles
+ isVisible: false
+ )
+ )
+ nil
+ nil
+ )
!
projectGitMenu
@@ -15374,8 +15360,7 @@
enabled: hasProjectSelectedAndSourceCodeManagerHolder
label: 'Commit (CheckIn)...'
itemValue: projectMenuCheckInAllUsingManagerNamed:
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckIn 'CheckIn...')
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckIn 'Commit (CheckIn)...')
argument: GitSourceCodeManager
showBusyCursorWhilePerforming: true
)
@@ -15384,20 +15369,8 @@
)
(MenuItem
enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'Set Tag (Release As)...'
- itemValue: projectMenuSetTagUsingManagerNamed:
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary repositoryTag 'Set Tag (Release As)...')
- argument: GitSourceCodeManager
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
label: 'CheckOut Newest'
itemValue: projectMenuCheckOutNewestUsingManagerNamed:
- translateLabel: true
labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest')
argument: GitSourceCodeManager
showBusyCursorWhilePerforming: true
@@ -15406,7 +15379,6 @@
enabled: hasProjectSelectedAndSourceCodeManagerHolder
label: 'CheckOut Previous Version...'
itemValue: projectMenuCheckOutUsingManagerNamed:
- translateLabel: true
argument: GitSourceCodeManager
showBusyCursorWhilePerforming: true
)
@@ -15414,7 +15386,6 @@
enabled: hasProjectSelectedAndSourceCodeManagerHolder
label: 'CheckOut Extensions Only...'
itemValue: projectMenuCheckOutExtensionsUsingManagerNamed:
- translateLabel: true
argument: GitSourceCodeManager
showBusyCursorWhilePerforming: true
)
@@ -15424,25 +15395,12 @@
(MenuItem
label: 'Import Structure...'
itemValue: projectMenuImportUsingManagerNamed:
- translateLabel: true
argument: GitSourceCodeManager
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'Import...'
itemValue: projectMenuImportAndLoadClassesUsingManagerNamed:
- translateLabel: true
- argument: GitSourceCodeManager
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'Repository History...'
- itemValue: projectMenuRepositoryHistoryUsingManagerNamed:
- translateLabel: true
argument: GitSourceCodeManager
showBusyCursorWhilePerforming: true
)
@@ -15453,19 +15411,16 @@
enabled: hasProjectSelectedAndSourceCodeManagerHolder
label: 'Compare with Newest in Repository'
itemValue: projectMenuCompareAgainstNewestInRepositoryUsingManagerNamed:
- translateLabel: true
argument: GitSourceCodeManager
)
(MenuItem
enabled: hasProjectSelectedAndSourceCodeManagerHolder
label: 'Compare with Repository at Date...'
itemValue: projectMenuCompareAgainstRepositoryUsingManagerNamed:
- translateLabel: true
argument: GitSourceCodeManager
)
(MenuItem
label: 'Compare Build Support File'
- translateLabel: true
submenuChannel: compareBuildSupportFileMenuUsingManagerNamed:
argument: GitSourceCodeManager
)
@@ -15473,33 +15428,48 @@
enabled: hasProjectSelectedAndSourceCodeManagerHolder
label: 'Consistency Check...'
itemValue: projectMenuCheckRepositoryConsistencyUsingManagerNamed:
- translateLabel: true
+ argument: GitSourceCodeManager
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'Set Tag (Release As)...'
+ itemValue: projectMenuSetTagUsingManagerNamed:
+ labelImage: (ResourceRetriever ToolbarIconLibrary repositoryTag 'Set Tag (Release As)...')
argument: GitSourceCodeManager
)
(MenuItem
label: '-'
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'Repository History...'
+ itemValue: projectMenuRepositoryHistoryUsingManagerNamed:
+ argument: GitSourceCodeManager
+ showBusyCursorWhilePerforming: 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
)
-
- "Modified: / 28-10-2012 / 12:02:13 / cg"
!
projectMenuSCMCommon
@@ -39274,6 +39244,49 @@
self projectMenuFileOutAsWithFormat:#xml
!
+projectMenuFindNotStableClasses
+ "find classes which have a version different from the stable one."
+
+ |differentClasses|
+
+ differentClasses := OrderedCollection new.
+ self withWaitCursorDo:[
+ self selectedProjects value do:[:eachProject |
+ |module directory perProjectInfo classesInImage
+ autoloadedClassesInImage filesInImage autoloadedFilesInImage
+ classesNotInRepository classesDeletedInRepository filesNotInImage|
+
+ module := eachProject asPackageId module.
+ directory := eachProject asPackageId directory.
+
+ perProjectInfo := SourceCodeManager revisionsInModule:module directory:directory taggedAs:'stable'.
+ perProjectInfo := perProjectInfo ? #().
+ perProjectInfo := perProjectInfo select:[:info | info key asFilename hasSuffix:'st'].
+ perProjectInfo := Dictionary withAssociations:perProjectInfo.
+
+ classesInImage := Smalltalk allClassesInPackage:eachProject.
+ autoloadedClassesInImage := classesInImage reject:[:cls | cls isLoaded].
+ classesInImage := classesInImage select:[:cls | cls isLoaded and:[cls isPrivate not]].
+"/ filesInImage := classesInImage collect:[:cls | cls classBaseFilename] as:Set.
+"/ autoloadedFilesInImage := autoloadedClassesInImage collect:[:cls | cls classBaseFilename] as:Set.
+"/ "/ any differences ?
+"/ classesNotInRepository := classesInImage reject:[:cls | (perProjectInfo includesKey:cls classBaseFilename)].
+"/ classesDeletedInRepository := classesInImage select:[:cls | (perProjectInfo at:cls classBaseFilename ifAbsent:nil) == #deleted].
+ perProjectInfo := perProjectInfo reject:[:v | v == #deleted].
+"/ filesNotInImage := perProjectInfo keys reject:[:file | (filesInImage includes:file)].
+"/ filesNotInImage := filesNotInImage reject:[:file | (autoloadedFilesInImage includes:file)].
+"/ filesNotInImage remove:'extensions.st' ifAbsent:[].
+
+ classesInImage do:[:eachClass |
+ eachClass revision ~= (perProjectInfo at:eachClass classBaseFilename ifAbsent:nil) ifTrue:[
+ differentClasses add:eachClass
+ ]
+ ].
+ ].
+ self spawnClassBrowserFor:differentClasses label:'Classes different from "stable" Version' in:#newBuffer
+ ].
+!
+
projectMenuGeneratePatchSet
"ask for two tags, generate a patchSet to bring a baseSystem (tag1) to the
level of the tag2 version"
@@ -57840,11 +57853,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1811 2012-10-30 15:03:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1812 2012-10-31 07:44:25 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1811 2012-10-30 15:03:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1812 2012-10-31 07:44:25 cg Exp $'
!
version_SVN