SVN__Configuration.st
changeset 1080 b52886dfa918
parent 1060 9e5422c98c45
child 1129 01c6e3546546
--- 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