--- 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 <jan.vrany@fit.cvut.cz>"
+ "Modified: / 23-02-2012 / 14:30:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
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 <jan.vrany@fit.cvut.cz>"
+!
+
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!
-