equal
deleted
inserted
replaced
3755 |
3755 |
3756 |cls "vs m mgr"| |
3756 |cls "vs m mgr"| |
3757 |
3757 |
3758 cls := self. |
3758 cls := self. |
3759 self isMeta ifFalse:[ |
3759 self isMeta ifFalse:[ |
3760 cls := self class |
3760 cls := self class |
3761 ]. |
3761 ]. |
3762 |
3762 |
3763 "/ m := cls compiledMethodAt:#version. |
3763 "/ m := cls compiledMethodAt:#version. |
3764 "/ m isNil ifTrue:[^ false]. |
3764 "/ m isNil ifTrue:[^ false]. |
3765 "/ vs := self revisionString. |
3765 "/ vs := self revisionString. |
3767 "/ |
3767 "/ |
3768 "/ (mgr := self sourceCodeManager) isNil ifTrue:[^ false]. |
3768 "/ (mgr := self sourceCodeManager) isNil ifTrue:[^ false]. |
3769 "/ newString := mgr updatedRevisionStringOf:cls forRevision:newRevision with:vs. |
3769 "/ newString := mgr updatedRevisionStringOf:cls forRevision:newRevision with:vs. |
3770 "/ newString isNil ifTrue:[^ false]. |
3770 "/ newString isNil ifTrue:[^ false]. |
3771 |
3771 |
3772 MethodRedefinitionSignal handle:[:ex | |
3772 Class methodRedefinitionSignal answer:#keep do:[ |
3773 ex proceedWith:#keep |
3773 Class withoutUpdatingChangesDo:[ |
3774 ] do:[ |
3774 Compiler compile:'version |
3775 Class withoutUpdatingChangesDo:[ |
|
3776 Compiler compile:'version |
|
3777 ^ ''' , newRevisionString , ''' |
3775 ^ ''' , newRevisionString , ''' |
3778 ' |
3776 ' |
3779 forClass:cls |
3777 forClass:cls |
3780 inCategory:#documentation |
3778 inCategory:#documentation |
3781 notifying:nil |
3779 notifying:nil |
3782 install:true |
3780 install:true |
3783 skipIfSame:false |
3781 skipIfSame:false |
3784 silent:true. |
3782 silent:true. |
3785 ] |
3783 ] |
3786 ]. |
3784 ]. |
3787 "/ ('updated to :' , newRevisionString) printNL. |
3785 "/ ('updated to :' , newRevisionString) printNL. |
3788 |
3786 |
3789 ^ true |
3787 ^ true |
3790 |
3788 |
3898 ! ! |
3896 ! ! |
3899 |
3897 |
3900 !Class class methodsFor:'documentation'! |
3898 !Class class methodsFor:'documentation'! |
3901 |
3899 |
3902 version |
3900 version |
3903 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.345 1999-08-17 13:48:46 cg Exp $' |
3901 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.346 1999-08-18 15:17:36 cg Exp $' |
3904 ! ! |
3902 ! ! |