equal
deleted
inserted
replaced
4306 "/ newString := mgr updatedRevisionStringOf:cls forRevision:newRevision with:vs. |
4306 "/ newString := mgr updatedRevisionStringOf:cls forRevision:newRevision with:vs. |
4307 "/ newString isNil ifTrue:[^ false]. |
4307 "/ newString isNil ifTrue:[^ false]. |
4308 |
4308 |
4309 Class methodRedefinitionNotification answer:#keep do:[ |
4309 Class methodRedefinitionNotification answer:#keep do:[ |
4310 Class withoutUpdatingChangesDo:[ |
4310 Class withoutUpdatingChangesDo:[ |
4311 mthd := Compiler compile:(self nameOfVersionMethod) , ' |
4311 mthd := Compiler compile: |
|
4312 (self nameOfVersionMethod) , ' |
4312 ^ ''' , newRevisionString , ''' |
4313 ^ ''' , newRevisionString , ''' |
4313 ' |
4314 ' |
4314 forClass:cls |
4315 forClass:cls |
4315 inCategory:#documentation |
4316 inCategory:#documentation |
4316 notifying:nil |
4317 notifying:nil |
4596 ! ! |
4597 ! ! |
4597 |
4598 |
4598 !Class class methodsFor:'documentation'! |
4599 !Class class methodsFor:'documentation'! |
4599 |
4600 |
4600 version |
4601 version |
4601 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.500 2006-08-24 13:10:31 cg Exp $' |
4602 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.501 2006-08-25 16:01:01 cg Exp $' |
4602 ! ! |
4603 ! ! |