Tools__NewSystemBrowser.st
branchjv
changeset 12173 f135ea9fe1cf
parent 12170 6c9c4b7981ee
child 12174 2dcdea864585
--- 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!
-