equal
deleted
inserted
replaced
4576 source := (Smalltalk fileNameForClass:self) , '.st' |
4576 source := (Smalltalk fileNameForClass:self) , '.st' |
4577 ]. |
4577 ]. |
4578 stream := self sourceStreamFor:source. |
4578 stream := self sourceStreamFor:source. |
4579 stream notNil ifTrue:[ |
4579 stream notNil ifTrue:[ |
4580 "/ see if its utf8 encoded... |
4580 "/ see if its utf8 encoded... |
4581 stream := ChangeSet decodedStreamFor:stream. |
4581 stream := EncodedStream decodedStreamFor:stream. |
4582 ]. |
4582 ]. |
4583 ^ stream. |
4583 ^ stream. |
4584 ! |
4584 ! |
4585 |
4585 |
4586 sourceStreamFor:source |
4586 sourceStreamFor:source |
5020 ! ! |
5020 ! ! |
5021 |
5021 |
5022 !Class class methodsFor:'documentation'! |
5022 !Class class methodsFor:'documentation'! |
5023 |
5023 |
5024 version |
5024 version |
5025 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.562 2009-11-06 19:32:09 cg Exp $' |
5025 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.563 2009-12-11 16:50:15 cg Exp $' |
5026 ! |
5026 ! |
5027 |
5027 |
5028 version_CVS |
5028 version_CVS |
5029 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.562 2009-11-06 19:32:09 cg Exp $' |
5029 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.563 2009-12-11 16:50:15 cg Exp $' |
5030 ! ! |
5030 ! ! |