equal
deleted
inserted
replaced
3778 "/ in case we need to access the source code manager |
3778 "/ in case we need to access the source code manager |
3779 "/ for the source ... |
3779 "/ for the source ... |
3780 "/ |
3780 "/ |
3781 src := m source. |
3781 src := m source. |
3782 src isNil ifTrue:[^ nil]. |
3782 src isNil ifTrue:[^ nil]. |
3783 ^ self class revisionStringFromSource:src |
3783 ^ Class revisionStringFromSource:src |
3784 |
3784 |
3785 " |
3785 " |
3786 Smalltalk allClassesDo:[:cls | |
3786 Smalltalk allClassesDo:[:cls | |
3787 Transcript showCR:cls revisionString |
3787 Transcript showCR:cls revisionString |
3788 ]. |
3788 ]. |
3790 Number revisionString |
3790 Number revisionString |
3791 FileDirectory revisionString |
3791 FileDirectory revisionString |
3792 " |
3792 " |
3793 |
3793 |
3794 "Created: 29.10.1995 / 19:28:03 / cg" |
3794 "Created: 29.10.1995 / 19:28:03 / cg" |
3795 "Modified: 15.10.1996 / 18:57:43 / cg" |
3795 "Modified: 23.10.1996 / 18:23:56 / cg" |
3796 ! |
3796 ! |
3797 |
3797 |
3798 setBinaryRevision:aString |
3798 setBinaryRevision:aString |
3799 "set the revision-ID. |
3799 "set the revision-ID. |
3800 This should normally not be done in the running system, as the source-manager |
3800 This should normally not be done in the running system, as the source-manager |
4109 ! ! |
4109 ! ! |
4110 |
4110 |
4111 !Class class methodsFor:'documentation'! |
4111 !Class class methodsFor:'documentation'! |
4112 |
4112 |
4113 version |
4113 version |
4114 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.195 1996-10-22 22:08:45 cg Exp $' |
4114 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.196 1996-10-23 17:24:32 cg Exp $' |
4115 ! ! |
4115 ! ! |
4116 Class initialize! |
4116 Class initialize! |