--- a/ProjectDefinition.st Fri Nov 23 10:45:42 2012 +0000
+++ b/ProjectDefinition.st Fri Nov 23 11:30:05 2012 +0000
@@ -2436,12 +2436,13 @@
| nr |
nr := (self cvsRevision last upTo:$m) select:[:c|c isDigit].
- nr isEmptyOrNil ifTrue:[nr := '0'].
- ^nr copyTo: (6 min: nr size) "/ Long number are not supported by BCC"
+ nr isEmptyOrNil ifTrue:[^'0'].
+ nr := (nr asInteger min: 16r7FFF) printString.
+ ^nr
"Created: / 18-08-2006 / 12:02:58 / cg"
"Modified: / 30-08-2006 / 18:54:48 / cg"
- "Modified: / 23-11-2012 / 10:39:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 23-11-2012 / 11:24:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
fileRevisionNr
@@ -2461,8 +2462,10 @@
| nr |
nr := self cvsRevision first select:[:c|c isDigit].
- nr isEmptyOrNil ifTrue:[nr := '0'].
- ^nr copyTo: (6 min: nr size) "/ Long number are not supported by BCC"
+ nr isEmptyOrNil ifTrue:[^'0'].
+ nr := (nr asInteger min: 16r7FFF) printString.
+ ^nr
+
"
stx_libbasic fileRevisionNr
@@ -2472,7 +2475,7 @@
"Created: / 18-08-2006 / 12:02:39 / cg"
"Modified: / 30-08-2006 / 18:54:39 / cg"
- "Modified: / 23-11-2012 / 10:39:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 23-11-2012 / 11:24:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
fileVersion
@@ -6877,7 +6880,7 @@
!ProjectDefinition class methodsFor:'documentation'!
version
- ^ '$Id: ProjectDefinition.st 10868 2012-11-23 10:45:42Z vranyj1 $'
+ ^ '$Id: ProjectDefinition.st 10869 2012-11-23 11:30:05Z vranyj1 $'
!
version_CVS
@@ -6885,7 +6888,7 @@
!
version_SVN
- ^ '$Id:: ProjectDefinition.st 10868 2012-11-23 10:45:42Z vranyj1 $'
+ ^ '$Id:: ProjectDefinition.st 10869 2012-11-23 11:30:05Z vranyj1 $'
! !
ProjectDefinition initialize!