class: Tools::NewSystemBrowser
changed: #createPatchFileForDiffSet:checkingForVersionBefore:
--- a/Tools__NewSystemBrowser.st Thu Sep 12 15:07:13 2013 +0200
+++ b/Tools__NewSystemBrowser.st Thu Sep 12 19:02:08 2013 +0200
@@ -34345,7 +34345,7 @@
tempStream nextPutLine:('"/ first, a guard, to ignore the patch if the library already contains an up-to-date class:').
tempStream nextPutLine:('"/').
changedOwningClasses do:[:eachClass |
- tempStream nextPutLine:('(AbstractSourceCodeManager isRevision:(%2 revision) sameOrAfter:''%1'') ifTrue:[ AbortSignal raise ].'
+ tempStream nextPutLine:('(AbstractSourceCodeManager isRevision:(%2 revision) sameOrAfter:''%1'') ifTrue:[ AbortSignal raiseErrorString:''patch is for older version'' ].'
bindWith:eachClass revision
with:eachClass name).
].
@@ -59155,11 +59155,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1981 2013-09-10 14:01:07 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1982 2013-09-12 17:02:08 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1981 2013-09-10 14:01:07 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1982 2013-09-12 17:02:08 cg Exp $'
!
version_HG
@@ -59168,7 +59168,7 @@
!
version_SVN
- ^ '$Id: Tools__NewSystemBrowser.st,v 1.1981 2013-09-10 14:01:07 vrany Exp $'
+ ^ '$Id: Tools__NewSystemBrowser.st,v 1.1982 2013-09-12 17:02:08 cg Exp $'
! !