equal
deleted
inserted
replaced
3692 ]. |
3692 ]. |
3693 ]. |
3693 ]. |
3694 ]. |
3694 ]. |
3695 |
3695 |
3696 aStream isNil ifTrue:[ |
3696 aStream isNil ifTrue:[ |
3697 |
|
3698 "/ mhmh - still no source file. |
3697 "/ mhmh - still no source file. |
3699 "/ If there is a SourceCodeManager, ask it to aquire the |
3698 "/ If there is a SourceCodeManager, ask it to aquire the |
3700 "/ the source for my class, and return an open stream on it. |
3699 "/ the source for my class, and return an open stream on it. |
3701 "/ if that one does not know about the source, look in |
3700 "/ if that one does not know about the source, look in |
3702 "/ standard places |
3701 "/ standard places |
3703 |
3702 |
3704 mgr notNil ifTrue:[ |
3703 mgr notNil ifTrue:[ |
|
3704 classFilename isNil ifTrue:[ |
|
3705 classFilename := (Smalltalk fileNameForClass:self) , '.st'. |
|
3706 ]. |
3705 source asFilename baseName = classFilename asFilename baseName ifTrue:[ |
3707 source asFilename baseName = classFilename asFilename baseName ifTrue:[ |
3706 aStream := mgr getSourceStreamFor:self. |
3708 aStream := mgr getSourceStreamFor:self. |
3707 aStream notNil ifTrue:[ |
3709 aStream notNil ifTrue:[ |
3708 (self validateSourceStream:aStream) ifFalse:[ |
3710 (self validateSourceStream:aStream) ifFalse:[ |
3709 ('Class [info]: repositories source for `' |
3711 ('Class [info]: repositories source for `' |
3902 ! ! |
3904 ! ! |
3903 |
3905 |
3904 !Class class methodsFor:'documentation'! |
3906 !Class class methodsFor:'documentation'! |
3905 |
3907 |
3906 version |
3908 version |
3907 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.348 1999-08-28 22:53:18 cg Exp $' |
3909 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.349 1999-09-01 11:29:47 cg Exp $' |
3908 ! ! |
3910 ! ! |