Integrated ProjectChecker
authorvrany
Thu, 26 Jul 2012 14:02:28 +0200
changeset 11666 536741d95602
parent 11665 8a4c1082abc8
child 11667 4f68c7e5bb44
Integrated ProjectChecker added: #projectMenuCheckPackageIntegrity changed: #projectMenu #projectMenuSCMCommon
Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Thu Jul 26 13:59:59 2012 +0200
+++ b/Tools__NewSystemBrowser.st	Thu Jul 26 14:02:28 2012 +0200
@@ -10176,6 +10176,12 @@
             )
           )
          (MenuItem
+            enabled: hasProjectSelectedAndSourceCodeManagerHolder
+            label: 'Package Integrity Check...'
+            itemValue: projectMenuCheckPackageIntegrity
+            translateLabel: true
+          )
+         (MenuItem
             label: 'Static Analysis (Lint)'
             translateLabel: true
             submenuChannel: projectCheckMenu
@@ -10238,6 +10244,7 @@
       )
 
     "Modified: / 24-07-2012 / 15:20:51 / cg"
+    "Modified: / 26-07-2012 / 12:33:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 protocolCheckMenu
@@ -15671,6 +15678,12 @@
             argument: SourceCodeManagerNamePlaceholder
           )
          (MenuItem
+            enabled: hasProjectSelectedAndSourceCodeManagerHolder
+            label: 'Package Integrity Check...'
+            itemValue: projectMenuCheckPackageIntegrity
+            translateLabel: true
+          )
+         (MenuItem
             label: '-'
             isVisible: false
           )
@@ -15702,8 +15715,8 @@
         nil
       )
 
-    "Modified: / 23-12-2011 / 19:23:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 23-07-2012 / 15:16:15 / cg"
+    "Modified: / 26-07-2012 / 12:29:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 projectMenuSCMCompareBuildSupportFile
@@ -18550,7 +18563,6 @@
     "Created: / 24.2.2000 / 23:28:06 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'aspects-organization'!
 
 categoryMenuVisible
@@ -22050,7 +22062,6 @@
     ^ UserPreferences current useSearchBarInBrowser or:[self codeView searchBarActionBlock notNil]
 ! !
 
-
 !NewSystemBrowser methodsFor:'change & update'!
 
 categorySelectionChanged
@@ -38240,6 +38251,19 @@
     "Modified: / 10-02-2012 / 17:32:39 / cg"
 !
 
+projectMenuCheckPackageIntegrity
+    "Runs ProjectChecker on selected packages"
+
+    self selectedProjectsDo:[:package |
+        Tools::ProjectCheckerBrowser new
+            projectChecker: (ProjectChecker forPackage: package);
+            open;
+            doCheckAgain
+    ]
+
+    "Created: / 26-07-2012 / 12:30:27 / 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),
@@ -45355,7 +45379,6 @@
     "Modified: / 28-02-2012 / 16:48:38 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-variables'!
 
 browseVarRefsOrModsWithTitle:browserTitle boxTitle:boxTitle variables:varType access:accessType all:browseAll
@@ -52538,7 +52561,6 @@
     ^ navigationState projectListApplication
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-history'!
 
 lastSearchPatterns
@@ -57589,11 +57611,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1759 2012-07-26 07:48:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1760 2012-07-26 12:02:28 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1759 2012-07-26 07:48:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1760 2012-07-26 12:02:28 vrany Exp $'
 !
 
 version_SVN