--- a/ProjectChecker.st Wed Oct 31 18:31:02 2012 +0100
+++ b/ProjectChecker.st Wed Oct 31 18:42:25 2012 +0100
@@ -12,10 +12,10 @@
"{ Package: 'stx:libbasic3' }"
Object subclass:#ProjectChecker
- instanceVariableNames:'package packageDef classes methods problems phase'
- classVariableNames:''
- poolDictionaries:''
- category:'System-Support-Projects'
+ instanceVariableNames:'package packageDef classes methods problems phase'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'System-Support-Projects'
!
!ProjectChecker class methodsFor:'documentation'!
@@ -96,7 +96,7 @@
!ProjectChecker class methodsFor:'others'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.10 2012-10-31 17:31:02 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.11 2012-10-31 17:42:25 vrany Exp $'
! !
!ProjectChecker methodsFor:'accessing'!
@@ -171,8 +171,8 @@
classesInImage := Smalltalk allClasses select:[:cls | (cls package = self package) and:[cls isPrivate not]].
"/ classesInDescription := self classes asIdentitySet.
classesInDescription := OrderedCollection new.
- ((packageDef compiled_classNamesForPlatform:(OperatingSystem platformName))
- , (packageDef compiled_classNames_common)
+ ( (packageDef compiled_classNames_common)
+ , (packageDef compiled_classNamesForPlatform:(OperatingSystem platformName))
, (packageDef autoloaded_classNames)) do:[:nm |
|cls|
@@ -255,7 +255,7 @@
].
"Created: / 11-01-2012 / 17:14:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 26-10-2012 / 12:59:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 31-10-2012 / 17:40:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
checkClassesForMethodsInNoProject:classesToCheck
@@ -565,7 +565,7 @@
!ProjectChecker class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.10 2012-10-31 17:31:02 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.11 2012-10-31 17:42:25 vrany Exp $'
!
version_SVN