--- a/SVN__Configuration.st Thu Mar 29 15:51:20 2012 +0200
+++ b/SVN__Configuration.st Thu Mar 29 15:51:34 2012 +0200
@@ -296,12 +296,12 @@
^true
"Created: / 10-03-2010 / 13:35:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 14-03-2011 / 11:26:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 29-03-2012 / 14:24:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
hash
- ^name hash
+ ^name hash bitXor: repositories hash
"Created: / 10-03-2010 / 13:34:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
@@ -435,7 +435,7 @@
hash
- ^package hash bitXor: url hash
+ ^package hash bitXor: (url hash bitXor: branch hash)
"Created: / 09-01-2010 / 11:21:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
@@ -450,6 +450,22 @@
"Created: / 14-03-2011 / 09:30:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!Configuration::Repository methodsFor:'printing & storing'!
+
+printOn:aStream
+ "append a printed representation if the receiver to the argument, aStream"
+
+ super printOn:aStream.
+ aStream nextPutAll:'package: '.
+ package printOn:aStream.
+ aStream nextPutAll:'pattern: '.
+ pattern printOn:aStream.
+ aStream nextPutAll:'url: '.
+ url printOn:aStream.
+ aStream nextPutAll:'branch: '.
+ branch printOn:aStream.
+! !
+
!Configuration::Repository methodsFor:'queries'!
matches: packageId