equal
deleted
inserted
replaced
1220 |
1220 |
1221 s isNil ifTrue:[ |
1221 s isNil ifTrue:[ |
1222 "/ guessed moduleDir ? |
1222 "/ guessed moduleDir ? |
1223 |
1223 |
1224 sourceInfo isNil ifTrue:[ |
1224 sourceInfo isNil ifTrue:[ |
1225 components := Filename concreteClass components:packageDir. |
1225 components := Filename components:packageDir. |
1226 moduleDir := components first. |
1226 moduleDir := components first. |
1227 packageDir := (Filename fromComponents:(components copyFrom:2)) asString. |
1227 packageDir := (Filename fromComponents:(components copyFrom:2)) asString. |
1228 s := self |
1228 s := self |
1229 streamForClass:nil |
1229 streamForClass:nil |
1230 fileName:classFileName |
1230 fileName:classFileName |
2105 ! ! |
2105 ! ! |
2106 |
2106 |
2107 !AbstractSourceCodeManager class methodsFor:'documentation'! |
2107 !AbstractSourceCodeManager class methodsFor:'documentation'! |
2108 |
2108 |
2109 version |
2109 version |
2110 ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.167 2004-06-08 18:09:33 cg Exp $' |
2110 ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.168 2005-02-09 11:05:57 stefan Exp $' |
2111 ! ! |
2111 ! ! |
2112 |
2112 |
2113 AbstractSourceCodeManager initialize! |
2113 AbstractSourceCodeManager initialize! |