--- a/ProjectDefinition.st	Mon Aug 08 14:38:44 2011 +0200
+++ b/ProjectDefinition.st	Mon Aug 08 15:00:12 2011 +0200
@@ -1033,25 +1033,6 @@
 
 !ProjectDefinition class methodsFor:'accessing - svn'!
 
-svnRepositoryUrl
-
-    | url |
-
-    (self respondsTo:#svnRepositoryUrlString) ifFalse:[^nil].
-    url := self svnRepositoryUrlString.
-    ((url startsWith: '$URL: ') and:[url endsWith:' $'])
-	ifTrue:[url := url copyFrom: 7 to: (url lastIndexOf: $/) - 1]
-	ifFalse:[nil].
-    ^url
-
-
-    "
-	stx_libjava svnRepositoryUrl
-    "
-
-    "Created: / 08-04-2011 / 16:20:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 svnRevision
 
     "
@@ -1127,15 +1108,13 @@
                 select:[:each |
                     each isLoaded ifFalse:[each autoload].
                     (each isTestCaseLike) and:[ each isAbstract not ] 
-                ]
-                thenCollect:[:each | each asTestCase].
+                ].
 
     classes := classes asSortedCollection:[:a :b | a name <= b name ].
-
-    classes do: [:each | 
+    classes do: [:eachClass | 
         | tests |
 
-        tests := each buildSuite tests.
+        tests := eachClass suite tests.
         tests := tests reject:[:test|self shouldExcludeTest: test].
         suite addTests: tests
     ].
@@ -1143,7 +1122,7 @@
 
     "Created: / 01-04-2011 / 15:20:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 03-06-2011 / 17:07:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (comment): / 03-08-2011 / 12:41:51 / cg"
+    "Modified: / 08-08-2011 / 14:59:45 / cg"
 ! !
 
 !ProjectDefinition class methodsFor:'class initialization'!
@@ -1574,26 +1553,6 @@
     "Modified: / 09-11-2010 / 18:41:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-forEachContentsMethodsCodeToCompileDo:aTwoArgBlock ignoreOldEntries: ignoreOldEntries ignoreOldDefinition:ignoreOldDefinition
-    aTwoArgBlock
-	value:(self classNamesAndAttributes_code_ignoreOldEntries:ignoreOldEntries ignoreOldDefinition:ignoreOldDefinition)
-	value:'description - contents'.
-
-    aTwoArgBlock
-	value: (self extensionMethodNames_code_ignoreOldEntries:ignoreOldEntries)
-	value: 'description - contents'.
-
-    aTwoArgBlock
-	value: self preRequisites_code
-	value: 'description'.
-
-    aTwoArgBlock
-	value: self excludedFromPreRequisites_code
-	value: 'description'.
-
-    "Created: / 09-07-2010 / 14:12:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 forEachMethodsCodeToCompileDo:aTwoArgBlock
     self forEachMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:false
 !
@@ -1807,23 +1766,6 @@
     "Created: / 18-08-2006 / 16:14:19 / cg"
 !
 
-svnRepositoryUrlString_code
-
-    ^'svnRepositoryUrlString
-    "Return a SVN repository URL of myself.
-     (Generated since 2011-04-08)
-    "
-
-    ^ ''$URL$'''
-
-    "
-     self svnRepositoryUrlString_code
-     stx_libbasic3 svnRepositoryUrlString_code
-    "
-
-    "Created: / 08-04-2011 / 16:01:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 svnRevisionNr_code: revisionNrOrNil
     ^ String streamContents:[:s |
 	s nextPutLine:'svnRevisionNr'.
@@ -6398,7 +6340,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.341 2011-08-06 13:47:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.342 2011-08-08 13:00:12 cg Exp $'
 !
 
 version_SVN