--- a/Class.st Thu Sep 02 17:20:49 1999 +0200
+++ b/Class.st Thu Sep 02 18:46:11 1999 +0200
@@ -3761,7 +3761,7 @@
"helper for the checkin procedure.
Update my #version method, to now return newRevisionString."
- |cls "vs m mgr"|
+ |cls mthd "vs m mgr"|
cls := self.
self isMeta ifFalse:[
@@ -3779,7 +3779,7 @@
Class methodRedefinitionSignal answer:#keep do:[
Class withoutUpdatingChangesDo:[
- Compiler compile:'version
+ mthd := Compiler compile:'version
^ ''' , newRevisionString , '''
'
forClass:cls
@@ -3787,7 +3787,10 @@
notifying:nil
install:true
skipIfSame:false
- silent:true.
+ silent:true.
+ mthd notNil ifTrue:[
+ mthd package:self package
+ ]
]
].
"/ ('updated to :' , newRevisionString) printNL.
@@ -3906,5 +3909,5 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.349 1999-09-01 11:29:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.350 1999-09-02 16:46:11 cg Exp $'
! !