equal
deleted
inserted
replaced
1500 "/ ] |
1500 "/ ] |
1501 "/ ] |
1501 "/ ] |
1502 ]. |
1502 ]. |
1503 |
1503 |
1504 fileName isNil ifTrue:[ |
1504 fileName isNil ifTrue:[ |
1505 aClass nameSpace ~~ Smalltalk ifTrue:[ |
1505 fileName := (Smalltalk fileNameForClass:aClass) , '.st'. |
1506 fileName := aClass nameWithoutPrefix , '.st'. |
|
1507 ] ifFalse:[ |
|
1508 fileName := (Smalltalk fileNameForClass:aClass) , '.st'. |
|
1509 ] |
|
1510 ]. |
1506 ]. |
1511 |
1507 |
1512 OperatingSystem isMSDOSlike ifTrue:[ |
1508 OperatingSystem isMSDOSlike ifTrue:[ |
1513 module replaceAll:$\ with:$/. |
1509 module replaceAll:$\ with:$/. |
1514 package replaceAll:$\ with:$/. |
1510 package replaceAll:$\ with:$/. |
2110 ! ! |
2106 ! ! |
2111 |
2107 |
2112 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
2108 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
2113 |
2109 |
2114 version |
2110 version |
2115 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.92 2003-08-31 12:42:59 cg Exp $' |
2111 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.93 2003-10-26 15:26:20 cg Exp $' |
2116 ! ! |
2112 ! ! |