# HG changeset patch # User Claus Gittinger # Date 1374933054 -7200 # Node ID a4e2e9b2947dedc485e8be070f930c2c23727de7 # Parent 30748ea1b6e985e202289dc1d4dc672df9ba540f wether -> whether (lookup what wether is ;-) diff -r 30748ea1b6e9 -r a4e2e9b2947d MCVersion.st --- a/MCVersion.st Sat Jul 27 15:50:33 2013 +0200 +++ b/MCVersion.st Sat Jul 27 15:50:54 2013 +0200 @@ -11,12 +11,12 @@ !MCVersion class methodsFor:'instance creation'! package: aPackageOrPackageID - aPackageOrPackageID isSymbol ifTrue:[ - "/ an ST/X package-ID - ^ super package: aPackageOrPackageID - ]. - "/ a monticello package-ID - ^ self package: aPackageOrPackageID info: MCVersionInfo new + aPackageOrPackageID isSymbol ifTrue:[ + "/ an ST/X package-ID + ^ super package: aPackageOrPackageID + ]. + "/ a monticello package-ID + ^ self package: aPackageOrPackageID info: MCVersionInfo new "Modified: / 22-11-2006 / 14:16:22 / cg" ! @@ -100,9 +100,9 @@ writerClass Smalltalk isSmalltalkX ifTrue:[ - ^ MCStxMczWriter + ^ MCStxMczWriter ] ifFalse:[ - ^ MCMczWriter + ^ MCMczWriter ] ! ! @@ -173,15 +173,15 @@ allDependenciesNotIn: aDictionary do: aBlock ifUnresolved: failBlock | version | - self dependencies do: - [:ea | + self dependencies do: + [:ea | version := aDictionary at: ea ifAbsent: [ea resolve]. - version + version ifNil: [failBlock value: ea] ifNotNil: [(aDictionary includes: version) ifFalse: [aDictionary at: ea put: version. - version - allDependenciesNotIn: aDictionary + version + allDependenciesNotIn: aDictionary do: aBlock ifUnresolved: failBlock. aBlock value: version]]] @@ -228,12 +228,12 @@ !MCVersion methodsFor:'testing'! canOptimizeLoading - "Answer wether I can provide a patch for the working copy without the usual diff pass" + "Answer whether I can provide a patch for the working copy without the usual diff pass" ^false ! isCacheable - ^ cachable ? true + ^ cachable ? true ! isDiffy @@ -243,10 +243,10 @@ !MCVersion class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersion.st,v 1.9 2013-06-07 01:10:18 vrany Exp $' + ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersion.st,v 1.10 2013-07-27 13:50:54 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersion.st,v 1.9 2013-06-07 01:10:18 vrany Exp $' + ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersion.st,v 1.10 2013-07-27 13:50:54 cg Exp $' ! !