refactored
authorClaus Gittinger <cg@exept.de>
Tue, 07 May 2013 17:28:48 +0200
changeset 15223 c90e1ab942ea
parent 15222 eb1a3e9ca200
child 15224 7aacc9b08c58
refactored copyFrom:<str> size+1 -> withoutPrefix:<str>
ProjectDefinition.st
--- a/ProjectDefinition.st	Tue May 07 16:04:27 2013 +0200
+++ b/ProjectDefinition.st	Tue May 07 17:28:48 2013 +0200
@@ -621,7 +621,7 @@
     ].
     rel := self topRelativePathToPackage_unix:aPackageID.
     (rel startsWith:'stx/') ifTrue:[
-        ^ '$(TOP)/', (rel copyFrom:'stx/' size + 1).
+        ^ '$(TOP)/', (rel withoutPrefix:'stx/').
     ] ifFalse:[
         ^ '$(TOP)/../', rel
     ]
@@ -648,7 +648,7 @@
 
     rel := self topRelativePathToPackage_win32:aPackageID.
     (rel startsWith:'stx\') ifTrue:[
-        ^ '$(TOP)\', (rel copyFrom:'stx\' size + 1).
+        ^ '$(TOP)\', (rel withoutPrefix:'stx\').
     ] ifFalse:[
         ^ '$(TOP)\..\', rel
     ]
@@ -780,7 +780,7 @@
 
     rel := (self topRelativePathToPackage_unix:toPackageID).
     (rel startsWith:'stx/') ifTrue:[
-        ^ '$(TOP)', (rel copyFrom:'stx/' size)
+        ^ '$(TOP)', (rel copyFrom:'stx/' size) "/ notice: the slash remains
     ].
 
     ^ '$(TOP)/../', rel.
@@ -7424,11 +7424,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.467 2013-05-07 13:58:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.468 2013-05-07 15:28:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.467 2013-05-07 13:58:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.468 2013-05-07 15:28:48 cg Exp $'
 !
 
 version_SVN