Mercurial Mercurial > hg > stx-goodies-monticello / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
MCStReader.st
changeset 880 c3bd562c4050
parent 796 730e50b519a0
child 960 f7640c71d77a 
--- a/MCStReader.st	Mon Jun 03 12:39:59 2013 +0200
+++ b/MCStReader.st	Mon Jun 03 12:42:16 2013 +0200
@@ -101,15 +101,15 @@
 !
 
 methodDefinitionsFor: aPseudoClass
-	^ aPseudoClass selectors collect: 
-		[:ea |
-		 MCMethodDefinition
-			className: aPseudoClass name
-			classIsMeta: aPseudoClass isMeta
-			selector: ea
-			category: (aPseudoClass organization categoryOfElement: ea)
-			timeStamp: (aPseudoClass stampAt: ea)
-			source: (aPseudoClass sourceCodeAt: ea)]
+        ^ aPseudoClass selectors collect: 
+                [:ea |
+                 MCMethodDefinition
+                        className: aPseudoClass name
+                        classIsMeta: aPseudoClass isMeta
+                        selector: ea
+                        category: (aPseudoClass organization categoryOfElement: ea)
+                        timeStamp: (aPseudoClass stampAt: ea)
+                        source: (aPseudoClass sourceCodeAt: ea) string]
 !
 
 systemOrganizationFromRecords: changeRecords
@@ -239,7 +239,7 @@
                         selector: aChange changeSelector
                         category: aChange category "/ (aPseudoClass organization categoryOfElement: ea)
                         timeStamp: nil "aChange timeStamp" "/ (aPseudoClass stampAt: ea)
-                        source: aChange source "/ (aPseudoClass sourceCodeAt: ea)
+                        source: aChange source string"/ (aPseudoClass sourceCodeAt: ea)
                     )
 
     "Created: / 25-11-2011 / 17:15:36 / cg"
@@ -248,14 +248,14 @@
 !MCStReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStReader.st,v 1.7 2013-05-15 12:03:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStReader.st,v 1.8 2013-06-03 10:42:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStReader.st,v 1.7 2013-05-15 12:03:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStReader.st,v 1.8 2013-06-03 10:42:16 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: MCStReader.st,v 1.7 2013-05-15 12:03:47 cg Exp $'
+    ^ '$Id: MCStReader.st,v 1.8 2013-06-03 10:42:16 cg Exp $'
 ! !
hg/stx-goodies-monticello