--- a/MCPackage.st Sun Dec 04 15:44:55 2011 +0100
+++ b/MCPackage.st Sun Dec 04 15:53:25 2011 +0100
@@ -14,19 +14,7 @@
^ self new name: aString
! !
-!MCPackage methodsFor:'as yet unclassified'!
-
-= other
- ^ other species = self species and: [other name sameAs: name]
-!
-
-hasWorkingCopy
- ^ MCWorkingCopy registry includesKey: self
-!
-
-hash
- ^ name asLowercase hash
-!
+!MCPackage methodsFor:'accessing'!
name
^ name
@@ -34,26 +22,19 @@
name: aString
name := aString
+! !
+
+!MCPackage methodsFor:'comparing'!
+
+= other
+ ^ other species = self species and: [other name sameAs: name]
!
-packageInfo
-
- ^(Smalltalk allProjectIDs includes: name) ifTrue:[
- MCStXPackageInfo named: name
- ] ifFalse:[
- PackageInfo named: name
- ]
+hash
+ ^ name asLowercase hash
+! !
- "Modified: / 23-08-2011 / 13:31:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-printOn: aStream
- super printOn: aStream.
- aStream
- nextPut: $(;
- nextPutAll: name;
- nextPut: $)
-!
+!MCPackage methodsFor:'operations'!
snapshot
| packageInfo definitions categories |
@@ -77,14 +58,42 @@
!
+unload
+ ^ self workingCopy unload
+! !
+
+!MCPackage methodsFor:'printing & storing'!
+
+printOn: aStream
+ super printOn: aStream.
+ aStream
+ nextPut: $(;
+ nextPutAll: name;
+ nextPut: $)
+!
+
storeOn: aStream
aStream
nextPutAll: 'MCPackage';
space; nextPutAll: 'named: '; store: name.
+! !
+
+!MCPackage methodsFor:'queries'!
+
+hasWorkingCopy
+ ^ MCWorkingCopy registry includesKey: self
!
-unload
- ^ self workingCopy unload
+packageInfo
+
+ (Smalltalk allProjectIDs includes: name) ifTrue:[
+ ^ MCStXPackageInfo named: name
+ ] ifFalse:[
+ ^ PackageInfo named: name
+ ]
+
+ "Modified: / 23-08-2011 / 13:31:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 02-12-2011 / 15:53:22 / cg"
!
workingCopy
@@ -94,11 +103,11 @@
!MCPackage class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.8 2011-08-23 13:47:26 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.9 2011-12-04 14:53:25 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.8 2011-08-23 13:47:26 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.9 2011-12-04 14:53:25 cg Exp $'
!
version_SVN