checkin to get version methods correct
authorJan Vrany <jan.vrany@fit.cvut.cz>
Sat, 01 Oct 2011 13:15:27 +0200
changeset 851 32edde5d1f19
parent 850 45a7a0a06c89
child 852 562b2f7e178d
checkin to get version methods correct
SVNSourceCodeManager.st
--- a/SVNSourceCodeManager.st	Sat Oct 01 13:14:46 2011 +0200
+++ b/SVNSourceCodeManager.st	Sat Oct 01 13:15:27 2011 +0200
@@ -205,7 +205,7 @@
 !SVNSourceCodeManager class methodsFor:'others'!
 
 version_CVS
-    ^ '$ÂHeader: /cvs/stx/stx/libsvn/SVNSourceCodeManager.st,v 1.5 2009/10/20 09:55:53 fm Exp Â$'
+    ^ '$Header$'
 ! !
 
 !SVNSourceCodeManager class methodsFor:'queries'!
@@ -250,22 +250,17 @@
     "Modified: / 07-07-2011 / 23:12:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-versionMethodTemplateForRubyFor:aSelector
-    ^
-'def self.',aSelector,'()
-    return "$' , 'Id' , '$"
-end'
+versionMethodKeyword
 
-    "Modified: / 23-11-2009 / 18:02:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
+    "Answers the keyword used by the version management system to
+     expand a current version in a file (_without_ dollars). For
+     CVS it is 'Header', for SVN 'Id', others may use different
+     keywords. If nil is returned, then the version management does
+     not use any keyword."
 
-versionMethodTemplateForSmalltalkFor:aSelector
-    ^
-aSelector,'
-    ^ ''$', 'Id' , '$''
-'
+    ^'Id'
 
-    "Modified: / 23-11-2009 / 18:02:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 27-09-2011 / 16:46:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SVNSourceCodeManager class methodsFor:'source code access'!
@@ -372,6 +367,10 @@
 
 !SVNSourceCodeManager class methodsFor:'documentation'!
 
+version
+    ^ '$Header$'
+!
+
 version_SVN
     ^ '§Id§'
 ! !