equal
deleted
inserted
replaced
782 ^ self |
782 ^ self |
783 ]. |
783 ]. |
784 |
784 |
785 sourceInfo := mgr sourceInfoOfClass:currentClass. |
785 sourceInfo := mgr sourceInfoOfClass:currentClass. |
786 sourceInfo notNil ifTrue:[ |
786 sourceInfo notNil ifTrue:[ |
787 currentClass package ~= Project noProjectID ifTrue:[ |
787 currentClass package ~= PackageId noProjectID ifTrue:[ |
788 containerPackage := mgr directoryFromSourceInfo:sourceInfo. |
788 containerPackage := mgr directoryFromSourceInfo:sourceInfo. |
789 containerModule := mgr moduleFromSourceInfo:sourceInfo. |
789 containerModule := mgr moduleFromSourceInfo:sourceInfo. |
790 ]. |
790 ]. |
791 containerFile := mgr containerFromSourceInfo:sourceInfo. |
791 containerFile := mgr containerFromSourceInfo:sourceInfo. |
792 ]. |
792 ]. |
797 rev isNil ifTrue:[ |
797 rev isNil ifTrue:[ |
798 rev := rev2 |
798 rev := rev2 |
799 ]. |
799 ]. |
800 rev isNil ifTrue:[ |
800 rev isNil ifTrue:[ |
801 pkg := currentClass package. |
801 pkg := currentClass package. |
802 (pkg notNil and:[pkg ~= Project noProjectID]) ifTrue:[ |
802 (pkg notNil and:[pkg ~= PackageId noProjectID]) ifTrue:[ |
803 containerModule := pkg upTo:$:. |
803 containerModule := pkg upTo:$:. |
804 containerPackage := pkg copyFrom:(containerModule size + 2). |
804 containerPackage := pkg copyFrom:(containerModule size + 2). |
805 ]. |
805 ]. |
806 containerModule size == 0 ifTrue:[ |
806 containerModule size == 0 ifTrue:[ |
807 containerModule := (SourceCodeManagerUtilities lastModule ) ? Project current repositoryModule. |
807 containerModule := (SourceCodeManagerUtilities lastModule ) ? Project current repositoryModule. |
2536 |
2536 |
2537 fileNameUpdater := [ |
2537 fileNameUpdater := [ |
2538 |module package files| |
2538 |module package files| |
2539 |
2539 |
2540 Cursor read showWhile:[ |
2540 Cursor read showWhile:[ |
2541 module := moduleHolder value ? (Project noProjectID). |
2541 module := moduleHolder value ? (PackageId noProjectID). |
2542 package := packageHolder value ? (Project noProjectID). |
2542 package := packageHolder value ? (PackageId noProjectID). |
2543 |
2543 |
2544 files := SourceCodeManager getExistingContainersInModule:module directory:package. |
2544 files := SourceCodeManager getExistingContainersInModule:module directory:package. |
2545 files := files asOrderedCollection. |
2545 files := files asOrderedCollection. |
2546 files := files select:[:eachFile | eachFile asFilename hasSuffix:'st']. |
2546 files := files select:[:eachFile | eachFile asFilename hasSuffix:'st']. |
2547 files sort. |
2547 files sort. |
3166 ! ! |
3166 ! ! |
3167 |
3167 |
3168 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
3168 !SourceCodeManagerUtilities class methodsFor:'documentation'! |
3169 |
3169 |
3170 version |
3170 version |
3171 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.194 2009-10-09 17:10:04 cg Exp $' |
3171 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.195 2009-10-12 17:27:05 cg Exp $' |
3172 ! |
3172 ! |
3173 |
3173 |
3174 version_CVS |
3174 version_CVS |
3175 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.194 2009-10-09 17:10:04 cg Exp $' |
3175 ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.195 2009-10-12 17:27:05 cg Exp $' |
3176 ! ! |
3176 ! ! |