# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1366895459 -7200
# Node ID 94aac7b5d592b156cc62851fd4ea58fbb49d06f6
# Parent  b6a7b058e665661b0048ab7e20f6bfc357540a5d
Changed usage of deprecated #copyWithoutLast: to #copyButLast:

diff -r b6a7b058e665 -r 94aac7b5d592 Tools_HierarchicalProjectList.st
--- a/Tools_HierarchicalProjectList.st	Thu Apr 25 15:10:58 2013 +0200
+++ b/Tools_HierarchicalProjectList.st	Thu Apr 25 15:10:59 2013 +0200
@@ -415,31 +415,31 @@
 
     i:= packageToItemDictionary at:package asSymbol ifAbsent:nil.
     i isNil ifTrue:[
-	i := ProjectItem new.
-	i package:package.
-	packageToItemDictionary at:package asSymbol put:i.
+        i := ProjectItem new.
+        i package:package.
+        packageToItemDictionary at:package asSymbol put:i.
 
-	package size > 0 ifTrue:[
-	    "/ find the parent ...
-	    p := package asCollectionOfSubstringsSeparatedByAny:':/.'.
-	    pp := p copyWithoutLast:1.
-	    l := (pp asStringWith:$/) size.
-	    parentPackage := package copyTo:l.
+        package size > 0 ifTrue:[
+            "/ find the parent ...
+            p := package asCollectionOfSubstringsSeparatedByAny:':/.'.
+            pp := p copyButLast:1.
+            l := (pp asStringWith:$/) size.
+            parentPackage := package copyTo:l.
 
-	    parentItem := self addPackage:parentPackage asSymbol .
+            parentItem := self addPackage:parentPackage asSymbol .
 
-	    parentPackage size == 0 ifTrue:[
-		idx := 1.
-	    ] ifFalse:[
-		idx := parentPackage size + 2
-	    ].
-	    i label:(package copyFrom:idx).
+            parentPackage size == 0 ifTrue:[
+                idx := 1.
+            ] ifFalse:[
+                idx := parentPackage size + 2
+            ].
+            i label:(package copyFrom:idx).
 
-	    parentItem add:i sortBlock:[:i1 :i2 | i1 label asLowercase < i2 label asLowercase].
+            parentItem add:i sortBlock:[:i1 :i2 | i1 label asLowercase < i2 label asLowercase].
 
-	    "/ TODO: special items for classes, resources etc.
+            "/ TODO: special items for classes, resources etc.
         
-	]
+        ]
     ].
     ^ i
 !
@@ -518,10 +518,10 @@
 !HierarchicalProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.11 2013-03-27 19:29:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.12 2013-04-25 13:10:59 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.11 2013-03-27 19:29:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.12 2013-04-25 13:10:59 stefan Exp $'
 ! !