--- a/mercurial/HGWorkingCopyFile.st Thu Dec 06 01:28:14 2012 +0000
+++ b/mercurial/HGWorkingCopyFile.st Thu Dec 06 04:07:46 2012 -0800
@@ -60,9 +60,13 @@
!
revisions
- | path |
+ | path pathS |
path := self pathNameRelative.
+ pathS := OperatingSystem isMSWINDOWSlike
+ ifTrue:[path copyReplaceAll:$\ with: $/]
+ ifFalse:[path].
+
revisions isNil ifTrue:[
| old p |
@@ -70,7 +74,7 @@
workingDirectory: wc pathName;
path: path;
execute.
- p := path.
+ p := pathS.
old := old collect: [:id|
| cs f |
@@ -89,10 +93,11 @@
].
"/older revisions are cached, newer not since this may change...
- ^((wc changeset / path) newer:true) , revisions
+ ^((wc changeset / pathS) newer:true) , revisions
"Created: / 05-12-2012 / 19:09:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 06-12-2012 / 00:28:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 06-12-2012 / 03:50:58 / jv"
!
status