equal
deleted
inserted
replaced
3759 "{ Pragma: +optSpace }" |
3759 "{ Pragma: +optSpace }" |
3760 |
3760 |
3761 "helper for the checkin procedure. |
3761 "helper for the checkin procedure. |
3762 Update my #version method, to now return newRevisionString." |
3762 Update my #version method, to now return newRevisionString." |
3763 |
3763 |
3764 |cls "vs m mgr"| |
3764 |cls mthd "vs m mgr"| |
3765 |
3765 |
3766 cls := self. |
3766 cls := self. |
3767 self isMeta ifFalse:[ |
3767 self isMeta ifFalse:[ |
3768 cls := self class |
3768 cls := self class |
3769 ]. |
3769 ]. |
3777 "/ newString := mgr updatedRevisionStringOf:cls forRevision:newRevision with:vs. |
3777 "/ newString := mgr updatedRevisionStringOf:cls forRevision:newRevision with:vs. |
3778 "/ newString isNil ifTrue:[^ false]. |
3778 "/ newString isNil ifTrue:[^ false]. |
3779 |
3779 |
3780 Class methodRedefinitionSignal answer:#keep do:[ |
3780 Class methodRedefinitionSignal answer:#keep do:[ |
3781 Class withoutUpdatingChangesDo:[ |
3781 Class withoutUpdatingChangesDo:[ |
3782 Compiler compile:'version |
3782 mthd := Compiler compile:'version |
3783 ^ ''' , newRevisionString , ''' |
3783 ^ ''' , newRevisionString , ''' |
3784 ' |
3784 ' |
3785 forClass:cls |
3785 forClass:cls |
3786 inCategory:#documentation |
3786 inCategory:#documentation |
3787 notifying:nil |
3787 notifying:nil |
3788 install:true |
3788 install:true |
3789 skipIfSame:false |
3789 skipIfSame:false |
3790 silent:true. |
3790 silent:true. |
|
3791 mthd notNil ifTrue:[ |
|
3792 mthd package:self package |
|
3793 ] |
3791 ] |
3794 ] |
3792 ]. |
3795 ]. |
3793 "/ ('updated to :' , newRevisionString) printNL. |
3796 "/ ('updated to :' , newRevisionString) printNL. |
3794 |
3797 |
3795 ^ true |
3798 ^ true |
3904 ! ! |
3907 ! ! |
3905 |
3908 |
3906 !Class class methodsFor:'documentation'! |
3909 !Class class methodsFor:'documentation'! |
3907 |
3910 |
3908 version |
3911 version |
3909 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.349 1999-09-01 11:29:47 cg Exp $' |
3912 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.350 1999-09-02 16:46:11 cg Exp $' |
3910 ! ! |
3913 ! ! |