equal
deleted
inserted
replaced
3665 ] |
3665 ] |
3666 ]. |
3666 ]. |
3667 ^ info |
3667 ^ info |
3668 ! |
3668 ! |
3669 |
3669 |
|
3670 revisionInfoOfManager: mgr |
|
3671 ^ (Smalltalk classNamed:self name) |
|
3672 revisionInfoOfManager: mgr |
|
3673 ! |
|
3674 |
3670 revisionString |
3675 revisionString |
3671 "{ Pragma: +optSpace }" |
3676 "{ Pragma: +optSpace }" |
3672 |
3677 |
3673 "return my revision string; that one is extracted from the |
3678 "return my revision string; that one is extracted from the |
3674 classes #version method. Either this is a method returning that string, |
3679 classes #version method. Either this is a method returning that string, |