diff -r 047fafb1c37f -r f135ea9fe1cf Tools__NewSystemBrowser.st --- a/Tools__NewSystemBrowser.st Wed Feb 22 17:35:52 2012 +0000 +++ b/Tools__NewSystemBrowser.st Thu Feb 23 15:20:50 2012 +0000 @@ -14946,7 +14946,7 @@ enabled: hasProjectSelectedAndSourceCodeManagerHolder label: 'CheckOut Newest' itemValue: projectMenuCheckOutNewestUsingManagerNamed: - translateLabel: true + translateLabel: true labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckOut 'CheckOut Newest') argument: SourceCodeManagerPlaceholder showBusyCursorWhilePerforming: true @@ -15015,6 +15015,12 @@ argument: SourceCodeManagerPlaceholder ) (MenuItem + enabled: hasProjectSelectedAndSourceCodeManagerHolder + label: 'Integrity Check...' + itemValue: projectMenuCheckPackageIntegrity + translateLabel: true + ) + (MenuItem label: '-' isVisible: false ) @@ -15046,7 +15052,7 @@ nil ) - "Modified: / 23-12-2011 / 19:23:21 / Jan Vrany " + "Modified: / 23-02-2012 / 14:30:55 / Jan Vrany " ! projectMenuSCMCompareBuildSupportFile @@ -36600,6 +36606,28 @@ "Modified: / 13-10-2006 / 01:31:43 / cg" ! +projectMenuCheckPackageIntegrity + + | problems checker | + + problems := OrderedCollection new. + + self selectedProjectsDo:[:package | + checker := ProjectChecker check: package. + problems addAll: checker problems + ]. + + problems isEmpty ifTrue:[ + Dialog information: 'Excellent!! No problems found!!'. + ] ifFalse:[ + Tools::ProjectCheckerBrowser new + problemList: problems; + open + ] + + "Created: / 23-02-2012 / 14:08:12 / Jan Vrany " +! + projectMenuCheckRepositoryConsistency "check for container consistency in the source repository. That is: for every class in the project there must be a container (unstored classes), @@ -55862,7 +55890,7 @@ !NewSystemBrowser class methodsFor:'documentation'! version - ^ '$Id: Tools__NewSystemBrowser.st 7911 2012-02-22 09:55:48Z vranyj1 $' + ^ '$Id: Tools__NewSystemBrowser.st 7915 2012-02-23 15:20:50Z vranyj1 $' ! version_CVS @@ -55870,8 +55898,7 @@ ! version_SVN - ^ '$Id: Tools__NewSystemBrowser.st 7911 2012-02-22 09:55:48Z vranyj1 $' + ^ '$Id: Tools__NewSystemBrowser.st 7915 2012-02-23 15:20:50Z vranyj1 $' ! ! NewSystemBrowser initialize! -